易语言实时音频采集源码

系统结构:录音处理,放音处理,取字节集地址,取录音设备数量,打开录音设备,准备录音缓冲区,释放录音缓冲区,将缓冲区加入队列,开始录音,停止录音,关闭录音设备,GetDC,SetPixelV,取放音设备数,打开放音设备,关闭放音设备,写入声音输出设备,暂停声音回放,重开始声音回放,停止声音回放,准备缓冲,清除缓冲,增加缓冲,发送消息,RtlMoveMemory,

======窗口程序集1
           |  |
           |  |------ _按钮_开始_被单击
           |  |
           |  |------ 录音处理
           |  |
           |  |------ 放音处理
           |  |
           |  |------ _按钮_停止_被单击
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ 取字节集地址
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取录音设备数量
           |  |
           |  |---[dll]------   打开录音设备
           |  |
           |  |---[dll]------   准备录音缓冲区
           |  |
           |  |---[dll]------   释放录音缓冲区
           |  |
           |  |---[dll]------   将缓冲区加入队列
           |  |
           |  |---[dll]------   开始录音
           |  |
           |  |---[dll]------   停止录音
           |  |
           |  |---[dll]------   关闭录音设备
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   SetPixelV
           |  |
           |  |---[dll]------   取放音设备数
           |  |
           |  |---[dll]------   打开放音设备
           |  |
           |  |---[dll]------   关闭放音设备
           |  |
           |  |---[dll]------   写入声音输出设备
           |  |
           |  |---[dll]------   暂停声音回放
           |  |
           |  |---[dll]------   重开始声音回放
           |  |
           |  |---[dll]------   停止声音回放
           |  |
           |  |---[dll]------   准备缓冲
           |  |
           |  |---[dll]------   清除缓冲
           |  |
           |  |---[dll]------   增加缓冲
           |  |
           |  |---[dll]------   发送消息
           |  |
           |  |---[dll]------   RtlMoveMemory

调用的DLL命令:

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

.DLL命令 打开录音设备, 整数型, "winmm.dll", "waveInOpen"
    .参数 lphWaveIn, 整数型, 传址, 返回打开波形设备的句柄
    .参数 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命令 GetDC, 整数型, , "GetDC"
    .参数 A, 整数型

.DLL命令 SetPixelV, 整数型, , "SetPixelV"
    .参数 hdc, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 crColor, 整数型

.DLL命令 取放音设备数, 整数型, "winmm.dll", "waveOutGetNumDevs", , 取放音设备数

.DLL命令 打开放音设备, 整数型, "winmm.dll", "waveOutOpen"
    .参数 lphWaveIn, 整数型, 传址, lphwi 指向一个变量，用来返回声音回放设备句柄 
    .参数 uDeviceID, 整数型, , dwDeviceID 输入设备ID。一般为 WAVE_MAPPER ，让系统则会自动寻找合适设备 
    .参数 lpFormat, 播录音格式, , lpwfx 指向一个 WAVEFORMATEX 结构，使用前要先行填冲 
    .参数 dwCallbac, 整数型, , dwCallback 处理MM_***消息的回调函数或窗口句柄 
    .参数 dwInstance, 整数型, , dwCallbackInstance 传递给回调函数的数据，以回调函数的参数方式传递。注意：若回调方式为窗口方式，该项不适用。 
    .参数 dwFlags, 整数型, , fdwOpen 处理消息方式，可以是下列值，但通常为 CALLBACK_NULL(0) :CALLBACK_NULL 不使用回调函数，dwCallback 无效 ;CALLBACK_EVENT dwCallback 是事件句柄 ;CALLBACK_FUNCTION 以函数调用的方式处理响应录音过程中的消息 ;CALLBACK_THREAD dwCallback 是线程标识符 ;CALLBACK_WINDOW dwCallback 是窗口句柄 ;WAVE_FORMAT_DIRECTWAVE_FORMAT_QUERY 判断设备是否支持给定的格式, 并不打开 ;WAVE_MAPPED

.DLL命令 关闭放音设备, 整数型, "winmm.dll", "waveOutClose", , 关闭播音句柄 MMSYSERR_NOERROR（0） 表示成功，否则返回详细的出错代码;MMSYSERR_INVALHANDLE = 2 设备句柄无效 ;MMSYSERR_NODRIVER = 6 ;没有安装驱动程序 MMSYSERR_NOMEM = 7 不能分配或锁定内存 
    .参数 hWaveIn, 整数型

.DLL命令 写入声音输出设备, 整数型, "winmm.dll", "waveOutWrite"
    .参数 hWaveOut, 整数型, , hwi 输出设备句柄 
    .参数 lpWaveOutHdr, 波形数据块, , lpwh 指向一个 WAVEHDR 结构，使用前要先行填冲 
    .参数 uSize, 整数型, , dwwh 结构大小 

.DLL命令 暂停声音回放, 整数型, "winmm.dll", "waveOutPause"
    .参数 hWaveOut, 整数型

.DLL命令 重开始声音回放, 整数型, "winmm.dll", "waveOutRestart"
    .参数 hWaveOut, 整数型

.DLL命令 停止声音回放, 整数型, "winmm.dll", "waveOutReset"
    .参数 hWaveOut, 整数型

.DLL命令 准备缓冲, 整数型, "winmm.dll", "waveOutPrepareHeader"
    .参数 hWaveIn, 整数型, , hwi 输出设备句柄 
    .参数 lpWaveInHdr, 波形数据块, , lpwh 指向一个 WAVEHDR 结构，使用前要结构中的lpData指向的缓冲区必须含有数据 
    .参数 uSize, 整数型, , dwwh 结构大小 

.DLL命令 清除缓冲, 整数型, "winmm.dll", "waveOutUnprepareHeader"
    .参数 hWaveIn, 整数型, , hwi 输入设备句柄 
    .参数 lpWaveInHdr, 波形数据块, , lpwh 指向一个 WAVEHDR 结构，使用前要先行填冲 
    .参数 uSize, 整数型, , dwwh 结构大小 

.DLL命令 增加缓冲, 整数型, "winmm.dll", "waveInAddBuffer"
    .参数 hWaveIn, 整数型
    .参数 lpWaveInHdr, 波形数据块
    .参数 uSize, 整数型

.DLL命令 发送消息, , "winmm.dll", "waveOutMessage"
    .参数 hWaveIn, 整数型
    .参数 msg, 整数型
    .参数 dw1, 整数型
    .参数 dw2, 整数型

.DLL命令 RtlMoveMemory, , "kernel32.dll", "RtlMoveMemory", 公开
    .参数 目标数据, 整数型
    .参数 原数据, 整数型
    .参数 尺寸, 整数型