antp.be forum

Code: Select all

<div align="justify"><h4>

Code: Select all

<div align="justify" style="padding: 5 0 5 0"><h4>

Code: Select all

procedure AnalyzePage(Address: string);
var
  Line: string;
  BeginPos, EndPos : Integer;
begin
  Line := GetPage(Address);

  SetArrayLength(listeMessagesF,2);
  SetArrayLength(listeMessagesS,2);
  listeMessagesF[0] := 'Aucun film trouvé';
  listeMessagesS[0] := 'Aucune série trouvée';
  listeMessagesF[1] := '<b>Films <h4>';
  listeMessagesS[1] := '<b>Séries TV <h4>';

  if pos('Recherche : <b>""</b>', Line) <> 0 then
     exit;

  if pos('Pas de résultats',Line) <> 0 then
  begin
    if (GetOption('Type de Lancement') = 1) or (GetOption('Type de Lancement') = 2) then
    begin
      showmessage(retourneElement(0)+' pour : '+MovieName);
      exit;
    end else
    begin
      SetField(fieldChecked, '');
      exit;
    end;
  end;

  if pos('Recherche :', Line) = 0 then
  begin
    AnalyzeMoviePage(Address);
  end else
  begin
    PickTreeClear;
    if pos(retourneElement(1), Line) > 0 then
      AddMoviesTitles(findInfo('<td colspan="2" valign="top">', '</table>', Line,'1'));
    //menuScorEpioN();
    if compteur = 1 then
    begin
      compteur := 0;
      AnalyzeMoviePage(copy(listeResultat.GetString(0),pos('|',listeResultat.GetString(0))+1,pos('[',listeResultat.GetString(0))-pos('|',listeResultat.GetString(0))-1));
      exit;
    end else if (GetOption('Type de Lancement') = 1) or (GetOption('Type de Lancement') = 2) then
    begin
      begin
        if PickTreeExec(Address) then
        begin
          //if execMenuScorEpioN(urlDomain, Address) = False then
          //begin
            if (Address = AdressePlus) then
            begin
              numPageR := numPageR+1;
  	          AnalyzePage(AdressePlus);
            end else
            if (Address = AdressePrecedent) then
            begin
              numPageR := numPageR-1;
  	          AnalyzePage(AdressePrecedent);
            end else
            if (Address = AdresseSuivant) then
            begin
              numPageR := numPageR+1;
  	          AnalyzePage(AdresseSuivant);
            end else
            begin
              AnalyzeMoviePage(Address);
            end;
          //end;
        end;
      end;
    end else
    begin
      if (GetOption('Type de Lancement') = 0) then
      begin
        sleep(timetosleep);
        if trouveResultat(MovieName) <> '' then
          AnalyzeMoviePage(trouveResultat(MovieName));
      end ;
    end;
  end;
end;