叮
叮叮当当
Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢各位参与讨论！我正在总结讨论的帖子和相关资料，看有哪些解决方法可行。
帖子的积分稍候就会配发。
帖子的积分稍候就会配发。
张
张无忌
Unregistered / Unconfirmed
GUEST, unregistred user!
我还有个办法，你在连接之前用一个标志，比如
fstatue:=dtConnect，
在ERROR处理事件里如果连接失败，先判断这个标志是不是为dtConnect，如果是的，
就是关闭这个TClientSocket。
fstatue:=dtConnect，
在ERROR处理事件里如果连接失败，先判断这个标志是不是为dtConnect，如果是的，
就是关闭这个TClientSocket。
叮
叮叮当当
Unregistered / Unconfirmed
GUEST, unregistred user!
原来很简单，在OnError事件里将Socket关闭就没事了（释放了SocketHandle资源）。
procedure TForm1.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
Socket.Close;
ErrorCode := 0;
end;
procedure TForm1.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
Socket.Close;
ErrorCode := 0;
end;
叮
叮叮当当
Unregistered / Unconfirmed
GUEST, unregistred user!
其实前面各位都有提到在OnError里关闭Socket，都怪我没有好好看前面各位的发言，不好意思。[
]
]