hallo!
ich habe ein kleines client-server programm gemacht...
problem ist: der server ist nicht immer on und wenn das so ist, soll der client einfach in 5 Minuten nochmal versuchen zu verbinden... er macht das allerdings nicht so und er unterdrückt durch das try except auch nicht die fehlermeldung!
kann mir jemand helfen?
hier der code:
Delphi-Quellcode:
while Initialized = False
do
begin
try
Initialized := True;
Client := TClientSocket.Create( Form1 );
Client.Host := '
127.0.0.1';
// Localhost
Client.Port := 1990;
Client.OnRead := ClientRead;
Client.Open;
Except
Initialized := False;
sleep(5000);
end;
end;
ich bin für jede hilfe dankbar!!!