[ inherited @ 17.06.2006. 14:13 ] @
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.
[ badam @ 17.06.2006. 16:34 ] @
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.
[ Miloš Baić @ 17.06.2006. 16:53 ] @
Dodato brisanje iz TListBox...
[ badam @ 17.06.2006. 17:22 ] @
Pardon, bilo je par gresaka, pa sam ih ispravio:
I dodao sam u brisanje da ponovo numerise redove.
[ badam @ 17.06.2006. 17:53 ] @
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.
[ Miloš Baić @ 17.06.2006. 18:00 ] @
Ne bi bilo lose da napravis snimanje PlayList-e i otvaranje PlayList-e (.lst)?!
[ badam @ 17.06.2006. 18:29 ] @
Evo, sredio sam pustanje sledece pesme i snimanje i ucitavanje playliste prilikom zatvaranja i pokretanja programa.
Sad je stvarno gotovo.
[ Miloš Baić @ 18.06.2006. 01:02 ] @
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).
[ inherited @ 18.06.2006. 14:06 ] @
Kako bi trebalo odraditi dodavanje foldera u ovom slucaju?
[ Nemanja Avramović @ 18.06.2006. 14:25 ] @
Evo i mog doprinosa :)

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

www.delphamp.com
[ Miloš Baić @ 18.06.2006. 14:50 ] @
Prilikom instalacije WinSkin.pas i SkinPlaylist.pas kaže delphi ovako:
Citat:
[Warning] SkinPlayList.pas(94): Method 'WndProc' hides virtual method of base type 'TControl'
[Fatal Error] Spectrum.pas(55): File not found: 'fmod.dcu'


JaHvram, da ne treba još nešto da upload-uješ uz to?! fmod.pas?!!!
[ Nemanja Avramović @ 18.06.2006. 14:52 ] @
Evo... 170 kb...
[ inherited @ 18.06.2006. 15:03 ] @
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?
[ Nemanja Avramović @ 18.06.2006. 15:47 ] @
Code:
var path:string;
begin
if OpenDirDialog1.Execute then path:=OpenDirDialog1.Path;


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...
[ Nemanja Avramović @ 18.06.2006. 15:53 ] @
Možda ti i ovo zatreba nekad
[ inherited @ 18.06.2006. 16:56 ] @
Citat:
JaHvram: 
Code:
var path:string;
begin
if OpenDirDialog1.Execute then path:=OpenDirDialog1.Path;



Nesto mi ne ide... Mogu da odradim putanju, dobijem C:\Folder
[ Miloš Baić @ 18.06.2006. 18:13 ] @
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....
[ Nemanja Avramović @ 18.06.2006. 19:16 ] @
Rekoh ti da potražiš temu sa brisanjem foldera koji nije prazan... ali uštedeo sam ti trud:

http://www.elitesecurity.org/tema/172206/0#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...
[ inherited @ 18.06.2006. 19:32 ] @
Izvinjavam se svima, na dosadi, ali ne kontam... :(
Da li biste hteli to odraditi na ovom nasem primeru? Sa ova dva TlistBox-a?
[ Nemanja Avramović @ 18.06.2006. 20:12 ] @
Ne kontam šta to ne razumeš, evo za 5 minuta napravljeno..
[ Nemanja Avramović @ 20.06.2006. 16:35 ] @
I... jel' ti odgovara?
[ inherited @ 20.06.2006. 17:15 ] @
Naravno, hvala ti na ulozenom trudu i pomoci....
[ Nemanja Avramović @ 20.06.2006. 17:37 ] @
Nema na čemu, samo, red je da napišeš da li ti vrši posao. Ovako me držiš u neizvesnosti
[ inherited @ 20.06.2006. 18:06 ] @
Izvinjavam se... Ne moj zameriti...