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