Winsocket Befehls-Buffer

[chrizzzz]

Hi Leute, ich hab da ein kleines Problem:

Ich versuche, über Winsock alle ankommenden Daten zu "Buffern" bis ein bestimmtes Zeichen gesendet wird.

Beispiel ankommender String:

Befehl1|Argument1|Argument2|....|Argument10 CHAR(10) (anzahl der Argumente variiert)

CHAR(10) schliesst eine Befehlssequenz ab.

Der ankommende String soll solange gebuffert werden, bis ein Befehl samt Argumenten mit CHAR(10) abgeschlossen wird. Dann soll der Befehl aus dem Buffer entfernt werden und an eine funktion NeuerBefehl (data:string); übergeben werden.

Bei meinem Code friert das Programm ein, sobald Daten ankommen.

Codeausschnitt

Delphi-Quellcode:

    procedure TForm1.tcpRead(Sender: TObject; Socket: TCustomWinSocket); 
    var 
      t, wort:string; 
      temp, position:integer; 
    begin 
      t:=tcp.Socket.ReceiveText(); 
      ReceiveBuffer := ReceiveBuffer + t; 
      position := pos(#10, ReceiveBuffer); 
    
        while ( position <> 0 ) do begin 
          temp := pos(ReceiveBuffer, Chr(10))+1; 
             If temp > 1 Then begin 
    
             NeuerBefehl (leftstr(ReceiveBuffer, temp+1)); 
    
             end; 
          ReceiveBuffer := MidStr(ReceiveBuffer, 1, temp); 
    
        end;

Selbiges prinzip unter VisualBasic funktioniert. Hier der Codeausschnitt aus dem VisualBasic Programm:

Code:

    Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 
    
     Dim t As String 
     Winsock1.GetData t 
     ReceiveBuffer = ReceiveBuffer + t 
     Dim temp As Long 
    
    Do While InStr(1, ReceiveBuffer, Chr(10)) > 0 
    
     temp = InStr(1, ReceiveBuffer, Chr(10)) 
       If temp > 1 Then 
        NeuerBefehl Left(ReceiveBuffer, temp - 1) 
       Else 
         NeuerBefehl "" 
       End If 
      ReceiveBuffer = Mid(ReceiveBuffer, temp + 2) 
      Loop 
    End Sub

Kann mir wer helfen und den VB Code in Delphi nachbauen? Danke schonmal im Vorraus.

GreeZzZz
ChriZzZz