Midi-Datei langsamer abspielen

[sakura]

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