Als schnelle Lösung würde ich vorschlagen die Eigenschaft ClientType des Sockets auf ctBlocking zu setzen. Ich sehe bei einer Konsolenanwendung sowieso keinen großen Vorteil in non blocking Sockets.
Das muss ich nochmal testen. Klingt logisch.
In der Zwischenzeit hab ich es mit
Indy getestet und das klappt. Never touch a running system ...
Delphi-Quellcode:
IdTCPClient1 := TIdTCPClient.Create(
nil);
try
IdTCPClient1.Host := '
127.0.0.1';
IdTCPClient1.Port := 8078;
IdTCPClient1.Connect;
if IdTCPClient1.Connected
then
begin
IdTCPClient1.IOHandler.
Write(s);
IdTCPClient1.Disconnect;
end;
except
on E:
Exception do ;
end;
IdTCPClient1.Free;
Er wollte so richtig in Delphi einsteigen. Nun steckt er ganz tief drin ...