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

[xSkaschY]

Naja. Das problem ist, das Protocol reagiert nicht auf falsche Daten. Sprich ich bekomme nichts zurück.

Habe gerade mal etwas gegoogelt und bin auf folgendes gestoßen:

Delphi-Quellcode:

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

Nunja, es kommt dem Resultat schon recht nähe, jedoch schrumpft der Binary String nun um 2 Bytes, was auch wieder nicht stimmen kann, weil es 31 Byte sein "müssen".

Wobei der Wert dann nicht mehr passt.

Beispiel:

["wHash"] => WORD(65535)

wird dann zu

["wHash"] => WORD(13642)


"65535" ist aber korrekt. (0x4A 0x35)