Das gute, alte Big Endian vs. Little Endian-Problem, wenn ich richtig sehe. Es würde z.B. so gehen:
Delphi-Quellcode:
function LittleBigIsEqual(const a, b: Integer): Boolean;
type TIntByteArray=array[0..3] of Byte;
begin
Result:=(TIntByteArray(a)[0]=TIntByteArray(b)[3]) and
(TIntByteArray(a)[1]=TIntByteArray(b)[2]) and
(TIntByteArray(a)[2]=TIntByteArray(b)[1]) and
(TIntByteArray(a)[3]=TIntByteArray(b)[0]);
end;
Einfacher wäre es vielleicht, wenn du das ganze byteweise holst.