Wieder TextDatei diesmal binär

[EWeiss]

Kann mir kurz jemand nen tip geben wie ich meine
werte binär in eine TextDatei schreibe?

Delphi-Quellcode:

  // Datei schreiben
  AssignFile(f, MidiFile);
  Rewrite(f);

  for IntA := 1 to CurrentByte do
  // Was fehlt hier... vor "IntA, Bytes[IntA]"
  // Seek oder was auch immer..

  Closefile(f);

gruss

[DeddyH]

Was meinst Du denn mit binär? In der Form '00011111' oder Hexadezimal oder wie? Zeig doch mal ein Beispiel, wie die Datei aussehen soll.

[Satty67]

wenn es nur darum geht, ein Array of Byte zu speichern, wäre vieleicht BlockWrite ganz brauchbar.

Bin aber nicht sicher, ob das mit einem TEXT-Handle geht.

[ConnorMcLeod]

TEXT-Datei BINÄR beschreiben? Bin das nur ich oder sieht da noch jemand einen Widerspruch?

[Klaus01]

Hallo Emil,

mit einem Textfile ist das eher schwieriger (unterstüzt auch kein seek).
Besser wäre es, wenn Du bei den Pascal Routinen bleiben willst, die Datei
als file of Byte oder file of Char zu deklarieren.

Grüße
Klaus

[EWeiss]

Zitat von DeddyH:

Was meinst Du denn mit binär? In der Form '00011111' oder Hexadezimal oder wie? Zeig doch mal ein Beispiel, wie die Datei aussehen soll.

Ich habe sie jetzt abgespeichert.

Zitat:

77841041000006010904877841141070001902558137161320 25588442248025547077841141070003101920014436127121 28360014412812712144128
12712144361271212836002554707784114107000348255470 77841141070003482554707784114107000348255470778411 41070003482554707784114
10700034825547077841141070003482554707784114107000 348255470

Aber das ist doch nicht binär?
Wo steht mein Header für das MIDI Format..

Habe es mit
Write(f, Bytes[IntA]); abgespeichert

Soll ja anstelle für Writeln für binär stehen.

gruss

[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.

[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

[EWeiss]

Zitat von alfold:

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

Gruss alfold

Werd es mal versuchen..

gruss