[FR] ALLOCINE - Récuperation en utilisant le n° de film

If you made a script you can offer it to the others here, or ask help to improve it. You can also report here bugs & problems with existing scripts.
Post Reply
sebb

[FR] ALLOCINE - Récuperation en utilisant le n° de film

Post by sebb »

Bonjour,

N etant pas un pro de la programmation, j'essais de fabriqué un script qui recupere directement les infos a partir du n° d identification Allociné :
Ex :
http://www.allocine.fr/film/fichefilm_g ... =9518.html
ID = 9518

J est essayé de bidouillé le script existant en faisant une analyse :

Address = 'http://www.allocine.fr/film/fichefilm_gen_cfilm=' + MovieNumber + '.html'
AnalyzePage(Address);

J ai viré l 'étape recherche. Ca marche pas . Est ce que quelqu un peut m aider ?

merci,

s.
antp
Site Admin
Posts: 9651
Joined: 2002-05-30 10:13:07
Location: Brussels
Contact:

Post by antp »

"ça marche pas" = ?
MovieNumber est déclaré comme une chaîne ?
Guest

Post by Guest »

Voici le code que j ai utilisé :
J ai pris le code par defaut (allocine) et j ai tout vidé dans la procedure d analyse de resultat de la recherche.
Ici MovieNumber est une chaine.

C est de la bidouille. Maintenant le script n a pas d erreur Mais rien ne se passe.

Code: Select all

var
  MovieNumber: string;
  MovieName: string;
  MovieAddress : TStringList;

....
....


begin


  if CheckVersion(3,4,0) then
  begin
    MovieName := GetField(fieldOriginalTitle);
    if MovieName = '' then
      MovieName := GetField(fieldTranslatedTitle);
    if Input('Allociné.fr Import', 'Entrez le titre du film ou l''adresse de la page :', MovieName) then
    begin
        MovieAddress := TStringList.Create;
        //MovieAddress.SetString(1) := 'http://www.allocine.fr/film/fichefilm_gen_cfilm=' + MovieName + '.html';
        MovieAddress.Text := 'http://www.allocine.fr/film/fichefilm_gen_cfilm=' + MovieName + '.html';
        AnalyzeMoviePage(MovieAddress);

      //if Pos('.allocine.', MovieName) > 0 then
      //  AnalyzePage(MovieName)
      //else
      //  AnalyzePage('http://www.allocine.fr/recherche/default.html?motcle='+UrlEncode(MovieName));
    //end;
  end else
    ShowMessage('This script requires a newer version of Ant Movie Catalog (at least the version 3.4.0)');
    end
end.
antp
Site Admin
Posts: 9651
Joined: 2002-05-30 10:13:07
Location: Brussels
Contact:

Post by antp »

Tu avais juste à appeler AnalyzePage(http://www.allocine.fr/film/fichefilm_gen_cfilm=' + MovieName + '.html'), en t'inspirant du code qui regarde si la chaîne passée correspond à une URL ou au titre du film (le "if Pos('.allocine.'"...)
Post Reply