Datei bitweise auslesen

[StanY]

Wie mache ich das?

Mit TFileStream.Read kann ich das ja nur Byteweise machen. Da ich den Header einer mp3 auslesen will, muss ich aber bitweise lesen.

[Joe24]

Dann lese doch erst byteweise und werte jedes Byte bitweise aus.

[StanY]

Hast du irgendein Schlagwort, nachdem ich suchen kann, wie ich das mache oder magst du es mir gar erklären? <:

[Joe24]

Bitweises auslesen von Bytes kann so realisiert werden:

Delphi-Quellcode:

var
  b : Byte;

begin

  b and 1 = 1 --> bit 1 ist gesetzt
  b and 2 = 2 --> bit 2 ist gesetzt
  b and 4 = 4 --> bit 3 ist gesetzt
  b and 8 = 8 --> bit 4 ist gesetzt
  ....

end;

[Muetze1]

Moin!

MPEG Header von MPEG 1 Layer 1-3 Files auslesen: siehe ID3 Tag Lib auf meiner HP.

MfG
Muetze1