串口通信编程，如何设置连接超时时间？在线等待！

[CodeDuDu]

最好是用windowAPI或是SPCOMM控件。

还有就是超时时间设置后，我要向串口写数据时，怎样知道连接超时了？

谢谢

[rwdx]

gz

[zhiwuyang602]

mscomm kongjian zenme yang ?

[CodeDuDu]

来看看呀!

[Wnyu]

WaitForSingleObject.
WaitCommEvnets

[CodeDuDu]

没看懂，能详细一点吗？

[DelUser]

我也碰到过类似问题。

[heaseef]

给你参考：
主：
Timer1.Interval := strtoint(vWaitSecond)*1000;
b_delay:=false;
Timer1.Enabled := True ;

while (MsComm1.InBufferCount<addreturn) and (not b_delay) do
begin
application.ProcessMessages;
end;
if b_delay then
begin
b_Delay:= False;
application.MessageBox('超过通信时间！请检查连线及设备.','信息框',
mb_ok+mb_iconstop);
if Mscomm1.PortOpen then MsComm1.PortOpen:=false;
Exit;
end;


procedure TFormsender.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := false;
b_delay:=true;
end;