说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

显示多媒体信息 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
显示多媒体信息 -VB资料

随着多媒体技术的迅速发展,管理信息系统中不可避免地出现了表格、图形、图像、声音、动画等非结构化数据。非结构化数据和结构化数据(数值和字符)的存储格式和存储模式不同,需要多媒体数据库来统一管理。
本文介绍了利用Visual Basic 6.0来实现显示或播放多媒体数据,所运用的进程调用等技术对于Windows环境下的其他编程应用也有重要的参考价值。
利用VB实现多媒体数据的显示或播放,主要有以下四种方法:
1、利用进程调用方法
调用其他应用程序来实现对多媒体数据的显示或播放。利用现有的工具软件完成多媒体数据的操作,不需要自己开发。例如可以编程调用WinWord 来显示一篇文本文件,而要显示一幅图形,可以调用Windows 中的画笔(PBrush)来实现,程序如下:
Private Sub Command1-Click()
′本程序调用画笔来显示一幅图形
Dim strTemp As String
Dim strFileName As String
Dim intTemp As Integer
strFileName =″c:\windows\picture1.bmp″
′待显示文件名
strTemp = ″c:\windows\pbrush.exe″
′画笔文件名
strTemp = strTemp & ″ ″ & strFileName
intTemp = Shell(strTemp, 3)′进程调用函数
End Sub
2、利用OLE方法
OLE是两个应用程序间交换信息的一种方法。对于OLE,用于交换信息的两个应用程序分别称为服务者和客户。服务者是数据的提供者,客户是数据的接受者,在VB中,OLE客户控件作为数据的接受者。通过OLE方法显示图形的示例程序如下:
Private Sub Command2-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
′确定控件是否响应用户产生的事件
End Sub
Class属性用来确定服务者应用程序名及它所提供的数据类型;Verb用来确定对象被激活时的操作,值为-3表示对象被激活时隐藏生成该对象的应用程序;Enabled的值为True,允许对象响应事件,为False 阻止对象响应事件。
3、利用VB提供的MCI控件
控件是VB提供的标准化的对象,VB为它提供了标准的事件处理函数或过程,用户可在此基础上编写实际的事件处理程序来响应用户的操作。VB提供的多媒体控件(MCI16.OCX),把很多API的函数转化为简单的属性或事件,简化了编程。例如要播放一段录音,用VB实现如下:
Private Sub Command4-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 为不等于零的常量
End Sub
MMControl为控件名称,DeviceType为设备类型。Windows 为多种多媒体设备指定了设备类型,如Animation(动画播放设备)、DAT(数码录音机)、Sequencer(MIDI音序器)、VCR(程控录像机)等,只需修改DeviceType属性,就可以实现对多种设备的驱动。
4、通过对相应设备直接编程
通过对相应外设直接编程控制可以实现更高级的多媒体显示或播放操作,许多设备都提供了标准的函数或过程,另外Windows还提供了一百多个有关多媒体操作的函数,VB可以直接调用大多数函数或过程来实现多媒体的操作。例如MciSendString()函数,用来向MCI接口传送MCI指令字符串;又如MciGetErrorString()函数,用来返回MCI错误代码的含义。
用VB调用API函数必须先在全程模块中作函数声明,例如MciSendString()函数的声明为:Declare Function MciSendString Lib ″ MMSYSTEM.DLL″(ByVal MciCommand as string)as integer。我们通过VB调用API函数实现了声音的播放,限于篇幅文中程序从略。
国外安全产品再遭信任危机 安全产品国产化步伐加快 最终幻想XIV的重生--SQUARE ENIX《最终幻想14》制作人吉田直树介绍 如何打造百万级自然增长的微信HTML5应用 听邵海杨聊聊1000+台服务器背后的故事 借助Facebook、Twitter等社交平台API打造超炫酷的那些应用 Unity中Shader的开发运用实战详解,开放报名! 我从独立游戏开发学到的6件事儿 果断Mark!Searchcode——源代码搜索利器 《近匠》图灵机器人:App和移动硬件的智慧大脑 极路由发布HiWiFi OS及应用开放平台 Loom SDK框架:命令行快速开发跨平台2D游戏 安全管家Q2移动安全数据报告:窃取隐私最多 Project Adam vs. Artificial Brain,微软与谷歌角力人工智能 “微信公众平台优秀开发商”征集评选活动正式启动 移动数据库新疆界:开源、Swift、可穿戴... Chromebook侵蚀微软商用PC市场,成绩喜人 2014微信开发者大会议程公布 8月1日前购票8折优惠并赠书 四火的唠叨:也谈谈全栈工程师 图形化与集成趋势 协同软件致远发新品V5.1 跨平台开发如何事半功倍 Xamarin推出免费培训 《近匠》上海庆科:海尔智能家居背后的云方案 轻松DIY智能硬件,开源电子原型平台Hippo-ADK 所见即所得!基于Polymer的设计工具Mobile UI Elements 好的产品经理是怎样炼成的? 统一架构、统一运维:UnitedStack发布UOS2.0 把轻应用带进汽车——宝马、百度编程马拉松大赛启动 “钢铁侠”Insteon的逆袭:声控智能家居新时代 游戏云纪元 第二届游戏运营技术论坛即将召开 Bitly:构建月处理60亿点击的分布式系统 重塑微软:Satya Nadella开启整合之路 推送工具个推完成B轮数千万美金融资 求助,在IE中无法打开word文件!!!急!!!! 高手帮我!!! 在WINDOWS的标准TREEVIEW中点右键如何得到点击的坐标? 如何把oracle中的数据结构导入access中去? 请问odbc方式和OLEDB方式有什么区别? 100询问:修改boot.ini仍无法实现双重启动. websphere的问题(1)? 我是第一次使用域.为什么无法在域控制器里增加用户?help me! 求助:模板的连接问题 strust 请问:哪里有人民邮电出版社的《个体软件工程》下载 ?(有分送) 存储过程执行出错,请帮忙看看!急! 请问:在sybase中的设备大小的设定,有没有一个标准?? include问题,屡试屡败 请问怎么才能用最简单的方法把程序做成服务? 程序设计文档怎么写啊?求教 不好意思,一个简单的问题 websphere的问题(2)? 请问如何实现模式窗口,就是当打开子窗口主窗口不能操作,除非关闭子窗口,如果有这样的网页也行 关于清华出版社出版的“微软.NET程序设计系列”之《ADO.NET程序设计》的问题,大家来讨论一下 如何用程序实现光驱的弹入弹出? 在线等了,各位帮忙了!! 我运行了一个网络管理软件出现乱码?而别的程序都没有乱码? 对话框上面显示视图,怎么办? 一道四级题有一点不明白的地方,谢谢各位高手帮我解决一下困惑。。 websphere的问题? 在一个对话框CDialog类中访问窗体视图类CFormView中的函数发生错误? 有关简繁体转换的问题 怎么分离这个字符串 aa|bb|cc|dd| ASP连接Oracle9i的连接字符串是什么? 请教:EXCEL中使用VB进行串口编 websphere的问题(4)? 如何在自己写的类的属性、方法在被使用的时候显示一些相关信息? 高分:大侠们,帮我看一下这个设计思路对吗?(在线等待!) 初级问题:请问用ASP开发BS结构程序,应该选什么工具啊 请教各位pb的可执行程序的分发 我运行了一个网络管理软件时 这个软件显示的信息是乱码?而别的程序都没有乱码? 多谢awpking ,请进给你洒分. asp里调ActiveX控件,客户端却不能用,请帮助解决,100分相送。 如何让两个网段的电脑互相访问 在线等!打开文档的问题! HtmlHelp用法问题。急急!!1 只有在这问,关于笔记本网卡的驱动程序 我运行了一个网络管理软件时 这个软件显示的信息是乱码?而别的程序都没有乱码? 菜鸟的问题,大虾解决 本地安全策略打不开,怎么解决? 高分求教,如何让asp.net生成的网页转为pdf输出,在线等待 求救:用JMail发送邮件,用IIS的SMTP虚拟服务器,邮件都堵在Queue目录里发不出去 时间问题 在线等待 !!!没分啦!以后报答!! 为何执行int n=str.GetLength()后,n为0??? 尾闾中正是指什么穴与什么穴在一条直线上? 尾闾穴的具体位置 图形显示 crayon ruler rubber pencil case这些单词怎crayon ruler rubber pencil case这些单词怎么读 昨天在街上听到一首比较劲爆的英文歌,节奏感超强,速度也不是很快,女的唱的,高潮中有句有个单词rubber是rub····也可能是ru···(也可能是其他单词,本人英文听力水平不佳)高潮部分反复 socks、bag、book、crayons、luler、rubber造句(一个单词一句) 一个竖左边加一个横底下加一个又念什么 This may not be allowed in a future release.这是matlab程序中出现的warning , at the early stage s____ of our life,it is impossible to know what we will be in the future.中间的空是什么 2010广州亚运会奥林匹克体育场可容纳观众多少人?占地面积呢?地球绕太阳运行()千米.还有:数不仅可以用来表示()和(),还可以用来().()是我国的邮政代号,是有()位数字构成的 蜈蚣不是昆虫吗?昆虫是什么定义呢?脚多就不是昆虫了吗?蜈蚣是多足纲动物,为什么这个纲的动物不属于昆虫呢? 高考45分左右的作文怎么写!要做到哪些要求?本人习惯写议论文,不会写记叙文(没优美的语言表达能力)求达人指点,只求45分左右的议论文该怎么写,要做到哪些要求?满分60 外交部:日本领导人有关言论表明日本政李源潮同南非副总统莫特兰蒂举行会谈地方金融机构应做大还是做小?省政协经美国安局30天内收集西班牙6050万中储粮:发现两企业违规将进口油菜籽掺贵州遵义市委书记廖少华涉嫌严重违纪违韩国陆军前方哨所一士兵中枪身亡 军方尼日利亚叛军袭击军队 医院收到35具突尼斯政治纷争致市政荒废 街头成“垃韩国陆军前方哨所一士兵中枪身亡 军方省委通报省级班子专题民主生活会情况上海清算所推出人民币铁矿石、动力煤掉最高检对江西省原副省长姚木根立案侦查关于印发《深入开展贯彻执行中央八项规月租2000元以下的房子吃香美媒:中国认定美国不会出手 逼邻国对人贵自知喝尿喝风油精能治病?太扯了!婆媳情不要再让幽灵管线危害台湾人民生命安全民众热议新疆重奖围捕暴徒群众:正义应哈里王子自称很孤单 两度被甩羡慕哥哥职场宝典之笑三国水色卿心喜儿惑老房有鬼光明腐朽星河劫网游之毒一无二法师领主武技欲苍穹之都市修神爱的眼泪在飞凶兽称神成吉思汗陵旅游赛汗塔拉生态园旅游应县木塔旅游凉城岱海旅游响沙湾旅游环岛路旅游洪坑民俗文化村旅游高雄之眼旅游梦时代中心旅游东海岸旅游东门旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘