Ўзбекистон Республикаси олий ва ўрта махсус таълим вазирлиги Бухоро ози

Мультимедиа дастурининг икки кўриниши. 
Мультимедиали дастурга мисол. 
Бу бўлимда биз мультимедиали дастурларга мисол кўриб ўтамиз. Янги лоиха 
яратинг (File | New Project). Формага TMediaPlayer, шунингдек файлларга мурожаат 
қилиш учун, TFileListBox, TDirectoryListBox, TDriveComboBox, TFilterComboBox 
компонентларини ташланг. DirectoryListBox1нинг ва FilterComboBox1нинг FileList 
хусусиятларида FileListBox1ни белгиланг. DriveComboBox1нинг DirList хусусиятига 
DirectoryListBox1ни ўрнатинг. FilterComboBox1нинг Filter хусусиятига керакли 
файллар кенгайтмаларини киритинг:

---

35 
AVI File(*.avi)|*.avi
WAVE File(*.wav)|*.wav
MIDI file(*.MID)|*.mid
FileListBox1да Сичқончани икки марта босганда жорий файл ишга 
туширилишига 
эришишимиз 
керак. 
Ҳолатлар 
қайта 
ишловчисидаги 
FileListBox1нинг OnDblClick ҳолатига қуйидаги дастур матнини киритамиз:
Procedure TForm1.FileListBox1DblClick(Sender:TObject);
begin
with MediaPlayer1 do
begin
Close;
FileName:=FileListBox1.FileName;
Open;
Play;
end;
end;
Дастурни юклаб натижани кўришингиз мумкин.
Дастур бажарилиш вақтида MediaPlayer объектининг ёки видеоклиппнинг 
жорий ҳолатини намойиш қилиш зарурияти туғилиб қолиши мумкин. Бунинг учун 
TMediaPlayer объектининг: Length, Position, OnNotify ва бошқа хусусятлари мавжуд. 
Келинг лоиҳамизга вақт индикатори сифатида (TGauge) объектини ташлаймиз, у 
ўтган вақтни фоизлар бўйича кўрсатади. Унинг кўрсаткичини янгилаш учун 
таймердан фойдаланиш мумкин. Формага TTimer объектини ташланг, унинг учун 
Interval = 100 (100 миллисекунд) га ўрнатинг. OnTimer ҳолатига қуйидагини ёзиш 
керак:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
with MediaPlayer1 do
if FileName<>'' then

---

36 
Gauge1.Progress:=Round(100*Position/Length);
end;
18 - Расм. Объектларнинг жорий ҳолатини намойиш қилиш 
Дастурни юкланг, файл (AVI)ни танланг ва унга сичқон тугмасини икки марта 
босинг. Видеоклип намойиши вақтида биз қўйган вақт индикатори ўтган вақтга 
боғлиқ ҳолда фоизларни чиқариши керак. 
Назорат саволлари: 
1. Мультимедиа нима? 
2. TMediaPlayer компоненти нима максадларда ишлатилади? 
3. Мультимедиа файлларини бошкариш учун ишлатиладиган объектларни 
санаб ўтинг. 
4. Мультимедиа файли лоиҳага қандай бириктириладти? 
Таянч иборалар: 
AVI; MediaPlayer; OnTimer; Хусусият; Length; Position; OnNotify 

---

37