RecordtoString

[arbu man]

Hi,

ich kann mit dem UDPSockUtil Texte mit einer Länge von bis zu einer länge von 512 Byte verschicken, leider nützen mir texte herzlich wenig, da das parsen zu (zeit)aufwändig wäre. Was ich gerne verschicken würde wären records mit kleinen string (string[20]) und zahlen (integer, double). leider weiss ich zwei Sachen nicht wie wandle ich einen record in einen string um und wie wieder zurück.

mfg, Björn

[andreash]

Hallo,

mir fallen verschiedene Möglichkeiten ein:

• Schreibe die Felder deines Records in einen String, wobei du die Werte der Felder mit einem Trennzeichen trennst.
• Verwende die Funktionen BinToHex und HexToBin; Nachteil: Der String wird doppelt so lang wie die Länge des Records
• Verwende Base64 Routinen (Unter dem Stichwort Base64 findest du in diesem Forum einige Einträge)

[Union]

Schau mal unter Move oder absolute nach.

[arbu man]

hey Danke Move sieht wunderbar aus

[SirThornberry]

move sollte die beste lösung sein:

Delphi-Quellcode:

SetLength(DeinString, SizeOf(DeinRecord));
move(DeinRecord, DeinString[1], SizeOf(DeinRecord));

[Union]

Ja, aber Achtung: Das geht nur bis zu 255 Byte String/Pufferlänge! Alternative eben auch absolute, das ist dann für ganz Faule - Ausser bei der Deklaration

Delphi-Quellcode:

procedure DoSomethingWithTheBuffer;
type
   // Buffer als Stringimitat
   TBuffer = record
      BufferLength : byte;
      BufferContents : array[0..255] of byte;
   end;
var
   Buffer : TBuffer;
   BufferString : string absolute Buffer;
begin
   // Irgendwas passiert mit den Buffercontents
   // ... Länge der Nutzdaten eintragen
   Buffer.BufferLength := 123;
   // Jetzt können wir auf den String zugreifen, denn Buffer.BufferLength = Bufferstring[0]
   // Dadurch braucht man kein Move, denn die Variablen liegen "übereinander" auf der selben Adresse.
end;

[Hawkeye219]

@Union:
Das "Achtung" gilt aber auch für dich: dein Code funktioniert nämlich nur mit ShortString, Delphi benutzt aber normalerweise lange (dynamische) Strings, bei denen es keine Längenbeschränkung auf 255 Zeichen gibt. In deinem Code ist BufferString also ein Zeiger mit einer Länge von 4 Bytes, den man wohl nicht mit TBuffer gleichsetzen sollte...

Gruß Hawkeye

[Union]

Ja, Du hast Recht. In der Deklaration sollte Shortstring als Typenbezeichner stehen.

[arbu man]

Was mich jetzt noch interessieren würde warum geht es nur bis 255 ?

[Hawkeye219]

Mit der folgenden Record-Definition gibt's weniger Probleme:

Delphi-Quellcode:

TBuffer = packed record
  BufferLength   : byte;
  BufferContents : array [1..255] of byte;
end;

Zurück zum eigentlichen Thema des Threads:
Ich benutze/kenne UDPSockUtil nicht, aber gibt es da keine Methode SendBuffer?

//Edit

@arbu man: das bezog sich wohl auf die Verwendung von ShortString

Gruß Hawkeye