Hallo,
ich hatte auch mal das Problem, dass der Client einen Server suchen soll.
Hab das damals so gelöst (zwar mit den Socket-Komonenten - ist aber umschreibbar:
Delphi-Quellcode:
procedure TMainForm.Timer_toggleTimer(Sender: TObject);
begin
with ClientSocket do
begin
try
//ClientSocket schliessen
Active := false;
Socket.Close;
Close;
//ClientSocket beschreiben
Port := SpinEdit_Port.Value;
Address := S_Adresse;
finally
// leer
end;
//Versuchen die Verbindung zu öffnen...
try
//ClientSocket öffnen
Open;
except
//ClientSocket schliessen
Active := false;
Socket.Close;
Close;
end;
end;
end;
kurze Erklärung: er versucht den Port zu öffnen, geht das nicht (except) dann wird wieder geschlossen und von neuem begonnen
mfg
Helmi
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<