TListBox, broj redova, TMediaPlayer * Primer!!!

Upload-ovao sam jedan mali primer. Pozivam Vas da nastavite izradu primera, naravno,
ako znate. Naime, postavio sam TListBox u koji se na osnovu TOpenDialog ubacuju
"pesme" (D:\Folder\Naziv_Pesme.mp3). Pustaju se na osnovu TMediaPlayer komponente,
to mi se cini najjednostavnije.

Trebalo bi nastaviti:

1) dodati redne brojeve Item-a, ( 1. D:\Folder\Naziv_Pesme.mp3 ), redom?!
2) napraviti (1. Naziv_Pesme.mp3), bez "D:\Folder\" ?!
3) pustiti pesmu iz TMediaPlayer-a?!

Ako imate malo volje, da mi pomognete, u znanje ne sumnjam, siguran sam da ce primer
sam po sebi pomoci i drugima.

Hvala unapred.

Evo, onako kako sam i u onom topicu napisao:
Za zadatak pod 2 mi najbrze bilo da stavim preko SongBox jos jedan ListBox (SongBox1) koji bi imao samo FileName, a u SongBox se upisuje FileName sa pathom.

Dodato brisanje iz TListBox...

Potpis

Someone's sitting in the shade today because someone planted a tree a long time ago.

Pardon, bilo je par gresaka, pa sam ih ispravio:
I dodao sam u brisanje da ponovo numerise redove.

Dodao sam pomeranje pesama u playlisti, nastavak sa sledecom pesmom nakon kraja prethodne i loop.
Za ispraviti:
Pustanje sledece pesme radi samo ako je ItemIndex=pesmi koja ide.
Ne radi pomeranje selekcije(vise od 1 pesme)

Mrzi me danas vise oko toga, treba na zurku.
Pozdrav.

Ne bi bilo lose da napravis snimanje PlayList-e i otvaranje PlayList-e (.lst)?!

Potpis

Someone's sitting in the shade today because someone planted a tree a long time ago.

Evo, sredio sam pustanje sledece pesme i snimanje i ucitavanje playliste prilikom zatvaranja i pokretanja programa.
Sad je stvarno gotovo.

Pozdrav,

evo pogledao sam primer u vezi Save i Load PlayList... Nisi dobro odradio, badam, zato što memoriše fajl kao
1. D:\Folder\Naziv_Pesme.mp3, ali ga po pokretanju programa ( load ) odradi:D:\Folder\???
Koliko se sećam, pa sam malo to izmenio u upload-ovanom primeru. Dodao sam i brisanje cele liste (songbox, songbox1).

Potpis

Someone's sitting in the shade today because someone planted a tree a long time ago.

Kako bi trebalo odraditi dodavanje foldera u ovom slucaju?

Evo i mog doprinosa :)

Uniti za učitavanje winamp skinova i opendir dialog ;)

www.delphamp.com

Potpis

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Prilikom instalacije WinSkin.pas i SkinPlaylist.pas kaže delphi ovako:


JaHvram, da ne treba još nešto da upload-uješ uz to?! fmod.pas?!!!

Potpis

Someone's sitting in the shade today because someone planted a tree a long time ago.

Evo... 170 kb...

Potpis

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Ubacio sam OpenDirDialog. Kako sad odraditi da doda folder sa fajlovima, kao i
kad odradi OpenDialog. Znaci, izaberemo folder i kad kliknemo na OK doda njegove
fajlove?

E sad moraš naći način da prođeš kroz folder i pokupiš fajlove (rekurzivno, bilo bi bolje). Potraži ovde na forumu.. ima ona tema kako obrisati folder koji nije prazan... možda može to da se iskoristi...

Potpis

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Možda ti i ovo zatreba nekad

Potpis

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Nesto mi ne ide... Mogu da odradim putanju, dobijem C:\Folder

I meni bi bilo interesantno videti kako u ova dva TListBox-a, dodati folder sa fajlovima, kao i s TOpenDialog?! Pa pustiti da "peva"...

BTW, pravio sam formu na kojoj je TDriveBox, TDirectoryListBox, TFileListBox i tako ubacivao fajlove iz direktorijuma. Pretpostavljam da ovo s JaHvram - om komponentom je laksi nacin. Pa ako neko zna kako bi to moglo da se odradi u ovom primeru, nek puca....

Potpis

Someone's sitting in the shade today because someone planted a tree a long time ago.

Rekoh ti da potražiš temu sa brisanjem foldera koji nije prazan... ali uštedeo sam ti trud:

https://www.elitesecurity.org/t172206#1118490

Izmeni tu funkciju da, kad prođe kroz folder, ne briše sve na šta naiđe, nego samo doda u listu, i to je to...

Potpis

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Izvinjavam se svima, na dosadi, ali ne kontam... :(
Da li biste hteli to odraditi na ovom nasem primeru? Sa ova dva TlistBox-a?

Ne kontam šta to ne razumeš, evo za 5 minuta napravljeno..

Potpis

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}