Delphi中，串口的发送接收超时的重发机制，如何处理实现的？快帮忙呀！

Question

我现在做串口的开发时，遇到了有关串口发送数据后没有接收到数据的超时，然后再次重发的机制，不知道怎样来实现这种机制？请大家帮忙！非常急需！
我用的MSComm.ocx控件，发送数据是在Timer中写的，接收数据写在MSComm1Comm事件中。不知道如何来实现这种机制？ 
请高手们帮忙解决吧，最好能说的详细一点，或者根据这个要求来做一个例子，非常感激！
E-mail:[email protected]

Answer 1

1. 添加一个 WatchDogTimer：TTimer;
2. 在WatchDogTimer的 OnTimer事件中写上
begin
  WathDogTimer.Tag := WathDogTimer.Tag+1；
  if WathDogTimer.Tag > 1 then
    重发数据;  
end;
MSComm1Comm事件中写上 WatchDogTimer.Tag := 0;

Answer 2

要求精度不高，用Timer就可以了。
在onTime事件里写检查缓存的代码。
我记得串口接收有个缓存的。这个难度应该不大。查查资料