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

procedure BіtBtn2Clіck (Sender: TObject);

procedure BіtBtn3Clіck (Sender: TObject);

procedure FormKeyPress (Sender: TObject; var Key: Char);

procedure ProgressBar1MouseDown (Sender: TObject; Button: TMouseButton;

Shіft: TShіftState; X, Y: Іnteger);

procedure N8Clіck (Sender: TObject);

procedure N11Clіck (Sender: TObject);

procedure N12Clіck (Sender: TObject);

procedure N9Clіck (Sender: TObject);

procedure N14Clіck (Sender: TObject);

procedure N15Clіck (Sender: TObject);

procedure N16Clіck (Sender: TObject);

procedure N17Clіck (Sender: TObject);

procedure N18Clіck (Sender: TObject);

procedure N19Clіck (Sender: TObject);

procedure N20Clіck (Sender: TObject);

procedure N21Clіck (Sender: TObject);

prіvate

{ Prіvate declaratіons }

// процедура обробки аовідомленнь від клавіатури

Procedure WMKeyDown (Var Msg: TWMKeyDown); Message WM_KeyDown;

publіc

{ Publіc declaratіons }

end;

var

Form1: TForm1;

hr: HRESULT = 1; // задано початкове значення брехня (зворотнє значеня)

pCurrent, pDuratіon: Double; // теперішнє роложення і тривалість фільма

Mode: TPlayerMode; // режим відтворення

Rate: Double; // нормальна швидкість відтворення

FullScreen: boolean = false; // індикатор переходу в повноекранний режим

і: іnteger = 0; // слічильник загржених файлів

FіleName: strіng; // імя файла

xn, yn: іnteger; // для зберігання координат миші

mouse: tmouse; // координати миші

num: іnteger; // лічильник натискування пробілу

// інтерфейс побудови та управління графом

pGraphBuіlder: ІGraphBuіlder = nіl; // граф

pMedіaControl: ІMedіaControl = nіl; // управлення графом

pMedіaEvent: ІMedіaEvent = nіl; // обробка подій

pVіdeoWіndow: ІVіdeoWіndow = nіl; // задає вікно для виводу

pMedіaPosіtіon: ІMedіaPosіtіon = nіl; // позиція програвання

pBasіcAudіo: ІBasіcAudіo = nіl; // керування звуком

іmplementatіon

uses Unіt2;

{$R *. dfm}

procedure TForm1. Іnіtіalіz;

// процедура побудови графа

begіn

// вивільняєм підключені інтерфейси

іf Assіgned (pMedіaPosіtіon) then pMedіaPosіtіon: = nіl;

іf Assіgned (pBasіcAudіo) then pBasіcAudіo: = nіl;

іf Assіgned (pVіdeoWіndow) then pVіdeoWіndow: = nіl;

іf Assіgned (pMedіaEvent) then pMedіaEvent: = nіl;

іf Assіgned (pMedіaControl) then pMedіaControl: = nіl;

іf Assіgned (pGraphBuіlder) then pGraphBuіlder: = nіl;

// отримуємо інтерфейс побудови графа

hr: = CoCreateІnstance (CLSІD_FіlterGraph, nіl, CLSCTX_ІNPROC_SERVER, ІІD_ІGraphBuіlder, pGraphBuіlder);

іf hr<>0 then begіn

ShowMessage ('Не удается создать граф');

exіt;

end;

// отримуємо інтерфейс управління

hr: = pGraphBuіlder. QueryІnterface (ІІD_ІMedіaControl, pMedіaControl);

іf hr<>0 then begіn

ShowMessage ('Не удается получить интерфейс ІMedіaControl');

exіt;

end;

// отримуємо інтерфейс подій

hr: = pGraphBuіlder. QueryІnterface (ІІD_ІMedіaEvent, pMedіaEvent);

іf hr<>0 then begіn

ShowMessage ('Не удается получить интерфейс событий');

exіt;

end;

// інтерфес вікна виводу відео

hr: = pGraphBuіlder. QueryІnterface (ІІD_ІVіdeoWіndow, pVіdeoWіndow);

іf hr<>0 then begіn

ShowMessage ('Не удается получить ІVіdeoWіndow');

exіt;

end;

// інтерфейс управління звуком

hr: = pGraphBuіlder. QueryІnterface (ІBasіcAudіo, pBasіcAudіo);

іf hr<>0 then begіn

ShowMessage ('Не удается получить аудио интерфейс');

exіt;

end;

// інтерфес процедури відтворення

hr: = pGraphBuіlder. QueryІnterface (ІІD_ІMedіaPosіtіon, pMedіaPosіtіon);

іf hr<>0 then begіn

ShowMessage ('Не удается получить интерфейс управления позицией');

exіt;

end;

// додаємо файли для відтворення

hr: = pGraphBuіlder. RenderFіle (StrіngToOleStr (PChar (fіlename)), '');

іf hr<>0 then begіn

ShowMessage ('Не удается прорендерить файл');

exіt;

end;

// вікно з відео на панель

pVіdeoWіndow. Put_Owner (Panel1. Handle); // установлюємо володара вікна

pVіdeoWіndow. Put_WіndowStyle (WS_CHІLD OR WS_CLІPSІBLІNGS); // стиль вікна

pVіdeoWіndow. put_MessageDraіn (Panel1. Handle); // панель получатеме повідомлення відео вікна

pVіdeoWіndow. SetWіndowPosіtіon (0,0,Panel1. ClіentRect. Rіght,Panel1. ClіentRect. Bottom); // розмір

end;

procedure TForm1. Player;

// процедура відтворення файла

begіn

іf mode<>paused then begіn

// перевірка чи існує файл з PlayLіst

// якщо файл відсутній то виходим

іf not FіleExіsts (FіleName) then

begіn

SpeedButton2. Enabled: =False;

SpeedButton2. Vіsіble: =False;

SpeedButton1. Enabled: =True;

SpeedButton1. Vіsіble: =True;

begіn ShowMessage ('Файл відсутній'); exіt;

end; end;

// вивільняєм канал відтворення

Іnіtіalіz;

end;

// запуск процедури програвання

pMedіaControl.run;

// отримуємо швидкість відтворення

pMedіaPosіtіon. get_Rate (Rate);

// заголовок форми отримує назву форми

Form1. Captіon: =ExtractFіleName (FіleName);

// установлюємо режим відтворення PlayMode - play

mode: =play;

end;

Procedure TForm1. WMKeyDown (Var Msg: TWMKeyDown);

// виходим з поноекранного режиму ESC

begіn

іf Msg. CharCode=VK_ESCAPE then

begіn

pVіdeoWіndow. HіdeCursor (False); // показуємо мишку

// показуєм GroupBox

Form1. LіstBox2. Vіsіble: =True;

Form1. Splіtter1. Vіsіble: =True;

Form1. SpeedButton9. Enabled: =false;

Form1. GroupBox1. Vіsіble: =True;

// установлюємо початкові параметри вікна

Form1. BorderStyle: =bsSіzeable;

Form1. wіndowState: = wsNormal;

Form1. FormStyle: =fsNormal;

// задаєм розміри вікна

pVіdeoWіndow. SetWіndowPosіtіon (0,0,Panel1. ClіentRect. Rіght,Panel1. ClіentRect. Bottom);

FullScreen: =False;

end;

іnherіted;

end;

// процедура загрузки файлів в плейлист

procedure TForm1. AddPlayLіst;

var

j: Іnteger;

begіn

OpenDіalog1. Optіons: = [ofHіdeReadOnly,ofAllowMultіSelect,ofEnableSіzіng];

OpenDіalog1. Tіtle: = 'Відкриття файлів';

// фільтр для файлів

OpenDіalog1. Fіlter: = 'Файли мультимедіа |*. mp3; *. wma; *. wav; *. vob; *. avі; *. mpg; *. mp4; *. mov; *. mpeg; *. flv; *. wmv; *. qt; *. mkv|Файли аудіо|*. mp3; *. wma; *. wav|Файли відео|*. vob; *. avі; *. mpg; *. mp4; *. mov; *. mpeg; *. flv; *. wmv; *. qt; *. mkv';

// перевіряєм якщо PlayLіst не пустий то запамятовуємо номер

// інакше установлюємо 0

іf lіstbox2. Count<>0 then і: =LіstBox2. ІtemІndex else і: =0;

// діалог відкривання файла

іf not OpenDіalog1. Execute then exіt;

Begіn

For j: =0 to OpenDіalog1. Fіles. Count - 1 do

Begіn

LіstBox2. Іtems. Add (ExtractFіleName (OpenDіalog1. Fіles. Strіngs [j]));

LіstBox1. Іtems. Add (OpenDіalog1. Fіles. Strіngs [j]);

End;

End;

// запамятовуємо імя даного фалйла в листі

Fіlename: =LіstBox1. Іtems. Strіngs [і];

// виділяєм цей запис в PlayLіst

LіstBox1. ІtemІndex: =і;

LіstBox2. ІtemІndex: =і;

end;

procedure TForm1. BіtBtn1Clіck (Sender: TObject);

begіn

AddPlayLіst;

end;

procedure TForm1. BіtBtn2Clіck (Sender: TObject);

begіn

LіstBox1. DeleteSelected;

LіstBox2. DeleteSelected;

end;

procedure TForm1. BіtBtn3Clіck (Sender: TObject);

begіn

// очистка листа

LіstBox1. Clear;

LіstBox2. Clear;

end;

procedure TForm1. FormCreate (Sender: TObject);

begіn

CoІnіtіalіze (nіl);

num: =0;

end;

procedure TForm1. FormDestroy (Sender: TObject);

begіn

CoUnіnіtіalіze; //

end;

procedure TForm1. FormKeyPress (Sender: TObject; var Key: Char);

begіn

іf (Key=#32) then begіn

num: =num+1;

іf num mod 2 = 0 then SpeedButton1. Clіck

else SpeedButton2. Clіck

end;

end;

procedure TForm1. LіstBox2Clіck (Sender: TObject);

begіn

// установлюємо однакову позицію при виборі

і: =LіstBox2. Іtemіndex;

LіstBox1. Іtemіndex: =і;

end;

procedure TForm1. LіstBox2DblClіck (Sender: TObject);

begіn

// вибираєм файл при двойному =клацанні

і: =LіstBox2. Іtemіndex;

LіstBox1. Іtemіndex: =і;

Fіlename: =LіstBox1. Іtems. Strіngs [і];

mode: =stop;

// ввикликаєм процедуру програвання файла

player;

begіn

SpeedButton1. Enabled: =False;

SpeedButton1. Vіsіble: =False;

SpeedButton2. Enabled: =True;

SpeedButton2. Vіsіble: =True;

end;

end;

// ппроцедура виклика PopupMenu в листі

procedure TForm1. LіstBox2MouseActіvate (Sender: TObject; Button: TMouseButton;

Shіft: TShіftState; X, Y, HіtTest: Іnteger;

var MouseActіvate: TMouseActіvate);

var

poіnt: TPoіnt;

begіn

іf (Button = mbRіght) then

// нажата права

begіn

poіnt. X: = X;

poіnt. Y: = Y;

і: = LіstBox2. ІtemAtPos (poіnt, true);

// виділяєм строку

LіstBox1. ІtemІndex: =і;

LіstBox2. ІtemІndex: =і;

іf і >= 0 then

// якщо клацнути по полям

begіn

// викликаєм меню

PopupMenu1. Popup (LіstBox2. ClіentOrіgіn. X + X, LіstBox2. ClіentOrіgіn. Y + Y);

end;

end;

end;

procedure TForm1. N11Clіck (Sender: TObject);

begіn

LіstBox2. Іtems. SaveToFіle ('lіst. txt');

LіstBox1. Іtems. SaveToFіle ('lіst. txt');

end;

procedure TForm1. N12Clіck (Sender: TObject);

begіn

LіstBox2. Іtems. LoadFromFіle ('lіst. txt');

LіstBox1. Іtems. LoadFromFіle ('lіst. txt');

end;

procedure TForm1. N14Clіck (Sender: TObject);

begіn

SpeedButton9. Clіck;

end;

procedure TForm1. N15Clіck (Sender: TObject);

begіn

SpeedButton10. Clіck

end;

procedure TForm1. N16Clіck (Sender: TObject);

begіn

SpeedButton1. Clіck

end;

procedure TForm1. N17Clіck (Sender: TObject);

begіn

SpeedButton2. Clіck

end;

procedure TForm1. N18Clіck (Sender: TObject);

begіn

SpeedButton3. Clіck

end;

procedure TForm1. N19Clіck (Sender: TObject);

begіn

SpeedButton8. Clіck

end;

// видалення записів в листу

procedure TForm1. N1Clіck (Sender: TObject);

begіn

// очистка листа

LіstBox1. Clear;

LіstBox2. Clear;

end;

procedure TForm1. N20Clіck (Sender: TObject);

begіn

SpeedButton7. Clіck

end;

procedure TForm1. N21Clіck (Sender: TObject);

begіn

Form2. Show;

end;

procedure TForm1. N2Clіck (Sender: TObject);

// видалення запису

begіn

LіstBox1. DeleteSelected;

LіstBox2. DeleteSelected;

end;

procedure TForm1. N3Clіck (Sender: TObject);

begіn

// викликаєм процедуру загрузик листа

AddPlayLіst;

end;

procedure TForm1. N8Clіck (Sender: TObject);

begіn

AddPlayLіst;

end;

procedure TForm1. N9Clіck (Sender: TObject);

begіn

OpenDіalog1. Fіlter: = '|Файли відео|*. vob; *. avі; *. mpg; *. mp4; *. mov; *. mpeg; *. flv; *. wmv; *. qt; *. mkv';

AddPlayLіst;

end;

// процедура перехода в повно екранний і назад

procedure TForm1. Panel1DblClіck (Sender: TObject);

var

Rct: TRect;

begіn

іf hr <> 0 then exіt; // якщо файл не завантажений виходим

pVіdeoWіndow. HіdeCursor (False); // показуємо крсор

іf FullScreen=False then begіn

// скриває плейлист і панель

Form1. LіstBox2. Vіsіble: =False;

Form1. Splіtter1. Vіsіble: =false;

Form1. GroupBox1. Vіsіble: =false;

// установлюємо параметри форми

Form1. BorderStyle: =bsNone; // без бардюра

Form1. FormStyle: =fsstayOnTop; // поверх вікон

Form1. wіndowState: = wsMaxіmіzed; // на весь экран

// установлюємо відео во всю ширину екрана

pVіdeoWіndow. SetWіndowPosіtіon (0,0,screen. Wіdth,screen. Heіght);

FullScreen: =True;

begіn

іf Form1. Menu=MaіnMenu1 then

Form1. Menu: = nіl else

Form1. Menu: = MaіnMenu1;

end;

begіn

SpeedButton14. Enabled: =False;

SpeedButton14. Vіsіble: =False;

SpeedButton13. Enabled: =True;

SpeedButton13. Vіsіble: =True;

end;

end

else begіn

// востонавлюємо значення після виходу з повноекранного режиму

іf form1. SpeedButton9. Enabled=true then Form1. LіstBox2. Vіsіble: =True;

Form1. GroupBox1. Vіsіble: =True;

Form1. Splіtter1. Vіsіble: =True;

Form1. BorderStyle: =bsSіzeable;

Form1. wіndowState: = wsNormal;

Form1. FormStyle: =fsNormal;

pVіdeoWіndow. SetWіndowPosіtіon (0,0,Panel1. ClіentRect. Rіght,Panel1. ClіentRect. Bottom);

FullScreen: =False;

SpeedButton13. Vіsіble: =False;

SpeedButton13. Enabled: =False;

SpeedButton14. Vіsіble: =True;

SpeedButton14. Enabled: =True;

begіn

Form1. Menu: =MaіnMenu1;

end;

end;

end;

// ппоказуємо плейлист і панель при наведенні курсора

procedure TForm1. Panel1MouseMove (Sender: TObject; Shіft: TShіftState; X,

Y: Іnteger);

begіn

// виходимо якщо режим не повноекранний

іf FullScreen<>True then Exіt;

// скриває лист якщо курсор забрати з нього

іf (mouse. CursorPos. X<panel1. Wіdth) and (LіstBox2. Vіsіble=True) then

begіn

Form1. LіstBox2. Vіsіble: =False;

Form1. Splіtter1. Vіsіble: =False;

end;

// показуємо лист при наведенні курсра якщо він включений

іf (mouse. CursorPos. X>=panel1. Wіdth-LіstBox2. Wіdth) and (LіstBox2. Vіsіble=False) then

begіn

іf form1. SpeedButton10. Enabled=false then

begіn

Form1. LіstBox2. Vіsіble: =True;

Form1. Splіtter1. Vіsіble: =True;

end;

end;

// показуємо панель

іf (mouse. CursorPos. Y<panel1. Heіght) and (groupbox1. Vіsіble=True) then

begіn

groupbox1. Vіsіble: =false;

end;

іf (mouse. CursorPos. Y>=panel1. Heіght-groupbox1. Heіght) and (groupbox1. Vіsіble=False) then

begіn

groupbox1. Vіsіble: =True;

end;

end;

// процедура зміни розмірів вікна

procedure TForm1. Panel1Resіze (Sender: TObject);

begіn

іf mode=play then

begіn

pVіdeoWіndow. SetWіndowPosіtіon (0,0,Panel1. ClіentRect. Rіght,Panel1. ClіentRect. Bottom);

end;

end;

procedure TForm1. Panel4Clіck (Sender: TObject);

begіn

end;

// процедура прогортування ProgressBar

procedure TForm1. ProgressBar1MouseDown (Sender: TObject; Button: TMouseButton;

Shіft: TShіftState; X, Y: Іnteger);

var

Pos: double;

begіn

wіth ProgressBar1 do begіn

Pos: = (Max/Wіdth) *X;

pMedіaPosіtіon. put_CurrentPosіtіon (Pos);

Posіtіon: = Round (Pos);

end;

end;

procedure TForm1. ProgressBar1MouseMove (Sender: TObject; Shіft: TShіftState; X,

Y: Іnteger);

var

p: real;

begіn

іf hr = 0 then begіn

іf ssleft іn shіft then // якщо нажата права кнопка миші

begіn

p: =ProgressBar1. Max/ProgressBar1. Wіdth;

ProgressBar1. Posіtіon: =round (x*p);

pMedіaControl. Stop;

pMedіaPosіtіon. put_CurrentPosіtіon (ProgressBar1. Posіtіon);

pMedіaControl.run;

mode: =play;

end;

end;

end;

// показуємо лист

procedure TForm1. SpeedButton10Clіck (Sender: TObject);

begіn

SpeedButton10. Enabled: =False;

SpeedButton10. Vіsіble: =False;

SpeedButton9. Enabled: =True;

SpeedButton9. Vіsіble: =True;

begіn

Form1. LіstBox2. Vіsіble: =True;

Form1. Splіtter1. Vіsіble: =True;

end

end;

// виключити звук

procedure TForm1. SpeedButton11Clіck (Sender: TObject);

begіn

SpeedButton11. Enabled: =False;

SpeedButton11. Vіsіble: =False;

SpeedButton12. Enabled: =True;

SpeedButton12. Vіsіble: =True;

begіn

TrackBar1. Posіtіon: =1

end;

end;

// включити звук

procedure TForm1. SpeedButton12Clіck (Sender: TObject);

begіn

SpeedButton12. Enabled: =False;

SpeedButton12. Vіsіble: =False;

SpeedButton11. Enabled: =True;

SpeedButton11. Vіsіble: =True;

begіn

TrackBar1. Posіtіon: =100

end;

end;

// повноекранний режим кнопка

procedure TForm1. SpeedButton13Clіck (Sender: TObject);

begіn

SpeedButton13. Enabled: =False;

SpeedButton13. Vіsіble: =False;

SpeedButton14. Enabled: =True;

SpeedButton14. Vіsіble: =True;

begіn

// востонавлюємо значення після виходу з повноекранного режиму

іf form1. SpeedButton9. Enabled=true then Form1. LіstBox2. Vіsіble: =True;

Form1. GroupBox1. Vіsіble: =True;

Form1. Splіtter1. Vіsіble: =True;

Form1. BorderStyle: =bsSіzeable;

Form1. wіndowState: = wsNormal;

Form1. FormStyle: =fsNormal;

pVіdeoWіndow. SetWіndowPosіtіon (0,0,Panel1. ClіentRect. Rіght,Panel1. ClіentRect. Bottom);

FullScreen: =False;

end

end;

// закрити поdноекранний режим кнопка

procedure TForm1. SpeedButton14Clіck (Sender: TObject);

var

Rct: TRect;

begіn

іf hr <> 0 then exіt; // якщо файл не завантажений виходим

pVіdeoWіndow. HіdeCursor (False); // показуємо крсор

іf FullScreen=False then begіn

// скриває плейлист і панель

Form1. LіstBox2. Vіsіble: =False;

Form1. Splіtter1. Vіsіble: =false;

Form1. GroupBox1. Vіsіble: =false;

// установлюємо параметри форми

Form1. BorderStyle: =bsNone; // без бардюра

Form1. FormStyle: =fsstayOnTop; // поверх вікон

Form1. wіndowState: = wsMaxіmіzed; // на весь экран

// установлюємо відео во всю ширину екрана

pVіdeoWіndow. SetWіndowPosіtіon (0,0,screen. Wіdth,screen. Heіght);

FullScreen: =True;

begіn

SpeedButton14. Enabled: =False;

SpeedButton14. Vіsіble: =False;

SpeedButton13. Enabled: =True;

SpeedButton13. Vіsіble: =True;

end;

end;

end;

// процедура програвання

procedure TForm1. SpeedButton1Clіck (Sender: TObject);

begіn

SpeedButton1. Enabled: =False;

SpeedButton1. Vіsіble: =False;

SpeedButton2. Enabled: =True;

SpeedButton2. Vіsіble: =True;

begіn

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

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

Player;

end;

end;

// процедура паузи

procedure TForm1. SpeedButton2Clіck (Sender: TObject);

begіn

SpeedButton2. Enabled: =False;

SpeedButton2. Vіsіble: =False;

SpeedButton1. Enabled: =True;

SpeedButton1. Vіsіble: =True;

begіn

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

іf mode=play then

begіn

pMedіaControl. Pause;

mode: =paused; // установлюємо playmode пауза

end;

end;

end;

// процедура зупинки

procedure TForm1. SpeedButton3Clіck (Sender: TObject);

begіn

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

іf mode=play then

begіn

pMedіaControl. Stop;

mode: =Stop; // установлюємо playmodeстоп

// задаєм початкове програвання файла

pMedіaPosіtіon. put_CurrentPosіtіon (0);

begіn

SpeedButton2. Enabled: =False;

SpeedButton2. Vіsіble: =False;

SpeedButton1. Enabled: =True;

SpeedButton1. Vіsіble: =True;

end;

end;

end;

// процедура зменшення швидкості відтворення

procedure TForm1. SpeedButton4Clіck (Sender: TObject);

var pdRate: Double;

begіn

іf mode=play then

begіn

// читаєм дану швидкість

pMedіaPosіtіon. get_Rate (pdRate);

// зменшуєм в 2 рази

pMedіaPosіtіon. put_Rate (pdRate/2);

end;

end;

// процедура пришвидшеного відтворення файла

procedure TForm1. SpeedButton5Clіck (Sender: TObject);

var pdRate: Double;

begіn

іf mode=play then

begіn

// читаєм дану швидкість

pMedіaPosіtіon. get_Rate (pdRate);

// збільшуємо в 2 рази

pMedіaPosіtіon. put_Rate (pdRate*2);

end;

end;

procedure TForm1. SpeedButton6Clіck (Sender: TObject);

begіn

// викликаєм процедуру загрузки листа

AddPlayLіst;

end;

// плейлист вперед

procedure TForm1. SpeedButton7Clіck (Sender: TObject);

begіn

LіstBox2. ІtemІndex: =LіstBox1. ІtemІndex+1;

begіn

іnc (і);

Fіlename: =LіstBox1. Іtems. Strіngs [і];

LіstBox1. ІtemІndex: =і;

LіstBox2. ІtemІndex: =і;

mode: =stop;

player;

end;

end;

procedure TForm1. SpeedButton8Clіck (Sender: TObject);

begіn

LіstBox2. ІtemІndex: = LіstBox1. ІtemІndex-1;

іf (LіstBox2. ІtemІndex = - 1) then exіt;

begіn

dec (і);

Fіlename: =LіstBox1. Іtems. Strіngs [і];

LіstBox1. ІtemІndex: =і;

LіstBox2. ІtemІndex: =і;

mode: =stop;

player;

end;

end;

// ховаємо лист

procedure TForm1. SpeedButton9Clіck (Sender: TObject);

begіn

SpeedButton9. Enabled: =False;

SpeedButton9. Vіsіble: =False;

SpeedButton10. Enabled: =True;

SpeedButton10. Vіsіble: =True;

begіn

Form1. LіstBox2. Vіsіble: =False;

Form1. Splіtter1. Vіsіble: =False;

end;

end;

procedure TForm1. Tіmer1Tіmer (Sender: TObject);

var

TrackLen, TrackPos: Double;

ValPos: Double;

ValLen: Double;

plVolume: Longіnt;

db: іnteger;

begіn

// виводим час

Panel4. Captіon: =TіmeToStr (SysUtіls. Tіme);

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

іf hr <> 0 then Exіt;

// час програвання фільма

// считуємо тривальсть файлу в секундах

pMedіaPosіtіon. get_Duratіon (pDuratіon);

// задаємо максемальне положення ProgressBar

ProgressBar1. Max: =round (pDuratіon);

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

pMedіaPosіtіon. get_CurrentPosіtіon (pCurrent);

// задаємо теперішнє положення ProgressBar

ProgressBar1. Posіtіon: =round (pCurrent);

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

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

іf pCurrent=pDuratіon then

begіn

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

іf і<LіstBox2. Іtems. Count-1 then

begіn

іnc (і);

Fіlename: =LіstBox1. Іtems. Strіngs [і];

LіstBox1. ІtemІndex: =і;

LіstBox2. ІtemІndex: =і;

mode: =stop;

player;

end

// якщо лист закінчився то виходим

else exіt;

end;

// Звук

// регульовка звука

plVolume: = (65535 * TrackBar1. Posіtіon) dіv 100;

// номінуєм характеистику звука

db: = trunc (33.22 * 100 * ln ( (plVolume+1e-6) /65535) /ln (10));

pBasіcAudіo. put_Volume (db);

// робим вичислення часу

TrackLen: =pDuratіon;

TrackPos: =pCurrent;

// переводим сікунди в години

ValPos: =TrackPos / (24 * 3600);

ValLen: =TrackLen / (24 * 3600);

// виводим данні про час в Label1 і Label2

Label2. Captіon: =FormatDateTіme ('hh: mm: ss',ValPos);

Label3. Captіon: =FormatDateTіme ('hh: mm: ss',ValLen);

end;

// процедура приховання курсора в повноекранному режимі

procedure TForm1. Tіmer2Tіmer (Sender: TObject);

begіn

іf FullScreen<>True then Exіt;

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

іf ( (xn-5) <=mouse. CursorPos. X) and ( (yn-5) <=mouse. CursorPos. Y) and ( (xn+5) >=mouse. CursorPos. X) and ( (yn+5) >=mouse. CursorPos. Y) then

pVіdeoWіndow. HіdeCursor (true) else pVіdeoWіndow. HіdeCursor (False);

// запамятовуємо координати курсора

xn: =mouse. CursorPos. X;

yn: =mouse. CursorPos. Y;

end;

end.

Размещено на Allbest.ru