Midi-Dateien abspielen (ohne MP)

[webby]

Wie kann ich Midi-Dateien abspielen, ohne dass ich abhänig vom Windows Media Player bin?

Am besten wäre es wenn ich gleich dafür auch DelphiX Komponente benützten könnte...

[CalganX]

Ich würde TMediaPlayer vorschlagen... Soweit ich weiß, bist du da nicht vom WMP abhängig...

Chris

[webby]

Echt?
Ich dachte immer TMediaPlayer ist auf Windows Media Player Basis aufgebaut...

Naja, dann ist es ja gut!

[Christian Seehase]

Moin Webby,

und wenn Du weiter in die Interna einsteigen willst, kannst Du Dir ja mal die MCI Funktion (Konstanten, Typen) im PSDK ansehen.
Diese werden vom TMediaPlayer gekapselt.

[webby]

Ne, vorerst lieber nicht. ;)
Zur Zeit hab ich schon ein größeres Projekt vor (ein Spiel), wie man vielleicht an meinen Fragen merkt. ;)

[Christian Seehase]

Moin Webby,

probiert hab' ich's noch nicht, aber eventuell funktioniert für Deine Anwendung ja auch die Funktion PlaySound.

[webby]

Naja, er lässt mich bisher nur Wave Dateien laden...

[City Light]

Code:

uses
  MMSystem;

procedure TForm1.Button1Click;
const
  FileName = 'C:\YourFile.mid';
begin
  MCISendString(PChar('play ' + FileName), nil, 0, 0);
end;

Ich hoffe das ich dir helfen konnte!

MFG

Code-Tags hinzugefügt - Luckie (Luke) (der, der schneller moderiert als sein Schatten :mrgreen:

[d3g]

Wichtig ist das Schlißen des Geräts:

Code:

uses 
  MMSystem; 

type
  TForm1 = class(TForm)
  private
    procedure MMMCINotify(var Msg: TMessage); message MM_MCINOTIFY;
  // ...
  end;

procedure TForm1.Button1Click; 
const 
  FileName = 'C:\YourFile.mid'; 
begin 
  MCISendString(PChar('play ' + FileName + ' notify alias sound'), nil, 0, Handle); 
end;

procedure TForm1.MMMCINotify(var Msg: TMessage);
begin
  MCISendString('close sound', nil, 0, 0);
end;

MfG,
d3g

[City Light]

Danke ;-)