Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Playlist abspielen (https://www.delphipraxis.net/6322-playlist-abspielen.html)

Alexander 6. Jul 2003 21:42

Re: Playlist abspielen
 
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 7. Jul 2003 14:22

Re: Playlist abspielen
 
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 7. Jul 2003 14:26

Re: Playlist abspielen
 
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 7. Jul 2003 16:42

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

Alexander 7. Jul 2003 18:08

Re: Playlist abspielen
 
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 7. Jul 2003 19:00

Re: Playlist abspielen
 
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 7. Jul 2003 19:41

Re: Playlist abspielen
 
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 7. Jul 2003 19:52

Re: Playlist abspielen
 
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 7. Jul 2003 20:06

Re: Playlist abspielen
 
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 8. Jul 2003 14:48

Re: Playlist abspielen
 
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


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:12 Uhr.
Seite 2 von 3     12 3      

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz