Packed Records und Zeichenketten

[Reinhard Kern]

Zitat von Neutral General:

Achja... Kann den String nicht genau MaxInt Bytes groß machen...

Zitat:

[Error] Client.pas(24): Data type too large: exceeds 2 GB

:arrow: (quasi)

Delphi-Quellcode:

x := SizeOf(Record-String); 
Text: array[1..MaxInt-x] of Char;

Niemand verschickt solche Daten "am Stück". Texte kann man zeilenweise verschicken, Binärdaten in Blöcken von 128 Bytes oder was geeignet ist. Meiner Ansicht nach ist ein String mit 2 GB in jedem Fall ein Fehler im Konzept.

Gruss Reinhard

[Dax]

Eben, deswegen wird der nie 2GB groß Lies mal meinen Beitrag aber böse Tricks mit dem Speichermanager weiter oben.

[Muetze1]

Och, bei der Lösung ist man aber auch wieder eingeschränkt. Warum nicht einfach ein kleines Protokoll definieren? Beispiel:

1. Integer (4 Bytes) Länge der folgenden Zeichenkette
2. Zeichenkette in der Länge wie zuvor angegeben.

Delphi-Quellcode:

procedure SendString(AText: string);
var
  lLen: Integer;
begin
  lLen := length(AText);
  Socket.SendBuf(lLen, sizeof(lLen));
  if lLen > 0 then
    Socket.SendBuffer(AText[1], lLen);
end;

bzw. empfangen:

Delphi-Quellcode:

function ReceiveString: string;
var
  lLen: Integer;
begin
  Socket.ReceiveBuf(lLen, sizeof(lLen));
  if lLen > 0 then
  begin
    SetLength(Result, lLen);
    Socket.ReceiveBuf(result[1], lLen);
  end;
end;

[Neutral General]

@Muetze1: Klar. Aber das funktioniert nicht wenn der String in einem Record ist und man das ganze Record verschickt...

[Dax]

Der Sinn hinter einem solchen Protokoll ist ja auch, eben nicht den gesamten Record zu verschicken, sondern die einzelnen Komponenten.