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 :thuimb:
[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:

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 :zwinker:

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

...:cat:...

P.S.: Merke Dir die Original-Speed, damit Du diese widerherstellen kannst :zwinker:

[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 ;)