(*************************************************** Ant Movie Catalog importation script www.antp.be/software/moviecatalog/ [Infos] Authors=Draco31.fr, bbullot, The Jedi, bad4u, raoul_volfoni Title=CinEmotions Description=Recherche CinEmotions / Données CinEmotions Site=http://www.cinemotions.com/ Language=FR Version=1.3.3 du 15/10/2017 Requires=4.2.1 Comments=Ce script nécessite le fichier ScorEpioNCommonScript.pas|.==.| : ' ( ( ( ( /\ | "==()))))): © ScorEpioN ©| ( ( ( ( \_/ 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] Type de Lancement=0|0|0=Demande le titre avant de lancer le script|1=Ne demande pas le titre avant de lancer le script|2=Lancement automatique sur l'adresse web Format du Titre=3|3|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 Recherche sur le titre=0|0|0=Traduit|1=Original Titre original=0|0|0=Aucun (si non renseigné sur le site)|1=Forcé (Prends le titre traduit si pas de titre original sur le site) Affiche=1|0|0=Prend la petite affiche|1=Prend la grande affiche Liste des Acteurs=1|0|0=Courte|1=Longue Note=2|2|0=Note de CinEmotions|1=Note des membres|2=Note moyenne Classification=1|0|0=Non|1=Oui (Dans champ dédié si AMC 4.2.0 sinon champ Commentaires) Liste des notes=1|0|0=Pas de détail des notes|1=Liste des notes (CinEmotions, Membres) dans le champ commentaire Plus d'infos=1|0|0=Non|1=Oui dans le champ "Commentaires" Critiques=0|1|0=Oui|1=Non [Parameters] ***************************************************) program CinEmotions; uses ScorEpioNCommonScript; //StringUtils1; const VersionScript = '0.8.9_mod du 16/11/2008'; NomScript = 'CinEmotions'; urlDomain = 'https://www.cinemotions.com'; urlCESearch = 'https://www.cinemotions.com/recherche/'; pathCESearch = '/cinema-tv-dvd/film-serie-acteur-actrice-/'; urlCESearchGo = '1.html'; urlCMSearch = 'http://www.cinemoteur.fr/cine-tv-dvd/resultats/1/'; urlCMSearchGo = '1.html'; timetosleep = 500; var MovieName, Titre, urlTitre, Resume, APage, CPage, Epage, Comments : string; CxNote, compteur, premiereExecution, numTemp, lien_URL, Critique : Integer; NoteC, NoteM, Note, NumPage: real; listeResultat : TStringList; //--OK-------------------------------------------------------------------------- // ANALYSE RESULTAT DE RECHERCHE CinEmotions //------------------------------------------------------------------------------ procedure AnalyzeCESearchPage(urlSearch: string); var Line, PageNo, temp, urlPageSuiv, oneresult : string; nbchoix : integer; begin Line := GetPage(urlSearch); if Pos('deblocage_captcha',Line) > 0 then // si il y a trop de requêtes de la part du script, le site bloque son accès à l'utilisateur. Création d'une PickTreeList et utilisation de la fonction "Voir la page" pour amener l'utilisateur du script directement sur la page a débloquer begin PickTreeAdd('Le site CinEmotions a détecté trop de requêtes de votre part et bloque maintenant son accès par un captcha.',''); Delete(Line,1,Pos('