【2023开源大赛】文字转语音

天使与恶魔

6666666666666666666666

luojiangjy

学习一下

359518176

来上车了

pzypdl

又来学习了

songzk

来了来了

永美发

上车

jihh

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
GET_Access_token	文本型		鉴权获取Access_token

变量名	类 型	静态	数组	备 注
鉴权地址	文本型
grant_type	文本型
client_id	文本型
client_secret	文本型
URL	文本型
结果	文本型
refresh_token	文本型

鉴权地址 ＝ “https://aip.baidubce.com/oauth/2.0/token”
grant_type ＝ “client_credentials”
client_id ＝ “填写百du给出的API Key”
client_secret ＝ “填写百du给出的Secret Key”
URL ＝ 鉴权地址 ＋ “?grant_type=” ＋ grant_type ＋ “&client_id=” ＋ client_id ＋ “&client_secret=” ＋ client_secret ＋ “&”
结果 ＝ 到文本 (网页_访问 (URL))
返回 (文本_取出中间文本 (结果, “refresh_token” ＋ #引号 ＋ “:” ＋ #引号, #引号, , ))

子程序名	返回值类型	公开	备 注
文本转语音_百duAPI
参数名	类 型	参考	可空	数组	备 注
tex	文本型

变量名	类 型	静态	数组	备 注
lan	文本型
cuid	文本型
ctp	文本型
tok	文本型
请求地址	文本型
URL	文本型
返回协议头	文本型
局_返回语音	字节集
局_写到文件路径	文本型

请求地址 ＝ “http://tsn.baidu.com/text2audio”
lan ＝ “zh”
cuid ＝ 文本_取随机字符 (10)
ctp ＝ “1”
tok ＝ GET_Access_token ()
URL ＝ 请求地址 ＋ “?tex=” ＋ 编码_URL编码 (tex, , 真) ＋ “&lan=” ＋ lan ＋ “&cuid=” ＋ cuid ＋ “&ctp=” ＋ ctp ＋ “&tok=” ＋ tok ＋ “&per=103”
局_返回语音 ＝ 网页_访问 (URL, 0, , , , , 返回协议头, , , , , , , )
如果真 (寻找文本 (返回协议头, “audio/mp3”, , 假) ≠ -1)
局_写到文件路径 ＝ 取特定目录 (3) ＋ “baidu_yuyin_” ＋ 文本_取随机字符 (8) ＋ “.mp3”
写到文件 (局_写到文件路径, 局_返回语音)
音乐_播放 (局_写到文件路径, “mysong”, , )

子程序名	返回值类型	公开	备 注
_按钮1_被单击

文本转语音_百duAPI (“百du语音API测试”)

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 GET_Access_token, 文本型, , 鉴权获取Access_token<br /> .局部变量 鉴权地址, 文本型<br /> .局部变量 grant_type, 文本型<br /> .局部变量 client_id, 文本型<br /> .局部变量 client_secret, 文本型<br /> .局部变量 URL, 文本型<br /> .局部变量 结果, 文本型<br /> .局部变量 refresh_token, 文本型<br /> <br /> 鉴权地址 ＝ “https://aip.baidubce.com/oauth/2.0/token”<br /> grant_type ＝ “client_credentials”<br /> client_id ＝ “填写百du给出的API Key”<br /> client_secret ＝ “填写百du给出的Secret Key”<br /> URL ＝ 鉴权地址 ＋ “?grant_type=” ＋ grant_type ＋ “&client_id=” ＋ client_id ＋ “&client_secret=” ＋ client_secret ＋ “&”<br /> 结果 ＝ 到文本 (网页_访问 (URL))<br /> 返回 (文本_取出中间文本 (结果, “refresh_token” ＋ #引号 ＋ “:” ＋ #引号, #引号, , ))<br /> <br /> .子程序 文本转语音_百duAPI<br /> .参数 tex, 文本型, 参考<br /> .局部变量 lan, 文本型<br /> .局部变量 cuid, 文本型<br /> .局部变量 ctp, 文本型<br /> .局部变量 tok, 文本型<br /> .局部变量 请求地址, 文本型<br /> .局部变量 URL, 文本型<br /> .局部变量 返回协议头, 文本型<br /> .局部变量 局_返回语音, 字节集<br /> .局部变量 局_写到文件路径, 文本型<br /> <br /> 请求地址 ＝ “<a href="http://tsn.baidu.com/text2audio" rel="nofollow" rel="nofollow" target="_blank">http://tsn.baidu.com/text2audio</a>”<br /> lan ＝ “zh”<br /> cuid ＝ 文本_取随机字符 (10)<br /> ctp ＝ “1”<br /> tok ＝ GET_Access_token ()<br /> URL ＝ 请求地址 ＋ “?tex=” ＋ 编码_URL编码 (tex, , 真) ＋ “&lan=” ＋ lan ＋ “&cuid=” ＋ cuid ＋ “&ctp=” ＋ ctp ＋ “&tok=” ＋ tok ＋ “&per=103”<br /> 局_返回语音 ＝ 网页_访问 (URL, 0, , , , , 返回协议头, , , , , , , )<br /> .如果真 (寻找文本 (返回协议头, “audio/mp3”, , 假) ≠ -1)<br />     局_写到文件路径 ＝ 取特定目录 (3) ＋ “baidu_yuyin_” ＋ 文本_取随机字符 (8) ＋ “.mp3”<br />     写到文件 (局_写到文件路径, 局_返回语音)<br />     音乐_播放 (局_写到文件路径, “mysong”, , )<br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 文本转语音_百duAPI (“百du语音API测试”)

感谢楼主的代码给的思路

wu870204

你好啊啊啊啊

帝高阳之苗裔兮

6666666666666666666666666666666666666

fengyishen

感谢分享，下载看看