我寫了一個網絡通訊程序,分別使用了ClientSocket和SserverSocket控件.
ClientSocket用在遠程機子端,隔時嘗試連接在我的機子的ServerSocket.

procedure TForm1.ClientSocketError(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
ErrorCode:=0;
socket.Close; //遇異常時即斷開連接並Enable TryConnectTimer重新嘗試連接
end;

procedure TForm1.ClientSocketDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
CheckTimer.Enable:=false; //停止Telnet遠程主機
TryConnectTimer.Enable:=true; //每隔10秒嘗試連接ServerSocket
end;

procedure TForm1.CheckTimer(Sender: TObject);
begin //在連接成功我用了一個Timer,每10分鐘Telnet一下遠程主機的1234端口
try
idtelnet1.Host:='host.com';
idtelnet1.Port:=1234;
idtelnet1.Connect;
except
ClientSocket.Socket.Close; //連接不到Client端則斷開連接並重新嘗試連接
end;
end;

上述代碼的作用都是防止程序在連接成功後遇異常而失去聯繫,但有時候Client端不知何故(不是關機或被用戶Terminate)還是失去了連繫,請問有沒有更可靠的方法解決此問題?
使用線程嗎?但在線程中去執行上面提到的CheckTimer,其作用是否一樣呢?