CAn anyone do this ?

[TheJaCKaL]

Hi, i have a question.

anybody can do a script of this webs

http://www.blockbuster.cl
http://www.bazuca.com

what had the webs to be good for a scrip.?

( Quiero decir que deben tener las paginas para poderles hacer un script ? )

If someone can do a script for this pages I CAN SENT A KISS FOR HE... :-) jjajajajaj

Really i will be really happy....

[micmic]

Bazuca is private (tienes que estar registrado)

[micmic]

Well, here you are the first script...

Code: Select all

// GETINFO SCRIPTING
// blockbuster v0.1 by micmic.ifs

(***************************************************
 *  Author: micmic (micmic@dieznet.com)            *
 *  Script for the importation of pictures from    *
 *  blockbuster                                    *
 *                                                 *
 *  For use with Ant Movie Catalog 3.4.0           *
 *  www.ant.be.tf/moviecatalog ··· www.buypin.com  *
 *                                                 *
 *  The source code of the script can be used in   *
 *  another program only if full credits to        *
 *  script author and a link to Ant Movie Catalog  *
 *  website are given in the About box or in       *
 *  the documentation of the program               *
 ***************************************************)

program micmic;
var
  MovieName: string;
const
  Base = 'http://www.blockbuster.cl/?page=shop/browse&keyword=';

function FindLine(Pattern: string; List: TStringList; StartAt: Integer): Integer;
var
  i: Integer;
begin
  result := -1;
  if StartAt < 0 then
    StartAt := 0;
  for i := StartAt to List.Count-1 do
    if Pos(Pattern, List.GetString(i)) <> 0 then
    begin
      result := i;
      Break;
    end;
end;

procedure AnalyzePage(Address: string);
var
  Page: TStringList;
  LineNr: Integer;
  PosIni, PosFin: Integer;
  Line, SubLine: string;
  Title, DirURL: string;
  txtTemp: string;
begin
  Page := TStringList.Create;
  Page.Text := GetPage(Address);

  if Pos('La búsqueda no retornó resultados.', Page.Text) > 0 then
  begin
    ShowMessage('No se ha encontrado ningún artículo por título.');
  end else
  begin
    PickTreeClear;
    PickTreeAdd('Resultados para "' + MovieName + '" en ' + Base + ':', '');
   
    // buscamos los resultados
    LineNr := 0;

    while LineNr < Page.Count do
    begin
      SubLine := Page.GetString(LineNr);
      txtTemp := 'http://www.blockbuster.cl/?page=shop/flypage&product_id';
      PosIni := pos(txtTemp, SubLine);
      if PosIni > 0 then
      begin
        SubLine := Copy(SubLine, PosIni, Length(SubLine));
       
        txtTemp := '">';
        PosFin := pos(txtTemp, SubLine);
        DirURL := Copy(SubLine, 1, PosFin - 1);
        
        LineNr := LineNr + 1;
        SubLine := Page.GetString(LineNr);
        txtTemp := '</a>';
        PosFin := pos(txtTemp, SubLine);
        Title := Copy(SubLine, 1, PosFin - 1);

        //ShowMessage(Title + '-->' + DirURL);
        PickTreeAdd(Title, DirURL);
      end;
      LineNr := LineNr + 1;
    end;

    Page.Free;
    if PickTreeExec(Address) then
      ShowMessage('Working, sorry :( -->' + DirURL);
      //AnalyzeMoviePage(Address);
  end;
end;

// bmicmic: Bucle Principal
begin
  if CheckVersion(3,4,0) then
  begin
    MovieName := GetField(fieldOriginalTitle);
    if MovieName = '' then
      MovieName := GetField(fieldTranslatedTitle);
    Input('Importar de ' + Base, 'Introduce el Titulo de la Pelicula:', MovieName);
    AnalyzePage(Base + UrlEncode(MovieName));
   
  end else
       ShowMessage('Este script necesita una versión superior de Ant Movie Catalog (al menos la version 3.4.0)');
end.

[TheJaCKaL]

Really thankz, u are a very good friend..


When i try open a movie the script throw an error , i test with any movie and it same.


thankz for the help.

The script find the movies but it dont open it

[micmic]

I'm working on it... give me time

[TheJaCKaL]

Hi do u have news for the script ??



t hankz...

[Guest]

CASTELLANO
He tenido algún problema:
-En el campo "director" aparece algo delante com "/tr"
-En el campo del nombre original de la peli aparece "LA BUTACA"

Muchas gracias por el script y espero que pueda mejorarse
------------------
ENGLISH
I had some trubble with your script:
-In the field "director" appears the words "/tr" before the name of the director
-In the field "Original Tittle" appears the words "la butaca"

Thanks for your script and I hope that it can be improved some day