android 百度云语音,手机安卓百度云AI智能之语音合成

[按键精灵] 纯文本查看 复制代码Import "zm.luae"

Import "Cjson.lua"

Dim 朗读文本="我是紫猫学院的学员,编号:1027.本人QQ:822641801.本人承接Post等"

Call 朗读(朗读文本, 15000, 4, 5, 5, 4)

/*参数:

sd:朗读时长,单位毫秒

spd:语速，取值0-9，默认为5中语速

pit:音调，取值0-9，默认为5中语调

vol:音量，取值0-9，默认为5中音量

per:发音人选择, 0为普通女声，1为普通男生，3为情感合成-度逍遥，4为情感合成-度丫丫，默认为普通女声

*/

Sub 朗读(txt,sd,spd,pit,vol,per)'朗读时间:秒

Dim Path,Urls,talbeV,cuid,PostData,Url1,Htmltxt

Path = "/sdcard/Pictures/Read.mp3"

Dim arr=array(spd,pit,vol,per)

For Each s In Arr

If s < 0 or s > 9 Then TracePrint s,"参数有超出范围"

Next

Urls="http://openapi.baidu.com/oauth/2.0/token?grant_type=client_credentials&client_id=OEAG26OXULG3g3kHr9we3IFa&client_secret=G9hCptqBbNj0LgqSkbNZVFfsVKHRbn3y"

Htmltxt=Url.get(Urls,"gbk")

If CBool(InStr(1, Htmltxt, "{")) Then //小小BUG.谢谢1311,1693师弟纠正

talbeV = Encode.JsonToTable(Htmltxt)

If talbeV <> "" Then

cuid= zm.RndStr(10, 2)

PostData = "tex=" &zm.EncodeURL( txt )& "&lan=zh&cuid=" & cuid & "&ctp=1&spd="&spd&"&&pit="&pit&"&per="&per&"&vol="&vol&"&tok=" & talbeV["access_token"]

Url1="http://tsn.baidu.com/text2audio?"

zm.HttpDownload Url1 & PostData, Path

PlaySound Path

Delay sd

StopPlay

Dir.Delete( Path)

End If

End If

End Sub