Im Hintergrund Musik endlos abspielen

[glowwurm]

Hallo zusammen,

Ich hab ein Problem bzw. mehrere mit dem Abspielen von Midis. Ich hab auch schon in diesem Forum gesucht, aber nichts passendes gefunden...

Hier zuerst einmal der Quellcode:

Code:

// Zum starten
  MCISendString(PChar('play ' + FileName), nil, 0, 0);

//zum stoppen
  MCISendString(PChar('stop ' + FileName), nil, 0, 0);

//Filename = Name des Midi-Files.

Mein Problem ist nun, dass ich das Midi im HIntergund, während andere Teile des Programms noch weiter laufen in einer Endlosschleife abspielen will. Wenn ich dazu aber eine while-Schleife benutze, läuft der Rest des Progs nicht mehr ab...was es ja aber soll
Habt ihr mir eine Lösung?

[fxbasic]

Hi, glowwurm

zuerst einmal herzlich willkommen in der Delphi-Praxis!

(Endlich durfte ich das auch mal sagen)

Vielleicht hilft dir das hier weiter:

http://www.delphi-source.de/tipps/multimedia/?id=204

Buy, fxbasic

[glowwurm]

Hm, das kannte ich schon, aber man kann damit leider keine Midis abspiele nur .wav

Naja, macht nichts. Werden die Midis halt in Wave konvertiert, wenn es nich anders geht

Vielen Dank für die Anwort

[StefanDP]

Du könntest das auch in einem Thread laufen lassen!
Datei - Neu - Weitere - Thread Objekt
Klassenname z.b. TMusik

und dann

Delphi-Quellcode:

procedure TMusik.Execute;
begin
  // hier machst du einfach eine endlosschleife rein z.b.
  while true do
    MCISendString(PChar('play ' + FileName), nil, 0, 0);
end;

das ganze kannst du dann folgendermaßen starten:

Delphi-Quellcode:

implementation

uses Unit2;  // oder wo halt dein Thread-Objekt ist

...

procedure TForm1.Button1Click(Sender: TObject);
var
  MeinThread: TMusik;
begin
  MeinThread := TMusik.Create(false);  // durch false wird der Thread sofort gestartet
end;

so oder so ähnlich müssts funzen
stefan

[teebee]

Du kanst Dir von Windows eine Nachricht schicken lassen, wenn das Stück zu Ende ist:

Delphi-Quellcode:

 // zuerst MidiFile öffnen (mit Alias)
mciSendString(PChar('open "'+MidiFile+'" alias mymidi'),nil,0,0);

// dann abspielen (mit Notify)
mciSendString('play mymidi from 0 notify',nil,0,Handle);

Durch das 'notify' wird immer dann, wenn das Stück zu Ende ist, eine MM_MCINOTIFY-Nachricht an das angegebene Fenster (Handle) gesendet. Die muss nur noch ausgewertet werden:

Delphi-Quellcode:

public
  ...
  procedure MidiLoop(Var Message: TMessage); message MM_MCINOTIFY;
  ...

Procedure TForm1.MidiLoop(Var Message: TMessage);
Begin
  mciSendString('play mymidi from 0 notify',nil,0,Handle); // und neu abspielen
End;

Sollte noch das einfachste sein...

Gruß, teebee