Mp3's abspielen und dabei andere Sachen machen...

[SkyLord]

Hallo,

ich versuche derzeit mit Delphi 5 eine art Media Player zu programmieren.
Hier ist mein Problem:

Ich habe auf der Oberfläche einen Button und den Media Player eingefügt.
Dann habe ich beim Button folgenden Befehl geschrieben:

procedure TForm1.Button1Click(Sender: TObject);
begin

with mediaplayer1 do
begin
filename := 'Test.mp3';
open;
try
wait := true;
play;
finally
close;
end;
end;
end;

Wenn ich das Programm so starte und den Button drücke, dann höre ich zwar mein Lied, der Rest ist aber alles eingefroren und ich kann noch nicht einmal das Programm wieder schließen.
Das ganze klappt erst dann wieder wenn das Lied zuende ist.
Ich möchte also, dass man das Lied hört, ich dabei aber noch ganz normal mit dem Programm was anderes machen kann.

Habt ihr das so einigermaßen vertstanden? Ich bin realtiv neu im Thema 'Programmieren' und weiß deshalb nicht so recht wie ich das besser ausdrücken soll.
Wenn jemand eine Antwort weiß dann auch bitte nicht allzu kompliziert erklären.

Wenn ihr sonst noch fragen zu meiner erklärung habt bitte stellen.

Ansonsten schon einmal vielen Dnak für eure Antworten.

[Luckie]

Verlagere das Abspielen in einen separaten Thread.

[Wormid]

Öhm... Wenn mich nicht alles täuscht, dann bettelst Du den MediaPlayer in deinem Source ja förmlich an, das die Anwendung auf das Ende des Songs wartet...

Code:

Wait := True;

Ich würde mich mal näher mit dieser Zeile beschäftigen! Extra Threads dafür erstellen wäre wie mit Kanonen auf Spatzen zu schiessen .

(Is klar, das das "Close" da weg muss, wenn Wait := False gesetzt wird! Close könnte man z.B. im Event "OnNotify" des MediaPlayers unterbringen... nähere Infos zu dem Thema: OH)


Gruß

Wormid

[SkyLord]

Super danke, hätt ich auch fast selber drauf kommen können.
Naja, jetzt klappt's wenigstens.
Danke