comment convertir les nombres big-endian en nombres natifs delphi

Question

Je veux savoir comment convertir les nombres big-endian en nombres natifs en Delphi. Je suis un peu PORTAGE C++ code que je suis tombé sur:

unsigned long blockLength = *blockLengthPtr++ << 24; 
blockLength |= *blockLengthPtr++ << 16; 
blockLength |= *blockLengthPtr++ << 8; 
blockLength |= *blockLengthPtr; 

unsigned long dataLength = *dataLengthPtr++ << 24; 
dataLength |= *dataLengthPtr++ << 16; 
dataLength |= *dataLengthPtr++ << 8; 
dataLength |= *dataLengthPtr; 

Je ne suis pas familier avec le C++, donc je ne comprends pas ce que les opérateurs font.

Answer 1

La réponse d'Andreas est un très bon exemple de la façon de le faire en purcal, mais il semble encore un peu bizarre, tout comme le code C++. Cela peut en fait être fait dans une seule instruction d'assemblage, bien que celle-ci dépende de l'utilisation d'entiers 32 bits ou 16 bits:

function SwapEndian32(Value: integer): integer; register; 
asm 
    bswap eax 
end; 

function SwapEndian16(Value: smallint): smallint; register; 
asm 
    xchg al, ah 
end; 

Answer 2

Pour inverser l'ordre des bits:

procedure SwapEndiannessOfBits(var Value: cardinal); 
var 
    tmp: cardinal; 
    i: Integer; 
begin 
    tmp := 0; 
    for i := 0 to 8*sizeof(Value) - 1 do 
    inc(tmp, ((Value shr i) and $1) shl (8*sizeof(Value) - i - 1)); 
    Value := tmp; 
end; 

Pour inverser l'ordre des octets:

procedure SwapEndiannessOfBytes(var Value: cardinal); 
var 
    tmp: cardinal; 
    i: Integer; 
begin 
    tmp := 0; 
    for i := 0 to sizeof(Value) - 1 do 
    inc(tmp, ((Value shr (8*i)) and $FF) shl (8*(sizeof(Value) - i - 1))); 
    Value := tmp; 
end; 

Je pense que le dernier est ce que vous recherchez. Très probablement, il existe des solutions plus rapides et plus élégantes.

Avertissement: Je peux me tromper totalement. Je me sens un peu confus pour le moment. J'espère que quelqu'un d'autre verra cette question et fournira une réponse plus définitive!