Mediaplayer-mehrere Lieder öffnen

[delphi-projekt]

Hey, habe wiedermal 2 Fragen:

1. Ich habe einen TMediaPlayer mit OpenDialog1. Wie schaffe ich es nun, das ich über meinen Button öffnen und nicht nur eine, sondern vllt. gleich 5 Lieder öffnen kann, und nacheinander abspielen kann?

2. Gibt es eine Möglichkeit per Button auf das Web zuzugreifen, um mir dann z.B. ein WebRadio anzuhören?

[Larsi]

Erstmal zwei Dinge, die du vor einer Antwort tun musst:

1. Thema einen aussagakräftigen Namen geben
2. Pro Thema nur ein Beitrag.


Zu 1. Also der Mediaplayer unterstützt keine Playlist, jedoch kannst du die Lieder ja einfach in eine Listbox einfügen und per Timer überprüfen ob der Mediaplayer das Lied fertiggestellt hat und dann selektierst du einfach den nächsten Eintrag in der Listbox, welcher idialerweise der Pfad ist und gibst den wieder.

Zu 2. Also die eine Möglichkeit wäre den TWebbrowser aufzurufen, welcher dann im Hintergrund etwas abspielt aber die bessere Lösung wäre das umsteigen auf die BassDll Komponente. Da kannst du einfach per NetPlay oder so Internetradio wiedergeben und generell hast du viel mehr Funktionen wie z.B. Visualisierung, Flanger, Echo, Hall, Lautstärke, Balance etc.

[Felix015]

Wenn du mit opendialog mehrere Lieder öffnen wilst nimm doch einfach ne for schleife und schreib das inne listbox

Delphi-Quellcode:

var i : integer;
begin
for i := 1 to 5 do begin
                   opendialog.execute();
                  listbox1.add(opendialog1.filename);  
                   end;
end;

Ich kenn jez grad den befehl für ne listbox net hab noch nie damit gearbeitet
mfg Felix

[DeddyH]

Man kann einen OpenDialog auch auf Multiselect stellen. Und statt der VCL-Kompo TListbox kann man auch eine TStringlist nehmen.

[Namenloser]

Zitat:

Zitat von Larsi

jedoch kannst du die Lieder ja einfach in eine Listbox einfügen und per Timer überprüfen ob der Mediaplayer das Lied fertiggestellt hat

Bietet der Mediaplayer dazu keine Events an?

Btw:

Zitat:

Zitat von Larsi

Pro Thema nur ein Beitrag.

:gruebel: :mrgreen:

[jaenicke]

Zitat:

Zitat von NamenLozer

Zitat:

Zitat von Larsi

jedoch kannst du die Lieder ja einfach in eine Listbox einfügen und per Timer überprüfen ob der Mediaplayer das Lied fertiggestellt hat

Bietet der Mediaplayer dazu keine Events an?

Doch: OnNotify

[DP-Maintenance]

Dieses Thema wurde von "Phoenix" von "Programmieren allgemein" nach "VCL / WinForms / Controls" verschoben.
TMediaPlayer ist eine Delphi-Komponente.

[Phoenix]

Hi,

bitte gebe Deinem Thread einen aussagekräftigen Namen. Zum Beispiel 'Mehrere Lieder mit TMediaPlayer abspielen'. Dazu kannst Du bei Deinem Beitrag einfach rechts oben auf 'Edit' klicken und den Titel ändern.

Und dann hatte Larsi das schon versucht zu sagen, ist nur in seiner Wortwahl einem epic fail unterlaufen. Pro Thread bitte nur eine Frage. Also mache am besten in der Internet-Sparte einen neuen Thread auf der sich mit dem Apspielen von Radiostreams beschäftigt (und hier den Titel auch entsprechend wählen).

Danke

[delphi-projekt]

Hey, und wie bekomme ich nun die Werte von meinem TOpen in die Listbox?

Delphi-Quellcode:

procedure TForm1.OpenBitBtnClick(Sender: TObject);
begin
if OpenDialog1.Execute then
  begin
    Form1.Caption := OpenDialog1.FileName;
    MediaPlayer1.FileName := OpenDialog1.FileName;
    MediaPlayer1.Notify := True;
    MediaPlayer1.Open;
    MediaPlayer1.Frames := 1;
    MediaPlayer1.Play;
  end;
end;

[delphi-projekt]

Kann mir denn keiner helfen?

[Klaus01]

Sollte in etwa so gehen,
habe es nicht getestet.

Delphi-Quellcode:

ListBox1.Items.Assign(OpenDialog1.FileNames);

Grüße
Klaus

[toms]

Delphi-Quellcode:

Listbox1.Items.Assign(OpenDialog1.Files);

[Klaus01]

Zitat:

Zitat von toms

Delphi-Quellcode:

Listbox1.Items.Assign(OpenDialog1.Files);

Danke!

[delphi-projekt]

Ok danke erstmal und wie bekomme ich die Daten aus der listbox jetzt in den media player zum abspielen.

[Klaus01]

Zitat:

Zitat von delphi-projekt

Ok danke erstmal und wie bekomme ich die Daten aus der listbox jetzt in den media player zum abspielen.

Gegenfrage, wie übergibst Du denn eine einzelne Datei dem TMediaplayer?
Nun mußt Du wenn das eine Stück zu Ende gespielt wurde nur ein neues
aus der Listbox nehmen und dem TMediaplayer übergeben.

Grüße
Klaus

[Blackheart]

Schau mal hier das sollte dich Interessieren.
http://www.krazz.net/retnyg/tut/mptut1.htm]Mediaplayer für Dummies[/url]

[delphi-projekt]

Ja, ebend....
aber wie bekomme ich das denn hin mit dem übergeben?

[Blackheart]

Das steht in dem Tutorial :thumb: