TIdTCPClient 做客户端,正常通信一段时间之后Raised exception class EIdSocketError with message 'Socket Error # 0
'. Process stopped. Use Step or Run to continue. 奇怪的是报这个异常之后,GetLastError竟返回0.
'. Process stopped. Use Step or Run to continue. 奇怪的是报这个异常之后,GetLastError竟返回0.
解决方案 »
- 想了好几天了,没想出来.一个关于DBGrid的问题,请高手帮帮我!!!!
- xml读写问题
- 能不能像建树一样建文件夹呀或是将建好的树导出成文件夹.(急.....)
- 如何在windows98下成立建立与sql server2000的连接
- 为什么我在17寸显示器上做的程序在15寸上界面就乱了呐?帮我!
- 复兴科技高薪诚聘DELPHI开发工程师(深圳南山科技园)
- 为什么Inc(P,N)的结果不对?
- 同志们:本人急啊,帮忙解决一下!各个给分!
- 随机数问题!!
- Delphi 6 是不是取消了 DsgInf.dcu,5.0里面找得到的,可在6.0里面就找不到了
- 想用D来和安捷伦的53132A通讯,发现在VB中的一个控件,不能安装到D中使用。有解决过此类问题的给个建议。
- 将trichedit里的字保存到sql里为什么读出来以后当初设置好的字体大小没有保存进去?
begin
try
TcpClient.ReadBuffer(Cmd, Sizeof(Cmd)); // TcpClient: TIdTCPClient; // TCP客户端组件
pub_WatchCount := 0;
Synchronize(HandleInput); // 同步过程
except
on E: Exception do
begin
if pos('Socket Error # 0',E.Message)>0 then
begin
CloseConn;
end;
end;
end;
end;