Problem Feststellung wann Konvertieren beendet 'lame.exe'

[Ducksoul]

Nabend, ich habe eine wav datei, welche erst mit Lame.exe ins mp3-Format umgewandelt und anschließend Aes-verschlüsselt werden soll. Das Umwandeln funktioniert soweit, aber das Verschlüsseln macht Probleme, da immer eine Exception kommt, dass die angegebene Datei nicht gefunden wurde wenn ich den Source-Stream definiere.
Jetzt weiß ich allerdings nicht, ob es daran liegt, dass lame mit dem Konvertieren noch nicht fertig ist, oder ob es daran liegt, dass Leerzeichen im Pfad sind. Sei es das eine oder das andere - eine Lösung habe ich noch nicht gefunden. Vielleicht habt ihr ein paar hilfreiche Tipps?

Hier dr Code:

Delphi-Quellcode:

if ExtractFileExt(Dir) = '.wav' then
        begin

          try

            DestName := ChangeFileExt(Dir, '.mp3');
            DestName := tempdir + ExtractFileName(DestName);

            ShellExecute(
                Handle,
                'open', // shell verb
                PChar(progdir + 'lame.exe'), // command
                PChar('"' + Dir + '" "' + DestName + '"'), // parameters
                nil,  // working directory
                SW_SHOW
                );

            except
              MessageDlg('Fehler beim Umwandeln der Aufnahme. Anhängen fehlgeschlagen!',
                          mtError, [mbOk], 0);
            end;  // try1


            try // try 2
              sSource := TFileStream.Create(DestName, fmOpenRead+fmShareDenyNone);
              sDest := TFileStream.Create(DestName + '.enc', fmCreate);


              with TEncryption.Create(encpw, 0, defCryptBufSize) do
                begin

                  if EncryptStream(sSource,sDest) then  // if 3
                    begin
                    Dir := DestName + '.enc';
                    end
                  else
                    MessageDlg('Fehler beim Verschlüsseln!', mtError, [mbOk], 0);

                  Free;
              end;  // with    

            finally
              sSource.Free;
              sDest.Free;
              AnhangOpenDlg.FileName := '';
            end;  // try 2

Die Variable Dir enthält den Pfad zur Wav-Datei.

Danke im Voraus,
Duck

[FAlter]

Hi,

nimm doch die lame_enc.dll, das macht sich viel angenehmer als die exe fernzusteuern.

Ansonsten: createprocess und waitforsingleobject.

Mfg
FAlter

[Ducksoul]

Danke für die schnelle Antwort. Ich werde mal schauen ob es damit klappt und dann Feedback geben

[Luckie]

In der DLL ist bestimmt eine Callback Funktion enthalten für den Fortschritt.

[Ducksoul]

Naja, ich habe die dll jetzt nicht genutzt und bin bei der lame.exe geblieben. Der Tipp mit dem CreateProcess hat mir sehr geholfen.

Ich habe den Code wie folgt abgeändert und nun funktioniert es:

Delphi-Quellcode:

  (* Anhang anhängen *)
  procedure TMailForm.AnhangAdd(Dir: String);
    var sSource, sDest: TFileStream;
        DestName, DestName2, t, lame, mp3: String;
        StartupInfo: TStartupInfo;
        ProcessInfo: TProcessInformation;
        Result: Boolean;
    begin

      ShowBusy(True);

      if ExtractFileExt(Dir) = '.wav' then
        begin

          try
            DestName := ChangeFileExt(Dir, '.mp3');
            DestName := tempdir + ExtractFileName(DestName);

            lame := progdir + 'lame.exe';
            mp3 := '"' + Dir + '" "' + DestName + '"';

            FillChar (StartupInfo, SizeOf (TStartupInfo), 0); 
            StartupInfo.cb := Sizeof (TStartupInfo);

            StartupInfo.dwFlags := STARTF_USESHOWWINDOW OR STARTF_USEPOSITION OR STARTF_USESIZE ;
            StartupInfo.wShowWindow := SW_Hide;

            Result := CreateProcess (
                        nil,
                        PChar(lame + ' ' + mp3),
                        nil,
                        nil,
                        False,
                        NORMAL_PRIORITY_CLASS,
                        nil,
                        nil,
                        StartupInfo,
                        ProcessInfo
                        );

          If Result then
            WaitForSingleObject (ProcessInfo.hProcess, INFINITE);

          if ProcessInfo.hProcess <> 0 then
            CloseHandle (ProcessInfo.hProcess);

            except
              MessageDlg('Fehler beim Umwandeln der Aufnahme. Anhängen fehlgeschlagen!',
                          mtError, [mbOk], 0);
            end;  // try1


            try // try 2
              sSource := TFileStream.Create(DestName, fmOpenRead+fmShareDenyNone);
              sDest := TFileStream.Create(DestName + '.enc', fmCreate);


              with TEncryption.Create(encpw, 0, defCryptBufSize) do
                begin

                  if EncryptStream(sSource,sDest) then  // if 3
                    begin
                    Dir := DestName + '.enc';
                    end
                  else
                    MessageDlg('Fehler beim Verschlüsseln!', mtError, [mbOk], 0);

                  Free;
              end;  // with    

            finally
              sSource.Free;
              sDest.Free;
              AnhangOpenDlg.FileName := '';
            end;  // try 2

Vielen Dank


MfG,
Franz