Mein Programm bearbeitet verschiedene Video-Formate. AVI-Dateien machen Probleme.
Ich hab folgenden Programmteil, der dann nicht klar kommt:
Delphi-Quellcode:
if not pos(uppercase('.avs'),uppercase(M_AVISYNTH.Lines[i])) > 0
then
if (pos(uppercase('Import'),uppercase(M_AVISYNTH.Lines[i])) > 0) or (V_RENAMEERROR=1)
then
M_Log.lines.add(TimeToStr(time)+' - '+DateToStr(Date)+' >> Fixaround: Try to fix rename-bug. Please preview your AVSScript.')
else
begin
if pos(uppercase('.avi'),uppercase(M_AVISYNTH.Lines[i])) > 0
then
begin
if pos(uppercase('audio=false'),uppercase(M_AVISYNTH.Lines[i])) > 0
then
M_Log.lines.add(TimeToStr(time)+' - '+DateToStr(Date)+' >> Found Audiofix in '''+extractfilename(OD_Input_file.Filename)+'')
else
begin
M_Log.lines.add(TimeToStr(time)+' - '+DateToStr(Date)+' >> Added Audiofix to '''+extractfilename(OD_Input_file.Filename)+'');
M_AVISYNTH.Lines[i]:=StringReplace(M_AVISYNTH.Lines[i], ')', ',audio=false)', [rfReplaceAll]);
M_AVISYNTH.Lines.savetoFile(OD_Input_file.Filename);
M_AVISYNTH.Clear;
M_AVISYNTH.Lines.LoadFromFile(OD_Input_file.Filename);
end;
end;
end;
da ich zuvor, falls die Quelle eine AVI-Datei war, folgendes ausgeführt hatte:
Delphi-Quellcode:
if pos(uppercase('.avi'),uppercase(OD_Input_file.FileName)) > 0
then
begin
M_AVISYNTH.Lines.Clear;
M_AVISYNTH.lines.Add('# -= AviSynth script by '+caption+' =-');
M_AVISYNTH.lines.Add('# -= Remove Audio =-');
M_AVISYNTH.lines.Add('AVISource("'+OD_Input_file.FileName+'",pixel_type="YUY2",audio=false)');
avssource:=OD_Input_file.FileName;
S_ORG_FILENAME:=OD_Input_file.FileName;
M_AVISYNTH.Lines.savetoFile(ChangeFileExt(avssource,'_AQ3_NOAUDIO.avs'));
OD_Input_file.FileName:=(ChangeFileExt(avssource,'_AQ3_NOAUDIO.avs'));
Ich denke, dass ich mit dem Fixaround das Problem schon gelöst habe, aber trotzdem frage ich mich, warum die Funktion "ChangeFileExt" bei mir und bei meinem Lead-Tester funktioniert, aber beim Spanier nicht. Welche Einstellungen könnte er haben, das Renaming nicht bei ihm funktioniert ...
Zur Zeit hab ich die Messages in der Log der letzten Nightly Build von AutoQ3. Mal sehen, ob ich diese rausnehme. Der Spanier muss mir ja auch noch zurück mailen, obs jetzt bei ihm geht.