易语言讯飞语音合成例子源码

.版本 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 ())

.判断结束

@溪冉