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;