Delphi XE 中的 VaComm
VaComm in Delphi XE
我想在我的 Delphi 程序中使用 Comport,我正在使用 como 发送数据效果很好,但问题是接收数据。当它接收到数据时,系统应该调用过程 VaComm1RxChar,但它没有。这个程序从来没有运行。但是即使我通过函数 VaComm1.ReadBufUsed 检查缓冲区中是否有一些字符,它 returns 我也是一个值,所以一定有一些接收到的数据。
感谢您的帮助。
这是我的代码,它只包含两个:
procedure TForm2.VaComm1RxChar(Sender: TObject; Count: Integer);
var text: string;
begin
text:=Vacomm1.ReadText;
Memo1.Lines.Add(text);
ShowMessage('Some data received!');
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
Vacomm1.WriteText('Hello');
Memo1.Lines.Add('Hello');
sleep(200);
end;
您确定收到了一些数据吗?您是否使用 Windows 类似终端的程序检查了正确的数据流?
端口是否打开?
检查 Vacomm1.OnRXChar
事件 属性 是否与您的 VaComm1RxChar
方法相关联
检查 ceRxChar
是否包含在 MonitorEvents
属性
中
我想在我的 Delphi 程序中使用 Comport,我正在使用 como 发送数据效果很好,但问题是接收数据。当它接收到数据时,系统应该调用过程 VaComm1RxChar,但它没有。这个程序从来没有运行。但是即使我通过函数 VaComm1.ReadBufUsed 检查缓冲区中是否有一些字符,它 returns 我也是一个值,所以一定有一些接收到的数据。
感谢您的帮助。
这是我的代码,它只包含两个:
procedure TForm2.VaComm1RxChar(Sender: TObject; Count: Integer);
var text: string;
begin
text:=Vacomm1.ReadText;
Memo1.Lines.Add(text);
ShowMessage('Some data received!');
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
Vacomm1.WriteText('Hello');
Memo1.Lines.Add('Hello');
sleep(200);
end;
您确定收到了一些数据吗?您是否使用 Windows 类似终端的程序检查了正确的数据流?
端口是否打开?
检查 Vacomm1.OnRXChar
事件 属性 是否与您的 VaComm1RxChar
方法相关联
检查 ceRxChar
是否包含在 MonitorEvents
属性