PHP to Delphi: pack() / unpack();

[xSkaschY]

Wpo du Recht hast, hast du Recht! :D


Okay, also folgendes hab ich bisher erreicht:

Mit SWAP() komm ich auf den Big Endian "modifier v bei pack();".

Little Endian: 0x4A 0x35
Big Endian: 0x35 0x4A

Wer sich so etwas ausdenkt, gehört gesteinigt!

Naja, wie dem auch sei.. dann wäre da noch die Sache mit den 16bit Short-Typ und 32 bit Long-Typ, da hab ich im Forum folgendes gefunden:

Delphi-Quellcode:

function ChangeEndian16(X: WORD): WORD; register; //oder auch Swap
asm
  xchg AL, AH
end;

function ChangeEndian32(X: DWORD): DWORD; register;
asm
  bswap EAX //konvertiert Endian
end;

Mal schauen wie weit ich damit komme! :)