Cependant, j'apporte une petite correction. Allociné a changé ses pages, et on a un probleme lorsque l'on recupere le nom du film (original et traduit).
Donc dans les trois scripts (celui sans l'image et les deux autres), changez ce passage, qui se trouve dans AnalyzeMoviePage
Code: Select all
// Original & Translated Title
LineNr := FindLine('<FONT Class="titrePage">', Page, 0);
if LineNr > -1 then
begin
Line := Page.GetString(LineNr);
BeginPos := pos('<FONT Class="titrePage">', Line) + 24;
if pos('<font size=2>', Line) = 0 then
begin
EndPos := pos('</FONT>', Line);
Value := copy(Line, BeginPos, EndPos - BeginPos);
SetField(fieldOriginalTitle, Value);
end else
begin
EndPos := pos('<font size=2>', Line);
Value := copy(Line, BeginPos, EndPos - BeginPos - 1);
SetField(fieldTranslatedTitle, Value);
BeginPos := EndPos + 14;
EndPos := pos('</font>', Line) - 1;
Value := copy(Line, BeginPos, EndPos - BeginPos);
SetField(fieldOriginalTitle, Value);
end;
Code: Select all
// Original & Translated Title
LineNr := FindLine('<FONT Class="titrePage">', Page, 0);
if LineNr > -1 then
begin
Line := Page.GetString(LineNr);
BeginPos := pos('<FONT Class="titrePage">', Line) + 24;
if pos(')</font></FONT>', Line) = 0 then
begin
EndPos := pos('</FONT>', Line);
Value := copy(Line, BeginPos, EndPos - BeginPos);
SetField(fieldOriginalTitle, Value);
end else
begin
EndPos := pos('<font >(', Line);
Value := copy(Line, BeginPos, EndPos - BeginPos - 1);
SetField(fieldTranslatedTitle, Value);
BeginPos := EndPos + 8;
EndPos := pos(')</font>', Line);
Value := copy(Line, BeginPos, EndPos - BeginPos);
SetField(fieldOriginalTitle, Value);
end;
Faire des feedbacks si ça marche pas,
A+