声音、影像素材的准备,其技术及艺术含量都很高。而多媒体创作系统,其目的是便于用户高效地使用创作工具按某种构想,将图、文、声、像等媒体进行导演、创意及包装。

目前,多媒体创作工具种类越来越多,随着多媒体技术应用发展的深入,开发多媒体的技术将越来越先进、越科学、越方便、越有效。

本系统应用范围广,适用于需经常制作多媒体作品的教育、军事、旅游等部门。

以下是一个用MCI.VBX控制对象来播放多媒体数据的函数实例(Visual Basic编写,对MPEG视频以realmagic MPEG解压卡为例),可看出用控制对象处理多媒体信息的方便高效性。

const MCI_MODE_NOT_OPEN=524

Sub closemedia (byVal mediatype)关闭媒体

Select Case mediatype

Case video,sound,animator

if Not MMControl1.Mode=MCI_MODE_NOT_OPEN Then

MMControl1.Wait=True

MMControl1.command=Close

End If

Case graph

image.Picture=LoadPicture()

image.Visible=False

End Select

End Sub

Sub openMedia(mediatype As String, medianame As String)

打开并演播媒体

If Not MMControl.Mode=MCI_MODE_NOT_OPEN_Then

MMControl.Wait=True

MMControl.command=Close

End If

Select Case Mediatype

Case graph 图像

image.Picture=LoadPicture(medianame)

image.Visible=True

exit sub

Case sound 声音

tt$=UCase(Right$(medianame,3))

Select Case tt$

Case WAV

MMControl.DeviceType=WaveAudio

Case MID

MMControl.DeviceType=Sequencer

End Select

Case animator 二、三维动画

tt$=UCase(Right$(medianame,3))

Select Case tt$

Case FLC,FLI

Mmcontrol.DeviceType=Animation1

Case MMM

Mmcontrol.DeviceType=MMMovie

End Select

Case video 视频

tt!=UCase (Right$(medianame,3))

Select Cast tt$

Case AVI

Mmcontrol.DeviceType=AVIVideo

Case MOV

Mmcontrol.DeviceType=QtwVideo

Case MPG

Mmcontrol.DeviceType=MMaster reelmagic设备名

Case DAT

Mmcontrol.DeviceType=MMaster reelmagic设备名

Case CDI

Mmcontrol.DeviceType=MMaster reelmagic设备名

End Select

End Select

Mmcontrol.FileName=medianame

Mmcontrol.Wait=True

Mmcontrol.Command=Open 打开设备

Mmcontrol.Notify=True

Mmcontrol.command=play 演播

End Sub



作者：江华 陶菲
   
     
     


转自： 仅仅学术交流与学习之用,非商业之目的.