TClient & TServer socket verbindung

[TobiasT]

Habe max_tries auf 10 gesetzt!

Habe jetzt alles in einen Timer gesetzt, der jede 5 sek. versucht die Verbindung herzustellen.

Jetzt müssten ich nur noch die blöde Asynchron Fehlermeldung unterdrücken können, dann wäre das Problem gelöst.

Delphi-Quellcode:

procedure TForm1.TimerTimer(Sender: TObject);
begin
  IF Client.Socket.Connected=false THEN
  begin
    try
      client.Active:=true;
    except
      inc(TriesToConnect);
    end;
  end;
end;

[ste_ett]

Zitat:

Zitat von TobiasT

Jetzt müssten ich nur noch die blöde Asynchron Fehlermeldung unterdrücken können, dann wäre das Problem gelöst.

Gaaaaaanz schlechte Idee. :D
Fehler beseitigen, nicht unterdrücken! :)

Welchen Fehler-Code bekommst du genau?

[TobiasT]

Asynchroner Socket-Fehler 10061.

//edit:

Kann man das vielleicht mit dem onError Ereignis abfangen?

[ste_ett]

10061 bedeutet, dass auf der Gegenseite kein Port offen ist, um eine Socket-Verbindung aufzubauen.

Was ist das für ein Server, auf den du connectest?

[TobiasT]

Der läuft auf dem selben rechner (darum 127.0.0.01)

Hab es hinbekommen die Fehlermeldung nicht anzeigen zu lassen!

Delphi-Quellcode:

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

end;

Problem ist jetzt gelöst!

Vielen dank an alle die geholfen haben! :cheers: :kiss: :zwinker:


Mfg Tobias

[inherited]

o_O
Bitte schreib wenigstens den Fehler vorher in eine Log.