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

在VB中用API实现多媒体

HTML文档下载 WORD文档下载 PDF文档下载
在VB中用API实现多媒体


秦嘉

  在VB中用API实现多媒体主要是调用Windows的mmsystem.dll库。以下为调用API的声明(这些代码放在程序的声明部分中):

1. '播放CD和AVI所需要的声明。
  Declare Function mciSendString Lib "MMSYSTEM"(ByVal lpstrCommand _
    as String,ByVal lpstrReturnStr as Any,ByVal 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
    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

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘