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 Mp3Enc1do
begin
Enabled :=true;
SampleRate := 44100;
bitRate := 64;
Open(WavFileName,Mp3FileName);
Encode;
end;
messagedlg('Encode completely!',Mtinformation,[Mbok],0);
end;
请高手赐教！多谢多谢。
我的问题：在转化过程中，如果源文件比较小，可以完全压缩。但是如果文件比较大，就不能完全压缩，只能压缩源文件的一部分。例如我压了四次一个13，386kb的wav文件，分别产生了291kb（两次），136kb，72kb的四个文件。
我的实现：调用控件mp3enc的open(),encode函数，就可以实现。其控件的其他函数我也了解得不深入。不太会用。
核心代码：
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with Mp3Enc1do
begin
Enabled :=true;
SampleRate := 44100;
bitRate := 64;
Open(WavFileName,Mp3FileName);
Encode;
end;
messagedlg('Encode completely!',Mtinformation,[Mbok],0);
end;
请高手赐教！多谢多谢。
我的问题：在转化过程中，如果源文件比较小，可以完全压缩。但是如果文件比较大，就不能完全压缩，只能压缩源文件的一部分。例如我压了四次一个13，386kb的wav文件，分别产生了291kb（两次），136kb，72kb的四个文件。
我的实现：调用控件mp3enc的open(),encode函数，就可以实现。其控件的其他函数我也了解得不深入。不太会用。
核心代码：
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with Mp3Enc1do
begin
Enabled :=true;
SampleRate := 44100;
bitRate := 64;
Open(WavFileName,Mp3FileName);
Encode;
end;
messagedlg('Encode completely!',Mtinformation,[Mbok],0);
end;
请高手赐教！多谢多谢。
我的问题：在转化过程中，如果源文件比较小，可以完全压缩。但是如果文件比较大，就不能完全压缩，只能压缩源文件的一部分。例如我压了四次一个13，386kb的wav文件，分别产生了291kb（两次），136kb，72kb的四个文件。
我的实现：调用控件mp3enc的open(),encode函数，就可以实现。其控件的其他函数我也了解得不深入。不太会用。
核心代码：
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with Mp3Enc1do
begin
Enabled :=true;
SampleRate := 44100;
bitRate := 64;
Open(WavFileName,Mp3FileName);
Encode;
end;
messagedlg('Encode completely!',Mtinformation,[Mbok],0);
end;
请高手赐教！多谢多谢。