Cardinal in Bytes speichern

[xZise]

Hallo ihr,

ich habe folgendes "Problem". Und zwar läuft eine Verbindung zwischen zwei Punkten mithilfe von Bytearrays ab. Bisher hat das gereicht, aber jetzt will ich den ErrCode übertragen. Aber wie macht man das? Der ist ja 4 Byte lang. Und ich hätte dann 6 Bytes zur Verfügung wo der Cardinal in den letzt 4 gespeichert wird.

MfG
xZise

[turboPASCAL]

Schlecht zu beantworten, wie ist denn der ErrorCode definiert bzw. wie gross kann der enthaltene Wert werden ?

Cardinal = 8 Byte bzw. 32 Bit

das heisst du breutest 2 mal 6 Bytes zur die du zur Verfügung hast um ein 8 Byte-Wert zu übertragen.

[xZise]

Also ich habe mit der Codevervollständigung geguckt und diese gibt mir halt Cardinal an. Bzw. im Code ist es als DWord definiert was ja ein Cardinal auch ist.

MfG
xZise

[jfheins]

Genau. DWord (32bit = 4 Bytes) und nicht 8 Bytes

Schau dir mal variante records an, damit kannst du den Cardinal als Bytearray ansprechen und umgekehrt - falls es das ist, was du willst

[turboPASCAL]

Zitat von jfheins:

Genau. DWord (32bit = 4 Bytes) und nicht 8 Bytes

Klar. ( Ich Schussel )

[xZise]

Naja meine Frage ist einfach wie kriege ich die da am einfachsten rein.

Einfach das?

Delphi-Quellcode:

for i := 0 to 3 do
  b[i + 2] := ErrCode div Power(255, i);

Ich dachte das man einfach die Bits über das Array schiebt:

Code:

Array: 01010101 01010101 10011001 01100110 10100101 11000110
-------- Head ---------- ---------------Data----------------
                             ^        ^        ^       ^
Cardinal:                10011001 01100110 10100101 11000110

Sozusagen setzte die 32 bits des Cardinals in die Byteschlange des Arrays ab dem 16. / 17. Bit.

MfG
xZise

[jfheins]

Ich finde das heir wesenlich einfacher:

Delphi-Quellcode:

type 
  Foo = record 
    case Integer of 
      0: (arr: array[0..5] of Byte); 
      1: (
           dummy1: Word;
           Wert: Cardinal;
         ); 
  end;

Dann einfach in Wert deinen Cardinalwert reinschrieben, und du kannst ihn in arr als Bytearray wieder rausholen

[uligerhardt]

Ungetestet:

Delphi-Quellcode:

for i := 0 to 3 do
  b[i + 2] := LongRec(ErrCode).Bytes[i];

Uli.

[Hawkeye219]

Hallo,

ohne das Schlüsselwort "packed" könnte die Lösung mit dem varianten Record aber ins Auge gehen...

Gruß Hawkeye

[xZise]

Zitat von jfheins:

Ich finde das heir wesenlich einfacher:

Delphi-Quellcode:

type 
  Foo = record 
    case Integer of 
      0: (arr: array[0..5] of Byte); 
      1: (
           dummy1: Word;
           Wert: Cardinal;
         ); 
  end;

Dann einfach in Wert deinen Cardinalwert reinschrieben, und du kannst ihn in arr als Bytearray wieder rausholen

Wie stellst du dir das vor?

Zitat von Hawkeye219:

Hallo,

ohne das Schlüsselwort "packed" könnte die Lösung mit dem varianten Record aber ins Auge gehen...

Gruß Hawkeye

Naja noch ist er das nicht.

MfG
xZise