5,392
社区成员
发帖
与我相关
我的任务
分享ApdComPort控件的接收问题.
通过串口接收另一台机器每隔10秒发送的一个数据包.其输出方法为
ApdComPort1.Output := timetostr(time) ;
控件的接收事件处理方法如下:
procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var
s1 : string ;
I : Word;
begin
for I := 1 to Count do
S1 := S1 + ApdComPort1.GetChar;
edit1.Text := s1 ;
ApdComPort1.InBuffFree ;
end;
现在的问题是每次接收的结果仅是最后一个或两个字符,请问是何原因?
ApdComPort1.Output := timetostr(time) ;
控件的接收事件处理方法如下:
procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var
s1 : string ;
I : Word;
begin
for I := 1 to Count do
S1 := S1 + ApdComPort1.GetChar;
edit1.Text := s1 ;
ApdComPort1.InBuffFree ;
end;
现在的问题是每次接收的结果仅是最后一个或两个字符,请问是何原因?
...全文
请发表友善的回复…
发表回复
multispace 2005-02-24
- 打赏
- 举报
ApdComPort1.InBuffFree好像就不用了吧，GetChar好像取到字符就把他从接收缓冲区删掉了
hongchao 2005-02-23
- 打赏
- 举报
第一个回复者,给分.
hongchao 2005-01-18
- 打赏
- 举报
难道大家都很少使用这个控件吗?
hongchao 2005-01-18
- 打赏
- 举报
大家不能给点意见吗?
