Midi-Datei langsamer abspielen

[gekmihesg]

ja der titel sagt eigenlich schon alles...
wie spiele ich eine midi-datei langsamer ab?

(oder weis jemand ein einfaches freeware programm mit dem das geht?)

[Ultimator]

Hmmm,. Freeware kenn ich keine, aber das geht mit BPM Studio 4.2 Professional. Das ist echt ein Super-Programm. Kann ich nur empfehlen
[edit]Ich hasse Tippfehler...[/edit]

[gekmihesg]

hmm, also wenns mir egal wär ob freeware oder nicht hätte ich nur programm hingeschrieben
außerdem will ich gar kein so tolles programm sondern ehr sowas wie den windows audiorecorder (Play, Stop, Schneller, Langsamer)...

es wär mir eh lieber das selbst zu schreiben

[Igotcha]

Zitat von gekmihesg:

es wär mir eh lieber das selbst zu schreiben

Na dann schreib Dir einen Hexeditor, lies die MIDI-Doku und ändere das Byte an der Stelle xy, wo hinter dem bytecodierten TEMP-Befehl die Geschwindigkeit angegeben wird

[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

[gekmihesg]

hmmm hab mich falsch ausgedrückt! ich will die geschwindigkeit wärend dem abspielen ändern.

habs aber mitllerweile geschafft! habs mir einfach gemacht und auf torry.net ne midi komponente runtergeladen