| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1647 人关注过本帖
标题:如何让Wav音频文件中间产生3秒暂停
只看楼主 加入收藏
yuma
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:银河系
等 级:贵宾
威 望:37
帖 子:1921
专家分:2981
注 册:2009-12-22
结帖率:89.13%
收藏
已结贴  问题点数:20 回复次数:3 
如何让Wav音频文件中间产生3秒暂停
朗读时暂停朗读3秒很容易做到,但生成的Wav音频文件中如何暂停3秒(也就是产生3秒无声的音频)?

程序代码:
Const SSFMCreateForWrite = 3
Dim Str1,Str2
Str1 = "测试字符串1" '这里输入要输出的声音
Str2 = "测试字符串2" '这里输入要输出的声音
Set objVoice = CreateObject("SAPI.SpVoice")
Set objFile = CreateObject("SAPI.SpFileStream.1")
objVoice.Rate = 1  '获取和设置声音说话速度。
objVoice.Volume = 100   '获取并设置相应的体积(响度)的语音水平。
objVoice.AllowAudioOutputFormatChangesOnNextSet = False  '获取并设置标志,指定是否允许调整声音输出格式的音频自动。
objVoice.Speak Str1
Wscript.sleep 3000   '朗读时产生3秒暂停
objVoice.Speak Str2
objFile.Open "测试声音.wav", SSFMCreateForWrite '输出路径
Set objVoice.AudioOutputStream = objFile
objVoice.Speak Str1
'?????????????????????????如何让Wav音频文件中间产生3秒暂停???????????????????
objVoice.Speak Str2
objFile.Close
Set objVoice.AudioOutputStream = Nothing
Set objVoice = Nothing
搜索更多相关主题的帖子: Set 音频 文件 Wav 暂停 
2020-12-13 19:04
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4937
专家分:30047
注 册:2008-10-15
收藏
得分:14 
方法1:找一个能产生3秒无声的文件,插到中间一并生成声音文件。估计很难实现。
方法2:事先弄一个3秒无声的文件,然后把需要生成的声音文件,分别生成单独的文件,然后找个外部声音拼接软件,把几个文件合并起来。
       外部接接软件找不到的话,可以看一下格式工厂的所带的文件,看看它是怎么调用的。


授人于鱼,不如授人于渔
早已停用QQ了
2020-12-14 20:38
hello900926
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2013-8-13
收藏
得分:0 
录个空白3秒文件可不可以呢
2021-02-21 09:07
yuma
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:银河系
等 级:贵宾
威 望:37
帖 子:1921
专家分:2981
注 册:2009-12-22
收藏
得分:0 
这个问题我早已解决。

VB6生成3秒空白wav音频

用一楼代码生成朗读wav

用命令行工具合并。

我的成品演示:
夜间模拟灯光.zip (2.1 MB)

心生万象,万象皆程序!
本人计算机知识网:http://bbs.为防伸手党,本站已停止会员注册。
2021-02-21 09:47
快速回复:如何让Wav音频文件中间产生3秒暂停
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.014839 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved