Packed Records und Zeichenketten

[Neutral General]

Hi,

Ich werde/will/tue packed records übers Netzwerk/Internet verschicken. Der String (bzw. Allgemein: die Zeichenkette) soll in einem Record sein. "Normale" Strings kann ich ja nicht nehmen. Strings mit begrenzter Länge gehn leider auch nicht. Geht das irgendwie mit PChar oder einen Array of Char ? Ich steh grad bisschen auf der Leitung.

Gruß
Neutral General

[mkinzler]

Zitat:

Strings mit begrenzter Länge gehn leider auch nicht

Warum nicht?

[Neutral General]

Weil: Eventuell lange Texte > 255 Zeichen :wink:

[Dax]

Wenn du nur einen string hast, kannst du etwas gemeines tun:

Delphi-Quellcode:

type
  PMeanRecord = ^TMeanRecord;
  TMeanRecord = packed record
    Size: Integer;
    // deine Felder
    Text: array[1..MaxInt] of Char; //(eigentlich 1..Size)
  end;

const
  TMeanRecordMinimumSize = 4; //+Größe deiner Felder

Diesen Record darfst du *nur* über GetMem initialisieren. New oder Variablen des Recordtyps sind absolut verboten:

Delphi-Quellcode:

var
  rec: PMeanRecord;

GetMem(rec, TMeanRecordMinimumSize + stringLength);

Wenn du mehrere Strings brauchst... Nun, Pech gehabt. Dann musst du dir Handler dafür schreiben.

[Christian Seehase]

Moin Michael,

Zitat:

Zitat von Neutral General

Der String (bzw. Allgemein: die Zeichenkette) soll in einem Record sein.

Wenn Du HugeStrings verschicken willst, geht das eh' nur speparat, da sie im Record ja nur als Pointer gespeichert werden.

[RavenIV]

Du kannst nehmen:
TextString: String[100];

Zitat:

Zitat von Delphi-Hilfe

Delphi unterstützt kurze String-Typen (Untertypen von ShortString), deren maximale Länge zwischen 0 und 255 Zeichen liegen kann. Diese Typen werden mit einer Zahl in eckigen Klammern dargestellt, die auf das reservierte Wort string folgt. Beispiel:

var MyString: string[100];
Hier wird die Variable MyString mit einer maximalen Länge von 100 Zeichen erstellt.

[Neutral General]

Hi Dax,

Brauche nur einen String :) Und wenn ich das so mache dann brauche ich auch wirklich nur Size(Record ohne String) + Length(String) Bytes? Ich kanns kaum fassen :)
Ok das es mit New bzw Variablen vom Record selbst nicht geht ist mir jetzt auch klar, weeeiil sonst hätte ich Monsterrecords, die ich sicher verschicken will -.-^^

"145 Bytes runtergeladen von 5.32MB von 'Hallo Welt#0#0[...]#0'" :mrgreen:

Gruß
Neutral General

[Dax]

Das dürfte eher in Richtung 2^31+x Bytes gehen, nicht nur 5,32 MB ;)

[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;

[Dax]

Dann verwende eine sinnvolle Obergrenze wie (1 shl 29), das dürfte sicherlich reichen... Oder du schaltest das Range checking aus und benutzt gleich [0..0].