VB6使用mciSendString录音 修改Samplespersec等参数无法播放的解决办法。

来自 http://www.rediware.com/programming/vb/vbrecwav/vbrecordwav.htm 的方法，经过修改简化

使用VB录音，修改音频参数：

RetLng = mciSendString("Set Wave Time Format ms", "", 0, 0)
RetLng = mciSendString("Set Wave Format tag pcm", "", 0, 0)
RetLng = mciSendString("Set Wave Channels 1", "", 0, 0)
RetLng = mciSendString("Set Wave Samplespersec 16000", "", 0, 0)
RetLng = mciSendString("Set Wave BitsperSample 8", "", 0, 0)

之后保存，发现wmp无法播放。原来是mcisendstring的bug所在。

这是mci保存的音频数据，可以发现，地址1C、1D、1E上的值 002B11 就是11025，是默认的参数。但是录音音频已经改变了。所以wmp无法识别。

现在来修改：

反向：003E80，就是前面设置的参数：16000*1*8/8，samplespersec*bitspersample*channels/8 。

这样就改好了。当然可以直接在vb里改：

Public Sub FixWaveFile()    '录音后的修正
    Dim IndexNum As Integer
    Dim Offset As Long
    Dim FileName As String

    IndexNum = FreeFile
    FileName = App.Path & "\GoogleASR.wav"
    Open FileName For Binary Access Write As #IndexNum

    Offset = 29
    Put #IndexNum, Offset, &H80
    Offset = 30
    Put #IndexNum, Offset, &H3E
    Offset = 31
    Put #IndexNum, Offset, &H0
    
    Close #1
End Sub

看一下，的确能播放了。

---------------------------------------

更新：其实修改后的wav还有错误，看一下文件大小，如果是奇数字节的，还要进一步修改，只需在文件末尾添加一个空字节，并将文件头的SIZE调整为 文件大小-8 就可以了。

#include <stdio.h>
#include <conio.h>

typedef unsigned char byte;

int main()
{
    long len;
    long a;
    FILE *fp = fopen("1.wav", "rb+");
    
    fseek(fp, 0, SEEK_END);
    len = ftell(fp);
    
    fseek(fp, 4, SEEK_SET);
    a = len - 7;
    fputc((byte)a, fp);
    fputc((byte(a>>8)),fp);
    
    fseek(fp, 0, SEEK_END);
    fputc(0, fp);
    fclose(fp);
    
    getch();
    return 0;
}

 经过测试，发现未修改文件大小的wav用flac.exe -8 --sample-rate=16000 1.wav显示error，而修改后的wav被正常转换。

-----------------------

还有一点要注意，Block Align也要修改成匹配的形式，大小为：bitspersample*channels/8。