Code: Select all
var
URL: string;
begin
if CheckVersion(3,3,0) then
begin
URL := UrlEncode(GetField(fieldURL));
if URL <> '' then
begin
AnalyzePage(URL);
end else
begin
MovieName := GetField(fieldOriginalTitle);
if MovieName = '' then
MovieName := GetField(fieldTranslatedTitle);
if Input('IMDb Import', 'Enter the title of the movie:', MovieName) then
begin
// AnalyzePage('http://us.imdb.com/Tsearch?title='+UrlEncode(MovieName)+'&restrict=Movies+only');
AnalyzePage('http://us.imdb.com/Tsearch?title='+UrlEncode(MovieName));
end;
end;
end else
ShowMessage('This script requires a newer version of Ant Movie Catalog (at least the version 3.3.0)');
end.