MSComm 可发送,但不可接收? 程序如下

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, MSCommLib_TLB, ExtCtrls;type
  TForm1 = class(TForm)
    MSComm1: TMSComm;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Timer1: TTimer;
    procedure MSComm1Comm(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.MSComm1Comm(Sender: TObject);
begin
  Memo1.Lines.Add(inttostr(MsComm1.InputLen)+',  '+ MSComm1.Input);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
MSComm1.PortOpen := True;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  MSComm1.PortOpen := False;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
  MSComm1.Output := Edit1.Text;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if MsComm1.PortOpen = true then begin
     label2.Caption := inttostr(mscomm1.OutBufferCount);
  end;
end;end.

Answer 1

可以把TMSComm控件发给我吗？
[email protected]
谢谢！

Answer 2

Mscom
你还要设置它的参数,才能正确使用
procedure TForm1.MSComm1Comm(Sender: TObject);我用得太久,具体说不出!!

Answer 3

1.我个人认为用 MSCOMM 不会麻烦。
2.MSCOMM 在 VB 里已有。或下载一个具有 COM 编程的 VB 程序就有。
3.我已设置好了且能发送。

Answer 4

procedure TForm1.MSComm1Comm(Sender: TObject);
begin
  if Mscomm1.CommEvent = 2 then
     Memo1.Lines.Add(inttostr(MsComm1.InputLen)+',  '+ MSComm1.Input);
end;

Answer 5

如果在通信过程中发生错误或事件，就会引发OnComm事件，并由CommEvent属性代码反映错误类型，在通信程序的设计中可根据该属性值来执行不同的操作。CommEvent属性值及其含义如下：
　　（1）ComEvSend：值为1，发送缓冲区的内容少于SThreshold指定的值。
　　（2）ComEvReceive：值为2，接收缓冲区内字符数达到RThreshold指定的值。
　　（3）ComEvFrame：值为1004，硬件检测到帧错误。
　　（4）ComEvRxOver：值为1008，接收缓冲区溢出。
　　（5）ComEvTxFull：值为1010，发送缓冲区溢出。
　　（6）ComEvRxParity：值为1009，奇偶校验错误。
　　（7）ComEvEOF：值为7，接收数据中出现文件尾（ASCII码为26）字符。

Answer 6

TO wujie0978_cn(蓝J) : 这一点我清楚，我一开始也是照你的代码写，但依然不行，所以索性取消了判断语句看看有什么反就没有结果依然。注：我的程序是在XP下通过虚拟端口控制常规IRDA红外线进行接收与发送电视遥控信号。但：发送成功了，只是接收无返应。

Answer 7

另注：我的红外线是用红外口（即：主板内的接口），而非RS232 COM 口。所以在XP下使用虚拟端口。

Answer 8

我现在用上了 SPCOMM ，感觉很好，问题：
1、改用了 COM 口的红外线，数据接收到了。但主板上红外口的红外线依然不行。
2、SPCOMM 接收到的数据我用下面的代码：   var
     i : integer;
     str_mid : Ansistring;
     TmpArray : array [0..1024] of byte;   begin     str_mid := '';     move ( buffer^, pchar((@TmpArray)^), bufferlngth+2 );     for i:=0 to bufferlength -1 do begin
        // str_mid := str_mid + inttohex( TmpArray[i], 2);  
        // str_mid := inttohex( TmpArray[i], 2) + str_mid;
     end; {for}     ShowMessage (str_mid);   end;   数据是接收到了，但： SPCOMM 的数据是这样处理的吗？需要高位与低位调换吗？听说SPCOMM 要从高读起。