易语言边录边放源码

系统结构:子程序_录音,子程序_回调函数,回放,子程序_停止录音,打开声音输入设备_,预备声音输入缓冲区_,清除预备声音文件头_,增加声音输入设备缓冲区_,开始录音_,停止录音_,关闭声音输入设备_,取内存变量地址_,取声音输入设备性能_,取声音出错信息文本_,取声音输入设备ID_,取声音输入设备数量_,停止声音输入_,

======窗口程序集_启动窗口
           |  |
           |  |------ _按钮_录音_被单击
           |  |
           |  |------ 子程序_录音
           |  |
           |  |------ 子程序_回调函数
           |  |
           |  |------ 回放
           |  |
           |  |------ _按钮_停止录音_被单击
           |  |
           |  |------ 子程序_停止录音
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   打开声音输入设备_
           |  |
           |  |---[dll]------   预备声音输入缓冲区_
           |  |
           |  |---[dll]------   清除预备声音文件头_
           |  |
           |  |---[dll]------   增加声音输入设备缓冲区_
           |  |
           |  |---[dll]------   开始录音_
           |  |
           |  |---[dll]------   停止录音_
           |  |
           |  |---[dll]------   关闭声音输入设备_
           |  |
           |  |---[dll]------   取内存变量地址_
           |  |
           |  |---[dll]------   取声音输入设备性能_
           |  |
           |  |---[dll]------   取声音出错信息文本_
           |  |
           |  |---[dll]------   取声音输入设备ID_
           |  |
           |  |---[dll]------   取声音输入设备数量_
           |  |
           |  |---[dll]------   停止声音输入_

调用的DLL命令:

.DLL命令 打开声音输入设备_, 整数型, "winmm.dll", "waveInOpen"
    .参数 波形设备句柄, 整数型, 传址, lphWaveIn，返回打开波形设备的句柄
    .参数 输入设备ID, 整数型, , uDeviceID，输入设备ID
    .参数 录音格式指针, 波形数据格式_, , lpFormat，录音格式指针
    .参数 回调函数, 子程序指针, , dwCallbac，处理MM_WIM_***消息的回调函数或窗口句柄或线程ID
    .参数 实例句柄, 整数型, , dwInstance
    .参数 标志, 整数型, , dwFlags，处理消息方式的符号位

.DLL命令 预备声音输入缓冲区_, 逻辑型, "winmm.dll", "waveInPrepareHeader"
    .参数 波形设备句柄, 整数型, , hWaveIn
    .参数 声音输入设备头结构, 波形数据块_, , lpWaveInHdr
    .参数 结构长度, 整数型, , uSize

.DLL命令 清除预备声音文件头_, 整数型, "winmm.dll", "waveInUnprepareHeader"
    .参数 波形设备句柄, 整数型, , hWaveIn
    .参数 声音输入设备头结构, 波形数据块_, , lpWaveInHdr
    .参数 结构长度, 整数型, , uSize

.DLL命令 增加声音输入设备缓冲区_, 逻辑型, "winmm.dll", "waveInAddBuffer"
    .参数 波形设备句柄, 整数型, , hWaveIn
    .参数 声音输入设备头结构, 波形数据块_, , lpWaveInHdr
    .参数 结构长度, 整数型, , uSize

.DLL命令 开始录音_, 逻辑型, "winmm.dll", "waveInStart"
    .参数 波形设备句柄, 整数型, , hWaveIn

.DLL命令 停止录音_, 整数型, "winmm.dll", "waveInReset"
    .参数 波形设备句柄, 整数型, , hWaveIn

.DLL命令 关闭声音输入设备_, 整数型, "winmm.dll", "waveInClose"
    .参数 波形设备句柄, 整数型, , hWaveIn

.DLL命令 取内存变量地址_, 整数型, "kernel32.dll", "lstrcpyn"
    .参数 数据1, 字节型, 传址, lpString1
    .参数 数据2, 字节型, 传址, lpString2
    .参数 数据长度, 整数型, , iMaxLength

.DLL命令 取声音输入设备性能_, 整数型, "winmm.dll", "waveInGetDevCapsA", , 获取声音输入设备性能
    .参数 设备ID, 整数型, , uDeviceID
    .参数 设备性能信息结构, 波形输入设备性能_, 传址, lpCaps
    .参数 结构长度, 整数型, , uSize

.DLL命令 取声音出错信息文本_, 整数型, "winmm.dll", "waveInGetErrorTextA", , 获取声音出错的信息文本
    .参数 错误代码, 整数型, , err
    .参数 缓冲区, 文本型, , lpText
    .参数 缓冲区大小, 整数型, , uSize

.DLL命令 取声音输入设备ID_, 整数型, "winmm.dll", "waveInGetID"
    .参数 波形设备句柄, 整数型, , hWaveIn
    .参数 设备ID, 整数型, 传址, lpuDeviceID

.DLL命令 取声音输入设备数量_, 整数型, "winmm.dll", "waveInGetNumDevs", , 返回声音输入设备数量

.DLL命令 停止声音输入_, 整数型, "winmm.dll", "waveInStop", , 停止声音输入
    .参数 波形设备句柄, 整数型, , hWaveIn