Guten Tag Delphi Praxis.
Ich sitze gerade an einer Software die mit den tClient und tServerSocket Komponenten arbeitet. Das ganze funktioniert theoretisch auch, leider muss der Server gestartet werden und dann der Client. Falls der Client zuerst gestartet wird kommt ´nur eine Fehlermeldung mit einem Asynchronen-Socket Fehler 10061. Um das ganze zu verhindern habe ich einen Timer hinzugezogen der folgendes macht :
Delphi-Quellcode:
procedure TForm4.timerTimer(Sender: TObject);
begin
try
client.Host := '127.0.0.1';
client.Port := 1337;
client.Active := True;
if client.Socket.Connected then
begin
timer.Enabled := False;
end;
finally
end;
Und später noch auf das Event Disconnect
Delphi-Quellcode:
procedure TForm4.clientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
timer.Enabled := True;
end;
Nachedem ich das dann getestet habe musste ich fest stellen das die Fehlermeldung immer noch kommt, gelöscht habe ich den Code noch nicht, vielleicht muss man ja nur etwas ergänzen.
Mein Ziel ist es das der Client solange versucht eine Verbindung herzustellen bis es ihm gelingt ( Ohne Fehlermeldung ) und das er es wieder weiter versucht wenn der Server geschlossen wird.
Danke!