Asynchroner socket Fehler abfangen

[combocraft]

Du musst folgenden Code verwenden:

Delphi-Quellcode:

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
ErrorCode := 0;
end;

Das behebt dein Problem!