In der Zwischenzeit hab ich es mit
Indy getestet und das klappt.
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;
Man kann das
if IdTCPClient1.Connected then ... weglassen, denn wenn der Verbindungsaufbau mit
IdTCPClient1.Connected scheitert, wird eine
Exception ausgelöst. Die Zeile mit der Abfrage auf Connected würde also nie erreicht.
Sicherheitshalber würde ich das Free in einem finally Block platzieren.
Delphi-Quellcode:
IdTCPClient1 := TIdTCPClient.Create(
nil);
try
IdTCPClient1.Host := '
127.0.0.1';
IdTCPClient1.Port := 8078;
try
IdTCPClient1.Connect;
IdTCPClient1.IOHandler.
Write(s);
IdTCPClient1.Disconnect;
except
on E:
Exception do
begin
Log(E);
raise;
end;
end;
finally
IdTCPClient1.Free;
end;