叮
叮叮当当
Unregistered / Unconfirmed
GUEST, unregistred user!
运行环境：WindowsXP + Delphi 6.0
要求：使用一个TClientSocket尝试与尚未运行的TServerSocket服务端应用程序连接，力求在TServerSocket运行后尽快与之建立连接并通信，因此使用一个TTimer定时为1秒不断尝试连接。
注意：TServerSocket平时是关闭的，很少开启，而TClientSocket要在其开启后尽最大努力尽快与之连接。
另外：TClientSocket和TServerSocket均采用ctNonBlocking（非阻塞方式）。
在TClientSocket的OnError事件中屏蔽连接失败错误：
procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ErrorCode := 0;
end;
定时器中代码如下：
procedure TFrom1.Timer1Timer(Sender: TObject);
begin
if not ClientSocket1.Active then ClientSocket1.Active := True;
end;
结果：TServerSocket服务端应用程序启动时，TClientSocket能正常与TServerSocket连接，但如果TClientSocket运行一段时间后仍未启动TServerSocket服务器（大约10分钟），TClientSocket应用程序就会出错！
错误为：Project BNTester.exe raised exception class ESocketError with message 'Windows socket error: 当该操作在进行中，由于保持活动的操作检测到一个故障，该连接中断。(10055), on API 'connect". Process stopped. Use Step or Run to continue.
继续运行还会引发另一个错误：Project BNTester.exe raised exception class ESocketError with message 'Windows socket error: 提供的文件句柄无效。(10022), on API 'WSACancelASyncRequest"". Process stopped. Use Step or Run to continue.
我初步分析是由于Socket句柄资源用尽导致的，有什么方法可以解决？
要求：使用一个TClientSocket尝试与尚未运行的TServerSocket服务端应用程序连接，力求在TServerSocket运行后尽快与之建立连接并通信，因此使用一个TTimer定时为1秒不断尝试连接。
注意：TServerSocket平时是关闭的，很少开启，而TClientSocket要在其开启后尽最大努力尽快与之连接。
另外：TClientSocket和TServerSocket均采用ctNonBlocking（非阻塞方式）。
在TClientSocket的OnError事件中屏蔽连接失败错误：
procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ErrorCode := 0;
end;
定时器中代码如下：
procedure TFrom1.Timer1Timer(Sender: TObject);
begin
if not ClientSocket1.Active then ClientSocket1.Active := True;
end;
结果：TServerSocket服务端应用程序启动时，TClientSocket能正常与TServerSocket连接，但如果TClientSocket运行一段时间后仍未启动TServerSocket服务器（大约10分钟），TClientSocket应用程序就会出错！
错误为：Project BNTester.exe raised exception class ESocketError with message 'Windows socket error: 当该操作在进行中，由于保持活动的操作检测到一个故障，该连接中断。(10055), on API 'connect". Process stopped. Use Step or Run to continue.
继续运行还会引发另一个错误：Project BNTester.exe raised exception class ESocketError with message 'Windows socket error: 提供的文件句柄无效。(10022), on API 'WSACancelASyncRequest"". Process stopped. Use Step or Run to continue.
我初步分析是由于Socket句柄资源用尽导致的，有什么方法可以解决？