Konsolenprogramm (mit ServerSocket) Keine Ahnung wie

[Real_Thunder]

Hmm.. Habe mal in die Schleife ein Sleep(100) Reingesetzt..
Hilft aber Trotzdem Nichts

Dieses Habe ich noch hinzugefügt

Delphi-Quellcode:

while Befehl <> 'ende' do begin


i:=ServerThread.ServerSocket.Socket.ActiveConnections;

writeln(IntToStr(i));
sleep(100);

if i > 0 then begin
  ServerThread.ServerSocket.Socket.Connections[0].SendText('BlaBlaBla');
end;

writeln ('Client hat verbunden');
end;

Doch er Zeigt mir immer eine 0 an... Obwohl der testclient Verbunden anzeigt.