var
s:tfilestream;
s1:tfilestream;
s2:tfilestream;
begin
s:=tfilestream.create( 'd:\output.mp3 ',fmcreate);
s1:=tfilestream.create( 'd:\1.mp3 ',fmopenread);
s1.seek(0,sofrombeginning); s.copyfrom(s1,s1.size); s2:=tfilestream.create( 'd:\2.mp3 ',fmopenread);
s2.seek(0,sofrombeginning);
s.copyfrom(s2,s2.size);
s.free;
s1.free;
s2.free;
end;
s:tfilestream;
s1:tfilestream;
s2:tfilestream;
begin
s:=tfilestream.create( 'd:\output.mp3 ',fmcreate);
s1:=tfilestream.create( 'd:\1.mp3 ',fmopenread);
s1.seek(0,sofrombeginning); s.copyfrom(s1,s1.size); s2:=tfilestream.create( 'd:\2.mp3 ',fmopenread);
s2.seek(0,sofrombeginning);
s.copyfrom(s2,s2.size);
s.free;
s1.free;
s2.free;
end;
解决方案 »
- 数据库存取速度问题
- 2009十大流行语 语言文字专家版
- 求DLL封裝CHILD FORM的實例,有的朋友發份給我,謝了,DELPHI的實例
- 线程数据同步问题
- 动态连接库的简单问题
- 现在为什么每次都要输入密码!郁闷`
- Bitmap image is not valid错误,会图像处理的朋友来帮一下!
- ExpressPrinting System Suite怎么这么水,一进入打印预览,所有的数据就没了???
- DBGrid控件!送分!!!
- 谁有delphi专用的按钮图片库呀,小弟急需!!
- delphi listview 怎么实现分页,增加两个按钮上一页下一页
- 多线程里的 Synchronize 请教!
但 DOS 的 Copy 命令具有合并 MP3 功能。
下面代码将 a.mp3, b.mp3 合并为 c.mp3
(注意,文件名为中文时可能不能正常运行)
WinExec(PChar('command.com /C copy /b e:\a.mp3+e:\b.mp3 e:\c.mp3'),SW_Hide);
http://www.dxmylove.com/download/jymp3.exe
mp3合并工具,这几天写的
http://wenku.baidu.com/view/0fdb442fb4daa58da0114afd.html我没太仔细看,希望对你有帮助。
合并音频文件并不只是简单的文件合并那么简单。比如合并前的MP3文件可能不同的码率,但是合并后在同一个文件内必须相同的码率,还要牵涉到重采样的问题。不是那么简单的。
建议用开源的解码器来调用合并,省的自己写了。