Hey,
ich habe clientseitig folgenden Code:
Delphi-Quellcode:
if IdTCPClient1.Connected then
begin
SS := TStringStream.Create('');
try
IdTCPClient1.IOHandler.ReadStream(SS);
// testen
if SS.DataStream <> '' then
begin
ShowMessage(SS.DataStream);
end;
finally
SS.Free;
end;
end;
Das Problem ist nur, dass sich der Client aufhängt, wenn keine Daten für ReadStream vorhanden sind. Vorher sende ich vom Server mittels IOHandler.Write(SS, 0, true) einige Streams zum Client, die auch wunderbar empfangen werden. Erst sobald ich keine Streams mehr sende hängt der Client sich auf.