Delphi – Napravite Media Player

 –  aลพurirano:  –  

Ako ste poฤetnik u Delphi-ju sigurno ฤ‡e vas oduลกeviti ฤinjenica da vrlo lako i bez mnogo znanja, moลพete napraviti vaลก „Media Player“, aplikaciju koja ฤ‡e puลกtati *.wav i *.mid fajlove. E pa da odmah poฤnemo, pokrenite novi projekt i na formu postavite „MediaPlayer“ kontrolu sa palete „System“. U osobinama preฤ‘ite na skup opcija „VisibleButtons“ i kliknite na znak plus sa leve strane, prve tri opcije postavite na „True“, a ostale na „False“. Ovim smo kontrolu ograniฤili na samo tri dugmeta koja nam trebaju: play, pause i stop. Sada na formu pored postojeฤ‡e kontrole postavite obiฤno dugme sa natpisom „Fajl“. I na kraju postaviฤ‡emo joลก jednu kontrolu, a to je kontrola za praฤ‡enje procesa (Gauge). Kontrola se nalazi na paleti alatki „Samples“, postavite je do levo od prethodnih, osobinu „ForeColor“ postavite na „clBlue“. Pokuลกajte da dobijete raspored i veliฤinu kontrola kao na slici. Sledeฤ‡e kontrole koju ฤ‡ete da postavite na formu su: „Open File“ dijalog sa palete „Dialogs“ ฤije osobine: „DefaultExt“ na „Wav“, „Title“ na „Otvori zvucni fajl“, dve osobine „Options.ofHideReadOnly“ i „Options.ofHideReadOnly“ postavite na „True“. A za kontrolu „Timer“, osobine „Interval“ postavite na 100 milisekundi i „Enabled“ na „False“.

Sada ฤ‡emo za kontroli „OpenFile“ postaviti filter za otvaranje fajlova odreฤ‘ene ekstenzije, u osobini „Filter“ kliknite na dugme sa tri taฤke i u narednom dijalog prozoru u polja „Filter Name“ upiลกite kako ฤ‡e se zvati filter, a u koloni „Filter“ unesite podrazumevane ekstenzije.

Sledeฤ‡e ลกto ฤ‡emo uneti je programski kod, i to prvo u dogaฤ‘aj „OnClick“ dugmeta „Fajl“



With OpenDialog1 Do

   If Execute Then

	BEGIN

	Caption:=’ MediaPlayer – ‘ + ExtractFilename(FileName);

	MediaPlayer1.FileName:= FileName;

	FileName:= ‘ ‘;

	With MediaPlayer1 Do

	  BEGIN

	    Open;

	    Gauge1.MaxValue:=Length;

	    Gauge1.Progres:=0;

	    Timer1.Enabled:=True;

	  END;

END;

Joลก ฤ‡ete morati uneti sledeฤ‡i kod vezan za kontrolu „Timer“:


Gauge1.Progress:=MediaPlayer1.Position;

I program je gotov, sada ฤ‡ete moฤ‡i da na vaลกem kompjuteru reprodukujete zvuฤne fajlove tipa *.wav i *.mid.

Pratite Krstaricu na www.krstarica.com