API录制保存wav音频文件的方法

游乐缘

yang央 发表于 2022-1-13 19:03
貌似mciSendString这个API的功能非常多且异常复杂,不止是你提到的录制WAV....望楼主有时间总结一下这个函 ...

解决这个问题的时候也发现了，MCI(Media Control Interface，媒体控制接口)函数中，有些只适用于一种接口方式，有些则两种接口都可以用。mciSendString只适用于命令串接口方式（命令串中不区分大小写）。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. (这个mciSendString函数发送一个指令字符串到一个MCI设备, 指令发送的设备在这个指令字符串中被指定.)
百度百科 mciSendString

游乐缘

lilyhcn1 发表于 2022-1-13 19:26
发现录音失败，算了，不研究这个了。
两台电脑都没录音设备

是因为是64位office吗？有没有错误提示的截图？

lilyhcn1

多个录音设备的原因吧，没提示

游乐缘

lilyhcn1 发表于 2022-1-13 19:39
多个录音设备的原因吧，没提示

哦哦，多设备可能需要指定设备才行，有待研究

lilyhcn1

做成基础类被人调用有意义，做功能完全会被的别的软件秒杀

游乐缘

lilyhcn1 发表于 2022-1-13 20:15
做成基础类被人调用有意义，做功能完全会被的别的软件秒杀

举个例子来说呢？

lilyhcn1

我想做一个录音+识别的集成软件，那录音就是基础类，必须要有可以录音，适用性强。
下列是已有录音的识别过程，如果可以录音，那就可以录完直接识别了，可能会有一些有意思的应用出现。这里识别过程是用百度的接口，我懒得自己写接口，excel调用了python来实现的接口。

至于语音软件，真是多如牛毛，我就不列举了。

游乐缘

lilyhcn1 发表于 2022-1-13 21:50
我想做一个录音+识别的集成软件，那录音就是基础类，必须要有可以录音，适用性强。
下列是已有录音的识别 ...

佩服佩服！值得学习！

morpheus126

神仙打架，只能观望

游乐缘

分享：API播放本地wav音频功能今后音频相关的API分享都放在这一个帖子里，欢迎大家加入讨论！
本功能可以用于VBA程序开始及结束时播放系统提示音，不仅限于Msgbox文字提醒用户。
主要方法：兼容64位及32位的API函数sndPlaySound，程序PlayTheSound

1. Option Explicit
   
2. #If VBA7 Then
   
3.     Public Declare PtrSafe Function sndPlaySound Lib "winmm.dll" _
   
4.         Alias "sndPlaySoundA" ( _
   
5.         ByVal lpszSoundName As String, _
   
6.         ByVal uFlags As Long) As Long
   
7. #Else
   
8.     Public Declare Function sndPlaySound Lib "winmm.dll" _
   
9.         Alias "sndPlaySoundA" ( _
   
10.         ByVal lpszSoundName As String, _
    
11.         ByVal uFlags As Long) As Long
    
12. #End If
    
13. 
    
14. Public Sub PlayTheSound(ByVal WhatSound As String, Optional Flags As Long = 0)
    
15.     If InStr(1, WhatSound, ".") = 0 Then
    
16.         WhatSound = WhatSound & ".wav"
    
17.     End If
    
18.     If Dir(WhatSound) = vbNullString Then
    
19.         MsgBox "Wav file not found."
    
20.         Exit Sub
    
21.     End If
    
22.     sndPlaySound WhatSound, Flags
    
23. End Sub

复制代码

下面的代码可以列出系统自带的wav文件名称及路径：

1. Sub ListSystemWavFiles()
   
2.     Dim FSO As Object, fsoFolder As Object, fsoFile As Object
   
3.     Dim i As Long
   
4.    
   
5.     Set FSO = CreateObject("Scripting.FileSystemObject")
   
6.     Set fsoFolder = FSO.GetFolder(Environ("SystemRoot") & "\Media")
   
7.     i = 1
   
8.     For Each fsoFile In fsoFolder.Files
   
9.         If InStr(fsoFile.Name, "wav") Then
   
10.             i = i + 1
    
11.             Cells(i, 1) = fsoFile.Name
    
12.             Cells(i, 2) = fsoFile.Path
    
13.         End If
    
14.     Next fsoFile
    
15. End Sub

复制代码

wav文件效果图：

示例及附件，供参考：

1. Sub test()
   
2.     PlayTheSound "C:\Windows\media\Alarm04.wav"
   
3. '    PlayTheSound Range("B5")
   
4. '    PlayTheSound ActiveCell.Text
   
5.     '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   
6.     '运行指定程序
   
7.     '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   
8. End Sub

复制代码