……!……使用Mp3Enc控件(ActiveX控件)出现的问题~!~(在线赐教)(100分)

H

hxiaow

Unregistered / Unconfirmed
GUEST, unregistred user!
目的:使用此控件把wav格式的文件转化成mp3文件。

我的问题:在转化过程中,如果源文件比较小,可以完全压缩。但是如果文件比较大,就不能完全压缩,只能压缩源文件的一部分。例如我压了四次一个13,386kb的wav文件,分别产生了291kb(两次),136kb,72kb的四个文件。

我的实现:调用控件mp3enc的open(),encode函数,就可以实现。其控件的其他函数我也了解得不深入。不太会用。

核心代码:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with Mp3Enc1 do begin
Enabled :=true;
SampleRate := 44100;
bitRate := 64;
Open(WavFileName,Mp3FileName);
Encode;
end;

messagedlg('Encode completely!',Mtinformation,[Mbok],0);

end;

请高手赐教!多谢多谢。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
顶部