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

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

上一页  [1] [2] [3]