Wieder TextDatei diesmal binär

[EWeiss]

Zitat von DeddyH:

Mit TextFile wirst Du da nicht weit kommen. Ich weiß jetzt nicht, wie das MIDI-Format genau auszusehen hat, aber wenn, dann müsste es File of Byte oder sowas sein.

Ich erstelle den Header

Delphi-Quellcode:

      Bytes[CurrentByte] := ord('M');
      inc(CurrentByte);
      Bytes[CurrentByte] := ord('T');
      inc(CurrentByte);
      Bytes[CurrentByte] := ord('r');
      inc(CurrentByte);
      Bytes[CurrentByte] := ord('k');
      inc(CurrentByte);

      CurrentByte := CurrentByte + 4;

Und dieser müßte nachher auch in der Binären Datei Sichtbar sein.
Als MTRK...

Scheint nicht mit TextFile zu gehen.

grrrr...

PS:
Hab mal ein Bild angehängt binär kann ich hier nicht posten.

gruss

[alfold]

Was ist mit FileStream?
Ist Binär bleibt Binär und Du kanst den Record original auslesen und speichern!

Gruss alfold