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

ycploveyu · 发表于 2018-6-13 18:36:51

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 ycploveyu 于 2018-6-13 19:02 编辑

下面的程序是按键安卓手机助手,用到了紫猫老师的插件,可以加入到你的代码中,有没有种很
炫酷的感觉费话不多说,源码献上，有好的建议在下方跟贴

[按键精灵] 纯文本查看 复制代码

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

大气1666 · 发表于 2018-6-17 19:32:51

好玩啊喜欢!!!!

6220155 · 发表于 2021-1-8 10:51:02

完全看不懂。。。

gnohul · 发表于 2021-4-26 20:56:42

阅读时间好像不是获取的是自定义时间获取时间比较好

li302892520 · 发表于 2021-5-11 05:03:08

非常感谢

heishuih · 发表于 2021-11-30 14:10:40

大神为什么模拟器可以 ,手机不行呢

用户名		自动登录	找回密码
密码			立即注册

[教程源码] 手机安卓百度云AI智能之语音合成

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。