用户名  找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 7672|回复: 5

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

[复制链接]

18

主题

48

回帖

104

积分

按键电脑&手机班学员

紫猫助手

鲜花
0
猫粮
494
QQ
发表于 2018-6-13 18:36:51 | 显示全部楼层 |阅读模式

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

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

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

下面的程序是按键安卓手机助手,用到了紫猫老师的插件,可以加入到你的代码中,有没有种很
炫酷的感觉 费话不多说,源码献上,有好的建议在下方跟贴
[按键精灵] 纯文本查看 复制代码
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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, 2025-3-29 13:11

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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