So, hier nun der Quelltext
TRY
FullResponse := '';
if not m_oClientSocket.Connected then
begin
m_oClientSocket.Connect();
end;
m_oClientSocket.WriteLn(Request);
REPEAT
Response := m_oClientSocket.ReadLn(#$A);
IF Response <> '' THEN
BEGIN
FullResponse := FullResponse + Response + #$A;
if Response='bla' then break;
END;
UNTIL Response = '';
EXCEPT
ON E:
Exception DO
BEGIN
Showmessage(E.Message);
END;
END;
FINALLY
m_oClientSocket.Disconnect;
END;
Wie gesagt. Ich hätte es ganz gerne ohne das Disconnect.