antp.be forum

Code: Select all

// GETINFO SCRIPTING
// cyberdvdx (FR) - Recherche de films - by Bobo

program CyberDvdX;

ConfirmTitre = 1;
    { 1: Demande le titre avant de lancer le script
      2: Ne demande pas le titre avant de lancer le script, 0 : Ne demande aucune comfirmation, 3 : Aucune Confirmation Premier Film si multiples resultats}
  // Pour récupérer ou non un champs
  TitreTraduitConst = False;
  TitreOrignalConst = True;
  CategorieConst = True;
  AdresseWebConst = True;
  SynopsisConst = True;
  
var
  url_recherche, MovieName, Adresse, AdressePlus, La_liste, LaAllocine_FR, LaPremiereGrandeImage, Reponse, AdresseSuivant, AdressePrecedent, LePremierFilmAdresse, strTemp, aucunAmazon : string;
  numPage, numPageG, numPageR, grandeTaille, premiereTaille, compteur, premiereExecution, numTemp : Integer;

//------------------------------------------------------------------------------
// ANALYSE DE LA PAGE D'ACCUEIL
//------------------------------------------------------------------------------
function AnalyzePageAccueil(url_accueil : String) : string;
var
  debut, fin : Integer;
  Page: TStringList;
  temp, Line, Line2 : String;

begin
  Page := TStringList.Create;
  Page.Text := GetPage(url_accueil);

  debut := pos('<FORM method="GET" action="/GSWeb/microcom.gswa', Page.Text)+10;
  Line := copy(Page.Text,debut,length(Page.Text)-debut+1);
  
  debut := pos('<FORM method="GET" action="/GSWeb/microcom.gswa', Line)+10;
  Line := copy(Line,debut,length(Line)-debut+1);
  
  debut := pos('<FORM method="GET" action="/GSWeb/microcom.gswa', Line);
  Line := copy(Line,debut,400);

  debut := pos('/', Line);
  fin := pos('">', Line);
  Line := copy(Line,debut,fin-debut);
  result := 'http://www.cyberdvdx.com'+Line+'?1.1.3.3.11.7.1.1='+MovieName+'&SearchType=title&1.1.3.3.11.7.1.14.x=51&1.1.3.3.11.7.1.14.y=12';
end;


procedure AnalyzePage(Address: string);
var
  Page: TStringList;
  LineNr: Integer;
  Line: string;
  BeginPos, EndPos : Integer;
begin

  Page := TStringList.Create;

  Launch(Address, ''); // si on enlève ça, ça ne marche plus :(
  Page.Text := GetPage(Address);

  // 1) pas de résultat
  if (pos('<b>Résultat de la recherche</b>',Page.Text) <> 0) and (pos('<!-- Small film -->', Page.Text) = 0) then
  begin
  if (ConfirmTitre = 1) or (ConfirmTitre = 2) then
  begin
    showmessage('Aucun film trouvé pour : '+MovieName);
    exit;
  end else
  begin
    SetField(fieldURL, 'cyberdvdx : aucun résultat');
    exit;
  end;
  end;

  // 2) résultat unique et donc la page de résulat est celle du film
  if pos('<b>Résultat de la recherche</b>',Page.Text) = 0 then
  begin
    showmessage('résultat unique');
  exit;
  end;
  
  // 3) sinon
  showmessage('résultat multiple');
  exit;

end;

//------------------------------------------------------------------------------
// NETTOIE LE TITRE DU FICHIER POUR AVOIR LE TITRE DE FILM
//------------------------------------------------------------------------------

function cleanTitle(title : String) : string;
var
  i,j, fin : Integer;
  temp : String;

begin
  title := AnsiUpperCase(title);

  if title <> '' then
  begin
// Nettoie les tags fichiers, merci Atmosfear pour les tags
  i:=pos('.DVD',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.DIVX',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.FREN',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.GERM',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.INT',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.LIM',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.PROP',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.REPACK',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.SUBB',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.UNSUB',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.WS',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.XVID',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.AC3',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.UNRAT',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;

   title := StringReplace(title, '.', ' ');
   title := StringReplace(title, ',', ' ');
   title := StringReplace(title, ':', '');
   title := StringReplace(title, '-', '');
   title := StringReplace(title, '  ', ' ');

   i := 0;
// Nettoie les tags de team
   if (pos('(',title) <> 0) then
   begin
     i := pos('(',title);
     temp := copy(title,0,i-1);
     j := pos(')',title);
     fin := Length(title);
     title := temp + copy(title,j+1,fin);
   end;

   if (pos('[',title) <> 0) then
   begin
     i := pos('[',title);
     temp := copy(title,1,i-1);
     j := pos(']',title);
     fin := Length(title);
     title := temp + copy(title,j+1,fin);
   end;

   title := AnsiLowerCase(title);
   title := AnsiUpFirstLetter(title);
   title := AnsiMixedCase(title,' -');
  end;
   result := title;
end;


//------------------------------------------------------------------------------
// PROGRAMME PRINCIPAL
//------------------------------------------------------------------------------
begin
  if CheckVersion(3,4,0) then
  begin
    numPageR := 1;
    MovieName := GetField(fieldTranslatedTitle);
    if MovieName = '' then
      MovieName := GetField(fieldOriginalTitle);
    MovieName := cleanTitle(MovieName);
    if (ConfirmTitre = 1) then
    begin
      if Input('DVD Maxxx', 'Entrez le titre du film :', MovieName) then
      begin
        url_recherche := AnalyzePageAccueil('http://www.cyberdvdx.com/GSWeb/microcom.gswa');
        AnalyzePage(url_recherche);
      end;
    end;
  end;
end;