排队取号系统百度语音播报版

.子程序 百度语音播报
.参数 朗读文本, 文本型, , 合成的文本，使用UTF-8编码。小于512个中文字或者英文数字。（文本在百度服务器内转换为GBK后，长度必须小于1024字节）
.参数 ctp, 文本型, 可空, 客户端类型选择，web端填写固定值1
.参数 lan, 文本型, 可空, 固定值zh。语言选择,目前只有中英文混合模式，填写固定值zh
.参数 spd, 文本型, 可空, 语速，取值0-9，默认为5中语速
.参数 pit, 文本型, 可空, 音调，取值0-9，默认为5中语调
.参数 vol, 文本型, 可空, 音量，取值0-15，默认为5中音量
.参数 per, 整数型, 可空, 发音人选择, 0为普通女声，1为普通男生，3为情感合成-度逍遥，4为情感合成-度丫丫，默认为普通女声
.局部变量 access_token, 文本型, 静态
.局部变量 局_提交内容, 文本型
.局部变量 局_返回的语音, 字节集
.局部变量 局_返回协议头, 文本型
.局部变量 局_写到文件路径, 文本型

access_token ＝ 编码_Utf8到Ansi (网页_访问_对象 (“https://openapi.baidu.com/oauth/2.0/token?grant_type=client_credentials&client_id=OEAG26OXULG3g3kHr9we3IFa&client_secret=G9hCptqBbNj0LgqSkbNZVFfsVKHRbn3y”, 0, , , , ))
access_token ＝ 文本_取出中间文本 (access_token, “access_token” ＋ #引号 ＋ “:” ＋ #引号, #引号, , )
' 调试输出 (access_token)
局_提交内容 ＝ “tex=” ＋ 编码_URL编码 (朗读文本, , 真) ＋ “&tok=” ＋ access_token ＋ “&cuid=” ＋ 文本_取随机字符 (10) ＋ “&ctp=1” ＋ “&lan=zh&vol=5&per=” ＋ 到文本 (per)
局_返回的语音 ＝ 网页_访问_对象 (“http://tsn.baidu.com/text2audio?” ＋ 局_提交内容, 0, , , , , 局_返回协议头)
' 调试输出 (局_返回协议头)
.如果真 (寻找文本 (局_返回协议头, “audio/mp3”, , 假) ≠ -1)
局_写到文件路径 ＝ 取特定目录 (11) ＋ “baidu_yuyin_” ＋ 文本_取随机字符 (8) ＋ “.mp3”
写到文件 (局_写到文件路径, 局_返回的语音)
调试输出 (局_写到文件路径)
媒体播放1.打开 (局_写到文件路径)
媒体播放1.播放 (-1, )
删除文件 (局_写到文件路径)