讯飞语音合成例子

xiaoming007

想要一个讯飞语音合成最新的WebAPI调用的例子，易语言的。

nanren

.版本 2 .支持库 dp1 .支持库 spec  .子程序 _按钮1_被单击 .局部变量 音频数据, 字节集 .局部变量 Appid, 文本型 .局部变量 apiKey, 文本型 .局部变量 CurTime, 文本型 .局部变量 Param, 文本型 .局部变量 CheckSum, 文本型 .局部变量 text, 文本型 .局部变量 http, WinHttpW  http.Auto () http.AutoCookies () Appid ＝ “****” apiKey ＝ “**********” CurTime ＝ 时间_到时间戳 (, 真, ) Param ＝ 到文本 (Base64Encode (到字节集 (#业务参数))) text ＝ 编辑框1.内容 ' 调试输出 (“apiKey：” ＋ apiKey, “CurTime：” ＋ CurTime, “Param：” ＋ Param) CheckSum ＝ 取数据摘要 (到字节集 (apiKey ＋ CurTime ＋ Param)) http.Open (“post”, “http://api.xfyun.cn/v1/service/v1/tts”) ' 添加协议头 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 (“text=” ＋ URLEncodeUtf8 (text), , ) .判断开始 (http.GetResponseHeader (“Content-Type”) ＝ “audio/mpeg”)     ' 音乐_播放 (, )     播放音乐 (http.GetResponseBody (), )  .默认     调试输出 (http.GetResponseTextUtf8ToAnsi ())  .判断结束

nanren

.版本 2
.支持库 dp1
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 音频数据, 字节集
.局部变量 Appid, 文本型
.局部变量 apiKey, 文本型
.局部变量 CurTime, 文本型
.局部变量 Param, 文本型
.局部变量 CheckSum, 文本型
.局部变量 text, 文本型
.局部变量 http, WinHttpW

http.Auto ()
http.AutoCookies ()
Appid ＝ “****”
apiKey ＝ “**********”
CurTime ＝ 时间_到时间戳 (, 真, )
Param ＝ 到文本 (Base64Encode (到字节集 (#业务参数)))
text ＝ 编辑框1.内容
' 调试输出 (“apiKey：” ＋ apiKey, “CurTime：” ＋ CurTime, “Param：” ＋ Param)
CheckSum ＝ 取数据摘要 (到字节集 (apiKey ＋ CurTime ＋ Param))
http.Open (“post”, “http://api.xfyun.cn/v1/service/v1/tts”)
' 添加协议头
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 (“text=” ＋ URLEncodeUtf8 (text), , )
.判断开始 (http.GetResponseHeader (“Content-Type”) ＝ “audio/mpeg”)
    ' 音乐_播放 (, )
    播放音乐 (http.GetResponseBody (), )

.默认
    调试输出 (http.GetResponseTextUtf8ToAnsi ())

.判断结束

倾风听雨声

nanren 发表于 2021-9-10 02:00
.版本 2
.支持库 dp1
.支持库 spec

大佬，#业务参数，都有些啥子？

liuyuxin188

后为开发精易模块的

nanren

谢谢@@@@@@@@@