ich glaub ich habe mich zu früh gefreut.
Hier der Quellcode-Schnipsel wie ich es tatsächlich verwenden wollte. Der Vollständigkeit halber.
Delphi-Quellcode:
procedure TForm1.AbColBitBtn_EncodeClick(Sender: TObject);
begin
AbColBitBtn_Extras.Checked := false;
Timer_extraanimation.Enabled := true;
if fileexists(Progdir + '
\' + '
lame.exe')
then begin
if opendialog1.Execute
then begin
if SaveDialog_Enc.Execute
then begin
if extractfileext(savedialog_Enc.FileName) = '
.mp3'
then begin
ShellExecute(
Handle,
'
open',
// shell verb
PChar(Progdir + '
\' + '
lame.exe'),
// command
PChar('
"'+OpenDialog1.Filename + '
" "' + SaveDialog_Enc.Filename+'
"'),
// parameters
nil,
// working directory
SW_SHOWNORMAL
);
end else begin
ShellExecute(
Handle,
'
open',
// shell verb
PChar(Progdir + '
\' + '
lame.exe'),
// command
PChar('
"'+OpenDialog1.Filename + '
" "' + SaveDialog_Enc.Filename+'
"'+'
.mp3'),
// parameters
nil,
// working directory
SW_SHOWNORMAL
);
end;
end;
end;
end else showmessage('
Missing "lame.exe" .... The lame.exe has to be in the same direoctory than the Dreamplayer.exe');
end;
So, geht auch, aber:
Mann kann ja noch weitere Parameter übergeben, z.B. sowas:
Zitat:
Fixed bit rate jstereo 128kbps encoding, high quality (recommended):
lame -h sample.wav sample.mp3
Average bit rate 112kbps encoding:
lame --abr 112 sample.wav sample.mp3
Als ich das auch noch reinpflicken wollte, habe ich gemerkt, dass ich obigen Quellcode mal wieder nicht verstanden habe.
So wollte ich es versuchen.
(zwei Versuche von vielen die nicht funktioniert haben)
PChar(' "+'-h+'" "'+OpenDialog1.Filename + '" "' + SaveDialog_Enc.Filename+'"'), // parameters
PChar(' "-h" + "'+OpenDialog1.Filename + '" "' + SaveDialog_Enc.Filename+'"'), // parameters
usw. usf.