tts 百度

2019-10-01 16:02:59 -0400

为语音识别(ASR)、语音合成(TTS)等提供高质量语音数据,让您的智能设备听懂...Email: zhongbao@baidu.com QQ: 1537361276 代理业务 Email: Crowdtest@baidu...
zhongbao.baidu.com

百度在线TTS文本转语音 Autoit V3的调用 UDF
作者：绿色风 发布：2018-1-23
百度在线TTS文本转语音
Autoit V3的调用 UDF
UDF更新 20180402
点这可以试一下
01
;示例
02
;示例
03
_Baidu_TTS("简易工作室欢迎您的到来")
04
_Baidu_TTS("微信收款到账 1279.16 元")
05
06
;百度TTS语音播放
07
Func_Baidu_TTS($TEXT,$SPD=6)
08
;~ by:绿色风 qq:79664738
09
;~ 更新地址：http://www.jianyiit.com/post-285.html
10
;~ lan 语言 zh，中文 en，英文
11
;~ Local $url = "http://tts.baidu.com/text2audio?lan=zh&pid=101&ie=UTF-8&text=播放的内容&spd=播放的速度(1-10)"
12
;;http://tts.baidu.com/text2audio 此地址 玩残了
13
; http://fanyi.baidu.com/gettts 新地址 新地址
14
Local$url="http://fanyi.baidu.com/gettts?lan=zh&ie=UTF-8&pid=101&text="& _UnicodeURLEncode($TEXT)& "&spd="& $SPD&"&source=web"
15
Local$mp3=@ScriptDir& "\bobao.mp3"
16
ConsoleWrite($url)
17
Local$conf=InetGet($url,$mp3,3);强制下载文件
18
SoundPlay($mp3,1);播放下载的mp3
19
InetClose($conf);释放下载空间
20
EndFunc;==>_Baidu_TTS
21
;URL转码
22
Func_UnicodeURLEncode($UnicodeURL)
23
$UnicodeBinary=StringToBinary($UnicodeURL,4)
24
$UnicodeBinary2=StringReplace($UnicodeBinary,'0x','',1)
25
$UnicodeBinaryLength=StringLen($UnicodeBinary2)
26
Local$EncodedString
27
For$i=1 To$UnicodeBinaryLengthStep2
28
$UnicodeBinaryChar=StringMid($UnicodeBinary2,$i,2)
29
IfStringInStr("$-_.+!*'(),;/?:@=&abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890",BinaryToString('0x' & $UnicodeBinaryChar,4))Then
30
$EncodedString&= BinaryToString ('0x' & $UnicodeBinaryChar)
31
Else
32
$EncodedString&= '%' & $UnicodeBinaryChar
33
EndIf
34
Next
35
Return$EncodedString
36
EndFunc;==>_UnicodeURLEncode
上一篇 百度TTS文本转语音播报(CMD方式调用)
下一篇 Au3 求斐波那契数列的第n项 算法
大家还在搜
ztts.tmall.com
baiduduertts
baiduduertts是什么
baidutts是什么文件夹
baidutts
baidutts文件夹

«Newer Older»

Back to home

Subscribe | Register | Login | N