找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 7370|回复: 5

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

[复制链接]

18

主题

48

回帖

104

积分

按键电脑&手机班学员

紫猫助手

鲜花
0
猫粮
494
QQ
发表于 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

楼主热帖
承接PC版插件定制,Office办公软件辅助,网页相关[Post,Get]软件定制,网页批量注册或采集功能定制.等,点击我>>>租售网络授权验证系统!
  • 打卡等级:初涉江湖

0

主题

23

回帖

23

积分

按键电脑&手机班学员

鲜花
0
猫粮
189
发表于 2018-6-17 19:32:51 | 显示全部楼层
好玩啊  喜欢!!!!

0

主题

12

回帖

12

积分

学前班

鲜花
0
猫粮
12
发表于 2021-1-8 10:51:02 | 显示全部楼层
完全看不懂。。。

0

主题

1

回帖

1

积分

学前班

鲜花
0
猫粮
2
发表于 2021-4-26 20:56:42 | 显示全部楼层
阅读时间好像不是获取的 是自定义时间 获取时间比较好
  • 打卡等级:初涉江湖

2

主题

12

回帖

16

积分

按键电脑&手机班学员

鲜花
0
猫粮
416
发表于 2021-5-11 05:03:08 | 显示全部楼层
非常感谢

0

主题

2

回帖

2

积分

按键电脑&手机班学员

鲜花
0
猫粮
100
发表于 2021-11-30 14:10:40 | 显示全部楼层
大神为什么模拟器可以 ,手机不行呢
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|紫猫编程学园

GMT+8, 2024-12-23 08:59

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表