DVDFR Script 1.60
Posted: 2014-01-29 13:40:46
Bonjour
J'utilise la version 4.1.2.3 de AMC sous XP SP3, et j'ai des problèmes avec la version 1.60 du script DVDFR. Le script s'arrete à la ligne 218 :
end
else
begin
SetField(fieldComments, s1);
end;
end;
end
else
if ((GetField(fieldMediaType) = 'DVD') or (GetField(fieldMediaType) = 'DVD-5') or (GetField(fieldMediaType) = 'DVD-9') or (GetField(fieldMediaType) = 'DVD-18') or (GetField(fieldMediaType) = 'BD-25') or (GetField(fieldMediaType) = 'BD-50') or (GetField(fieldMediaType) = 'HD DVD-30')) then
SetField(fieldVideoFormat, 'MPEG2');
end;
s1 := Items.GetItemNamed('rating').Value; // Avis C.S.A.
if (CheckVersion(4,2,0)) and (GetOption('Avis CSA') = 1) and CanSetField(fieldCertification) and (s1 <> '') then //////////////////////////////////////////////////////////////////////////// test s'il y a un champs Certification
SetField(fieldCertification, s1)
else
begin
if (CheckVersion(4,0,0)) and (GetOption('Avis CSA') = 1) and (s1 <> '') then //////////////////////////////////////////////////////////////////////////// test s'il y a des champs modifiables
begin
Nom := 'Avis C.S.A.';
J'ai remis la version 1.50 (que j'avais de côté, heureusement, car dans les "archives" vous stockez aussi la 1.60 !
Merci pour ce programme.
J'utilise la version 4.1.2.3 de AMC sous XP SP3, et j'ai des problèmes avec la version 1.60 du script DVDFR. Le script s'arrete à la ligne 218 :
end
else
begin
SetField(fieldComments, s1);
end;
end;
end
else
if ((GetField(fieldMediaType) = 'DVD') or (GetField(fieldMediaType) = 'DVD-5') or (GetField(fieldMediaType) = 'DVD-9') or (GetField(fieldMediaType) = 'DVD-18') or (GetField(fieldMediaType) = 'BD-25') or (GetField(fieldMediaType) = 'BD-50') or (GetField(fieldMediaType) = 'HD DVD-30')) then
SetField(fieldVideoFormat, 'MPEG2');
end;
s1 := Items.GetItemNamed('rating').Value; // Avis C.S.A.
if (CheckVersion(4,2,0)) and (GetOption('Avis CSA') = 1) and CanSetField(fieldCertification) and (s1 <> '') then //////////////////////////////////////////////////////////////////////////// test s'il y a un champs Certification
SetField(fieldCertification, s1)
else
begin
if (CheckVersion(4,0,0)) and (GetOption('Avis CSA') = 1) and (s1 <> '') then //////////////////////////////////////////////////////////////////////////// test s'il y a des champs modifiables
begin
Nom := 'Avis C.S.A.';
J'ai remis la version 1.50 (que j'avais de côté, heureusement, car dans les "archives" vous stockez aussi la 1.60 !
Merci pour ce programme.