.版本 2 .支持库 eMMedia .支持库 spec .支持库 dp1 .程序集 窗口程序集_启动窗口, , , ' 本源码来自三叶资源网(www.sanye.cx) .子程序 __启动窗口_创建完毕, , , 溪冉：2682242632 录音1.激活 () .子程序 _按钮_录制音频_鼠标左键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 录音1.录制 () 延时 (50) 按钮_录制音频.标题 ＝ “正在录制音频...” ' 本源码来自三叶资源网(www.sanye.cx) .子程序 _按钮_录制音频_鼠标左键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 .局部变量 音频数据, 字节集 .局部变量 Appid, 文本型 .局部变量 apiKey, 文本型 .局部变量 CurTime, 文本型 .局部变量 Param, 文本型 .局部变量 CheckSum, 文本型 .局部变量 audio, 文本型 .局部变量 http, WinHttpW Appid ＝ “**********” apiKey ＝ “******************************” ' 填写自己申请的appid和apikey ' appid和apikey请前往讯飞开放平台申请语音听写webapi，链接:https://www.xfyun.cn/services/voicedictation ' 音频采样率默认8k,如遇识别不对可能是音频采样率错误，具体自己电脑录制的是8k还是16k请百度查看方法！ 录音1.停止 () 按钮_录制音频.标题 ＝ “点击录制音频” 录音1.保存文件 (取运行目录 () ＋ “\audio.wav”, 真) CurTime ＝ 时间_到时间戳 (, 真, ) ' 取10位时间戳 Param ＝ 到文本 (Base64Encode (到字节集 (#请求参数))) 调试输出 (“apiKey：” ＋ apiKey, “CurTime：” ＋ CurTime, “Param：” ＋ Param) CheckSum ＝ 取数据摘要 (到字节集 (apiKey ＋ CurTime ＋ Param)) 调试输出 (“CheckSum：” ＋ CheckSum) 音频数据 ＝ 读入文件 (取运行目录 () ＋ “\audio.wav”) 删除文件 (取运行目录 () ＋ “\audio.wav”) ' 本源码来自三叶资源网(www.sanye.cx) audio ＝ “audio=” ＋ URLEncode (到文本 (Base64Encode (音频数据))) http.Open (“post”, “//api.xfyun.cn/v1/service/v1/iat”) ' 添加协议头 http.SetRequestHeader (“X-CurTime”, CurTime, ) http.SetRequestHeader (“X-Param”, Param, ) http.SetRequestHeader (“X-Appid”, Appid, ) http.SetRequestHeader (“X-CheckSum”, CheckSum, ) http.SetRequestHeader (“Content-Type”, “application/x-www-form-urlencoded; charset=utf-8”, ) ' 提交音频数据 http.Send (audio, , ) 调试输出 (http.GetResponseTextUtf8ToAnsi ())