Und hier ein Beispiel-Code. (Zeitaufwand ca. 2 Minuten inkl. Suche nach Doku für MIDI-Files
)
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Speed: Word;
begin
with TFileStream.Create('C:\Temp\canyon1.mid', fmOpenReadWrite or fmShareDenyNone) do
try
Position := 12;
Read(Speed, SizeOf(Speed)); //57345
ShowMessage(IntToStr(Speed));
Position := 12;
Speed := 64000; // 1 - sehr schnell, 65335 - sehr langsam
Write(Speed, SizeOf(Speed));
finally
Free;
end;
end;
...
...
P.S.: Merke Dir die Original-Speed, damit Du diese widerherstellen kannst
