normalerweise werden mehrere Zeilen mit #13#10 getrennt, meine Parsing-Methode sieht so aus:
Delphi-Quellcode:
procedure TForm1.SocketOnRead(Sender: TObject; Socket: TCustomWinSocket);
var rec:string;
begin
rec:=Socket.ReceiveText;
while (pos(#13#10,rec) <> 0) do begin
ParseMessage(copy(rec,0,pos(#13#10,rec)));
rec:=copy(rec,pos(#13#10,rec)+2,length(rec));
end;
end;
die is'n bischen simpler als die oben gepostete
