Indy TCP Client/Server

[BlackSeven]

Hallo,

ich schicke innerhalb einer Sekunde mehrere Datenpakete an einen TCP-Server.

Mein Problem:
Nach kurzer Zeit kommen auf dem Server keine Daten mehr an.

Gleiches Problem wie hier beschrieben:
http://stackoverflow.com/questions/9...nding-packages

Hat vielleicht jemand ein paar Ideen/Anregungen?

Danke.

[Furtbichler]

Zitat von BlackSeven:

Hat vielleicht jemand ein paar Ideen/Anregungen?

Erstelle ein Demo-Projekt, erkläre, was und wie Du die Daten schickst, und was und wie Du die Daten empfängst.

[BlackSeven]

Hier ein kleines Demo-Projekt, um das Ganze zu demonstrieren.

Versand:

Delphi-Quellcode:

 

var

  I    : Integer;
  Data : TBytes;

begin

  Send.Enabled := False;

  Application.ProcessMessages;

  for I := 1 to 10000 do
  begin

    SetLength(Data, SizeOf(Integer));

    Move(PByte(I), Data[0], SizeOf(Integer));

    FClient.IOHandler.Write(LongInt(Length(Data)));
    FClient.IOHandler.Write(Data);

  end;

end;

Empfang:

Delphi-Quellcode:

var

  DataSize : LongInt;
  Data     : TBytes;
  Value    : Integer;

begin

  if AContext.Connection.IOHandler.Readable then
  begin

    DataSize := AContext.Connection.IOHandler.ReadLongInt;
    AContext.Connection.IOHandler.ReadBytes(Data, DataSize);

    Value := 0;
    Move(Data[0], PByte(Value), SizeOf(Integer));

    TThread.Queue
    (

      TThread.CurrentThread,

      procedure
      begin

        UI.Caption := IntToStr(Value);

      end

    );

  end;

end;

[mjustin]

Zitat von BlackSeven:

Delphi-Quellcode:

 

    TThread.Queue
    (

      TThread.CurrentThread,

      procedure
      begin

        UI.Caption := IntToStr(Value);

      end

    );

Liegt es eventuell an diesem Teil? Werden alle Nachrichten empfangen, wenn man einfach nur einen Zähler erhöht?

[sx2008]

Dein Sender schickt immer 4 Byte Länge + Nutzdatenblock.
Der Empfänger muss folgende Strategie anwenden.
1.) empfangener Datenblock an den Empfangpuffer anfügen (anhängen)
Jede TCP/IP-Verbindung benötigt ihren eigenen Empfangspuffer
2.) Falls Länge Empfangspuffer < 4 nichts tun (Exit; )
3.) die ersten 4 Bytes aus Empfangspuffer als Längenfeld auslesen
4.) falls Länge Empfangspuffer < Längenfeld + 4 dann nichts tun (Exit; )
5.) Aus dem Empfangspuffer werden die 4 Bytes + der Nutzdatenblock ausgeschnitten
Der Nutzdatenblock wird über ein Event der weiteren Verarbeitung zugeführt
6.) Gehe zu 2.)

Nur so gelingt eine saubere Kommunikation!

[mjustin]

Zitat von sx2008:

Dein Sender schickt immer 4 Byte Länge + Nutzdatenblock.
Der Empfänger muss folgende Strategie anwenden.
...
Nur so gelingt eine saubere Kommunikation!

Im Prinzip ja, aber der Indy TIdTCPServer kapselt den Low-level Teil dieses Vorgehens bereits. Man muss also nur noch das Protokoll (Länge lesen, dann Daten lesen) behandeln.