Client sucht Server mit TServer/ClientSocket

[Sharky]

Hai Chris,

hier mal ein ungetester Code:

Delphi-Quellcode:

procedure TForm1.VerbindenClick(Sender: TObject);
begin
 Timer1.Enabled := False;
 Timer1.Interval := 30 * 1000; //alle 30 Sekunden versuchen
 Timer1.Enabled := True;
 TcpClient1.Connect;
end;

procedure TForm1.TcpClient1Connect(Sender: TObject);
begin
 Timer1.Enabled := False;  //Verbindung steht. Timer abschalten.
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if not (TcpClient1.Connected) then //keine Verbindung
  begin
   TcpClient1.Connect; // Neu versuchen.
  end;
end;

Wenn auf den Button geklickt wird startet der Timer und es wird versucht eine Verbindung aufzubauen. Wenn eine Verbindung hergestellt wurde wird der Timer beendet.

Das ganze ist nur ein Lösungsansatz und müste noch verfeinert werden.