Playlist abspielen

[profiz]

Ich wollte fragen wie ich in einem ListView die markierte Datei mit dem TBassPlayer abspiele. Hinzufügen kann ich und löschen aus dem ListView auch, nur nicht abspielen. Im ListView wird der ID3-Tag angezeigt, nur so zur Info.

[Stanlay Hanks]

Also zum Abspielen brauchst du, glaub ich jedenfalls, den ganzen Dateinamen samt Pfad.

[profiz]

Ok, angenommen ich hab jetzt den ganzen Pfad im ListView als Bezeichnung stehen. Was muss ich machen

[Stanlay Hanks]

Ich hab diese BassPlayer Komponenten leider nicht :arrow: Keine Ahnung wies weitergeht. Tut mir leid. Aber ich schätze mal, du musst diesem Bass DingDa den Dateinamen übergeben (vielleicht Filename oder so was) und dann die Wiedergabe starten.

Man liest sich, Stanlay :hi:

[Alexander]

Ich denke mal, dass auch eine Hilfe zu dieser Komponente gibt. Such einfach mal nach Play oder so.
vielleciht gibt es ja sogar Demos ;-)

[profiz]

es gibt ne demo, aber ohne playlist, ich probier gerade herum, ich denke ich werds schon noch von alleine rausfinden, wenn aber jemand noch eine Idee hat soll er sich bitte melden. :D

[Alexander]

hast du auch schon mal gegoogelt?
BassPlayer Play

PS: Vermutlich hast du schon gegoogelt, wollte aber mal diese Googlelinks ausprobieren ;-)

[Stanlay Hanks]

Zitat:

Zitat von profiz

es gibt ne demo, aber ohne playlist, ich probier gerade herum, ich denke ich werds schon noch von alleine rausfinden, wenn aber jemand noch eine Idee hat soll er sich bitte melden. :D

Das mit der Playlist ist ja auch nich so wichtig. Das erledigt sich ja von selbst, wenn du weißt, wie man was abspielt. :wink:

Man liest sich, Stanlay :hi:

[profiz]

Ich hab jetzt herausgefunden wie man etwas abspielt, aber nur wenn ich als Bezeichnug den ganzen Pfad im ListView nehme. Wenn ich jetzt den Style vom ListView auf vsReport setzte. Kann ich ja unter Columns oder so die Kategorien oben erstellen. Nur wie kann jetzt vom makierten Eintrag die vierte Kategorie auslesen? :?:

[profiz]

und noch was :D . Wie kann ich beim hinzufügen sagen wohin, also in welche Column er es machen soll :?:

[Alexander]

alsooo..
kuck dir mal Subitem[index].String an. Daraus bekommest du den wert des entsprechenden Column
Und mit Item.SubItem.Add kannst du welche hinzufügen

[profiz]

Also nochaml, ich versteh dich jetzt nicht genau.
Mein Quelltext sieht im Moment so aus:

Delphi-Quellcode:

procedure TForm1.Abspielen1Click(Sender: TObject);
begin
BassPlayer1.Open(ListView1.ItemFocused.Caption);
BassPlayer1.Play;
end;

Wie muss ich jetzt das ListView1.ItemFocused.Caption ändern, damit er die vierte Column auslliest?

[edit=Daniel B]Delphi-Tags eingefügt. Mfg, Daniel B[/edit]

[profiz]

Und genauso beim hinzufügen:

Delphi-Quellcode:

procedure TForm1.Image9Click(Sender: TObject);
var
playeintrag : TListItem;
begin
   OpenDialog2.FileName := '';
   OpenDialog2.Filter := 'Alle Media-Dateien|*.mp3;*.ogg;*.wma;*.wav|Alle Dateien';

   if OpenDialog2.Execute then
         if BassPlayer1.Open(OpenDialog2.FileName) then
      begin
        playeintrag := ListView1.Items.Add;
        playeintrag.Caption := OpenDialog2.FileName;
        BassPlayer1.Play;
      end;
end;

Was muss ich hier mit dem hinzufügen ändern?

[edit=Daniel B]Delphi-Tags eingefügt. Mfg, Daniel B[/edit]

[Luckie]

Mehr ein VCL Porblem, da es um den Listview geht. Und dahin geht jetzt auch die Reide.

[Alexander]

so müsste das dann aussehen (ungetestet):

Delphi-Quellcode:

procedure TForm1.Abspielen1Click(Sender: TObject); 
begin 
BassPlayer1.Open(ListView1.Items.Item[Listview1.ITemIndex].SubItem.Strings[Index der jeweiligen Spalte (Column), hier 3]); 
BassPlayer1.Play; 
end;

Das sollte die vierte Column ausgeben....
Evtl. musst du es auf 3 stellen, da ich nicht genau weiß, ob du das erste mitzählst oder nicht...

[profiz]

Und wie muss ich den Code beim hinzufügen machen, weil da kann ich nicht mit ListView1.Items.Item[ListView1.ItemIndex].SubItem.Strings[3]. Das mag nämlich mein Delphi nicht.

[Alexander]

Hi,
wenn du was in ein anderes Column einfügen willst, sollte einfach ein SubITem.Add reichen. Musst natürlich die Reihenfolge beachten (also die Colums in der richtigen Reihenfolge einfügen)

[profiz]

Also, ich glaub ich bin doof.
Ich versteh dich nicht, kannst du das nochmal mit dem Quelltext machen?
Ich kapier das irgendwie nicht. :D

[Alexander]

Hi,
mhm.
habe gerade nciht viel Zeit, aber so in etwa:

Delphi-Quellcode:

procedure TForm1.Image9Click(Sender: TObject); 
var 
playeintrag : TListItem; 
begin 
   OpenDialog2.FileName := ''; 
   OpenDialog2.Filter := 'Alle Media-Dateien|*.mp3;*.ogg;*.wma;*.wav|Alle Dateien'; 

   if OpenDialog2.Execute then 
         if BassPlayer1.Open(OpenDialog2.FileName) then 
      begin 
        playeintrag := ListView1.Items.Add; 
        playeintrag.Caption := OpenDialog2.FileName; 
        playeintrag.Subitem.Add('hallo, was soll hier rein?');
// das kommt ins erste Column, für's nächste einfach Zeile kopieren ;-) 
        BassPlayer1.Play; 
      end; 
end;

[profiz]

Also danke, funktioniert alles, aber nur so kurz zur Info, nicht SubItem.Add sondern SubItems.Add, das s ist wichtig. Jetzt funktioniert aber alles. Es wundert mich nur das ich bei String 2 angeben muss, obwohl der Pfad in der 4 Kategorie steht. Naja, solange es finktioniert ist ja alles in Ordnung

[Alexander]

DAs erste Column zählt meines Wissen nicht mit...dann fängt es sowieso nicht bei 1 zu zählen und schwupp die wupp ;-) bist du bei 2