[ inherited @ 22.05.2006. 17:11 ] @
Pozdrav ljudi,

hteo bi napraviti program, odnosno, muzicki player. Delphi ima komponentu TMediaPlayer, pa mislim da bi mogao s tim. Otprilike, postavio bi jedan TListBox i TOpenDialog(mp3, wma, wav, All Audio Files...). Za pocetak, kad ubacim pesme u TListBox, kliknem na jednu (npr. OnDblClick), TMediaPlayer je pusta, ali kad se zavrsi ne prelazi na drugu pesmu u TListBox-u!
Kako odraditi da po zavrsetku jedne pesme u TListBox, TMediaPlayer se prebaci na drugu pesmu, ispod?

[Ovu poruku je menjao inherited dana 22.05.2006. u 22:35 GMT+1]
[ IvanBeograd @ 22.05.2006. 20:20 ] @
Pogledaj ranije teme,bilo je pricano o tome.
Pozzz.
[ Miloš Baić @ 22.05.2006. 21:19 ] @
Probaj On Notify

[Ovu poruku je menjao loshmiscg dana 22.05.2006. u 22:21 GMT+1]
[ inherited @ 22.05.2006. 21:33 ] @
Ok, pretragom sam pronasao da se na TMediaPlayer moze obraditi dogadjaj OnNotify. Obradio sam ga ovako:
Code:

  SongBox.ItemIndex := SongBox.ItemIndex +1;
  TrackName.Caption:= SongBox.Items[SongBox.ItemIndex];
  fName := TrackName.Caption;
  TrackName.Caption := fName;
  MediaPlayer.FileName := fName;
  MediaPlayer.open;
  MediaPlayer.Play;

Medjutim, sad na TButton - event OnClick, ne funkcionise:
Code:

  MediaPlayer.Stop;

Odnosno, kad se recmo na pola pesme pritisne STOP onda ako je jedna pesma u SongBox-u (TListBox) pokrece se ispocetka, a ako ima vise, onda prelazi na sledecu. A, ako se vratim na prethodnu ili bilo koju drugu pesmu program zablokira.
Pomozite mi da procistim kod... I da prelazak s jedne na drugu pesmu funkcionise ispravno...
Hvala unapred...

[Ovu poruku je menjao inherited dana 22.05.2006. u 22:34 GMT+1]
[ Srki_82 @ 22.05.2006. 21:44 ] @
Preporucio bih ti da pogledas Delphiamp... to je klon Winamp-a radjen u Delphi-u. Naci ces sve sto je potrebno... od pustanja zvuka do menjanja skina.

http://www.delphamp.com/
[ inherited @ 22.05.2006. 22:07 ] @
Ok, pogledao sam ovo, ali za pocetak bi hteo ovo odraditi sa TMediaPlayer komponentom, pa ako imate malo vremena pomozite...
Pozdrav...
[ inherited @ 23.05.2006. 14:12 ] @
Jel moze neko da mi pomogne obraditi event OnNotify za TMediaPlayer? Probao sam neke varijante ali ne ide!!!
Please...
[ Srki_82 @ 23.05.2006. 14:32 ] @
OnNotify event se aktivira u raznim siduacijama... kad pauziras muziku, kad je pustis, kad pritisnes stop, kad premotavas... sve sto moze dovesti do promene stanja komponente. Kada se aktivira event Notify property se automatski vraca na False pa ako zelis da primas nova obavestenje, moras ga ponovo postaviti na True.

Kad dobijes OnNotify event mozes proveriti Mode property da vidis staje promenjeno... da li je pocelo sviranje, da li se premotava, da li je pritisnut stop i slicno.

Nadam se da je pomoglo.
[ inherited @ 23.05.2006. 16:01 ] @
Hvala Srki_82, sto si teoretski priblizio OnNotify event, ali nije mi bas jasno, mislim da bi parce koda resilo problem?!!! Probao sam iz help-a nesto skontati ali nisam uspeo...
Citat:

Kad ubacim pesme u TListBox, kliknem na jednu (npr. OnDblClick), TMediaPlayer je pusta, ali kad se zavrsi ne prelazi na drugu pesmu u TListBox-u! Kako odraditi da po zavrsetku jedne pesme iz TListBox, TMediaPlayer se prebaci na drugu pesmu, ispod?

[ IvanBeograd @ 23.05.2006. 16:56 ] @
Pogledaj mail !
[ inherited @ 25.05.2006. 11:19 ] @
Resio sam prvi problem koji sam naveo, ali sad bi mi bilo interesantno u program postaviti jedan TLabel koji ce prikazati duzinu pesme, a drugi TLabel prikazivati vreme kako pesma odmice?!

Hvala unapred i jos jednom hvala, IvanBeograd - u, sto mi je pomigao da resim prvi problem...
Pozdrav...
[ IvanBeograd @ 25.05.2006. 12:58 ] @
To pogledaj help,mislim da ima gotov primer!
Pozzz
[ inherited @ 25.05.2006. 14:51 ] @
Nisam se bas snasao u help-u u vezi toga, ali sam se snasao malo drugacije, btw, hvala..
[ Miloš Baić @ 25.05.2006. 14:58 ] @
Pozdrav ekipa,

vidim da se prica o TMediaPlayer komponenti, pravim neki music player, pa reko da i ja nesto pitam...
Naime, da li postoji mogucnost da se napravi neki oscilator, sa recimo TProgressBar komponentom u sklopu programa koji koristi TMediaPlayer?
Da dopunim, jos veca perverzija bi mi bilo kad bi mogla da se naprave dva ili vise?
[ inherited @ 27.05.2006. 15:46 ] @
Na komponenti TMediaPlayer, DeviceType sam postavio na dtAutoSelect. U toj varijanti mi pusta mp3, wma, wav ali nece muziku sa audio CD-a?
Pitanja:
1) Kako bi mogao napisati kod da mi pusta muzika i sa Audio CD-a?
2) mp3, wma, wav - pored ovih extenzija, koje jos automatski TMediaPlayer pusta?

pozdrav
[ Nemanja Avramović @ 27.05.2006. 21:32 ] @
TMediaPlayer pušta sve tipove koje pušta i Windows MediaPlayer, tako da, ako nađeš kodeke recimo za OGG za Windows MediaPlayer, onda će i tvoj player da pušta to. Nemoj da me držiš za reč ali mislim da je tako.
[ inherited @ 28.05.2006. 00:13 ] @
OK, hvala na odgovoru, ali zasto nece da mi pusta muziku sa CD-ova ( audio - ne mp3, wav...)?
[ inherited @ 30.05.2006. 13:31 ] @
Citat:
inherited: Na komponenti TMediaPlayer, DeviceType sam postavio na dtAutoSelect. U toj varijanti mi pusta mp3, wma, wav ali nece muziku sa audio CD-a?
Kako bi mogao napisati kod da mi pusta muzika i sa Audio CD-a?

Moze li neko pomoci da resim problem?
[ IvanBeograd @ 30.05.2006. 18:12 ] @
Pa mozes da stavis opciju da ti OpenDialog otvara samo ekstenzije koje ti hoces,u tvom slucaju to je mp3,wav,wma i cda.
Samim tim,Windos Media player ce pustati te extenzije.Naravno ako su za pustanje. :)
Pozz
[ inherited @ 30.05.2006. 18:24 ] @
Probao sam, vec, ali nece...
[ IvanBeograd @ 30.05.2006. 18:53 ] @
Meni hoce,*.cda ti je extenzija za audio pesme,probao sam!
Pozzz
[ IvanBeograd @ 30.05.2006. 19:48 ] @
http://www.planet-source-code....trZipAccessCode=tp%2FA17415853
[ inherited @ 31.05.2006. 01:43 ] @
Skidao sam ponesto odatle ( PlanetSource ), ali uglavnom je kod nerazuman bez pomoci... Za pocetnika ne razuman...
[ IvanBeograd @ 31.05.2006. 09:29 ] @
Video sam naslov,pa sam misli da ce pomoci.Pozzzz