Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#8

Re: Anfänger Frage zu Byteweisem auslesen

  Alt 3. Apr 2005, 20:08
Moin Dragi,

Du könntest die vier Byte einzeln auslesen, und dann in umgekehrter Reihenfolge wieder zusammensetzen, oder Du liest sie in der Reihenfolge aus wie sie in der Datei stehen, und überträgst sie dann entsprechend.

Ein "Trick" wäre es für das Einlesen einen varianten Record zu verwenden:

Delphi-Quellcode:
// nur das Wesentliche, das drumherum fehlt
type
  TcsBigEndian = packed record
    case byte of
      0 : (abRead : array [1..4] of byte;);
      1 : (dwResult : DWORD);
  end;

var
  beWork : TcsBigEndian;

begin
  fs.Read(beWork.abRead[1],4); // in richtiger Reihenfolge gelesen
  ShowMessage(IntToStr(beWork.dwResult));
end;
Ungetestet, müsste aber funktionieren.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat