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

[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 von mkinzler:

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.

[gammatester]

Zitat von himitsu:

Zitat von mkinzler:

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.

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