.版本 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 ()) .判断结束