在VB中用API实现多媒体

原创 2002年02月08日 16:27:00
在VB中用API实现多媒体主要是调用Windows的mmsystem.dll库。以下为调用API的声明(这些代码放在程序的声明部分中):
1.′播放CD和AVI所需要的声明。
  Declare Function mciSendString Lib ″MMSYSTEM″(ByVal lpstrCommand as String,ByVal lpstrReturnStr as Any,By Val wRetumLen as Integer,ByVal hCallBack as Integer) as Long
  ′播放WAV所需要的声明
  Declare Function sndPlaySound Lib ″MMSYSTEM.DLL″(ByVal lpszSoundName as String,ByVal wF1ags as Integer) as Integer
  ′检测声卡所需要的声明
  Declare Function auxGetNaumDevs Lib ″MMSYSTEM″()as Integer
  ′所用到的全局变量声明
  Global Const SND_SYNC=&H0000   ′播放WAV用到的全局变量
  Global Const SND_ASYNC=&-H0001 ′播放WAV用到的全局变量
  Global Const SND_NODEFAULT=&H0002 ′播放WAV用到的全局变量
  Global Const SND_LOOP=&H0008 ′播放WAV用到的全局变量
  Global Const SND_NOSTOP=&-H0010 ′播放WAV用到的全局变量
  ′接下来是调用这些声明
  Function auxTest()as Boolean
  Dim i As Integer
  i=auxGetNumDevs()
  If i>0 Then
  AuxTest=True ′如果有声卡则返回真
  Exit Function
  Else
  AuxTest=False ′如果未检测到声卡则返回假
  Exit Function
  Else
  AuxTest=False ′如果未检测到声卡则返回假
  Exit Function
  End If
  End Function
2.播放CD的源代码
  Sub PlayCD(b As Integer)
  ′ b为所播的音轨号
  Dim a As Long
  a=mciSendString(″open cdaudio alias cd wait″,0&,0,0) '初始化驱动
  a=mciSendString(″set cd time format tmsf″,0&,0,0)
  a=mciSendString(″play cd from″& Str(b),0&,00) ′播放音轨
  End Sub
3.播放AVI的源代码
  Sub playAVI(AVIFile As String)
  Dim RVal as Long
  AVIFile=″play″+AVIFile+″fullscreen″ ′全屏幕播放AVI文件
  RVal=mciSendString(AVIFile,0&,0,0&)
  End Sub
4.播放WAV的源代码
  Sub playWAV(WAVFile As String)
  Dim Flag as Integer
  Dim a as Integer
  wFlag=SND_ASYNC or SND_NODEFAULT
  a=sndPlaySound(WAVFile,Flag)
  End Sub
  以上程序是我在调用多媒体时所常用的模块,你只需将上面的模块在程序中直接调用即

用WINSOCK API实现同步阻塞方式的网络通讯

在VB中进行网络通讯时,一般都爱使用Winsock控件,但此控件有两点缺点,一是需要一个窗口(当然也可以修改vbp文件,实现无窗口加载Winsock控件),二是通讯方式为异步非阻塞的,对于某些基于应答...
  • lyserver
  • lyserver
  • 2009年11月15日 15:05
  • 2983

VB中用API实现字体公用对话框例子

Private Const LF_FACESIZE = 32Private Const CF_PRINTERFONTS = &H2Private Const CF_SCREENFONTS = &H1P...
  • wanghome
  • wanghome
  • 2004年10月26日 14:34
  • 973

在VB中利用API进行串口通信

一般来说,在VB中编写串口通讯程序,首先考虑到是使用MSComm控件,可是该控件不能设置超时,而且对许多内部的参数进行了隐藏,从而不能满足有些具体的工作。而使用API进行串口通信,大多是使用VC,很少...
  • lyserver
  • lyserver
  • 2009年05月06日 05:54
  • 11174

html5多媒体组件API

html5多媒体组件指的是video(视频)组件和audio(音频)组件。HTML5多媒体组件可以在不借助诸如Flash Player等第三方插件的情况下,直接在你的网页上嵌入多媒体组件。浏览器提供原...
  • vinifoxmailcom
  • vinifoxmailcom
  • 2015年09月24日 10:54
  • 582

用VB+API实现网页下载和数据提交功能。

其实如果是单纯的下载网页,代码可以更简单,但俺这段代码不仅可以下载WEB页面,同时还可以向WEB页传递参数,完全可以替换XMLHTTP的GET功能,俺本来还想加上POST功能的,后来项目中不需要,所以...
  • lyserver
  • lyserver
  • 2008年12月26日 00:31
  • 2345

Windows多媒体API

Windows提供了一大堆多媒体(图形图像、音频视频)相关的API,包括文件格式、编码解码、捕获显示等等 值得一提的是Windows MultiMedia以及Direct*。Windows Multi...
  • shuitu
  • shuitu
  • 2009年12月16日 09:12
  • 994

VB调用API函数

API函数快速入门--怎样在VB中声明和使用API函数--       一、在VB中声明API函数有两种方法:如果我们只在某个窗体中使用API函数,我们可以在窗体代码的 General部分声明它: ...
  • lunkay
  • lunkay
  • 2016年01月13日 20:17
  • 4832

在vb中利用api函数代替picture控件画图总结

首先要明白一点的是用picture自带的属性来画图,效率非常低,而且速度比较慢,但是用api函数来作图就没有这个问题,后者的速度要比前者的速度快的多!在使用的过程中发现如下问题: 1.设置 pictu...
  • Joe_wang
  • Joe_wang
  • 2009年07月25日 16:54
  • 2721

Html5多媒体相关的API---video

在HTML5中,新增了两个元素---video元素与audio元素,其中video元素专门用来播放网络上的视频或电影,而audio元素专门用来播放网络上的音频数据。 我们先来看看video元素的...
  • gebitan505
  • gebitan505
  • 2017年02月13日 10:35
  • 514

在VB的类模块中使用定时器

长久以来,由于不能直接获得VB类成员函数指针,因为无法在VB的类模块中直接使用定时器控件或定时器API,基于俺编写的获得类成员函数指针的函数,俺编写了这个带定时器功能的类,希望给朋友们一些启发。   ...
  • lyserver
  • lyserver
  • 2009年05月31日 23:31
  • 4636
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在VB中用API实现多媒体
举报原因:
原因补充:

(最多只允许输入30个字)