antp.be forum

Official Forum
https://forum.antp.be/phpbb3/

[REL] [EN] [FR] Centralisation ScorEpioN [-SEN-]

https://forum.antp.be/phpbb3/viewtopic.php?t=1453

Page 31 of 80

Posted: 2006-10-27 23:58:28
by Raoul_Volfoni
lovia wrote:
lovia wrote:Pour ma part le script allocine plante lors de la recuperation de l'image du film avec ce message : http:/1.0 408 Request time out

Il ya til une solution à ce problème svp ?
Excusez moi d'insister mais le script Allocine ne fonctionnant pas pour la recuperation d'image j'aimerai savoir sil y avait une correction de faite
Salut Lovia.

Il faudrait nous en dire plus sur ton problème.
Tout d'abord utilises tu la dernière version d'AMC (la 3.5.0.2).
Ensuite utilises tu la dernière version du script d'Allociné de ScorEpioN (la version 52 d'origine sans modif de ta part).
Et enfin quelle option as tu choisis dans le script allociné pour récupérer l'image.
Il y a 5 options possible :
0 = pas d'affiche
1 = petite affiche Allociné (Mandeo a récemment posté le débuggage de cette option)
2 = grande affiche Allociné (Cette option marche chez moi et apparemment chez beaucoup d'autres utilisateurs elle devrait donc logiquement marché chez toi)
3 = grande affiche Amazon (Cette option ne fonctionne plus, je l'ai débuggé mais je n'ai pas posté les changements car il y a 4 blocs de code (3 procédure et 1 fonction) à changer + une constante à modifier. Mais comme je l'ai déjà dit dans un post précedent si vous y tenez je posterais les modifs)
4 = grande affiche Cinefil (Cette option ne fonctionne plus, je l'ai également débuggé et la modif à faire vient juste après)

Donc pour résumer si tu as la version 3.5.0.2 d'AMC avec la version 52 d'origine du Script Allociné de ScorEpioN et que tu as activé l'option 2 du choix de l'image tu devrais en avoir une.
Si ce n'est pas le cas, réussis tu à obtenir une image avec d'autres scripts.
Si ce n'est toujours pas le cas, il y a peut être un truc qui coince au niveau de ta connexion. Mais dans ce cas on peut pas faire grand chose pour toi.

Posted: 2006-10-28 00:11:31
by Raoul_Volfoni
Salut à tous

Comme je l'ai dit dans le post juste au dessus j'ai débuggé la récupération de l'image Cinéfil.

Il faut remplacer la partie intitulée "// RECUPERE L'IMAGE CINEFIL" qui se trouve aux alentours de la ligne 1485

Code: Select all

//------------------------------------------------------------------------------
// RECUPERE L'IMAGE CINEFIL
//------------------------------------------------------------------------------

procedure recupCinefil(Line, title : String);
var
   test, lecouple, letitreCinefil, limageCinefil, temp : String;
   StartPos, i : Integer;
begin
   i := 0;
   StartPos := pos('Résultat', Line);
   delete(Line, 1, StartPos-1);
   StartPos := pos('</table>', Line);
   delete(Line, 1, StartPos+7);
   delete(Line, 1, pos('<TR><TD align=center colspan=7>',Line)+length('<TR><TD align=center colspan=7>'));
   StartPos := pos('[', Line);
   repeat
     delete(Line, 1, StartPos-1);
     // L'année du film CINEFILM
     lanneeCinefil := copy(Line,0,pos(']',Line));
     lecouple := recupTitleAdresseCinefil(Line);
     letitreCinefil := copy(lecouple,0,pos('|',lecouple)-1);
     limageCinefil := copy(lecouple,pos('|',lecouple)+1,length(lecouple)-1);
     test := compareTitle(title,letitreCinefil);
     if test = 'OK' then
     begin
       i :=i+1;
       Sleep(timetosleep);
       temp := GetPage('http://www.cinefil.com/fichefilm_l.cfm?ref='+limageCinefil);
       if (lanneeCinefil = lannee) then
       begin
         if pos('ImagesCinefil/AffichePetitFormat/'+limageCinefil+'.jpeg', temp) <> 0 then
         begin
             GetPicture('http://www.cinefil.com/ImagesCinefil/AfficheGrandFormat/a'+limageCinefil+'.jpeg');
             aucunAmazon := 'ok';
         end else
         begin
             test := 'KO';
             aucunAmazon := 'aucune image';
         end;
       end else
       begin
         test := 'KO';
         aucunAmazon := 'aucune image';
       end;
     end;
     StartPos := pos('</TD></TR>', Line);
     delete(Line, 1, StartPos-1);
     StartPos := pos('[', Line);
  until (StartPos = 0) or  (test = 'OK');
  if (test = 'KO') and (i = 1) then
  begin
     if pos('ImagesCinefil/AffichePetitFormat/'+limageCinefil+'.jpeg', temp) <> 0 then
     begin
       GetPicture('http://www.cinefil.com/ImagesCinefil/AfficheGrandFormat/a'+limageCinefil+'.jpeg');
       aucunAmazon := 'ok';
       test := 'OK';
     end else
     begin
       test := 'KO';
       aucunAmazon := 'aucune image';
     end;
  end else
  if test = 'KO' then
     aucunAmazon := 'aucune image';
end;
Je rappelle à tous que la récupération de l'image ne marche pas forcément pour tous les films car elle s'appuie sur une comparaison de titre et de date qui peuvent différer d'un site à l'autre.
Voilà bonne modif à tous.

Posted: 2006-10-28 00:46:15
by Raoul_Volfoni
@ draco31.fr

Salut draco31.fr
draco31.fr wrote:Pour que la fonction 'Power' soit reconnu, on peut la déclarer nous même comme l'a suggéré Antoine ... / ...
PS: Pas testé mais je pense que ça devrait marcher
Effectivement ça marche :clapping: avec deux, trois adaptations à notre delphi allégé :D

Donc cette longue scéance de cogitation intense pourrait ce résumer à ce programme. ( j'ai beaucoup cogité ... mais c'est toi et antp qui avez été les plus productifs :) )

Code: Select all

program Arrondir_ou_on_veut;
var
  valeur, nbDecimal : String;
//------------------------------------------------------------------------------
function convert_STF (ligne : string ) : extended;
  begin
    if pos(',',ligne) > 0 then
    ligne := stringreplace(ligne,',','.');
    result := StrToFloat(ligne);
  end;
//------------------------------------------------------------------------------
function Arrondir(nombre : extended ; nbDecim : integer) : extended;
var
  p10 : extended;
  begin
    p10 := Power(10,nbDecim);
    result := round(nombre * p10) / p10;
  end;
//------------------------------------------------------------------------------
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;
//------------------------------------------------------------------------------
begin
  valeur := ''; nbDecimal := '';
  Input('Super function Arrondir', 'Entrer une valeur décimale :', valeur);
  Input('Super function Arrondir', 'Nombre de chiffre après la virgule :', nbDecimal);
  ShowMessage('La valeur '+valeur+' avec '+nbDecimal+' chiffre(s) après la virgule est égale à '+(floatToStr(arrondir((convert_STF(valeur)),(StrToInt(nbDecimal,1))))));
end.
Du coup c'est super car je peux récupérer la valeur de mon option "combien de chiffre(s) après la virgule" directement dans la fonction Arrondir.
Merci draco31.fr :grinking:.
Je n'ai plus qu'à me mettre au boulot pour intégrer tout ça. Mais pour l'instant je fais des corrections avec Anton 35 sur ma première version. @+

Posted: 2006-10-30 20:12:51
by SiX-P4cK
Salut.

Avec le new AMC (3.5.0.2) et les script v52 allociné d'origine, impossible de récup les affiches que ce soit 1 (petite affiche allociné) 2 (grande affiche allociné) 3 (affiche amazone) 4 (affichecinéfile)

Par contre 0 ca marche :grinking:

Bon je regarde si je sais faire qqch

Posted: 2006-10-30 20:20:41
by SiX-P4cK
new code site:

Code: Select all

<table cellpadding="0" cellspacing="0" border="0" width="750" style="margin: 0 0 10 0;"><tr><td valign="top" width="120"><img src="http://a69.g.akamai.net/n/69/10688/v1/img5.allocine.fr/acmedia/medias/nmedia/18/36/28/56/18476556.jpg" border="0" alt="" />
old code scorpion:

Code: Select all

//------------------------------------------------------------------------------
// IMPORTE PETITE AFFICHE ALLOCINE
//------------------------------------------------------------------------------

procedure returnPetiteImage(Line : String);
var
   BeginPos, EndPos : Integer;
begin
   if aucunAmazon = 'aucune image' then
   begin
     if (pos('Galerie Photos', Line) > 0) and (pos('AffichetteAllocine.gif', Line) =0) then
     begin
       delete(Line,1, pos('<td valign="top" style="padding:0 10 5 0', Line));       
       GetPicture(findInfo('<img src="', '" border', Line,'0'));
       aucunAmazon := 'ok';
     end else
     begin
       aucunAmazon := 'aucune image';
     end;
   end;
end;
new code test:

Code: Select all

//------------------------------------------------------------------------------
// IMPORTE PETITE AFFICHE ALLOCINE
//------------------------------------------------------------------------------

procedure returnPetiteImage(Line : String);
var
   BeginPos, EndPos : Integer;
begin
   if aucunAmazon = 'aucune image' then
   begin
     if (pos('Galerie Photos', Line) > 0) and (pos('AffichetteAllocine.gif', Line) =0) then
     begin
       delete(Line,1, pos('<table cellpadding="0" cellspacing="0" border="0" width="750" style="margin: 0 0 10 0;"><tr><td valign="top" width="120">', Line));
       GetPicture(findInfo('<img src="', '" border', Line,'0'));
       aucunAmazon := 'ok';
     end else
     begin
       aucunAmazon := 'aucune image';
     end;
   end;
end;
Avec ca moi j'ai les petite image d'allociné.

merci Scorpion trop bien codé ton truc :grinking:

edit: ah grilled qqun avait deja corrigé :o

Posted: 2006-10-30 20:42:06
by SiX-P4cK
bon j'ai un autre bug avec allociné qui m'a l'air plus grave:

Bon dernier AMC et dernier script allociné original (sans ma modif)

extraire des info
d'internet via un script
allociné

Si je rentre:

"melissa" : marche pas, reste sur connected, puis "read timeout'.
"melissa p" : marche nickel

:hum:

C'est pas gagné

Allocine tout coincé

Posted: 2006-10-30 22:13:50
by dku
Salut à tous,

Là c'est tout coincé ... rien ne se pass et 'Read Time Out'.

Bon j'ai été sur le site avec un Browser, c'est lent, lent et lent ...

D'autres ont le même problème ?

Posted: 2006-10-30 22:28:43
by antp
www.allocine.fr a l'air de foirer pas mal ce soir, donc le script ne peut pas faire de miracles :lol: (première chose à vérifier quand un script foire, est-ce que le site fonctionne ;))

Posted: 2006-10-31 01:34:27
by SiX-P4cK
Bien vu je m'ete arrete à la 1er page et elle marchait.

C'est bon ca marche :)

Posted: 2006-11-02 19:15:59
by lovia
ce soir allocine encore tout planté .. g systematiquement un plantage lors du "resolving hostname www.allocine.fr" ... vous aussi ?

Posted: 2006-11-02 21:04:39
by antp
non, a priori c'est ton serveur DNS qui est dans les choux

Allociné

Posted: 2006-11-05 17:31:23
by Maurice Lorieu
J'ai modifié le script pour
- Affichage des notesNotes
- Récupération de l'Image

J'espère que ça peut aider.

Code: Select all

// Rating
  aucun := Line;
  //begin
  Note := '';
  Note1 := '';
  Note2 := '';
  if pos('notepresse', Line) > 0 then
    begin
      Note1 := findinfo ('notepresse=', '&', Line,'0');  //Note Presse Allociné
      Note1 := copy(Note1, 1, 1);
      car := Note1;
      if ((car = '0') or (car = '1') or (car = '2') or (car = '3') or (car = '4') or (car = '5') or (car = '6') or (car = '7') or (car = '8') or (car = '9')) then
      begin  // il y a une note presse
        Note := findinfo ('notepresse=', '&', Line,'0');   //décimales
        car := copy(Note, 3, 1);
        if ((car = '0') or (car = '1') or (car = '2') or (car = '3') or (car = '4') or (car = '5') or (car = '6') or (car = '7') or (car = '8') or (car = '9')) then
        begin   // traitement des décimales
          Note := copy(Note, 3, 1);                       //première décimale
          if (Note = '5') or (Note = '6') or (Note = '7') or (Note = '8') or (Note = '9') then  //arrondi
          begin
            Note1 := IntToStr(StrToINT(Note1,1)+1);
          end;
        end else
        begin   // pas de décimales
          Note1 := copy(Note1, 1, 1);
        end;
        Avertissement := Avertissement + 'Note de la presse : ' + Note1 + '/4  ';
      end;
      Note2 := findinfo ('notepublic=', '"', Line,'0');    //Note Public Allociné
      Note2 := copy (Note2, 1,1);
      car := Note2;
      if ((car = '0') or (car = '1') or (car = '2') or (car = '3') or (car = '4') or (car = '5') or (car = '6') or (car = '7') or (car = '8') or (car = '9')) then
      begin   // il y a une note public
        Note := findinfo  ('notepublic=', '"' , Line,'0');   //décimales
        car := copy(Note, 3 ,1);
        if (car = '0') or (car = '1') or (car = '2') or (car = '3') or (car = '4') or (car = '5') or (car = '6') or (car = '7') or (car = '8') or (car = '9') then
        begin   // traitement des décimales
          Note := copy(Note, 3, 1);                           //première décimale
          if (Note = '5') or (Note = '6') or (Note = '7') or (Note = '8') or (Note = '9') then  //arrondi
          begin
            Note2 := IntToStr(StrToINT(Note2,1)+1);
          end;
        end else
        begin  // pas de décimales
          Note2 := copy(Note2, 1, 1);
        end;
        Avertissement := Avertissement + 'Note des spectateurs : ' + Note2 + '/4 ';
      end;
    end;

Allociné (suite)

Posted: 2006-11-05 17:36:44
by Maurice Lorieu
Et pour les images (encore pb pour petite image Allociné !)

Code: Select all

// Picture

  aucunAmazon := 'aucune image';
  if CanSetPicture then
  begin
    if GetOption('Recherche sur le titre') = 0 then
       Value := GetField(fieldTranslatedTitle)
    else
       Value := GetField(fieldOriginalTitle);
    if aucunAmazon <> 'ok' then
    begin
      imageAmazon(Value);
      returnGrandeImage(Line);
      returnPetiteImage(Line);
    end;
    if aucunAmazon <> 'ok' then
    begin
      anneeFilmCourant(Line);
      imageCinefil(Value);
      returnGrandeImage(Line);
      returnPetiteImage(Line);
    end;
    if aucunAmazon <> 'ok' then
    begin
      returnPetiteImage(Line);
    end;
    if aucunAmazon <> 'ok' then
    begin
        returnGrandeImage(Line);
        returnPetiteImage(Line);
    end;
  end; // CanSetPicture

Posted: 2006-11-05 21:19:52
by antp
J'ai rajouté les balises "code" pour que ce soit un peu plus présentable ;)

note

Posted: 2006-11-11 18:13:51
by faboun90
Bonjours, depuis quelque temps le scripte allocine ne recupere plus les note. Quelqu'un a t'il le meme probleme :??:

Posted: 2006-11-11 21:14:21
by antp
Pour les images il y a une solution qui marche bien ? J'avoue que je n'ai pas testé les divers essais postés ici sur le forum, mais si il y a une version qui est stable et qui marche mieux que la version du script officiellement disponible, il faudrait que je la mette sur mon serveur.

Posted: 2006-11-20 12:32:35
by antp
Y a plus personne ? :D
Est-ce que quelqu'un a déjà vu cette version d'allociné : http://www-org.allocine.fr/ ?
On dirait une version sans pub, et avec moins de décoration autour des infos. Ça serait peut-être une meilleure base pour le script ?

http://www-org.allocine.fr/ ??

Posted: 2006-11-20 13:56:37
by AlainB
Je viens moi aussi de découvrir ce site ce matin et effectivement c'est quand même mieux sans pub!! par contre, j'ai pas compris si c'était fait par les gens de AlloCiné ou un détournement de site. La présentation est un peu différente mais après quelques essais de recherches,tout à l'air bien en place et correspond à la virgule au site "officiel". Voir si Scorpion (ou autre) :D :D veut se pencher sur le sujet.

alain

Posted: 2006-11-20 15:42:11
by antp
Étant donné que c'est juste un autre sous-domaine (www-org au lieu de www) je ne vois pas comment ça pourrait ne pas être officiel. À moins que ce soit quelqu'un travaillant chez Allociné qui ait bricolé ça sans autorisation...

ERREUR DU SCRIPT ??

Posted: 2006-11-20 22:59:15
by AlainB
j'espère ne pas me tromper de lieu pour ce message. J'ai pris ce matin le pack mis à jour du script Allociné et ce soir j'ai voulu m'en servir. J'ai une fenêtre qui me marque ce message :
"Erreur de script dans ALLOCINE_FR : unknown identifier: AUTOUPDATE à la ligne 1695"

Et à la ligne 1695 je lis celà :
AutoUpdate(GetStatic('LastUPD'), VersionScript, NomScript);

quelqu'un peut m'aider sur ce coup ? Merci d'avance

alain

ps: j'ai la version 3.5.0.1
All times are UTC
Page 31 of 80

Powered by phpBB® Forum Software © phpBB Limited