Mediaplayer Sounddatei über open Dialog öffnen

Xeon186 · Hält's aus hier Beiträge: 6

Hallo Communtiy =)

Ich hab mir ein kleines Programm geschrieben mitdem ich unteranderem Sounddateien abspielen möchte. Allerdings suche ich eine möglichkeit wie ein andere verwender des Programmes die Sounddatei die abgespielt werden soll selber auswählen kann.
Ich hattes es mit OpenDialog mal probiert habe allerdings keinen schimmer wie dies Funktioniert...
Denke mal Quelltext braucht ihr dafür eig. nicht^^
Könnt ihr mir weiterhelfen?

jaenicke · Verfasst: Do 23.04.09 17:59

Hallo und

!

Wie wäre es so?

markieren

Delphi-Quelltext

1:
2:

if OpenDialog1.Execute then
  MediaPlayer1.FileName := OpenDialog1.FileName;

Ggf. dann auch noch das Abspielen starten, fertig.

Xeon186 · Hält's aus hier Beiträge: 6

Hallo =) Danke schonmal für deine Antwort =)

Aber leider Funktioniert es nicht ganz. Ich hab ein OpenDialog Komponent erstellt und 2 Buttons. Auf einem spielt der Mediaplayer was ab und auf dem anderen Button kann man die Datei auswählen.
Auto Open steht bei MediaPlayer auf False

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.MediaPlayer1.play;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if opendialog1.execute then mediaplayer1.filename := opendialog1.filename;
end;

end.

Narses · Verfasst: Do 23.04.09 18:37

Moin und

im Forum!

Xeon186 hat folgendes geschrieben :

Aber leider Funktioniert es nicht ganz.

Was genau funktioniert denn nicht?! :gruebel:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Player.Open !?

Xeon186 · Hält's aus hier Beiträge: 6

Narses hat folgendes geschrieben :