Delphi - Napravite Media Player

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.