'))));
if value <> '' then SetField(fieldActors, value);
value := RemoveHTML(trim('<' + TextBetween(htmlPage, 'Anno: <', '<')));
if value <> '' then SetField(fieldYear, value);
value := UTF8Decode(FullTrim(RemoveHTML(TextBetween(htmlPage, '', ''))));
if value <> '' then SetField(fieldDescription, value);
value := UTF8Decode(trim(TextBetween(htmlPage, 'Nazione:', '')));
if value <> '' then SetField(fieldCountry, value);
value := trim(TextBetween(htmlPage, 'Durata: ', ' '));
if value <> '' then SetField(fieldLength, value);
value := TextBetween(htmlPage, '
Titolo originale', '/li>');
if value <> '' then
begin
value := UTF8Decode(trim(TextBetween(value, '>:', '<')));
if value <> '' then SetField(fieldOriginalTitle, value);
end;
value := UTF8Decode(trim(TextBetween(htmlPage, 'Produzione:', '')));
if value <> '' then SetField(fieldProducer, value);
value := UTF8Decode(RemoveHTML(trim(TextBetween(htmlPage, 'Genere:', ''))));
if value <> '' then SetField(fieldCategory, value);
end;
// Analizza il contenuto della pagina con i risultati di ricerca
procedure AnalyzeResultPage(MovieName: string);
var
strPage, strHtmlMovie, MovieAddr, MovieTitle : string;
TagPos: Integer;
begin
// Riceve la pagina
MovieAddr := 'http://trovacinema.repubblica.it/cerca/archivio/?dove=film&cosa='+ UrlEncode(MovieName);
strPage := GetPage(MovieAddr);
TagPos:= Pos('Cerca su TrovaCinema', strPage);
if TagPos > 0 then
begin
ShowMessage('Film non trovato !');
exit;
end;
// Controllare che ci siano film o se siamo stati rediretti sulla pagina dell'unico film trovato
TagPos:= Pos('Risultato ricerca', strPage);
if (TagPos < 1) then AnalyzeFilmPage(strPage) // Ha trovato un unico film e sono già nella pagina di quel film
else // Lista di film
begin
PickTreeClear;
PickTreeAdd('Risultati ricerca per "' + MovieName + '":', '');
strPage := TextBetween(strPage, 'Risultato ricerca', '