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

[Oxmyx]

while ( position <> 0 ) do "position" ändert sich in der Schleife nicht, ergo hast du eine Endlossschleife, sobald die Bedingung erfüllt ist.

[chrizzzz]

Ich habe die Procedure jetzt umgeschrieben so dass ich das Ergebniss in einer memo-box angezeigt bekomme und habe die gefundenen fehler berichtigt. Nun bleibt das programm zwar nicht mehr hängen, aber ich bekomme auch nichts angezeigt bzw nicht alles was ich wil. Und ich weiss nun echt nimmer wo der Fehler stecken könnte.

Delphi-Quellcode:

procedure TForm1.ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
    var 
      t:string; 
      temp, position:integer; 
    begin 
      t:=ClientSocket.Socket.ReceiveText(); 
      ReceiveBuffer := ReceiveBuffer + t; 
      //position := pos(#10, ReceiveBuffer);

        while ( pos(#10, ReceiveBuffer) > 0 ) do begin
          temp := pos(ReceiveBuffer, #10);
             If temp > 1 Then begin 

             //NeuerBefehl (leftstr(ReceiveBuffer, temp+1));
             form1.memo_incomeing.Lines.Add(leftstr(ReceiveBuffer, temp -1));
    
             end; 
          ReceiveBuffer := MidStr(ReceiveBuffer,1 , temp+2); 
    
        end;
        end;

Kann mir denn keiner die VB Function in Delphi "umschreiben" oder mir wenigstens deffinitive sagen, was ich falsch mache?

[Net7]

Hmmm sendest du die Befehle mit socket.Sendtext??

Delphi-Quellcode:

procedure TForm1.ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
var

  Befehl: string;
  i: integer;

begin
  Befehl := ClientSocket.Socket.ReceiveText();
     //Länge ermitteln
  for i := 1 to Length(Befehl) do
    begin
        //Befehl herraussuchen
      if Befehl[i] = Char(10) then
        SetLength(Befehl, i - 1);

    end;
  Memo1.Lines.Add(Befehl); //mal gucken ;)
  
end;

Dann denke ich doch wäre das eine gute Lösung. Somit ließt du deine Befehle+Argumente direkt aus
dem Text. Somit brauchst du nix zu Buffern.

Oder habe ich dich falsch verstanden ??