Bytes im Word drehen

[Helmi]

Hallo,

ich steh grad auf der Leitung.

Ich lese mit folgenden Code die ersten 2 Bytes einer Datei (in diesem Falle von Bilddateien) aus
und prüfe somit um welches Format (BMP, JPG,PNG) es ist.

Nun sind aber die 2 Bytes im Word gegenüber der Datei vertauscht (wenn man sich die Datei mit
einem Hex-Editor anschaut).

Wie kann ich ganz einfach die zwei Bytes im Buffer drehen?

Oder anders gefragt, wie könnte man die ersten 2 Bytes "richtig" auslesen?

Delphi-Quellcode:

var
  FileHandle: Integer;
  Buffer    : Word;

begin
  FileHandle := FileOpen(Picture, fmOpenRead);
  FileSeek(FileHandle, 0, 0);
  FileRead(FileHandle, Buffer, 2);
  FileClose(FileHandle);

  case Buffer of
    $4D42: Result := pw_BMP;
    $D8FF: Result := pw_JPG;
    $5089: Result := pw_PNG;
  else
    Result := pw_None;
  end;

[samso]

Swap -> http://docwiki.embarcadero.com/Libra...en/System.Swap

oder vielleicht auch

Delphi-Quellcode:

case Buffer of
     $424D: Result := pw_BMP;
     $FFD8: Result := pw_JPG;
     $8950: Result := pw_PNG;
   else
     Result := pw_None;
   end;

[Uwe Raabe]

Die x86-Architektur speichert Integer und seine Derivate (so auch Word) im LSB-Format. Das bedeutet, daß das am wenigsten signifikate Byte (LSB) als erstes kommt. Somit wird die Byte-Sequenz $FF,$D8 als ein Word $D8FF interpretiert. Analog gilt das natürlich auch für größere Integer-Typen.

Du musst bei der Angabe der Word-Werte in der case-Anweisung dies berücksichtigen. Eine Bitmap-Datei beginnt z.B. mit der Byte-Sequenz $42, $4D (was übrigens den ASCII-Buchstaben "BM" entspricht). Wenn du diese zwei Bytes als Word interpretierst, dann wird das als $4D42 = 19778 eingelesen. Eigentlich musst du somit gar nichts an deinem Code ändern. Die case-Anweisung sollte funktionieren.

[Der schöne Günther]

Ich musste neulich auch einmal die Endianess von einem Word ändern, habe mich aber vor System.Swap(..) gefürchtet: Die Doku spricht von Word (2Byte), die Signatur von einem Integer (4Byte).

Echte Delphi-Graurücken schütteln sich da wahrscheinlich das passende Assembler-Kommando aus dem Ärmel, aber ich habe mir (manch einer wird wohl lachen) den hier gemacht:

Delphi-Quellcode:

   TWordHelper = record helper for System.Word
      /// <summary>
      ///     Vertauscht beide Bytes
      /// </summary>
      public procedure flipEndianess();
   end;


procedure TWordHelper.flipEndianess();
var
   firstBytePtr, secondBytePtr: PByte;
   firstByteValue: Byte;
begin
   firstBytePtr := Addr(self);
   secondBytePtr := firstBytePtr + 1;

   firstByteValue := firstBytePtr^;
   firstBytePtr^ := secondBytePtr^;
   secondBytePtr^ := firstByteValue;
end;

Weil ich sonst einfach nichts besseres gefunden habe. Eigentlich sollte so etwas in den Helferklassen für simple Typen drinstecken. Finde ich.

[hathor]

Warum Buffer:WORD, nimm Buffer:BYTE.
FileRead liest Byte-weise.

[DeddyH]

Wenn man Word braucht, wieso dann Byte nehmen? Und wie ich die Hilfe verstehe, liest FileRead blockweise, deshalb der Count-Parameter.

[Helmi]

Zitat:

Zitat von samso (Beitrag 1280920)

Swap -> http://docwiki.embarcadero.com/Libra...en/System.Swap

Danke - das hab ich gesucht (mir ist immer nur die Step7-Funktion eingefallen :-) )

Zitat:

Zitat von Uwe Raabe (Beitrag 1280921)

Eigentlich musst du somit gar nichts an deinem Code ändern. Die case-Anweisung sollte funktionieren.

Mein Code funktioniert auch. Nur was mich immer daran gestört hat, ist, dass ich in der Case-Anweisung die zwei Bytes "verdreht" gegenüber der Datei hinschreiben hab müssen.

Zitat:

Zitat von Der schöne Günther (Beitrag 1280922)

Ich musste neulich auch einmal die Endianess von einem Word ändern, habe mich aber vor System.Swap(..) gefürchtet: Die Doku spricht von Word (2Byte), die Signatur von einem Integer (4Byte).

Echte Delphi-Graurücken schütteln sich da wahrscheinlich das passende Assembler-Kommando aus dem Ärmel, aber ich habe mir (manch einer wird wohl lachen) den hier gemacht:

Delphi-Quellcode:

   TWordHelper = record helper for System.Word
      /// <summary>
      ///     Vertauscht beide Bytes
      /// </summary>
      public procedure flipEndianess();
   end;


procedure TWordHelper.flipEndianess();
var
   firstBytePtr, secondBytePtr: PByte;
   firstByteValue: Byte;
begin
   firstBytePtr := Addr(self);
   secondBytePtr := firstBytePtr + 1;

   firstByteValue := firstBytePtr^;
   firstBytePtr^ := secondBytePtr^;
   secondBytePtr^ := firstByteValue;
end;

Weil ich sonst einfach nichts besseres gefunden habe. Eigentlich sollte so etwas in den Helferklassen für simple Typen drinstecken. Finde ich.

Danke - aber swap reicht mir

Zitat:

Zitat von hathor (Beitrag 1280923)

Warum Buffer:WORD, nimm Buffer:BYTE.
FileRead liest Byte-weise.

Ich brauch aber zwei Bytes

[Poelser]

Zitat:

Zitat von Der schöne Günther (Beitrag 1280922)

Echte Delphi-Graurücken schütteln sich da wahrscheinlich das passende Assembler-Kommando aus dem Ärmel

ROTFL, dann rück ich das Assemblerteil mal raus: ROR 8 oder ROL 8 auf das Word rotiert um 8 Bits links oder rechts rum, damit sind die Bytes getauscht.

CU, der Pølser

[hathor]

Zitat:

Zitat von Helmi (Beitrag 1280925)

Ich brauch aber zwei Bytes

2 Bytes reichen nicht.

1. Sind die Bytes nicht immer am Anfang
2. können es auch mehr sein, z.B. 4 Bytes...

[Helmi]

Zitat:

Zitat von hathor (Beitrag 1280928)

Zitat:

Zitat von Helmi (Beitrag 1280925)

Ich brauch aber zwei Bytes

2 Bytes reichen nicht.

1. Sind die Bytes nicht immer am Anfang
2. können es auch mehr sein, z.B. 4 Bytes...

also bislang hats immer ausgereicht und so funktioniert