Playlist

Tags:    delphi

Hej..jeg kunne godt tænke mig en bid kode/komponent til det her. Har en listbox og kan sagtens afspille filerne som kan trækkes over i den med drag 'n' drop. Jeg vil bare gerne have at listboxen (ligesom i winamp) snupper titlen fra id3-tagget på den mp3-fil der bliver smidt over i listboxen. Sådan så der står hej.mp3 i listboxen istedet for C:\\Documents and blah\\blah\\blah\\blah\\musik\\merbla\\mp3\\hej.mp3. Den skal jo selvfølgelig så stadig kunne finde den rigtige sti til mp3-filen.









-------------------------------------------------------
Jonas (Decko)
-------------------------------------------------------



7 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 3 karma
Sorter efter stemmer Sorter efter dato
du skal bare lave en tstringlist... i den gemmer du filens sti
og i din listbox gemmer du id3 teksten

var
StringList.: TStringList;


procedure TForm1.FormCreate(Sender: TObject);
begin
StringList. := TStringList.Create;

//tilføj filer til stringlist
end;

du kan hente et ID3 komponent her
http://www.torry.net/quicksearchd.php?SID=1978f6a690c5ba89e4085ff9dc462ba0&String=id3&Title=Yes



Hvorfor kan jeg ikke få det til at virke??? Når jeg har droppet en sang i min listbox sker der følgende:
SongList er min StringList og PlayList er min ListBox.

Fold kodeboks ind/udKode 


Når jeg så dobbeltklikke på en titel i ListBoxen sker der følgende:

Fold kodeboks ind/udKode 


Jeg tilføjer C'et fordi den ikke selv tilføjer det. Når jeg har dobbeltklikket siger den at der ikke er noge MCI Device åbn??









-------------------------------------------------------
Jonas (Decko)
-------------------------------------------------------



Nå...det virkede efter jeg fjernede Media.Stop. Fejlen kom jo selvfølgelig fordi der ikke er noget der spiller :D











-------------------------------------------------------
Jonas (Decko)
-------------------------------------------------------



virker det her ikke?
Media.FileName:= SongList.strings[PlayList.ItemIndex]



Jo det virker nu...fik bare ikke lukke tråden.
Tak for hæjlpen.











-------------------------------------------------------
Jonas (Decko)
-------------------------------------------------------



Jo det virker nu...fik bare ikke lukke tråden.
Tak for hæjlpen.

-------------------------------------------------------
Jonas (Decko)
-------------------------------------------------------


Hvordan lavede du det med drag n' drop?
Har du et eksempel på det, så ville jeg blive glad :)



Jeg brugte et komponent der hedder TExplorerDrop.
Du kan finde komponentet her
http://www.torry.net/pages.php?id=233&SID=f62a40df2cd883a54a82982218e27b6d







-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ W++ w PS X+ tv+ b D G e- h! !r z--
------END GEEK CODE BLOCK------



t