Zitat von
omata:
Ich bekomme nur Bereichsfehler, ohne ende.
Dürfte eigentlich nicht sein. Geschrieben ist es in Delphi 7 Personal Edition.
Der einzige Fehler welcher mir noch aufgefallen ist, ist dass beim temporären Avisynth-Script für MPEG eine Zeile fehlt.
Delphi-Quellcode:
. TSL_tmpAVS := TStringlist.create;
TSL_tmpAVS.Add('SetMemoryMax(' + IntToStr(Memory.Quelle) + ')');
TSL_tmpAVS.Add('LoadPlugin("' + Video.Decoder + '")'); // <- die Zeile kann raus
TSL_tmpAVS.Add('MPEGSource("' + Video.QuelleScript + '")');
TSL_tmpAVS.Add('ConvertToRGB'); // <- diese fehlt.
TSL_tmpAVS.SaveToFile(Video.tmpQuelle);
TSL_tmpAVS.Free;
Liegt daran, das MPEG im Farbraum YUV arbeitet und die Anzeige
RGB benötigt.
Ob die Avisynth-Version eine Rolle spielt weiß ich nicht. Verwendet wurde
Avisynth 2.5.6, weil in dem Script eine Funktion verwendet werden soll, welche es erst in Version 2.5.4 implementiert wurde.