怎样实现spcomm通信 要实现半双工通信问题

lxhong1980 2003-10-16 05:24:34
; 如果通信不成功,即没有收到CC,那么程序都关不了,怎么解决啊


pDataToWrite[1]:=chr(byte($D1));
LDate:=1;
Comm1.Inx_XonXoffFlow:=false;
Comm1.Outx_XonXoffFlow:=false;
Comm1.WriteCommData(@(pDataToWrite),LDate);


while ((not (sRece1='CC')) do
begin
Application.ProcessMessages;
end;

if sRece1<>'CC' then
begin
Application.MessageBox('握手失败!','提示',MB_OK+MB_ICONINFORMATION);
End
...全文
46 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
aiirii 2003-10-25
  • 打赏
  • 举报
回复
可以用很多方法解決:
如:
while ((not (sRece1='CC') and isCancel) do...

如 waitforsingleobject()...
lxhong1980 2003-10-25
  • 打赏
  • 举报
回复
解决了 设置时间
接分

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧