Byte Array to UInt64

[schwa226]

Ich komm einfach nicht drauf.

Ich habe ein Array[0..7] of Byte und will es in ein UInt64 wandeln.
Jedoch kommt immer Blödsinn raus.

Auch dieser Versuch scheitert:

Delphi-Quellcode:

Type
  TUInt64Rec = packed record
    case Integer of
      1 : (_Byte : Array[0..7] of Byte);
      2 : (_UInt64 : UInt64);
  end;

Auch mit einem manuellen SHL schaffe es nicht.
Da sollte ich ja byte[0] um 56 bit, byte[1] um 48 Bit usw shiften.
Das lässt mich Delphi aber nicht. Er erlaubt mir maximal 40 Bit mit SHL.
??

Beipspiel:
Im Byte Array von 0..7:
00 00 00 02 00 0E 8C 19

Ergebins von Delphi: 1840861740884033536

Sollte aber sein: 8590887961

[Uwe Raabe]

Du musst die Reihenfolge der Bytes umdrehen:

Im Byte Array von 0..7:
19 8C 0E 00 02 00 00 00

Auf Intel-Prozessoren steht das niederwertigste Byte vorn (Bitweritgkeit)

[schwa226]

Stimmt! Das spuckt der Windows Rechner auch aus.
Und wie macht man das am besten?

Edit: Habe das gefunden:

Delphi-Quellcode:

procedure SwapUInt64(var X: UInt64);
asm
  mov EBX,dword ptr [X]
  mov ECX,dword ptr [X+4]
  bswap EBX
  bswap ECX
  mov [X],dword ptr ECX
  mov [X+4],dword ptr EBX
end;

Geht und passt jetzt!

[Assarbad]

Wow, danke Uwe. Ich habe bisher noch nicht das deutsche Wort für "Endianess" gekannt. Wieder etwas gelernt

[schwa226]

Jetzt habe ich doch noch ein Problem mit der SwapUInt64 festgestellt.
Wenn ich bei der Debug Version das Optimieren ausschalte geht sie.
Wenn ich für das Release das Optimieren einschalte werden andere Speicherbereiche Überschrieben und es kommt zum Absturz.

Gibt es dann dazu noch eine andere Möglichkeit?

[himitsu]

EBX darf niemals verändert werden

Entweder ihr nehmt was Anderers (EAX EDX ECX ESI EDI) oder der Wert von EBX muß gesichert und danach dann wiederhergestellt werden.
PS: EAX ist schon belegt mit X

Ich würde auch empfehlen statt X direkt EAX zu nehmen, nicht daß Delphi noch auf die Idee kommt einen Stackframe zu erstellen.