AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Problem Feststellung wann Konvertieren beendet 'lame.exe'
Thema durchsuchen
Ansicht
Themen-Optionen

Problem Feststellung wann Konvertieren beendet 'lame.exe'

Ein Thema von Ducksoul · begonnen am 23. Aug 2008 · letzter Beitrag vom 27. Aug 2008
 
Ducksoul

Registriert seit: 19. Apr 2006
Ort: Ilmenau
87 Beiträge
 
RAD-Studio 2009 Pro
 
#1

Problem Feststellung wann Konvertieren beendet 'lame.exe'

  Alt 23. Aug 2008, 15:56
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) = '.wavthen
        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
Franz
  Mit Zitat antworten Zitat
 


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 15:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz