Asynchroner socket Fehler abfangen

[cRayZo]

hi, ich möchte die Fehlermeldung "asynchroner Socketfehler (..)" abfangen.
ich weiß wieso er entsteht, nur möchte ich meinen Client automatisch eine Verbindung zum Server aufbauen lassen, sobald der Port aktiv ist.

mit try except in der Procedure wo er den client aktiviert kann ich den Fehler nicht abfangen. Liegt das am Try except oder am falschen ort, wo ich den Fehler abfangen will, wenn ja wo muss ich den Fehler abfangen?

Delphi-Quellcode:

try ClientSocket1.active := true;
except {wasauchimmer}<-- geht nicht

[sk0r]

Hallo.

Würde es nicht in der folgenden Methode gehen?

procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer); MfG: sk0r

[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!

[cRayZo]

ja aber es sorgt doch dafür, dass auch keine sonstigen errors mehr kommen oder?

auch auch egal, klappt jedenfalls, thx

[Muetze1]

In der Fehlermeldung die du früher bekommen hast, stand ein Fehlercode mit drin - und auf diesen kannst du im OnError Ereignishandler vergleichen (siehe Parameter ErrorCode) und z.B. nur auf diesen Fehler hin die Fehlerausgabe unterdrücken. Oder du gibst einfach selber die Fehler aus im OnError Ereignishandler - z.b. kannst du ja SysErrorMessage() verwenden - und dabei kannst du dann auch wieder genau den o.g. Fehlercode auslassen.