TserverSocket und TclientSocket

[Aphton]

Delphi-Quellcode:

procedure TForm1.ServerSockClientRead(Sender: TObject;Socket: TCustomWinSocket);
var
  ReceivedText, cmd, data: string;
  i: integer;
  Item: TListItem;
  StrLst: TStringList;
begin
  ReceivedText := Socket.ReceiveText;
  cmd := Copy(ReceivedText, 0, 3);
  data := Copy(ReceivedText, 4, Length(ReceivedText));

  if cmd = '000' then
  begin
    memLog.Lines.Add(data);
  end;

  if cmd = '001' then
  begin
    memLog.Lines.Add(' .:: Client connected: ' + data + ' on ' + socket.RemoteAddress);
  end;

In den folgenden zwei Zeilen steckt ein fataler Fehler:

Delphi-Quellcode:

  ReceivedText := Socket.ReceiveText;
  cmd := Copy(ReceivedText, 0, 3);
  data := Copy(ReceivedText, 4, Length(ReceivedText));

Denn du gehst davon aus, dass immer genausoviel ankommt, wie auch gesendet wird. Das muss aber nicht sein.

Wenn du 10 Bytes an Daten (seien wir mal minimalistisch, da es einfacher zum Erklären ist) schicken willst, und vorhast, diese jeweils in 5 Byte Paketen zu schicken mit 3 Bytes "cmd", dann müssten immer 5 Bytes kommen bei ReceiveText.
Das ist aber nicht der Fall. Lokal wird das problemlos gehen, denn da müssen die Pakete nicht so häufig fragmentiert werden und können wirklich in abgeschickter Größe ankommen.. (kann aber auch hier passieren)
Über das Internet wird es so sein, dass zB. zuerst 2 Bytes kommen, dann evt 1 Byte, dann ne Zeit lang nichts, dann plötzlich 7 usw..

Dh du musst ein anderes System verwenden. Puffere die Daten in nen Stream, wenn du ne bestimmte Größe empfangen hast, liest du deine "Cmd" aus und schaust, ob der Datenteil lang genug ist um damit etwas anfangen zu können. Anschließend löscht du aus diesem Puffer dieses "Paket" (= Cmd + Daten)

[Briand]

hmmmm also irgendwie krig ich das nicht hin
was mach ich da blos falsch ?

[Jumpy]

Hallo,

lese dir doch mal die 2-3 Tutorials zu Netzwerkprotokollen von Narses durch. Hat hier neulich mal jemand verlinkt und ich fand die recht informativ:

http://www.entwickler-ecke.de/topic_...s_54269,0.html

[Furtbichler]

Zitat von Aphton:

In den folgenden zwei Zeilen steckt ein fataler Fehler:

Delphi-Quellcode:

  ReceivedText := Socket.ReceiveText;
  cmd := Copy(ReceivedText, 0, 3);
  data := Copy(ReceivedText, 4, Length(ReceivedText));

Seit wann sind Delphi-Strings 0-basiert?

Die Pufferung geht im Prinzip so:

Delphi-Quellcode:

  ReceivedText := Socket.ReceiveText;
  fBuffer := fBuffer + ReceivedText;
  if CompleteCommandInBuffer (fBuffer) Then begin
     myCommand := ExtractCommandStructureFromBuffer (fBuffer);
     fBuffer := RemoveCommandDataFromBuffer (fBuffer);
     myCommandResult := ProcessCommand (myCommand);
     myCommandResult.SendAnswer(Socket); // Nur nötig, wenn das Kommando bestätigt werden muss
  end

Problem hierbei: Während das Kommando ausgeführt wird, sind keine weiteren Operationen möglich. Das wäre ok, sofern ein query-response implementiert wird.

[Briand]

Also Fenster friet mom immer noch ein beim Downloaden von Dateien.

Wie krig ich das TransferSocketRead in nen Tread ?

Delphi-Quellcode:

procedure TransferSockClientRead(Sender: TObject;
  Socket: TCustomWinSocket);

  var
  Buffer: array [0..9999] of Char;
  IncommingLen, RecievedLen: integer;

  begin

  IncommingLen := socket.ReceiveLength;

  while IncommingLen > 0 do
  begin
    RecievedLen := socket.ReceiveBuf(Buffer, Sizeof(Buffer));

    if RecievedLen <= 0 then
      Break
    else
      IncommingStream.Write(Buffer, RecievedLen);

    Form1.ProgressBar.StepBy(RecievedLen);

    if IncommingStream.Size >= Size then
    begin
      IncommingStream.Free;
      ServerSock.Socket.Connections[0].SendText('002');
      Form1.ProgressBar.Position := 0;
      if Form1.TransferName = 'Desktop.bmp' then;
      Break;
    end;
  end;
end;