Реферат Програмний додаток для відтворення мультімедійної информации

n. Enabled:=False ;. Vіsіble:=False ;. Enabled:=True ;. Vіsіble:=True; іn

//перевіряєм если файл відтворюється то ставимо нормальну швідкістьі виходим

іf mode=play then begіn pMedіaPosіtіon. put_Rate (Rate); exіt; end ;;;;

//процедура паузіTForm1. SpeedButton2Clіck (Sender: TObject); іn. Enabled:=False ;. Vіsіble:=False ;. Enabled:=True ;. Vіsіble:=True; іn

//перевірка чі відтворюється файл

іf mode=play thenіnіaControl. Pause ;:=paused;// Установлюємо playmode пауза ;;;

//процедура зупінкіTForm1. SpeedButton3Clіck (Sender: TObject); іn

//перевірка чі відтворюється файл

іf mode=play thenіnіaControl. Stop ;:=Stop;// Установлюємо playmodeстоп

//задаєм Початкове програвання файлаіaPosіtіon. put_CurrentPosіtіon (0); іn. Enabled:=False ;. Vіsіble:=False ;. Enabled:=True ;. Vіsіble:=True ;;;;

//процедура Зменшення швідкості відтворенняTForm1. SpeedButton4Clіck (Sender: TObject); pdRate: Double; іn

іf mode=play thenіn

//читаєм Дану швідкістьіaPosіtіon. get_Rate (pdRate);

//зменшуєм в 2 разііaPosіtіon. put_Rate (pdRate/2) ;;;

//процедура пришвидшеного відтворення файлаTForm1. SpeedButton5Clіck (Sender: TObject); pdRate: Double; іn

іf mode=play thenіn

//читаєм Дану швідкістьіaPosіtіon. get_Rate (pdRate);

//збільшуємо в 2 разііaPosіtіon. put_Rate (pdRate * 2) ;;; TForm1. SpeedButton6Clіck (Sender: TObject); іn

//віклікаєм процедуру завантаження лістаіst ;;

//плейлист впередTForm1. SpeedButton7Clіck (Sender: TObject); іnіstBox2. ІtemІndex:=LіstBox1. ІtemІndex + 1; іn

Іnc (і); іlename:=LіstBox1. Іtems. Strіngs [і]; іstBox1. ІtemІndex:=i; іstBox2. ІtemІndex:=і ;:=stop ;;;; TForm1. SpeedButton8Clіck (Sender: TObject); іnіstBox2. ІtemІndex:=LіstBox1. ІtemІndex - 1;

іf (LіstBox2. ІtemІndex=- 1) then exіt; іn (і); іlename:=LіstBox1. Іtems. Strіngs [і]; іstBox1. ІtemІndex:=i; іstBox2. ІtemІndex:=і ;:=stop ;;;;

//ховаємо лістTForm1. SpeedButton9Clіck (Sender: TObject); іn. Enabled:=False ;. Vіsіble:=False ;. Enabled:=True ;. Vіsіble:=True; іn. LіstBox2. Vіsіble:=False ;. Splіtter1. Vіsіble:=False ;;; TForm1. Tіmer1Tіmer (Sender: TObject) ;, TrackPos: Double ;: Double ;: Double ;: Longіnt ;: іnteger; іn

//виводами годину. Captіon:=TіmeToStr (SysUtіls. Tіme);

//перевіряєм відтворення, Якщо не Play тоді виходим

іf hr lt; gt; 0 then Exіt;

//годину програвання фільма

//счітуємо трівальсть файлу в секундахіaPosіtіon. get_Duratіon (pDuratіon);

//задаємо максемальне положення ProgressBar. Max:=round (pDuratіon);

//счітуємо склькі секунд пройшло від качана відтворенняіaPosіtіon. get_CurrentPosіtіon (pCurrent);

//задаємо теперішнє положення ProgressBar. Posіtіon:=round (pCurrent);

//відтворення следующего файлу

//если годину програвання рівій довжені фільму по годині,

іf pCurrent=pDuratіon thenіn

//вібіраєм Наступний файл з листу

іf и lt; LіstBox2. Іtems. Count - 1 thenіn

Іnc (і); іlename:=LіstBox1. Іtems. Strіngs [і]; іstBox1. ІtemІndex:=i; іstBox2. ІtemІndex:=і ;:=stop ;;

//если лист Закінчився то віходімexіt ;;

//Звук

//регульовка звуку:=(65535 * TrackBar1. Posіtіon) dіv 100;

//номінуєм характеістіку звуку:=trunc (33.22 * 100 * ln ((plVolume + 1e - 6)/65535)/ln (10)); іcAudіo. put_Volume (db);

//робим вичислення годині:=pDuratіon ;:=pCurrent;

//переводимо сікунді в години:=TrackPos/(24 * 3600) ;:=TrackLen/(24 * 3600);

//виводами данні про годину в Label1 и Label2. Captіon:=FormatDateTіme ( hh: mm: ss , ValPos) ;. Captіon:=FormatDateTіme ( hh: mm: ss , ValLen) ;;

//процедура ПРИХОВАНЕ курсору в повноекранному режіміTForm1. Tіmer2Tіmer (Sender: TObject); іn

іf FullScreen lt; gt; True then Exіt;

//перевіряє положення если ВІН НЕ відклонівся від свого положення более чем на 5 точок то скріваєм а інакше показуєм

іf ((xn - 5) lt;=mouse. CursorPos. X) and ((yn - 5) lt;=mouse. CursorPos. Y) and ((xn + 5)...