国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

顯示多媒體信息

2019-11-18 17:50:19
字體:
來源:轉載
供稿:網友
隨著多媒體技術的迅速發展,管理信息系統中不可避免地出現了表格、圖形、圖像、聲音、動畫等非結構化數據。非結構化數據和結構化數據(數值和字符)的存儲格式和存儲模式不同,需要多媒體數據庫來統一管理。
本文介紹了利用VisualBasic6.0來實現顯示或播放多媒體數據,所運用的進程調用等技術對于Windows環境下的其他編程應用也有重要的參考價值。
利用VB實現多媒體數據的顯示或播放,主要有以下四種方法:
1、利用進程調用方法
調用其他應用程序來實現對多媒體數據的顯示或播放。利用現有的工具軟件完成多媒體數據的操作,不需要自己開發。例如可以編程調用WinWord來顯示一篇文本文件,而要顯示一幅圖形,可以調用Windows中的畫筆(PBrush)來實現,程序如下:
PRivateSubCommand1-Click()
′本程序調用畫筆來顯示一幅圖形
DimstrTempAsString
DimstrFileNameAsString
DimintTempAsInteger
strFileName=″c:/windows/picture1.bmp″
′待顯示文件名
strTemp=″c:/windows/pbrush.exe″
′畫筆文件名
strTemp=strTemp&″″&strFileName
intTemp=Shell(strTemp,3)′進程調用函數
EndSub
2、利用OLE方法
OLE是兩個應用程序間交換信息的一種方法。對于OLE,用于交換信息的兩個應用程序分別稱為服務者和客戶。服務者是數據的提供者,客戶是數據的接受者,在VB中,OLE客戶控件作為數據的接受者。通過OLE方法顯示圖形的示例程序如下:
PrivateSubCommand2-Click()
′本程序用來通過OLE調用一幅圖形
OLE1.Class=″MSDRAW″
′確定嵌入的OLE對象的類名
OLE1.SourceDoc=″c:/windows/picture2.bmp″
′待顯示的文件名
OLE1.Action=0′OLE-CREATE-EMBED
OLE1.Verb=-3
′當OLE對象被激活時指定一種操作
OLE1.Action=7′OLE-ACTIVATE
OLE1.Enabled=False
′確定控件是否響應用戶產生的事件
EndSub
Class屬性用來確定服務者應用程序名及它所提供的數據類型;Verb用來確定對象被激活時的操作,值為-3表示對象被激活時隱藏生成該對象的應用程序;Enabled的值為True,允許對象響應事件,為False阻止對象響應事件。
3、利用VB提供的MCI控件
控件是VB提供的標準化的對象,VB為它提供了標準的事件處理函數或過程,用戶可在此基礎上編寫實際的事件處理程序來響應用戶的操作。VB提供的多媒體控件(MCI16.OCX),把很多API的函數轉化為簡單的屬性或事件,簡化了編程。例如要播放一段錄音,用VB實現如下:
PrivateSubCommand4-Click()
′本程序利用MCI16.OCX控件來播放聲音
MMControl1.DeviceType=″WaveAudio″
′設備類型
MMControl1.Wait=True
MMControl1.Shareable=False
MMControl1.FileName=″c:/access/songs/note.wav″
MMControl1.Command=″Open″
MMControl1.UpdateInterval=conInterval
′conInterval為不等于零的常量
EndSub
MMControl為控件名稱,DeviceType為設備類型。Windows為多種多媒體設備指定了設備類型,如Animation(動畫播放設備)、DAT(數碼錄音機)、Sequencer(MIDI音序器)、VCR(程控錄像機)等,只需修改DeviceType屬性,就可以實現對多種設備的驅動。
4、通過對相應設備直接編程
通過對相應外設直接編程控制可以實現更高級的多媒體顯示或播放操作,許多設備都提供了標準的函數或過程,另外Windows還提供了一百多個有關多媒體操作的函數,VB可以直接調用大多數函數或過程來實現多媒體的操作。例如MciSendString()函數,用來向MCI接口傳送MCI指令字符串;又如MciGetErrorString()函數,用來返回MCI錯誤代碼的含義。
用VB調用API函數必須先在全程模塊中作函數聲明,例如MciSendString()函數的聲明為:DeclareFunctionMciSendStringLib″MMSYSTEM.DLL″(ByValMciCommandasstring)asinteger。我們通過VB調用API函數實現了聲音的播放,限于篇幅文中程序從略。
以上所介紹的是筆者為一企業開發的MIS中對多媒體數據實現顯示或播放的幾種方法,實際應用中取得了較好的效果。->


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 阳西县| 三亚市| 达拉特旗| 天等县| 永城市| 新建县| 万全县| 曲麻莱县| 安宁市| 彩票| 繁昌县| 栾川县| 宜兴市| 柯坪县| 新宾| 德化县| 定襄县| 永德县| 韶关市| 延寿县| 泊头市| 老河口市| 赣榆县| 合阳县| 绥棱县| 禹州市| 观塘区| 平湖市| 乌拉特后旗| 锡林浩特市| 新余市| 荆州市| 三台县| 钟祥市| 平陆县| 会东县| 景宁| 龙南县| 仁怀市| 万宁市| 郸城县|