Delphi-Quellcode:
// Datei schreiben
f := TFileStream.Create(MidiFile, fmOpenReadWrite); // Datei wird geöffnet, neue Inhalte werden hinten angehängt
for IntA := 1 to CurrentByte do
f.Write(Bytes[IntA], CurrentByte); // Wenn in dem Array tatsächlich Bytes drin sind muss als 2. Parameter sizeof(Byte) stehen!
f.Free;
Danke!
Aber leider funktioniert es nicht kann nur vorhandene Dateien öffnen.
gruss