????
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;
1. sleep(5000); sind 5sekunden
2. du musst deinen client auch ma im finally freigeben mit Client.Free
3. mach einfach ein onConnect event mit rein, dann weißte bescheid, obs geklappt hat