| davidmarli |
salut, tiens, voilà ma procédure Delphi pour sauver les informations importantes pour encoder un film avec le codec 5 :
Procedure parametredivx5(s1:string);
var registre:tregistry;
s:string;
begin
Registre:=TRegistry.Create;
try
Registre.RootKey:=HKEY_CURRENT_USER;
Registre.OpenKey('software\DivXNetworks\DivX4Windows\',True);
Registre.Writeinteger
(* Attention pour encoder à 800 tu doit mettre comme valeur 800000 *)
('Bitrate',formcodecdivx.UpDownbitrate412.Position*1000);
Registre.writeinteger('Max Keyframe Interval',formcodecdivx.updownnbkey412.position);
Registre.writeinteger('Max Quantizer',formcodecdivx.updownquantizermax.position);
Registre.writeinteger('Min Quantizer',formcodecdivx.updownquantizermin.position);
Registre.writeinteger('RC Period',formcodecdivx.updownpermoy.position);
Registre.writeinteger('RC Reaction Period',formcodecdivx.updownperrea.position);
Registre.writeinteger('RC Reaction Ratio',formcodecdivx.updownreaction.position);
Registre.writeinteger('Resize',0);
Registre.writeinteger('Crop',0);
// VBR mode : 3 = 2pass, seond pass
// 0 = 1 pass
if ((formcodecdivx.comboboxnbpasse412.itemindex=0) or (formcodecdivx.comboboxnbpasse412.itemindex=-1))
then begin
Registre.writeinteger('VBR Mode',0);
end
else begin
if s1='first pass' then Registre.writeinteger('VBR Mode',2);
if s1='second pass' then Registre.writeinteger('VBR Mode',3);
end;
if formcodecdivx.checkboxQP.checked=true then Registre.writeinteger('Quarter-pel',1)
else Registre.writeinteger('Quarter-pel',0);
if formcodecdivx.checkboxgmc.checked=true then Registre.writeinteger('Use GMC',1)
else Registre.writeinteger('Use GMC',0);
if formcodecdivx.checkboxbframes.checked=true then Registre.writeinteger('Bidirectional Encoding',1)
else Registre.writeinteger('Bidirectional Encoding',0);
Registre.CloseKey;
Registre.Free;
//showmessage('Paramètres enregistrés avec succès');
except
Showmessage('Erreur');
Registre.Free;
end;
end;
Voilà, désolé mais je n'ai pas eu le temps avant ce soir ! |
