-
等级
本版专家分：10542结帖率 100% -
如何按照指定的时间段分割一个标准的PCM格式的Wave文件展开阅读全文
-
等级
本版专家分：26949勋章
-
-
蓝花
2012年12月 Delphi大版内专家分月排行榜第三
2012年11月 Delphi大版内专家分月排行榜第三
-
-
不懂Wave协议，只有UP的份。
-
等级
本版专家分：1932 -
我有一个源程序，如果需要，可以留下EMAIL。
-
等级
本版专家分：778 -
Wave文件的结构很简单，一个44字节的文件头加上各个采样数据，文件头的结构为：
TWaveHeader = record //定义一个Wav文件头格式
rId : longint;
rLen : longint;
wId : longint;
fId : longint;
fLen : longint;
wFormatTag : word;
nChannels : word; //声道数
nSamplesPerSec : longint; //每秒采样频率
nAvgBytesPerSec : longint; //每秒字节数
nBlockAlign : word;
wBitsPerSample : word; //采样位一般16位和8位
dId : longint;
wSampleLength : longint;
end;
如果要在时间X（以秒为单位）分割，只要取出第（44+nAvgBytesPerSec*X/8)个字节只后的所有字节，并加上一文件头即可！
-
等级
本版专家分：778
-
上一贴有点问题，应该为：如果要在时间X（以秒为单位）分割，只要取出第（44+nAvgBytesPerSec*X)个字节只后的所有字节，并加上一文件头即可！
不要再除8 了！
-
等级
本版专家分：83323勋章
-
- 进士 2007年 总版技术专家分年内排行榜第九
-
- 铜牌 2007年7月 总版技术专家分月排行榜第三
-
-
红花
2007年9月 Oracle大版内专家分月排行榜第一
2007年7月 Oracle大版内专家分月排行榜第一
2007年6月 Oracle大版内专家分月排行榜第一
2008年7月 Delphi大版内专家分月排行榜第一
2008年3月 Delphi大版内专家分月排行榜第一
2008年2月 Delphi大版内专家分月排行榜第一
2007年12月 Delphi大版内专家分月排行榜第一
2007年11月 Delphi大版内专家分月排行榜第一
2007年10月 Delphi大版内专家分月排行榜第一
2007年9月 Delphi大版内专家分月排行榜第一
2007年7月 Delphi大版内专家分月排行榜第一
2007年6月 Delphi大版内专家分月排行榜第一
2007年4月 Delphi大版内专家分月排行榜第一
2007年1月 Delphi大版内专家分月排行榜第一
-
-
黄花
2009年5月 Delphi大版内专家分月排行榜第二
2007年8月 Oracle大版内专家分月排行榜第二
2007年4月 Oracle大版内专家分月排行榜第二
2008年1月 Delphi大版内专家分月排行榜第二
2007年8月 Delphi大版内专家分月排行榜第二
2007年5月 Delphi大版内专家分月排行榜第二
2007年3月 Delphi大版内专家分月排行榜第二
2007年2月 Delphi大版内专家分月排行榜第二
-
-
不懂！学习！！！
-
等级
本版专家分：10179勋章
-
- 签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
-
- 红花 2020年5月 Delphi大版内专家分月排行榜第一
-
-
顶
-
等级
本版专家分：10379勋章
-
- 签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
-
-
WAVE文件的格式最简单的,按PCM编码直接存下来的,Haofei(昊飞)说得很清楚了.
前年我也专门写了一些这样的程序
可以向你推荐一本书,<Windows程序设计>,（老外写的那套最经典的），上面有一章写得很清楚，当时我就是看的那本书，别的书上还真没见过
-
等级
本版专家分：2564 -
我写过一个这样的程序.
用的是 API
源码已传到了网上.
http://www.codestudy.net/codesource/list.asp?id=120
不过其中的界面用了LMD控包.
其中录音放音都做了十分详细的注释.
TWaveUnit目录下的三个PAS文件是录放音的文件:
TCMWaveType.pas ：录放音公用过程、函数、数据结构
TPlayWaveUnit.pas ：放音类
TRecordWaveUnit.pas ：录音类
并且还可以显示波形、快慢速播放、复制、粘帖音频数据等很多操作。
可以直接复制上述的三个文件进行改进和程序设计
-
等级
本版专家分：778
-
楼主，你这个贴子太久了，总还没结题，我做了一个程帮你赶紧结题算了：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TWaveHeader = record
rId : longint; //固定标记 值为"RIFF"
rLen : longint; //随后的字节数 值为(wSampleLength +36)
wId : longint; //固定标记 值为"WAVE"
fId : longint; //ckID 值为"fmt "
fLen : longint; //nChunkSize Wave文件块的大小 16
wFormatTag : word; //音频数据的编码方式 此值常为1 表示PCM方式
nChannels : word; //声道数
nSamplesPerSec : longint; //每秒采样频率
nAvgBytesPerSec : longint; //每秒字节数
nBlockAlign : word; //一次输出的字节数 值为采样位数*声道数/8
wBitsPerSample : word; //采样位数 一般16位和8位
dId : longint; //固定标记 值为"data"
wSampleLength : longint; //采样数据长度 值为文件大小-文件头大小(44)
end;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
fs, fd : TFileStream ;
m,s,ms, Temp : Integer ;
dm,ds,dms : Integer ;
WaveHeader, WaveHeader2 : TWaveHeader ;
begin
// Wave文件的分割
//从00:10:250处分割
dm:=0; ds := 10; dms := 250;
fs := TFileStream.Create('d:\a.wav',fmOpenRead);
//读出原文件的文件头
fs.Read(WaveHeader,Sizeof(WaveHeader));
//计算原文件的长度 按分：秒：毫秒计
ms := (WaveHeader.wSampleLength mod WaveHeader.nAvgBytesPerSec)*1000 div WaveHeader.wSampleLength;
s := (WaveHeader.wSampleLength div WaveHeader.nAvgBytesPerSec) mod 60;
m := (WaveHeader.wSampleLength div WaveHeader.nAvgBytesPerSec) div 60;
//此处比较分割点是否在原文件长度之内，此处略
//计算机新文件b的长度
Temp := WaveHeader.wBitsPerSample*WaveHeader.nChannels div 8;//每个采样字节数
WaveHeader2 := WaveHeader ;
WaveHeader2.wSampleLength := WaveHeader2.nAvgBytesPerSec*(dS + dM*60)+
WaveHeader2.nAvgBytesPerSec * dms div 1000;
WaveHeader2.wSampleLength := WaveHeader2.wSampleLength div Temp * Temp;//保证采样数据的完整性
WaveHeader2.rLen := WaveHeader2.wSampleLength + 36;
//写入新文件 b
fd := TFileStream.Create('d:\b.wav',fmCreate);
fd.write(WaveHeader2,Sizeof(WaveHeader2));
fd.CopyFrom(fs,WaveHeader2.wSampleLength);
fd.Free;
//计算新文件C的长度
WaveHeader2.wSampleLength := WaveHeader.wSampleLength-WaveHeader2.wSampleLength;
WaveHeader2.rLen := WaveHeader2.wSampleLength + 36 ;
//将余下的写入文件C
fd := TFileStream.Create('d:\c.wav',fmCreate);
fd.Write(WaveHeader2,Sizeof(WaveHeader2));
fd.CopyFrom(fs,WaveHeader2.wSampleLength);
fd.Free;
fs.Free;
end;
end.
在D7上通过。
- 如何优化MySQL千万级大表，我写了6000字的解读
千万级大表如何优化，这是一个很有技术含量的问题，通常我们的直觉思维都会跳转到拆分或者数据分区，在此我想做一些补充和梳理，想和大家做一些这方面的经验总结，也欢迎大家提出建议。 从一开始脑海里开始也是...
- 大学时期要做的50件事
第一次脱离了繁重的学习、父母用心良苦却喋喋不休的教诲，一下子感觉从没有过的放松，短暂的放松过后，我们却不免有些空虚和失落，如何安排自己的大学生活，使自己的大学生活过得有意义？这是每一个大学生都应该思考...
- 两难选择：继续工作，还是培训后再工作
他的两难选择，我也没有没出个道道来。只不过，他写信的过程，也应该是自我梳理的过程，对做决定肯定有好处。将来信和我的对话（【】中部分）贴在这儿，热心的读者也给出些主意吧。 今天看了好多遍您发的博文，...
- 现代软件工程系列 学生的精彩文章 (6) 项目总结
48EA3793D3DA17C8!211&_c11_BlogPart_BlogPart=blogview&_c=BlogPartJanuary 10学做一个PM By Cheng Lu 对于我们的...看到今天SmartMe走出了坚实的第一步，心中首先是感谢，感谢LunaR团队四个好兄弟为咱们的软件
- 工作第九周：勇敢的少年，快去创造奇迹！
这一周 最近闹得沸沸扬扬的就是郭德纲跟曹云金师徒的恩怨情仇，这俩人我也不评价，只是觉得两句话挺应景： 德不配位，必有殃灾； 还没学会就红了，红了之后更不会好好学了。上周末又去看牙医，因为左边牙肿完右边...
- 如何选择实时操作系统
很难作决定是买一个实时操作系统，还是自己动手做。如果要买的话，决定买哪一种、从哪家供应商买仍然充满变数。...因此，对我们来说，重用他人的工作成果以达到目标的第一步就是要选择一种实时操作系
- 经验分享：学会沟通是做网赚的第一步
我们需求做的就是等待吗?并不是，纤悉的列出自个儿的疑问，发给对方。涵盖往后磨练自个儿怎么样找项目，怎么样发觉赢利点，增长自个儿的网赚 嗅觉。众多问题往往可以在站长的网上就可以获得解决的，譬如网站上头
- 想跟大家聊聊
最近的情绪一直不是很高，原因也未知，只是...一、近期热点之我见 这几天的热点事件不少，跟职场人相关的，一个是网易被爆恶意裁员，一个是演员高以翔在节目录制现场猝死。 刚刚得到的好消息是， 网易前员工你的...
- 《那些年啊，那些事——一个程序员的奋斗史》九
对于新的4.3＇CMMB板子来说，设计上并不是很难。毕竟之前有做过Telechips的板 子，现在只要在之前的基础上删删减减，然后加上CMMB模块即可。这次的设计是以简单 为主，只要求有GPS和CMMB即可，其它无关的模块...
- 花 10 分钟看一看，少走 30 年弯路
如果这篇文章分享给你了，你却没有读，继续走弯路的你不要怪我。 如果你看了这篇文章，只读了一半你就说没时间了，说明你已经是个“茫”人了。 如果你看完了，你觉得这篇文章只是讲讲大道理，说明你的人生阅历还...
- 我看过的关于职业规划最好最全面的一篇文章
在担任公司高管的几年间，我面试过数以百计的各个层面的员工，其中最让我感到遗憾的一个现象就是很多人有着非常好的素质，甚至有的还是名校的毕业生，因为不懂得去规划自己的职业，在工作多年后，依然拿着微薄的薪水...
- 《HP大中华区总裁孙振耀退休感言》--- 我又读了一遍， 真的非常受益！ 朋友， 我推荐给你！
一、关于工作与生活 我有个有趣的观察，外企公司多的是25-35岁的白领，40岁以上的员工很少，二三十岁的外企员工是意气风发的，但外企公司40岁附近的经理人是很尴尬的。我见过的40岁附近的外企经理人大多在一直...
- 【学术】 一个博士的经历（小木虫精华帖，留着细细体会！）
【收获】阅读李开复的【我应该戴一顶什么样的博士帽？】人类社会最盲目自大的地方是：高估了一天的改变；...======================================================================第一季 被博士2005
- 不要放弃你的梦想
周末的时候我正准备和几个朋友打游戏，热身的过程中同一个不是很熟的队员发生了一次有趣的谈话。 “你是做什么的？”他问我。“哦，我给自己干，我有一个软件公司”，我回答。“真的吗！真令人羡慕！我在XXX公司...
- 【Unity3D】Unity项目优化
做游戏经验比较丰富的人都知道，优化的好坏一直是一个游戏的评判标准之一，它直接影响着玩家们的游戏体验，优化一直是项目中开发周期比较长的一个点，也是开发者头疼的一个问题，要求掌握的知识点比较全面，经验也...
- 如何实现一个去中心化的 Dropbox 存储
在去中心化计算的应用中，有一个激动人心的应用，在过去的一年里引起了相当大的兴趣，那就是受激励的去中心化在线文件存储系统的概念。目前，如果你想你的文件或者数据安全地在云端备份，你有3种选择：(1). 上传它们...
- 将自己写的Python代码打包放到PyPI上
如果是开源的Python代码，为了能够让大家更方便的使用，放到PyPI上也许是个非常不错的主意（PyPI：Python Package Index）。刚开始我以为要将代码打包放到PyPI上是一件非常复杂繁琐的事情，不过看过《Dive Into ...
- Linux转发性能评估与优化-转发瓶颈分析与解决方案(补遗)
我针对RPS做了一个patch，提升了其转发效率。下面是我转载的我自己的原文。线速问题很多人对这个线速概念存在误解。认为所谓线速能力就是路由器/交换机就像一根网线一样。而这，是不可能的。应该考虑到的一个概念...
- 主宰操作系统的经典算法
进程和线程在调度时候出现过很多算法，这些算法的设计背景是当一个计算机是多道程序设计系统时，会频繁的有很多进程或者线程来同时竞争 CPU 时间片。 那么如何选择合适的进程/线程运行是一项艺术。当两个或两个以上...
- X公司的流程改造之路 (二) [课程报告]
只将流程改造限制在项目级别，只能产出一个勉强而来的结果，并不是真正的敏捷开发。 上一篇:X公司的流程改造之路 (一) 开端 Beck为团队进行了两天的培训，并逐一解答了大家的问题。在随后的团队的启动...
- 介绍个人战拖经历和提出一个战拖理论
我费力的对自己的拖拉进行剖析，找造成我拖拉的根源，并心甘情愿的为之付出了代价：改变了一些根本的人生观和人生态度。 我的这套东西对拖友会有借鉴意义么？我的重整人生的力度，绝大多数人不需要，但我提出...
- MySQL之——MS主从复制(读写分离)实现
今天，给大家带来一篇如何配置MySQL主从复制，以实现MySQL的读写分离。今天这篇我们是基于MySQL 5.6来实现MySQL的主从复制的。 一、服务器规划 首先我们需要两台服务器，一台作Master服务器，一台作Slave服务器。 ...
- Vue.js 核心精要实战解析
课程简介 前端框架领域，Angular、React、Vue.js 三足鼎立，而 Vue.js 因其性能、通用、易用、体积、学习成本低等特点深受广大前端们的追捧，并吸引了一大批前端初学者。...第一部分（第1-2篇）带你初步认识 ...
- 剖析Oculus Rift的Room Scale功能设计
2014年9月在第一届Oculus Connect大会上，我坐在那里观看John Carmack的演讲，他站在台上讲了整整一个半小时，那个演讲非常棒，除了我不小心把咖啡洒在了自己唯一一件像样的衬衣上这一点小缺憾（视频观看地址：...
- 走进JavaWeb技术世界1：Web后端与J2EE的由来
我刚开始做Web开发的时候，根本没有前端，后端之说。 原因很简单，那个时候服务器端的代码就是一切：接受浏览器的请求，实现业务逻辑，访问数据库，用JSP生成HTML，然后发送给浏览器。 即使后来Javascript在...
- MySQL之——MSS主从复制(读写分离)实现
前面，在博文《MySQL之——MS主从复制(读写分离)实现》一文中，我们讲解了如何搭建MS模式的MySQL主从复制架构，即：一台... 现在，我就为大家演示一下如何搭建MSS(一台Master，两台Slave)架构的MySQL主从复制，其他
- 职业选择与职业规划【转载】
在担任公司高管的几年间，我面试过数以百计的各个层面的员工，其中最让我感到遗憾的一个现象就是很多人有着非常好的素质，甚至有的还是名校的毕业生，因为不懂得去规划自己的职业，在工作多年后，依然拿着微薄的薪水...
- 惠普总裁口述的职业规划(2)
首先要说明，工作是一件需要理智的事情，所以不要在工作上耍个性，天涯上或许会有人觉得你很有个性而叫好，煤气公司电话公司不会因为觉得你很有个性而免了你的帐单。当你很帅地炒掉了你的老板，当你很酷地挖苦了一番...
- ym——Andorid-15k+的面试题。
最近才开的博客，希望大家多多关注，andorid开发也做了3年有余了，也面试很多加企业，借此机会分享一下，我们中遇到过的问题以及解决方案吧，希望能够对正在找工作的andoird程序员有一定的帮助。学完本人博客发表...
- 《当程序员的那些狗日日子》四
《当程序员的那些狗日日子》（三十一）特殊任务 在家过了一个平静而祥和的春节假期后，我继续回到公司上班。 与洪互相协调后，在兑换系统的相关工作上，我们两人也重新分配了任务，他负责银行数据处理引擎、晴提出...