Big Endian Little Endian tauschen von smallint Wert und von normalem integer Wert

[Delphiuser1987]

Hi, brauch mal wieder dringend Hilfe.
Ich muss von einem smallint Wert und von einem normalen integer Wert Big Endian und little Edian tauschen.
Bitte um Hilfe von euch, danke :thumb::-D

[mkinzler]

Delphi-Quellcode:

t1 := wert DIV 65536;
t2 := wert MOD 65536;
nwert := t2 * 65536 + t1;

[Uwe Raabe]

Delphi-Quellcode:

uses
  Sysutils;

function SwapEndianSmallInt(Value: SmallInt): SmallInt;
begin
  result := System.Swap(Value);
end;

function SwapEndianInteger(Value: Integer): Integer;
begin
  LongRec(result).Lo := System.Swap(LongRec(Value).Hi);
  LongRec(result).Hi := System.Swap(LongRec(Value).Lo);
end;

[jfheins]

http://www.delphipraxis.net/125740-e...rtauschen.html

[himitsu]

Zitat:

Zitat von mkinzler (Beitrag 1030537)

Delphi-Quellcode:

t1 := wert DIV 65536;
t2 := wert MOD 65536;
nwert := t2 * 65536 + t1;

Bei einem vorzeichenbehafteten Typen solltest du aufpassen und besser keine mathematischen Operatioen verwenden oder diesen erstmal in einen Vorzeichenlosen casten. :stupid:

[gammatester]

Zitat:

Zitat von himitsu (Beitrag 1030542)

Zitat:

Zitat von mkinzler (Beitrag 1030537)

Delphi-Quellcode:

t1 := wert DIV 65536;
t2 := wert MOD 65536;
nwert := t2 * 65536 + t1;

Bei einem vorzeichenbehafteten Typen solltest du aufpassen und besser keine mathematischen Operatioen verwenden oder diesen erstmal in einen Vorzeichenlosen casten. :stupid:

Und das ist noch das kleinere Problem! Hier werden nur die beiden 16-Bit-Teile getauscht, aber das ist keine Big <-> Little-Endian-Umwandlung, liefert zB für $23456789 den angeblichen Wert $67892345 statt $89674523. Mit purem Pascal hier eine korrekte Umwandlung:

Delphi-Quellcode:

function RB(A: longint): longint;
  {-Umwandlung Big - Little Endian}
begin
  RB := ((A and $FF) shl 24) or ((A and $FF00) shl 8) or ((A and $FF0000) shr 8) or ((A and longint($FF000000)) shr 24);
end;

[Delphiuser1987]

danke Leute hat wunderbar funktioniert
wie immer halt :thumb::thumb::-D