[REL] [FR] Allociné v2

[LeMoi]

Il me semble qu'Allociné avait bloqué aussi un User Agent il y a quelques années, ce qui avait du entrainer une modification simple du script pour le changer, j'espère que ce sera aussi simple cette fois...

[Aliasing]

Oui moi aussi ça me rappelle qu'il y a déjà eu un problème de ce type, il a un moment déjà.
Il y avait aussi une histoire de protocole HTTP(s) sécurisé ou pas...Mais je confonds peut-être.

En espérant qu'il y ait encore des gourous qui ont connus et résolus ce problème à l'époque.

Je croise les doigts!

[boyerf]

Bonjour à tous,

Pour votre info, j'ai continué à chercher.
J'ai testé la modification du User Agent via le fichier de langage (astuce vu dans le forum).

Code: Select all

;*********************
;* Fenêtre de script *
;*********************
[GetScriptWin]
http.Request.UserAgent=Wget/1.9

Sans modifier le user agent, on a un code d'erreur HTTP 400 Bad Request
En modifiant le user agent (comme ci-dessus), j'ai une erreur HTTP 403 Forbidden

Bon, ça m'avance pas vraiment... Je me demande si la recherche google est encore autorisé a partir d'une application ? Ou est il nécessaire de passer par des API spécifiques ? Je vais continuer à chercher...

FB

[boyerf]

Bon, j'ai été un peu vite, mon user agent était foireux...

Code: Select all

[GetScriptWin]
http.Request.UserAgent=Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/525.13 (KHTML, like Gecko) Chrome/0.2.149.27 Safari/525.13

Je n'ai plus d'erreur avec celui-ci, mais pas de résultat de recherche... Je vais regarder si j'ai le temps ce soir ce que l'appel HTTP remonte (s'il remonte quelque chose).

A+

[Aliasing]

Super Boyerf

merci d'essayer d'arriver au bout de ce souci et ne nous tenir au courant

[boyerf]

Bonjour à tous,

Vous trouverez ci-dessous une solution qui m'a permis de rendre le script Allociné fonctionnel.
Je l'ai testé avec une 20n de film différents.
Il nécessite néanmoins :
1/ Changer le user agent de AMC en insérant une ligne dans le fichier langage que vous utilisez (redémarrez AMC pour prise en compte de la modification)
2/ Modifier une ligne du script Allociné et mettre en commentaire la suivante (//)

Tout est en commentaire dans le code ci-dessous.

Ca fonctionne de mon coté. Petit effet de bord, la fenêtre qui affiche les films qui semble correspondre au notre, présente chaque film 2 fois.
Sinon attention, le fait de changer le USER AGENT d'AMC peut impacter potentiellement d'autres scripts !!! Je ne suis pas du tout spécialiste en HTTP / HTML, mais l'encodage des pages semble bien changer suivant le User Agent utilisé, et ça a donc un impact sur le script qui recherche des balises dans la pages...
Exemple : La balise fichefilm_gen_cfilm a été remplacé par LC20lb DKV0Md après modification du User Agent

Le user agents que j'ai utilisé est celui de la derniere version de Chrome sous Windows 10 :
Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.114

Pour éviter des erreurs, j'ai mis toute la procédure ci-dessous :

Code: Select all

procedure AddMoviesTitlesGoogle(Results: string);
var
  Block, Id, Title, Address, Year, FilmTV: string;
begin

  while Pos('fichefilm_gen_cfilm%3D', Results) > 0 do
  begin
    Block := TextBetween(Results, '/fichefilm_gen_cfilm', '</div>');
    Id := TextBetween(Block, '%3D', '.html');
    Address := 'https://www.allocine.fr/film/fichefilm_gen_cfilm=' + Id + '.html';
//FB
//FB Modification du 03/04/2021 par Boyerf suite a un possible blacklistage du user agent de AMC par Google
//FB Il faut donc :
//FB - 1/ Changer le user agent de AMC en insérant une ligne dans le fichier langage que vous utiliser (redémarrez AMC pour prise en compte de la modification)
//FB - 2/ Modifier une ligne du script Allociné et mettre en commentaire la suivante (//)
//FB
//FB 1/ Chercher le paragraphe [GetScriptWin] dans un fichier language (*.lng) par exemple French.lng et ajouter juste en dessous de ce paragraphe le user agent
//FB http.Request.UserAgent=Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.114 Safari/537.36
//FB
//FB 2/ Le marqueur de la fiche de film change suivant le User Agent, aussi il faut modifier la ligne 1ere ligne delete block ci-dessous et supprimer la 2eme qui ne sert à rien.
//FB    delete(Block, 1, pos('fichefilm_gen_cfilm', Block) + 10);
    delete(Block, 1, pos('LC20lb DKV0Md', Block) + 12);
//FB    delete(Block, 1, pos('<div', Block));

    if (pos('- film',Block)>0) then
      Title := Trim(TextBetween(Block, '">', '- film'))
    else if (pos('- Allo',Block)>0) then
      Title := Trim(TextBetween(Block, '">', '- Allo'));
    Year := Trim(TextBetween(Block, '- film', ' - AlloC'));
    Year := TextBetween(' ' + Year + ' ', ' ', ' '); //'AlloCiné' peut être absent

    delete(Results, 1, pos('/fichefilm_gen_cfilm', Results) + 10);
    //Ne pas garder les pages critiques, sorties, news...
    if (length(Title)>0) and (pos('>', Title) <= 0) then 
    begin
    if getfield(fieldYear) <> '' then
        PickTreeAdd(CleanText(Title) + ' (' + CleanText(Year) + ') [' + MovieName + ' (' + GetField(fieldYear) + ')]', Address)
    else
        PickTreeAdd(CleanText(Title) + ' (' + CleanText(Year) + ')', Address);
    end
  end;
end;

Bonne journée,
François

[Aliasing]

Ça marche bien !
Super merci!
Et félicitations

- Il y a effectivement le dédoublement des lignes de nom des films.

- la modif est un peu compliquée pour un néophyte, notamment la modif du fichier .lng car il faut changer les droits de modification de ce fichier pour pouvoir l'enregistrer.

Crois tu possible de nettoyer un peu cette modif et l’intégrer dans le "script update" ?
Ce serait le TOP

Encore merci!!!!!!!

[boyerf]

Bonjour,

Content de voir que ça peut servir aux autres.
Pour l'intégration dans AMC, ce n'est pas de mon ressort, je ne gère pas la distribution.
De plus, ca nécessite la modification du User Agent, qui est global du coup au logiciel, donc à tous les Scripts, et donc aux différents utilisateurs...
Ca peut avoir des effets de bord non maitrisés sur des tas de scripts que je ne connais pas...

La discutions est ouverte

A+ François

[Aliasing]

Merci de ta réponse
Je comprends que les différentes modification sont dans des domaines de responsabilité différents.
Il faut donc attendre une réaction des autres développeurs.

Peut-être qu'une bonne idée serait de rendre le User Agent configurable dans ANT lui même car des "blocages" comme celui-ci peuvent se reproduire à tout moment .

Donc à suivre.
Encore merci et à +.

[antp]

On ne peut pas modifier le user-agent, c'est fait exprès : pour éviter les ennuis (pour moi) si un site ne veut pas que mon soft en récupère les infos il peut toujours le bloquer.
Le problème est peut-être plutôt lié aux cookies : viewtopic.php?p=60711#p60711
Sinon pour la recherche il suffirait peut-être de passer par un autre (Bing, DuckDuckGo, ...) si Google est trop pénible.

[Aliasing]

Bonjour
Le problème de cookies est possible car Google s'amuse à rajouter les demandes d'acceptation depuis quelques temps. C'est pénible!

Si quelqu’un sait comment utiliser un autre moteur que Google dans le script, ça serait la peine d'essayer, il en existe pas mal d'autres.

A suivre

[LeMoi]

Je ne suis pas sûr que bing par exemple donne de moins bons résultats que Google sur une recherche aussi précise, ça vaudrait peut-être le coup d'essayer...

[phil5660]

Bonjour à tous,
Et un grand merci aux programmeurs qui s'échinent à trouver une solution, qui ne semble pas évidente.
En attendant, heureusement, on peut toujours rapatrier les infos d'Allociné en faisant un copier-coller de la page URL...
Bien à vous,
Philippe.

[LeMoi]

Donc, pour résumer, les modifications citées plus haut fonctionnent, mais elles ne seront pas incluses dans les scripts officiels ?
Il vaut donc mieux pour l'instant entrer manuellement l'URL de la fiche Allociné ?

[antp]

En effet, la modif du user agent ne sera jamais inclus de manière officielle.
Il faudrait en effet tenter de modifier le script pour utiliser Bing (ou DuckDuckGo ou Qwant ou autre)

[xlv600]

Merci Boyerf pour avoir une nouvelle fois débloqué la situation avec Allociné.

[sts85]

Merci Boyerf pour avoir une nouvelle fois débloqué la situation avec Allociné.

A priori il n'y a rien de débloqué sur le script Allociné ...

Le script toujours ne fonctionne pas



J'ai essayé de remplacer 7 fois "Google" par "Bing" dans le script, là il ne bloque plus mais il ne trouve aucun résultat quelque soit le titre.



Il n'y a qu'en rentrant l'url de la page allociné à la place du titre que ça fonctionne...

Merci d'avance de trouver une solution pour palier à ce problème.

[antp]

J'ai essayé de remplacer 7 fois "Google" par "Bing" dans le script, là il ne bloque plus mais il ne trouve aucun résultat quelque soit le titre.

S'il ne suffisait que de faire ça, j'aurais eu le temps de le faire
Il faut que quelqu'un passe un peu de temps pour refaire le code qui analyse les pages

[zakk]

Bonjour,

Ci-joint un script Allociné qui marche à peu près :

Comments=Modification de Allocine_FR_v2 suite à changements sur allocine.fr. Ne fonctionne qu'avec l'option "Recherche Google = 1", les commentaires ne fonctionnent pas, la fenêtre de résultats est mal construite. Les séries ne sont toujours pas prises en compte. A peaufiner

J'ai changé 2 constantes :

urlFicheFilm = 'www.allocine.fr/film/fichefilm_gen_cfilm=';
urlSearch = urlAllocine+'/rechercher/?q=';

fait sauter le s de https://www.google.com

...et quelques bricoles.

Code: Select all

(***************************************************

Ant Movie Catalog importation script
www.antp.be/software/moviecatalog/

[Infos]
Authors=Antoine Potten, Nazgul64, Raoul_Volfoni, zakk
Title=Allociné
Description=Importations des fiches de films d'Allociné
Site=http://www.allocine.fr
Language=FR
Version=2.51
Requires=3.5.1
Comments=Modification de Allocine_FR_v2 suite à changements sur allocine.fr. Ne fonctionne qu'avec l'option "Recherche Google = 1", les commentaires ne fonctionnent pas, la fenêtre de résultats est mal construite. Les séries ne sont toujours pas prises en compte. A peaufiner
License=This program is free software; you can redistribute it and/or modify it under the  terms of the GNU General Public License as published by the Free Software Foundation;  either version 2 of the License, or (at your option) any later version.
GetInfo=1
RequiresMovies=1

[Options]
Choix Image=2|1|0=Pas d'affiche|1=Petite affiche allociné|2=Grande affiche allociné
Recherche sur le titre=0|0|0=Traduit|1=Original
Format du Titre=4|4|0=Titre en minuscule|1=Titre en majuscule|2=Première lettre du titre en majuscule|3=Première lettre de chaque mot du titre en majuscule|4=Formatage identique au site d'origine
Acteurs=2|2|0=Ne prend pas la liste des acteurs|1=Prend les noms des acteurs de la page principale (plus rapide)|2=Prend la liste des acteurs principaux, producteur, compositeur et scénariste|3=Idem que 2 mais avec tous les acteurs
Roles acteurs=1|0|0=Pas de nom de rôle|1=Nom de rôle derrière le nom de l'acteur (si option Acteurs à 2 ou 3)
Détail des notes=0|1|0=Non|1=Oui (champ Commentaires)
Fiche technique=0|0|0=Non|1=Oui (champ Commentaires)
Equipe technique=0|0|0=Non|1=Oui (Listée comme sur Allociné)|2=Oui (Noms regroupés par métier)
Secrets de tournage=1|0|0=Non|1=Oui (dans les commentaires)
Extra : Photos du film=0|0|0=Non|1=Oui
Extra : Photos des acteurs=0|0|0=Non|1=Oui
Garder les valeurs du champ Commentaires=0|0|0=Non|1=Oui
Batch=0|0|0=Non|1=Oui
ABlock=0|0|0=Non (par défaut)|1=Oui (ouvre les pages dont le script à besoin dans le navigateur par défaut)
Recherche Google=1|1|0=Non|1=Oui

[Parameters]
Pause=|3000|Délai d'attente (en ms) entre l'ouverture de la page sur navigateur et son acquisition par AMC

***************************************************)

program Allocine_FR_v3;

uses
  StringUtils1, ScorEpioNCommonScript;

var
  MovieName: string;

const
  urlDomain = 'allocine.fr';
  urlAllocine = 'https://www.allocine.fr';
  urlFicheFilm = 'www.allocine.fr/film/fichefilm_gen_cfilm=';
  urlSearch = urlAllocine+'/rechercher/?q=';


//------------------------------------------------------------------------------
// Remplace les virgules par des points							      Ajouté 2.06
//------------------------------------------------------------------------------

function convert_STF (ligne : String ) : Extended;
  var
    temp : Extended;
  begin
    ligne := FullTrim(ligne);
    temp := StrToFloat(ligne);
    if (ligne <> '0') and (temp = 0) then
    begin
      if pos(',',ligne) > 0 then
        ligne := stringreplace(ligne,',','.')
      else
      begin
        if pos('.',ligne) > 0 then
          ligne := stringreplace(ligne,'.',',');
      end;
      temp := StrToFloat(ligne);
    end;
    result := temp;
  end;

//------------------------------------------------------------------------------
// Fonction Puissance (mathématique)                      Ajouté 2.06
//------------------------------------------------------------------------------

function Power(base : extended ; puissance : integer): extended;
var
  temp : extended;
  i : integer;
begin
  temp := base;
  if puissance > 0 then
  begin
    for i:= 2 to puissance do
    temp := temp * base;
  end else
  begin
    if puissance = 0 then
    temp := 1
    else
    for i:= puissance to 0 do
    temp := temp / base;
  end;
  result := temp;
end;

//------------------------------------------------------------------------------
// Arrondi à la valeur décimale souhaité                 Ajouté 2.06
//------------------------------------------------------------------------------

function Arrondir(nombre : extended ; nbDecim : integer) : extended;
var
  p10 : extended;
  begin
    p10 := Power(10,nbDecim);
    result := round(nombre * p10) / p10;
  end;

//------------------------------------------------------------------------------
// Fonction pour récupérer les acteurs et leurs roles   Transféré 2.09 R_V
//------------------------------------------------------------------------------

function AllActors(Section : String) : string;
var
  Roles: Boolean;
  Page, Block, Value, Actors: string;
  T: TStringList;
begin
  Actors := '';
  Section := TextBetween(Section, '<div class="card person-card person-card-col">', '<div class="titlebar ">');
  Section := StringReplace(Section, '<div class="meta-sub light">', '');
  Section := StringReplace(Section, #13#10+'          </div>', '');
  Roles := GetOption('Roles acteurs') > 0;
   while Pos('<div class="card person-card person-card-col">', Section) > 0 do
    begin
      Block := TextBetween(Section, '<figure class="thumbnail ">', #13#10+'                    </div>');
      if Pos('<div class="section', Block) > 0 then
        Break;
      Section := RemainingText;
      if (Pos(UTF8Encode('Rôle : '), Block) > 0) then
        Value := TextBefore(Block, UTF8Encode('Rôle : '), '')
      else
        Value := Block;
      Value := CleanText(Value);
      if Value <> '' then
      begin
        if Actors <> '' then
          Actors := Actors + ', ';
        Actors := Actors + Value;
        if Roles then
          Actors := Actors + ' (' + CleanText(RemainingText) + ')';
      end;
      if (CheckVersion(4,2,0) = True) and (GetOption('Extra : Photos des acteurs') = 1) then // Condition pour récupérer les photos des acteurs	Ajouté V2.08 R_V
      Extra_Photos_Acteurs(Block + '</div>'); // Récupération des photos des acteurs via la procédure Extra_Photos_Acteurs	Ajouté V2.08 R_V
    end;
    if GetOption('Acteurs') = 3 then
    begin
      while Pos('<div class="gd gd-xs-1 gd-s-2 md-table-row ">', Section) > 0 do
      begin
        Block := TextBefore(Section, '</div>', '');
        if Pos('<div class="section', Block) > 0 then
        Break;
        Section := RemainingText;
        if Pos('</span>', Block) > 0 then
        begin
          Value := TextAfter(Block, '</span>');
          Value := CleanText(Value);
          if Value <> '' then
          begin
              Actors := Actors + ', ' + Value;
              if Roles then
              begin
                Value := TextBefore(Block, '</span>', '');
                Actors := Actors + ' (' + CleanText(Value) + ')';
              end;
          end;
        end;
      end;
    end;
  result := Actors;
end;

//------------------------------------------------------------------------------
// IMPORTE LES PHOTOS DU FILM COMME EXTRAS              Ajouté 2.07 R_V
//------------------------------------------------------------------------------

procedure Extra_Photos_Film(Value : String);
Var
  AdressePhoto, AdresseExtra, Comparaison : String;
  BeginPos, idx, NbrExtra, i : Integer;

  begin
            NbrExtra := GetExtraCount;
            if Pos('data-src="', Value) > 0 then  // s'assure que l'adresse de l'image existe
              begin
              BeginPos := Pos('data-src="', Value);
              repeat
              delete(Value, 1, BeginPos+4);
              AdressePhoto := FullTrim(findInfo('src="', '"', Value,'0'));
              if AdressePhoto <> '' then  // s'assure que l'adresse de l'image n'est pas vide
                begin
                For i := 0 to NbrExtra-1 do  //  Début boucle pour comparer les adresses des images déja dans la base avec celles du site
                if GetExtraField(i, eCategory) = 'Photos du film' then  // ne compare que les extras ayant pour catégorie : 'Photos du film'
                  begin
                    AdresseExtra := GetExtraField(i , extraFieldURL);
                    if (AdresseExtra = AdressePhoto) then
                      begin
                      Comparaison := 'OK';
                      Break;
                      end else
                      begin
                      Comparaison := 'KO';
                      end;                  // fin boucle comparaison
                  end else
                  Comparaison := 'KO';
                if ((Comparaison = 'KO') or (NbrExtra = 0)) then  // Ajoute l'extra si la comparaison n'est pas bonne ou que le nombre d'extra est égale à 0
                  begin
                    idx := AddExtra; // Crée un extra et stock sa position dans la valeur idx
                    SetExtraField(idx, extraFieldCategory, 'Photos du film'); // Stocke la valeur 'Photos du film' dans le champ catégorie de l'extra
                    SetExtraField(idx, extraFieldURL, AdressePhoto); // Stocke dans le champ URL de l'extra, l'adresse de la photo sur le site pour la comparer ultérieurement et ne télécharger que les photos que l'on n'a pas déjà
                    SetExtraField(idx, extraFieldDescription, CleanText(findInfo('alt="', '"', Value,'0'))); // Stocke la description de la photo donnée par le site dans le champ description de l'extra
                    SetExtraField(idx, extraFieldTitle, TextBefore(AdressePhoto, '.jpg', '/')); // Stocke le nom de la photo sur les serveurs du site dans le champ titre de l'extra
                    GetExtraPicture(idx, AdressePhoto); // Récupère l'image
                    if GetExtraPictureWidth(idx) < 1 then // Evite de récupérer un extra sans image en supprimant l'extra si l'image fait moins de 1 pixel de large
                    DeleteExtraOfScript(idx);
                  end;
                end;
              delete(Value, 1, Pos('src=', Value)+4);
              BeginPos := Pos(UTF8Encode('data-src="'), Value);
              until (BeginPos = 0);
              end;
  end;

///------------------------------------------------------------------------------
// IMPORTE LES PHOTOS DES ACTEURS COMME EXTRAS              Ajouté 2.08 R_V
//------------------------------------------------------------------------------

procedure Extra_Photos_Acteurs(Value : String);
Var
  AdressePhoto, Acteur, Role, AdresseExtra, Comparaison : String;
  idx, NbrExtra, i : Integer;

          begin
		      if pos('<img class="thumbnail-img"', Value) > 0 then   // vérifie que la photo de l'acteur existe
		        begin
              AdressePhoto := TextBetween(Value, 'data-src="', '"');
              Acteur :=  TextBetween(Value, '<span itemprop="name">', '</span>');
              Role := TextBetween(Value, UTF8Encode('Rôle : '), '</div>');
              if (AdressePhoto <> '') and (Pos('empty_photo.jpg', AdressePhoto) = 0) and (Pos('empty_star.jpg', AdressePhoto) = 0) then
            begin
              AdressePhoto := StringReplace(AdressePhoto, '/c_160_213', '');
              AdressePhoto := StringReplace(AdressePhoto, '.JPG', '.jpg');
              NbrExtra := GetExtraCount;
              For i := 0 to NbrExtra-1 do  //  Début boucle pour comparer les adresses des images déja dans la base avec celles du site
              if GetExtraField(i, eCategory) = 'Acteurs et Actrices' then  // ne compare que les extras ayant pour catégorie : 'Acteurs et Actrices'
                begin
                  AdresseExtra := GetExtraField(i , extraFieldURL);
                  if (AdresseExtra = AdressePhoto) then
                    begin
                    Comparaison := 'OK';
                    Break;
                    end else
                    begin
                    Comparaison := 'KO';
                    end;                  // fin boucle comparaison
                end else
                Comparaison := 'KO';
              if ((Comparaison = 'KO') or (NbrExtra = 0)) then  // Ajoute l'extra si la comparaison n'est pas bonne ou que le nombre d'extra est égale à 0
                begin
                  idx := AddExtra;
                  SetExtraField(idx, extraFieldCategory, 'Acteurs et Actrices');
                  SetExtraField(idx, extraFieldURL, AdressePhoto);
                  SetExtraField(idx, extraFieldDescription, CleanText(Role));
                  SetExtraField(idx, extraFieldTitle, CleanText(Acteur));
                  GetExtraPicture(idx, AdressePhoto);
                  if GetExtraPictureWidth(idx) < 1 then // Evite de récupérer un extra sans image en supprimant l'extra si l'image fait moins de 1 pixel de large
                  DeleteExtraOfScript(idx);
                end;
            end;
	         end;
          end;

//------------------------------------------------------------------------------
// ANALYSE DE LA PAGE SECRETS DE TOURNAGE  Ajouté 2.09 R_V
//------------------------------------------------------------------------------

procedure SecretComplet(pageSecret: string);
var
  Line, Titre, Texte, La_liste :string;
begin
//charge la page
  if GetOption('ABlock') = 1 then
  begin
    Launch(pageSecret, '');
    Sleep(StrToInt(GetParam('Pause'), 0));
  end;
  Line := GetPage(pageSecret);
  if Pos('<span class="title-punchline">', Line) > 0 then
  begin
//liste des secrets
  Line := TextBetween(Line, '<span class="title-punchline">' , '</section>');
  delete(Line, 1, Pos('<div class="trivia hred">', Line));
    while Pos('<div class="trivia-news">', Line) > 0 do
    begin
     // titre
     Titre := CleanText(TextBetween(Line, '<h2 class="trivia-title">', '</h2>'))+#13#10;
     // secret
     Texte := CleanText(TextBetween(Line, '<div class="trivia-news">', '</div>'))+#13#10#13#10;
     // liste
     La_liste := La_liste+Titre+Texte;
     delete(Line, 1, Pos('<div class="trivia-news">', Line));
    end;
  La_liste := deleteEnd(La_liste, #13#10);
  if GetField(fieldComments) <> '' then
  SetField(fieldComments, GetField(fieldComments)+#13#10#13#10+'Secrets de tournage :'+#13#10#13#10+La_liste)
  else
  SetField(fieldComments, 'Secrets de tournage :'+#13#10#13#10+La_liste);
  end;
end;

//------------------------------------------------------------------------------
// ANALYSE DE L' EQUIPE TECHNIQUE  Ajouté 2.15 R_V
//------------------------------------------------------------------------------

procedure EquipeTechnique(AdresseCasting: string);
var
  Value, Page, Metier, Nom, Liste :string;
begin
  if GetOption('ABlock') = 1 then
  begin
    Launch(AdresseCasting, '');
    Sleep(StrToInt(GetParam('Pause'), 0));
  end;
  Page := GetPage(AdresseCasting);
  Page := TextBetween(Page, '>Equipe technique</h2></div>' , '<div class="section casting-list">');
  while Pos('</div>', Page) > 0 do
  begin
    Value := TextBetween(Page, '<div class="row md-table-row ">' , '</div>');
    Metier := TextBetween(Value, '<span class="col-xs-12 col-sm-6 item">' , '</span>');
    Nom := TextBetween(Value, 'title="' , '"');
    Liste := Liste + '.' + #13#10 + '- '+ Metier + ' : ' + Nom;
    delete(Page, 1, Pos('</div>', Page));
    if GetOption('Equipe technique') = 2 then
    begin
      while Pos(Metier, Page) > 0 do
      begin
        Value := TextBetween(Page, '<div class="row md-table-row ">' , '</div>');
        Nom := TextBetween(Value, 'title="' , '"');
        Liste := Liste + ', ' + Nom;
        delete(Page, 1, Pos('</div>', Page));
      end;
    end;
  end;
  Liste := deleteEnd(Liste, '-  : ');
  Liste := 'Equipe Technique :'+UTF8Decode(Liste);
  HtmlDecode(Liste);
  Liste := StringReplace(Liste, ':.', ':');
  Liste := deleteEnd(Liste, #13#10);
  if GetField(fieldComments) <> '' then
  SetField(fieldComments, GetField(fieldComments)+#13#10#13#10+Liste)
  else
  SetField(fieldComments, Liste);
end;

//------------------------------------------------------------------------------
// ANALYSE DE LA PAGE BANDE ANNONCE  Ajouté 2.20 R_V
//------------------------------------------------------------------------------

procedure BandeAnnonce(pageBA: string);
var
  Value, Page :string;
begin
  if GetOption('ABlock') = 1 then
  begin
   Launch(pageBA, '');
   Sleep(StrToInt(GetParam('Pause'), 0));
  end;
  Page := GetPage(pageBA);
  Value := TextAfter(Page, 'Bandes-annonces & Teasers');
  Value := TextBetween(Page, '/video/player_gen_cmedia=', '&amp;');
  if Value <> '' then
  begin
    Value := 'Bande Annonce : ' + urlAllocine + '/_video/iblogvision.aspx?cmedia=' + CleanText(Value);
    if GetField(fieldComments) <> '' then
    SetField(fieldComments, GetField(fieldComments)+#13#10#13#10+Value)
    else
    SetField(fieldComments,Value);
  end;
end;

//------------------------------------------------------------------------------
// ANALYSE DE LA PAGE DE RECHERCHES
//------------------------------------------------------------------------------
procedure AnalyzePageGoogle();
var
  Address, Line: string;
  BeginPos, EndPos: Integer;
begin
  // fabrique l'URL de recherche Google
  Address := 'http://www.google.com/search?q=' + UrlEncode(MovieName) + '%20fichefilm_gen_cfilm%20site%3Aallocine.fr';
  //ShowMessage('AnalyzePage(' + Address + ')');
  // Récupère le code HTML de la pagede recherche
  Line := GetPage(Address);
  if pos('fichefilm_gen_cfilm', Line) <= 0 then
  begin
    ShowMessage('Aucun résultat trouvé');
    Exit;
  end;

  begin
    PickTreeClear;
    AddMoviesTitlesGoogle(Line);
    if PickTreeExec(Address) then
    begin
      AnalyzeMoviePage(Address);
    end;
  end;
end;

procedure AddMoviesTitlesGoogle(Results: string);
var
  Block, Id, Title, Address, Year, FilmTV: string;
begin

  while Pos('fichefilm_gen_cfilm%3D', Results) > 0 do
  begin
    Block := TextBetween(Results, '/fichefilm_gen_cfilm', '</div>');
    Id := TextBetween(Block, '%3D', '.html');
    Address := 'https://www.allocine.fr/film/fichefilm_gen_cfilm=' + Id + '.html';
    delete(Block, 1, pos('fichefilm_gen_cfilm', Block) + 10);
    delete(Block, 1, pos('<div', Block));

    if (pos('- film',Block)>0) then
      Title := Trim(TextBetween(Block, '">', '- film'))
    else if (pos('- Allo',Block)>0) then
      Title := Trim(TextBetween(Block, '">', '- Allo'));
    Year := Trim(TextBetween(Block, '- film', ' - AlloC'));
    Year := TextBetween(' ' + Year + ' ', ' ', ' '); //'AlloCiné' peut être absent

    delete(Results, 1, pos('/fichefilm_gen_cfilm', Results) + 10);
    //Ne pas garder les pages critiques, sorties, news...
    if (length(Title)>0) and (pos('>', Title) <= 0) then
    begin
    if getfield(fieldYear) <> '' then
        PickTreeAdd(CleanText(Title) + ' (' + CleanText(Year) + ') [' + MovieName + ' (' + GetField(fieldYear) + ')]', Address)
    else
        PickTreeAdd(CleanText(Title) + ' (' + CleanText(Year) + ')', Address);
    end
  end;
end;

//------------------------------------------------------------------------------
// ANALYSE DE LA PAGE DE RECHERCHES
//------------------------------------------------------------------------------
procedure AnalyzePage(Address: string);
var
  Line: string;
  BeginPos, EndPos : Integer;
begin
  ShowMessage('AnalyzePage(' + Address + ')');
  if GetOption('ABlock') = 1 then
  begin
    Launch(Address, '');
    Sleep(StrToInt(GetParam('Pause'), 0));
  end;
  Line := GetPage(Address);
  if pos(UTF8Encode('Oups ! Il semble qu’on n’arrive pas à trouver de résultats pour votre recherche'), Line) <> 0 then
  begin
    ShowMessage('Oups ! Il semble qu’on n’arrive pas à trouver de résultats pour votre recherche');
    Exit;
  end;
  if pos(UTF8Encode('1 résultat trouvé dans les titres de films'), Line) > 0 then
  begin
    ShowMessage('1 résultat trouvé dans les titres de films');
    Address := TextBetween(Line, '<td style=" vertical-align:top;">', '</td>');
    Address := urlAllocine + TextBetween(Address, '<a href=''', '''');
    AnalyzeMoviePage(Address);
  end else
  begin
    ShowMessage('Plusieurs résultats trouvés dans les titres de films');
    PickTreeClear;
    //AddMoviesTitles(TextBetween(Line, UTF8Encode('Merci de préciser votre recherche :'), '<div class="searchenginezone">'));
    AddMoviesTitles(TextBetween(Line, UTF8Encode('titres de films</div>'), 'Suivez-nous sur Facebook'));
    if PickTreeExec(Address) then
    begin
      AnalyzeMoviePage(Address);
    end;
  end;
end;

procedure AddMoviesTitles(Results: string);
var
  Block, Title, Address, Year, Director: string;
begin
  if getfield(fieldYear) <> '' then
  PickTreeAdd(CleanText(TextBefore(Results, '</div>', ''))+' ['+MovieName+' ('+getfield(fieldYear)+')]', '')
  else
  PickTreeAdd(CleanText(TextBefore(Results, '</div>', '')), '');
  while Pos('tr><td style=" vertical-align:top;">', Results) > 0 do
  begin
    Block := TextBetween(Results, 'tr><td style=" vertical-align:top;">', '</tr>');
    Results := RemainingText;
    Address := urlAllocine + TextBetween(Block, '<a href=''', '''>');
    Title := TextBefore(Block, '<br />', '');
    Year := TextBetween(Block, '<span class="fs11">', '<br />');
    Director := TextBetween(Block, '<br />'+#13#10+'de ', '<br />');
    PickTreeAdd(CleanText(Title) + ' (' + CleanText(Year) + ')' + ' de ' + CleanText(Director), Address);
  end;
end;

function CleanText(Text: string): string;
begin
  Result := CleanTextWithBr(Text, False);
end;

function CleanTextWithBr(Text: string; KeepBr: Boolean): string;
begin
  if KeepBr then
  begin
    Text := StringReplace(Text, #13#10, '');
    Text := StringReplace(Text, '<br>', #13#10);
  end;
  HtmlRemoveTags(Text);
  Text := UTF8Decode(Text);
  HtmlDecode(Text);
  if not KeepBr then
  begin
    Text := StringReplace(Text, #13#10, ' ');
  end;
  Text := Trim(Text);
  while Pos('  ', Text) > 0 do
  begin
    Text := StringReplace(Text, '  ', ' ');
  end;
  Result := Text;
end;

procedure AnalyzeMoviePage(Address: string);
var
  Page, Value, ID: string;
  i: Integer;
begin
  if GetOption('Garder les valeurs du champ Commentaires') = 0 then
  SetField(fieldComments,'');
  SetField(fieldUrl, Address);
  if Pos('/film/fichefilm_gen_cfilm=', Address) = 0  then
    if GetOption('ABlock') = 1 then
    begin
      Launch(Address, '');
      Sleep(StrToInt(GetParam('Pause'), 0));
    end;
  Page := GetPage(Address);
  // adresse
  if (GetOption('Recherche Google') = 0) then
  begin
    Address := urlAllocine + TextBetween(Page, 'class="item home icon icon-home current" href="', '"');
    if Pos('/film/fichefilm_gen_cfilm=', Address) = 0  then
      Address := urlAllocine + '/film/fichefilm_gen_cfilm=' + TextBetween(Page, 'allocine://open/movie?code=', '"') + '.html';
    SetField(fieldUrl, Address);
  end;
  // ID Ajouté 2.07 R_V
  if pos('/film/fichefilm_gen_cfilm=',Address) <> 0 then
    ID := findInfo('/film/fichefilm_gen_cfilm=', '.html', Address,'0');
  // titres
  // Le-Sphinx 12/01/2020 Ajout du Titre FR et Titre Original
  Value := TextBetween(Page, '<h1 class="item">', '</h1>');
  SetField(fieldOriginalTitle, formatTitre(CleanText(Value),GetOption('Format du Titre')));
  SetField(fieldTranslatedTitle, formatTitre(CleanText(Value),GetOption('Format du Titre')));
  if Pos('<span class="light">Titre original </span>', Page) > 0 then
  begin
    SetField(fieldTranslatedTitle, formatTitre(CleanText(Value),GetOption('Format du Titre')));
    Value := TextBetween(Page, '<span class="light">Titre original </span>', '</div>');
    SetField(fieldOriginalTitle, formatTitre(CleanText(Value),GetOption('Format du Titre')));
  end;
  // année
  Value := TextBetween(Page, UTF8Encode('<span class="what light">Année de production</span>'), '</span>');
  SetField(fieldYear, CleanText(Value));
  // réalisateur
  // Le-Sphinx 12/01/2020 Ajout Nom du Réalisateur
  Value := TextBetween(Page, 'director" content="', '"');
  if Pos('<span class="light">De</span>', Page) > 0 then
  begin
    Value := TextBetween(Page, '<span class="light">De</span>', '</div>');
    SetField(fieldDirector, formatTitre(CleanText(Value),GetOption('Format du Titre')));
  end else
  SetField(fieldDirector, formatTitre(CleanText(Value),GetOption('Format du Titre')));
  // genres
  // Le-Sphinx 12/01/2020 Ajout les Categories
  Value := TextBetween(Page, '<div class="meta-body-item meta-body-info">', '</div>');
  Value := Copy(Value, Pos('<span class="spacer">/</span>', Value)+29, Length(Value) - Pos('<span class="spacer">/</span>', Value)+29);
  Value := Copy(Value, Pos('<span class="spacer">/</span>', Value)+29, Length(Value) - Pos('<span class="spacer">/</span>', Value)+29);
  if Pos('s', Value) = 1 then
    Value := Copy(Value, 2, Length(Value) - 1);
  SetField(fieldCategory, formatTitre(CleanText(Value),GetOption('Format du Titre')));
  // pays
  // Le-Sphinx 12/01/2020 Format du Pays
  Value := TextBetween(Page, UTF8Encode('<span class="what light">Nationalité'), '</div>');
  if Pos('s', Value) = 1 then
    Value := Copy(Value, 2, Length(Value) - 1);
  SetField(fieldCountry, formatTitre(CleanText(Value),GetOption('Format du Titre')));
  // résumé
  Value := TextBetween(Page, UTF8Encode('Synopsis</h2>'), '</section>');
  if Value <> '' then
  begin
    if Pos('certificate-text', Value) > 0 then
    begin
      Value := TextBefore(Value, '</span>', '');
      if CheckVersion(4,2,0) then
      begin
        SetField(fieldCertification, CleanText(Value));
      end;
      SetField(fieldDescription, CleanTextWithBr(RemainingText, True));
    end
    else
      SetField(fieldDescription, CleanTextWithBr(Value, True));
  end;
  // image
  if (CanSetPicture()) and (GetOption('Choix Image') > 0) then
  begin
    Value := TextBetween(Page, '<figure class="thumbnail ">', '</figure>');
    Value := TextBetween(Value, '<img class="thumbnail-img" src="', '"');
    if Value <> '' then
    begin
      if GetOption('Choix Image') = 2 then
      begin
        Value := StringReplace(Value, '/c_215_290/', '/');
        Value := StringReplace(Value, '/c_310_420/', '/');
      end;
      GetPicture(Value);
    end;
  end;
  // Extra Picture Ajouté 2.07 R_V
  if (CheckVersion(4,2,0)) and (GetOption('Extra : Photos du film') = 1) then
  begin
    if pos('/film/fichefilm-'+ID+'/photos', Page) > 0 then   // vérifie que la page photos existe
      begin
        if GetOption('ABlock') = 1 then
        begin
          Launch(urlFicheFilm+ID+'/photos/', '');
          Sleep(StrToInt(GetParam('Pause'), 0));
        end;
        Value := GetPage(urlFicheFilm+ID+'/photos/');
        if Pos('Photos</h2>', Value) <> 0 then
          begin
            Value := TextBetween(Value, 'Photos</h2>', '</section>'); // récupère la portion de code contenant les adresses des photos du film
            Value := StringReplace(Value, '/c_300_300', ''); // Nettoie le code pour récupérer les plus grandes images possibles
            Value := StringReplace(Value, '.JPG', '.jpg');
            Extra_Photos_Film(Value);
          end;
      end;
  end;
  // durée
  // Le-Sphinx 12/01/2020 Ajout Heure du Film en minute
  Value := TextBetween(Page, '<div class="meta-body-item meta-body-info">', '</div>');
  Value := TextBetween(Value, '<span class="spacer">/</span>', '<span class="spacer">/</span>');
  i := StrToInt(TextBefore(Value, 'h', ' '), 0) * 60 + StrToInt(TextBetween(Value, 'h ', 'min'), 0);
  SetField(fieldLength, IntToStr(i));
  // Date de sortie Cinéma (champ Commentaires) Ajouté 2.13 R_V
  // Le-Sphinx 12/01/2020 Ajout de la Date de Sortie
  if CanSetField(fieldComments) then
  begin
    Value := TextBetween(Page, '<div class="meta-body-item meta-body-info">', '</div>');
    Value := TextBetween(Value, '<span class="', '<span class="');
    Value := 'Date de sortie cinéma : ' + CleanText(TextBetween(Value, '">', '</strong>'));
    if GetField(fieldComments) <> '' then
    SetField(fieldComments, GetField(fieldComments)+#13#10#13#10+Value)
    else
    SetField(fieldComments,Value);
  end;
  // note
  if CanSetField(fieldRating) or CanSetField(fieldComments) then
  begin
    Value := TextBetween(Page, '<div class="rating-item">', '<section class="section">');
    GetNote(Value);
  end;
  // Bande Annonce (champ Commentaires) Ajouté 2.13 R_V
  if (CanSetField(fieldComments)) and (Pos('toutes/">Bandes-annonces', Page) > 0) then
  BandeAnnonce(urlAllocine+'/videos/fichefilm-'+ID+'/toutes/');
  // Fiche Technique (champ Commentaires) Ajouté 2.16 R_V
  if (CanSetField(fieldComments)) and (GetOption('Fiche technique') > 0) then
  begin
    Value := TextBetween(Page, 'Voir les infos techniques' , '</section>');
    Value := StringReplace(Value, '<span class="that', ' : <span class="that');
    Value := StringReplace(Value, '<span class="what light">', '##- ');
    Value := CleanText(Value);
    Value := StringReplace(Value, '##', #13#10);
    if GetField(fieldComments) <> '' then
    SetField(fieldComments, GetField(fieldComments)+#13#10#13#10+'Fiche Technique :'+Value)
    else
    SetField(fieldComments, 'Fiche Technique :'+Value);
  end;
  // Equipe Technique (champ Commentaires) Ajouté 2.15 R_V
  if (CanSetField(fieldComments)) and (GetOption('Equipe technique') > 0) then
  EquipeTechnique(urlAllocine + '/film/fichefilm-' + ID + '/casting/');
  // Secrets de tournage  Ajouté 2.09 R_V
  if (CanSetField(fieldComments)) and (GetOption('Secrets de tournage') = 1) then
  begin
	 if (pos('Secrets de tournage</span></h2>', Page) <> 0) then
	 begin
		Value := urlAllocine+'/film/fichefilm-'+ID+'/secrets-tournage/';
		SecretComplet(Value);
	 end;
  end;
  // acteurs
  if GetOption('Acteurs') > 1 then
  begin
    GetActors(urlAllocine + '/film/fichefilm-' + ID + '/casting/');
  end
  else
  if GetOption('Acteurs') = 1 then
  begin
    Value := TextBetween(Page, '<span class="light">Avec</span>', '</div>');
    if Pos(' plus </span>', Value) > 0 then
      Value := TextBefore(Value, ' plus </span>', '');
    SetField(fieldActors, formatTitre(CleanText(Value),GetOption('Format du Titre')));
  end;
  // Pour purger la fin des commentaires de retours à la ligne en trop
  Value := GetField(fieldComments);
  repeat
  Value := deleteEnd(Value, #13#10);
  Until (copy(Value,length(Value)-length(#13#10)+1,length(Value)) <> #13#10);
  SetField(fieldComments, Value);
end;

procedure GetActors(Address: string);
var
  Roles: Boolean;
  Page, Section, Block, Value, Actors: string;
begin
  if GetOption('ABlock') = 1 then
  begin
    Launch(Address, '');
    Sleep(StrToInt(GetParam('Pause'), 0));
  end;
  Page := GetPage(Address);
  if CanSetField(fieldActors) then
  begin
    if Pos('>Acteurs et actrices</h2></div>', Page) > 0 then
    begin
      Section := TextAfter(Page, '>Acteurs et actrices</h2></div>');
      Actors := AllActors(Section);
    end;
    if Pos('>Acteurs de doublage (Voix originales)</h2></div>', Page) > 0 then
    begin
      Section := TextAfter(Page, '>Acteurs de doublage (Voix originales)</h2></div>');
      Value := AllActors(Section);
      if Value <> '' then
      begin
        if Actors <> '' then
          Actors := Actors + ', ' + Value
        else
          Actors := Value;
      end;
    end;
    if Pos('>Acteurs de doublage (Voix locales)</h2></div>', Page) > 0 then
    begin
      Section := TextAfter(Page, '>Acteurs de doublage (Voix locales)</h2></div>');
      Value := AllActors(Section);
      if Value <> '' then
      begin
        if Actors <> '' then
          Actors := Actors + ', ' + Value
        else
          Actors := Value;
      end;
    end;
    SetField(fieldActors, Actors);
  end;
  if CanSetField(fieldProducer) then
  begin
    SetField(fieldProducer, GetPoste(Page, 'Producteur</span>'));
  end;
  if CheckVersion(4,2,0) then
  begin
    if CanSetField(fieldComposer) then
    begin
      SetField(fieldComposer, GetPoste(Page, 'Compositeur</span>'));
    end;
    if CanSetField(fieldWriter) then
    begin
      SetField(fieldWriter, GetPoste(Page, UTF8Encode('Scénariste</span>')));
    end;
  end;
end;

function GetPoste(Section: string; PosteTag: string): string;
var
  Block, Value: string;
begin
  Block := '';
  while Pos(PosteTag, Section) > 0 do
  begin
    Value := TextBetween(Section, PosteTag, '</div>');
    Section := RemainingText;
    if Block <> '' then
      Block := Block + ', ';
    Block := Block + CleanText(Value);
  end;
  Result := Block
end;

procedure GetNote(Value: string);
var
  NotePresse, NoteSpectateurs, NoteSur10,RatingCountSpectateurs: string;
begin
  if (Pos('presse',Value)>0) then
  begin
    NotePresse := TextAfter(Value, '<span class="stareval-note"');
    NotePresse := CleanText(TextBetween(NotePresse, '>', '<'));
    NotePresse := StringReplace(NotePresse, '?', '');
    Value := TextAfter(Value, '<span class="stareval-note"');
  end;
  NoteSpectateurs := TextBetween(Value, '<span class="stareval-note"', '/span>');
  NoteSpectateurs := CleanText(TextBetween(NoteSpectateurs, '>', '<'));
  NoteSpectateurs := StringReplace(NoteSpectateurs, '?', '');
  RatingCountSpectateurs := TextBetween(Value, '<span itemprop="ratingCount">', '</span>');
  if (NotePresse <> '') and (NoteSpectateurs <> '') then
  begin
    NoteSur10 := FloatToStr(arrondir(convert_STF(NotePresse),1) + arrondir(convert_STF(NoteSpectateurs),1));
    SetField(fieldRating,NoteSur10);
  end else
  if (NotePresse <> '') then
  begin
    NoteSur10 := FloatToStr(arrondir(convert_STF(NotePresse),1)*2);
    SetField(fieldRating,NoteSur10);
  end else
  if (NoteSpectateurs <> '') then
  begin
    NoteSur10 := FloatToStr(arrondir(convert_STF(NoteSpectateurs),1)*2);
    SetField(fieldRating,NoteSur10);
  end;
  Value := '';
  if NotePresse <> '' then
  Value := 'Note de la presse : '  + NotePresse + '/5';
  if NoteSpectateurs <> '' then
  begin
    if Value <> '' then
    Value := Value + #13#10 + 'Note des spectateurs : ' + NoteSpectateurs + '/5' + ' (Pour ' + RatingCountSpectateurs + ' notes)'
    else
    Value := 'Note des spectateurs : ' + NoteSpectateurs + '/5' + ' (Pour ' + RatingCountSpectateurs + ' notes)';
  end;
  if (Value <> '') and (GetOption('Détail des notes') > 0) then
  begin
    if GetField(fieldComments) <> '' then
    SetField(fieldComments, GetField(fieldComments)+#13#10#13#10+Value)
    else
    SetField(fieldComments,Value);
  end;
end;

begin
  if CheckVersion(3,5,1) then
  begin
									
		 
																																																																															 
								
		
    MovieName := GetField(fieldUrl);
    if Pos(urlAllocine, MovieName) = 0 then
    begin
      MovieName := recupTitreRecherche(GetOption('Recherche sur le titre'));
    end;
    if ((GetOption('Batch') = 1) and (Pos(urlAllocine, MovieName) > 0)) then
      AnalyzeMoviePage(MovieName)
    else
    begin
      if Input('Allociné', 'Entrez le titre du film ou l''adresse d''une page', MovieName) then
      begin
        if Pos(urlAllocine, MovieName) > 0  then
          AnalyzeMoviePage(MovieName)
        else
        begin
          if CheckVersion(4,2,2) then
            begin
              if (GetOption('Recherche Google') = 0) then
                AnalyzePage(urlSearch + UrlEncode(MovieName))
              else
                begin
                  //ShowMessage('MovieName=' + MovieName);
                  AnalyzePageGoogle();
                end;
              end
          else
            AnalyzePage(urlSearch + UrlEncode(UTF8Encode(MovieName)));
        end;
      end;
    end;
  end else
    ShowMessage('This script requires a newer version of Ant Movie Catalog (at least the version 3.5.1)');
end.

Si ça peut aider. J'ai peut-être pas fait ce qu'il fallait, n'ayant pas compris toute la conversation ci-dessus.

[Merit]

Hello à tous,
Après avoir lu les différentes pistes données sur ce post pour corriger Allociné, j'ai juste remplacé www.google.fr par www.startpage.com (il n'y a qu'une entrée à modifier). Tout semble fonctionner comme avant avec cette modification.

Je serais pas contre curieux de savoir comment je peux copier l'URL d'une fiche Allociné pour la coller dans AMC, je ne vois vraiment pas comment vous parvenez à faire ça, quelque chose doit m'échapper. Si quelqu'un pouvait m'expliquer comment reproduire l'astuce, ça serait très sympa .