habe gerade gesehen im Server habe ich keine Fehlerbehandlung.
Im Client
Delphi-Quellcode:
procedure TThreadClient.OnClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
var
i : integer;
s:string;
begin
i := ErrorCode;
if i = 10061 then
s:='err';
if i = 10053 then
s:='err';
ErrorCode := 0;
end;