Zahl aus TMemoryStream in Integer einlesen

[MaWi]

Ich schreibe an einem Programm um Firmware auf Echtheit zu prüfen.
In der Firmwaredatei ist u.a. die Größe der Datei als Prüfwert abgelegt...
Nun habe ich allerdings ein kleines Problem beim einlesen dieses Wertes:

In der Datei steht der wert wie folgt:

Code:

HEX: xx xx xx xx xx 11 22 33 44 yy yy yy

Ich habe folgende Funktion zum Auslesen:
(fsFirmware ist vom Typ TMemoryStream)

Delphi-Quellcode:

function TFirmware.GetstoredSize: Integer;
var
   buffer: integer;
begin
   fsFirmware.Position := 12;
   fsFirmware.ReadBuffer(Buffer,SizeOf(buffer));
   
        result := buffer;
end;

Als Ergebnis bekomme ich allerdings nicht die Dateigröße, sondern eine Zahl, die dem gespiegeltem HEX-Wert entspricht!

Code:

HEX erwartet: 11 22 33 44
HEX Ergebnis: 44 33 22 11

Was mache ich falsch?

[marabu]

Hallo,

noch machst du nichts falsch - du musst die Bytes nur noch umdrehen. Schau mal hier: klick

Grüße vom marabu

[Grishnak]

Ich denke, du machst nichts falsch! Meines Wissens nach, werden die einzelnen Bytes einer Integer-Variable derart gespeichert, dass das höchstwertigste Byte als letztes kommt. (Bei einem Dezimal-Wert z.B. 10356 würde das dann so aussehen: 65301).

Versuch mal:

Delphi-Quellcode:

var
  Wert: Longword;

[...]

Wert:=((Wert and $FF000000) ShR 24)+((Wert and $00FF0000) ShR 8)+((Wert and $0000FF00) ShL 8)+((Wert and $000000FF) ShL 24);

//Edit: Oops, zu langsam! Naja - trotzdem!

[MaWi]

Vielen Dank!
Da hab ich ja an der völlig falschen Stelle den Fehler gesucht!
Hatte schon vermutet, ich hätte einfach den falschen Typ genommen...

Danke!
Jetzt klappt's...