Реферат Розробка мультимедіа

PROCEDURE Init.oMedia=CREATEOBJECT («vfpmci») VARTYPE (this.oMedia)!=«O». f.interval.MouseDown

*** ActiveX Control Event *** button, shift, x, y.Parent.Timer1.Enabled =. f.interval.MouseUp

*** ActiveX Control Event *** button, shift, x, y.Parent.Timer1.Enabled =. t.interval.Change

*** ActiveX Control Event *** this.Parent.oMedia (this.value) () volume.Scroll

*** ActiveX Control Event ***. Parent.oMedia.SetVolume (this.value) cmdopen.ClicklcFile=GETFILE («MP3 | WMA | WAV»)! EMPTY (lcFile) this. Parent.Open (lcFile, thisform.HWnd). SetVolume (750). value=0.max =. oMedia.GetSize (). Play (). Enabled =. t.

ENDWITH

ENDPROCcmdplay.Clickthis.Parent

. oMedia.Play ()

. Timer1.Enabled =. t.cmdpause.Clickthis.Parent

. oMedia.Pause ()

. Timer1.Enabled =. f.cmdstop.Clickthis.Parent

. oMedia.Stop ()

. Timer1.Enabled =. f.

. Interval.value=0timer1.Timer.Parent.interval.value=this.Parent.oMedia.GetPosition ()

ENDPROC

3.2 Форма DemoVideo.scx

Форма DemoVideo.scx (див. рис.2) показує відео, який Ви обрали у себе на комп'ютері.

Рис. 2

CLASS video AS form

PROCEDURE vfpplayer1.cmdOpen.ClicklcFile, lnDestWidth, lnDestHeight=GETFILE («AVI, WMV»)! EMPTY (lcFile) this.Parent

. oMedia.Open (lcFile, thisform.HWnd)

. oMedia.SetVolume (750)

. Interval.value=0

. Interval.max =. oMedia.GetSize ()

* Отримати розміри вигляді кадру=0=0

. oMedia.GetVideoDimension (@ lnDestWidth, @ lnDestHeight)

* Визначення фактичних розмірів області виведення відео=lnDestHeight / thisform.Shape1.Height=lnDestWidth / thisform.Shape1.Width

lnKoeff=MAX (lnKVert, lnKHor) lnKoeff < 1=1=lnDestWidth / lnKoeff=lnDestHeight / lnKoeff

* Обчислюємо нові значення координат лівої верхньої точки

lnTop=thisform.Shape1.Top + 0.5 * (thisform.Shape1.Height - lnHeight)=thisform.Shape1.Left + 0.5 * (thisform.Shape1.Width - lnWidth)

* Встановлюємо нові розміри вікна для відео

. oMedia.SetVideoRect (lnLeft, lnTop, lnWidth, lnHeight)

. oMedia.Play ()

. Timer1.Enabled =. t.

ENDWITH

3.3 Форма o_programme.scx

Форма o_programme.scx (див. рис.3) показує дані про програму.

Рис.3

CLASS form1 AS form

Top=0=0=373=600 =. T.="Про програму"=RGB (240,240,240)=«Form1» OBJECT label1 AS label WITH;

AutoSize =. T.,; =. T.,;=16,;

FontCharSet=204,;=0,;=0,;=«Про програму:»,;=27,;=24,;=12,;=146,;=« Label1 »OBJEC...