Zitat:
das muss ich doch machen, wenn ich die verbindung beenden will oder?
guck ma du erstellst jedes mal beim durchlauf deiner while-schleife das objekt client erneut ohne es vorher wieder freizugeben.
mach doch einfach
Delphi-Quellcode:
Client := TClientSocket.Create( Form1 );
while Initialized = False
do
begin
try
Initialized := True;
Client.Host := '
127.0.0.1';
// Localhost
Client.Port := 1990;
Client.OnRead := ClientRead;
Client.Open;
Except
Initialized := False;
sleep(5000);
end;
end;