Mултимедиа дастурларини яратиш воситалари - Информатика и ИТ - Рефераты

Mултимедиа дастурларини яратиш воситалари

Загружено в:

20.09.2019

Скачано:

0

Размер:

377 KB

www.arxiv.uz M ултимедиа дастурларини яратиш воситалари Режа: 1. Delphiда мультимедиа 2. TMediaPlayer компоненти 3. Мультимедиа дастурининг икки кўриниши .

www.arxiv.uz Delphiда мультимедиа Delphiда TMediaPlayer компоненти мавжуд бўлиб, у сизга мултимедиа дастурларини тузишда ҳамма имкониятларни яратиб беради. Ушбу компонентдан фойдаланиш жуда оддий. Бу оддийликни икки маънода тушуниш мумкин: - Бир томондан – бу ихтиёрий дастурчига мультимедиа дастурини тузишга имкон яратилган. - Иккинчи томондан, бу компонентда мультимедиа файллари билан бажариладиган ҳамма асосий амаллар киритилган, лекин сизга қуйи функциялар керак бўладиган бўлса, Delphi дастурлаш тили имкониятларидан фойдалинишингиз мумкин. Ушбу маърузада компонент ишлаганда унинг ички функциялари қандай ишлатилишига тўхталмаймиз. TMediaPlayer компоненти Дастлаб янги лоиҳа яратамиз ва формага TMediaPlayer (System саҳифаси) компонентини ташлаймиз. 15-расм: Формадаги TMediaPlayer компоненти. TMediaPlayer компоненти қурилмани бошқариш панели каби тузил ган. Магнитофонлардаги каби бу ерда ҳам “ишга тушириш”, “ўтказиш”, “ёзиш” ва бош қа тугмалари бор . Компонентни формага ташлагач, сиз Объектлар Инспекторида "FileName" хусусиятини кўрасиз .

www.arxiv.uz 16 - Расм . TMediaPlayerнинг Объектлар инспекторидаги хусусиятлари Шу ерда сичқонча тугмасини босинг ва рўйхатдан AVI, WAV ёки MID кенгайтмали файлни танланг. Сўнгра AutoOpen хусусиятини True қийматга ўрнатиш керак. Бу қадамлар бажарилгач, дастур юкланишга тайёр бўлади. Дастурни юклаб ишга тушириш (Play) тугмасини босинг ва сиз танлаган видеоклипингизни кўришингиз ёки мусиқани тинглашингиз мумкин. Агар овоз ёки видеоклип ишга тушмасдан хатолик ҳақида хабар чиқарилса, икки ҳолат бўлиши мумкин: 1. Сиз файл номини ёки унгача бўлган йўлни нотуўғри киритгансиз. 2. Компьютерингиздаги мультимедиа қурилмалари Windowsга тўғри созланмаган. Бу эса, сизда керакли қурилманинг йўклигидан ёки керакли драйверлар ўрнатилмаганлигидан далолат беради. TMediaPlayer компонентининг яна бир муҳим хусусияти - Display. Дастлабки мисолимизда бу хусусият бўш қолдирилган ва видеоклип алохида ойнада кўринган эди. Лекин, видеоклип намойишида экран сифатида масалан, Панел дан фойдаланиш мумкин. Формага Tpanel компонентини ташланг ва Caption хусусиятидаги матнни ўчиринг. Сўнгра TMediaPlayer учун Display хусусиятидаги рўйхатдан Panel1ни танланг. Шундан сўнг дастурни юклаб, ишга тушириш тугмасини босиш керак.

www.arxiv.uz 1 7 - расм . Панелда AVI ни кўрсатиш. Мультимедиа дастурининг икки кўриниши. Мультимедиали дастурга мисол. Бу бўлимда биз мультимедиали дастурларга мисол кўриб ўтамиз. Янги лоиха яратинг (File | New Project). Формага TMediaPlayer , шунингдек файлларга мурожаат қилиш учун, TFileListBox, TDirectoryListBox, TDriveComboBox, TFilterComboBox компонентларини ташланг . DirectoryListBox1 нинг ва FilterComboBox1 нинг FileList хусусиятлари д а FileListBox1 ни белгиланг . DriveComboBox1 нинг DirList хусусиятига DirectoryListBox1 ни ўрнатинг . FilterComboBox1 нинг Filter хусусиятига керакли файллар кенгайтмаларини киритинг : 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;

www.arxiv.uz 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 Gauge1.Progress:=Round(100*Position/Length); end; 1 8 - Расм. Объектларнинг жорий ҳолатини намойиш қилиш

www.arxiv.uz Дастурни юкланг, файл (AVI)ни танланг ва унга сич қ он тугмасини икки марта босинг. Видеоклип намойиши вақтида биз қўйган вақт индикатори ўтган вақтга боғлиқ ҳолда фоизларни чиқариши керак.

www.arxiv.uz Адабиётлар руйхати: 1. Компьютердаги ёрдам файллари. 2. Бобровский «Delphi 5», «Питер» Москва 1997г. 3. Шумаков «Delphi 4 разработка баз данных», «Питер» Москва 1996г. 4. Пачеко, Тейксера «Delphi 5 пособие программиста», «Питер» Москва 5. www.ziyonet.uz

Похожие

Интернет-саҳифани Word воситалари билан яратиш

Интернет сахифани Word воситалари билан яратиш

Ўрнатилувчи дастурлар яратиш

TSR дастурлар яратиш

Қурилма драйверларини яратиш