AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Lame.exe mit Shellexecute aufrufen
Thema durchsuchen
Ansicht
Themen-Optionen

Lame.exe mit Shellexecute aufrufen

Ein Thema von padavan · begonnen am 23. Nov 2005 · letzter Beitrag vom 23. Nov 2005
Antwort Antwort
padavan

Registriert seit: 12. Jan 2005
271 Beiträge
 
Delphi 7 Enterprise
 
#1

Re: Lame.exe mit Shellexecute aufrufen

  Alt 23. Nov 2005, 13:23
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) = '.mp3then 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.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:04 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz