Indy报Socket Error # 10054，如何解决？

最新推荐文章于 2022-06-30 15:09:29 发布

转载最新推荐文章于 2022-06-30 15:09:29 发布 · 6.4k 阅读

文章标签：

#socket #异常 #控件

delphi 专栏收录该内容

2 篇文章

订阅专栏

本文详细介绍了在使用TCP客户端进行网络通信时如何通过异常处理和断开连接来避免出现网络错误，并提供了具体的代码示例。

在窗体中加一个ApplicationEvents控件,在它的OnException 事件中加一行注释,就可以屏蔽掉这个异常!

另一个方法
1.使用完就Disconnect,就没有信息弹出.
try
IdTCPClient1.Connect; try
try
// Do your communications here
finally IdTCPClient1.Disconnect; end;
except
on E: EIdException do begin
ShowMessage('An network error occurred during communication: '
+ E.Message);
end;
on E: Exception do begin
ShowMessage('An unknown error occurred during communication: '
+ E.Message);
end;
end;
except
on E: EIdException do begin
ShowMessage('An network error occurred while trying to connect: '
+ E.Message);
end;
on E: Exception do begin
ShowMessage('An unknown error occurred while trying to connect: '
+ E.Message);
end;
end;

procedure TSocketClient.ClientSocketError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
Case ErrorCode of
10053:
begin
ErrorCode:=0;
end;
10054:
begin
ErrorCode:=0;
end;
10060:
begin
ErrorCode:=0;
end
else
ErrorCode:=0;
end;

end;