Ist der Server zu "schnell"?

[Sir Rufo]

Wenn die Daten verschickt werden, ermittelt der Sender die Größe der Nachricht (ein Integer) und schickt diesen als erstes auf die Reise. Direkt danach die Daten.
Der Empfänger liest jetzt erst den Integer aus dem Buffer und weiß wie groß die Nachricht ist und empfängt - bzw. Wartet bis alle Daten da sind - die Nachricht.

[wicht]

Code:

type
  TForm1 = class(TForm)
  private
    LaengeNaechsteNutzdaten: Integer;
  end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  Info: TInfo;
begin
  // Gibt es genug, um die Länge auszulesen?
  if (LaengeNaechsteNutzdaten = 0) and (Socket.ReceiveLength >= SizeOf(LaengeNaechsteNutzdaten)) then
    // Dann auslesen
    Socket.ReceiveBuf(LaengeNaechsteNutzdaten, SizeOf(LaengeNaechsteNutzdaten));

  if (LaengeNaechsteNutzdaten > 0) and (Socket.ReceiveLength >= LaengeNaechsteNutzdaten) then
  begin
    // Wenn der Puffer die Länge der Nutzdaten erreicht hat, auslesen
    Socket.ReceiveBuf(Info, LaengeNaechsteNutzdaten);  

    // Daten verarbeiten...
    MachWasMitDaten(Info);

    LaengeNaechsteNutzdaten:= 0;
  end;
end;

Weil das TInfo ja immer gleich groß ist, kann man sich den Integer theoretisch auch sparen, aber so müsste es aussehen denke ich...

[Sir Rufo]

Allerdings sollte man fairerweise dazu bemerken, dass dieses nur bei einem Client sauber funktioniert.

Somit würde man pro Socket eine solche Variable (LaengeNaechsteNutzdaten) benötigen