mciSendString具体怎么用啊，有四个参数，不明白都是做什么的，为什么我下载了一个程序录不上音？？

Question

i = mciSendString("record capture", rtn, Len(rtn), 0)  'Start the recording？？
i = mciSendString("play midi", rtn, Len(rtn), 0)？？等一系列的都不明白
谁有录音的源码给一份啊
[email protected]

Answer 1

Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Command1_Click()
   '录音
   Dim cmd As String
   Dim LP As Long
   cmd = "open new  type WAVEAudio alias MyWav2"
   Call mciSendString(cmd, 0, 0, 0)
   Call mciSendString("record MyWav2", 0, 0, 0)
End Sub
Private Sub Command2_Click()
  '停止录音
  Call mciSendString("stop MyWav2 ", 0, 0, 0)
End Sub
Private Sub Command3_Click()
   '保存录音
   Call mciSendString("save MyWav2  D:\123.wav", 0, 0, 0)
End Sub
Private Sub Command4_Click()
   '播放刚才的录音
   Call mciSendString("open D:\123.wav type WAVEAudio alias MyWav1", 0, 0, 0)
   Call mciSendString("play MyWav1", 0, 0, 0)
End Sub
Private Sub Command5_Click()
   '暂停播放
   Call mciSendString("pause MyWav1", 0, 0, 0)
End Sub
Private Sub Command6_Click()
   '继续播放
   Call mciSendString("play MyWav1", 0, 0, 0)
End Sub
Private Sub Command7_Click()
   '停止播放
   Call mciSendString("stop MyWav1", 0, 0, 0)
End Sub
Private Sub Command8_Click()
   '关闭设备
   Call mciSendString("close all", 0, 0, 0)
End Sub我有一本多媒体编程的电子书，楼主你要不要？

Answer 2

The mciSendString function sends a command string to an MCI device. The device that the command is sent to is specified in the command string.

Answer 3

to  lyj0558(I_am_me!) 
您好，请问是否可以把你的那本书传给我看一下。
我现在正被一个问题所困：怎么得到USB摄像头的定格钮按下的信息？
还望能帮我解决此事，谢谢

Answer 4

可以也传一份给我吗？我现在也急需这方面的资料...
[email protected]