多媒体创作系统的设计与实现

统,其目的是便于用户高效地使用创作工具按某种构想,将图、文、声、像等媒体进行导演、创意及包装。
目前,多媒体创作工具种类越来越多,随着多媒体技术应用发展的深入,开发多媒体的技术将越来越先进、越科学、越方便、越有效。
本系统应用范围广,适用于需经常制作多媒体作品的教育、军事、旅游等部门。
以下是一个用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 Cas

e 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

《多媒体创作系统的设计与实现(第3页)》