如何用API播放CD

页面导航:首页 > 软件编程 > vb.net > 如何用API播放CD

如何用API播放CD

来源: 作者: 时间:2016-02-05 12:32 【

How to play a CD Audio disc via API Declare the following APIDeclare Function mciSendString Lib "MMSYSTEM" (ByVal lpstrCommand$,ByVal lpstrReturnStr As Any, ByVal wRetu

 

How to play a CD Audio disc via API

Declare the following API

Declare Function mciSendString& Lib "MMSYSTEM" (ByVal lpstrCommand$,

ByVal lpstrReturnStr As Any, ByVal wReturnLen%, ByVal hCallBack%)

 

Add the code below to appropriate routines

 

Sub cmdPlay_Click ()

Dim lRet As Long

Dim nCurrentTrack As Integer

 

Open the device

lRet = mciSendString("open cdaudio alias cd wait", 0&, 0, 0)

 

Set the time format to Tracks (default is milliseconds)

lRet = mciSendString("set cd time format tmsf", 0&, 0, 0)

 

Then to play from the beginning

lRet = mciSendString("play cd", 0&, 0, 0)

 

Or to play from a specific track, say track 4

nCurrentTrack = 4

lRet = mciSendString("play cd from" & Str(nCurrentTrack), 0&, 0, 0)

 

End Sub

 

 

Remember to Close the device when ending playback

 

Sub cmdStop_Click ()

Dim lRet As Long

 

Stop the playback

lRet = mciSendString("stop cd wait", 0&, 0, 0)

 

DoEvents  Let Windows process the event

 

Close the device

lRet = mciSendString("close cd", 0&, 0, 0)

 

End Sub

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <