m3u Playlist abspielen

[Nils_13]

Hi,

wenn ich eine m3u-Datei in eine ListBox importiere, habe ich alle Lieder so dastehen, wie sie sollen. Aber wenn ich per Doppelklick eines der Lieder abspielen will, geht das nicht. Was muss ich da jetzt tun ?

[SirThornberry]

wie hast du es denn bisher versucht?

[flomei]

Erstmal deine Frage vernünftig formulieren... :roll:

Wie hast du dir denn gedacht das du sie abspielen willst?
Zu Fuß, mit nem TMediaPlayer, BASS.dll oder was?

Überanstreng dich nicht beim Fragen formulieren... :roll:

MfG Florian :hi:

edit: Wo sind denn die roten Kästen hin?

[Nils_13]

Bassdllplayer. 'filename' ist hier das Problem.

Delphi-Quellcode:

procedure prozedur;
var filename: String;
begin
  filename := das aktuelle item der in einer ListBox geladenen m3u-Liste;  // das fehlt mir
  bassdllplayer1.Play(filename);
end;

[Jelly]

Den markierten Eintrag einer Listbox kriegst Du mit

Delphi-Quellcode:

function CurrentListboxEntry (Listbox : TListBox) : string ;
begin
     with listbox do begin
          if itemindex <> -1
          then Result := items[itemindex]
          else Result := '' ;
     end ;
end ;

[Daniel G]

Oder so:

Delphi-Quellcode:

filename := ListBox1.Items.Strings[Listbox1.ItemIndex];

Wobei ich gestehen muss, dass ich Jellys Funktion hübscher finde....

[Jelly]

Zitat:

Zitat von Daniel G

Oder so:

Delphi-Quellcode:

filename := ListBox1.Items.Strings[Listbox1.ItemIndex];

Wobei ich gestehen muss, dass ich Jellys Funktion hübscher finde....

Die ist nicht nur hübscher, sondern die liefert Dir auch keine Runtime Error, wenn KEIN Item ausgewählt. In dem Fall liefert itemindex nämlich -1, und Items[-1] spuckt Dir einen Fehler aus.

Ausserdem ist mir neu, mit items.strings[index] auf einen Eintrag zuzugreifen. Ich mach das immer mit items[index] direkt.

[alcaeus]

Zitat:

Zitat von Jelly

Ausserdem ist mir neu, mit items.strings[index] auf einen Eintrag zuzugreifen. Ich mach das immer mit items[index] direkt.

Beides ist richtig. Items ist ein TString, und dort ist die Strings-Property AFAIR als default markiert ;)

Greetz
alcaeus

[Nils_13]

Ok, das bringt mich aber nicht ganze weiter, da ich dann ja nur den Namen der Datei habe, aber nicht das Verzeichniss. Ich lade ja eine m3u mit LoadFromFile, jetzt muss mein Programm natürlich noch herausbekommen wo die Datei liegt.

[Jelly]

Ich dachte du hältst das Verz. gleich mit in der Listbox... Das musst Du halt dann noch sonstwie speichern. Unschön, aber einfach, wäre da z.B. eine TStringList. Du musst dann aber dafür Sorge tragen, dass die Items in der Listbox mit den Items deiner TStringList korrespondieren. imho. ist das Ganze aber eine ziemlich unschöne Lösung.