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