Thema: Delphi Winsocket Befehls-Buffer

Einzelnen Beitrag anzeigen

Benutzerbild von Net7
Net7

Registriert seit: 22. Jun 2004
Ort: Lauenburg
161 Beiträge
 
Delphi 7 Professional
 
#4

Re: Winsocket Befehls-Buffer

  Alt 13. Okt 2005, 12:23
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 ??
Marko
So`ne Atombombe kann einem den ganzen Tag verderben!
Eine eigene DLL in C++ geschrieben wird meist ein Sklave für mein Delphi/Pascal.
  Mit Zitat antworten Zitat