Hola a todos, hace tiempo que para descargar carteles usaba ALPACINE, pero por lo que veo la página ya no funciona, hay otros script como el de cover carátulas que funciona la página pero no el script.
¿Alguime me puede deicr si hay algún script para covercarátulas u otro script para bajar carteles de cine en español?
Saludos
[ES] Cover caratulas
Aqui tienes un script personal que tenia.
Code: Select all
(***************************************************
Ant Movie Catalog importation script
www.antp.be/software/moviecatalog/
[Infos]
Authors=Legrad
Title=IndexDVD caratula (ES)
Description=
Site=www.index-dvd.com
Language=ES
Version=1.1
Requires=3.5.0
Comments=
License=
GetInfo=1
[Options]
***************************************************)
program IndexDVD;
var
MovieName: string;
MovieURL: string;
//------------------------------------------------------------------------------------
function Comillas(var S: string): string;
var
n,len, tag: Integer;
c: char;
t: String;
begin
tag := 0;
t := '';
len := length(s);
for n :=1 to len do
begin
c := Copy(s,n,1);
if c = '''' then
c := ' ';
t := t + c;
end
s := t;
result := t;
end;
//-------------------------------------------------------------------------------
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;
//------------------------------------------------------------------------------------
function TextBetween(var S: string; StartTag: string; EndTag: string): string;
var
InitialPos: Integer;
begin
InitialPos := Pos(StartTag, S);
if InitialPos = 0 then
result := ''
else
begin
Delete(S, 1, InitialPos + Length(StartTag) - 1);
InitialPos := Pos(EndTag, S);
if InitialPos = 0 then
result := S
else
begin
result := copy(S, 1, InitialPos - 1);
Delete(S, 1, InitialPos + 1);
end;
end;
end;
//---------------------------------------------------------------------
function Caracter(str1: string) :string;
begin
str1 := StringReplace(str1, 'á' , 'à');
str1 := StringReplace(str1, 'é' , 'é');
str1 := StringReplace(str1, 'Ã', 'í');
Str1 := StringReplace(Str1, 'ó', 'ó');
str1 := StringReplace(str1, 'ú' , 'ú');
str1 := StringReplace(str1, 'ñ' , 'ñ');
str1 := StringReplace(str1, 'Ã', 'Á');
str1 := StringReplace(str1, 'É', 'É');
str1 := StringReplace(str1, 'Ã', 'Í');
str1 := StringReplace(str1, 'Ó', 'Ó');
str1 := StringReplace(str1, 'Ú', 'Ú');
str1 := StringReplace(str1, 'Ñ', 'Ñ');
str1 := StringReplace(str1, 'Â', '');
result := str1;
end;//------------------------------------------------------------------------------------
function DeleteTags(var S: string): string;
var
n,len, tag: Integer;
c: char;
t: String;
begin
tag := 0;
t := '';
len := length(s);
for n :=1 to len do
begin
c := Copy(s,n,1);
if c = #9 then
c := ' ';
if(tag=1) then
begin
if(c='>') then tag := 0;
continue;
end
else
begin
if(c='<') then
begin
tag := 1;
continue;
end;
t := t + c;
end;
end
s := t;
result := t;
end;
//------------------------------------------------------------------------------------
procedure AnalyzePage(Address: string);
var
strPage, MovieAddr, MovieTitle, MovieDate, MovieID, Movie: string;
BeginPos, EndPos: Integer;
BeginPoss, EndPoss: Integer;
begin
strPage := GetPage(Address);
BeginPos := Pos('ficha(s) encontrada(s)', strPage);
if(BeginPos > -1)then
begin
PickTreeClear;
Delete(strPage, 1, BeginPos);
BeginPos := Pos('class=''texto3''> <a href=''http://www.index-dvd.com/', strPage);
EndPos := 1;
while ((BeginPos > 0) and (EndPos > 0)) do
begin
Delete(strPage, 1, BeginPos);
EndPos := Pos('html', strPage);
MovieId := Copy(strPage,+54, EndPos-54);
MovieAddr := 'http://www.index-dvd.com/' + MovieId+'html';
BeginPoss := Pos('title=',strPage);
EndPoss := Pos('</td>', strPage);
MovieTitle := Copy(strPage,BeginPoss, EndPoss);
MovieTitle := TextBetween(MovieTitle , '"', '" class');
MovieTitle := StringReplace(MovieTitle , 'DVD Video', ' (DVD)');
MovieTitle := StringReplace(MovieTitle , 'Cine', ' (CINE)');
MovieTitle := StringReplace(MovieTitle , 'Blu-Ray', ' (BLU-RAY)');
MovieTitle := StringReplace(MovieTitle , 'Alquiler', ' (ALQUILER)');
DeleteTags(MovieTitle);
MovieTitle := Caracter(MovieTitle);
PickTreeAdd(MovieTitle,MovieAddr);
PickTreeSort;
BeginPos := Pos('class=''texto3''> <a href=''http://www.index-dvd.com/', strPage);
if(Pos('</body>', strPage) < BeginPos) then
BeginPos := -1;
end;
end;
PickTreeExec(Address)
AnalyzeMoviePage(Address);
end;
//------------------------------------------------------------------------------------
procedure AnalyzeMoviePage(Address: string);
var
Page: TStringList;
LineNr: Integer;
Line: string;
Item: string;
dir: string;
Comments: string;
Actors: string;
Directors: string;
Description: string;
Busca: integer;
begin
Description := '';
// URL
//SetField(fieldURL, Address);
Page := TStringList.Create;
Page.Text := GetPage(Address);
// Caratula
LineNr := FindLine('[img]http://www.index-dvd.com/covers/300/', Page, 0);
if LineNr > 0 then
begin
Item := copy(Page.Text, pos('[img]http://www.index-dvd.com/covers/300/',Page.Text), length(Page.Text));
Item := TextBetween (Item, '[img]http://www.index-dvd.com/covers/300/', '[/img]');
Item := StringReplace(Item, '300', '600');
Item := Trim(Item );
HTMLDecode(Item);
GetPicture ('http://www.index-dvd.com/covers/600/'+Item);
end;
end;
//-------------------------------------------------------------------------
begin
if (CheckVersion(3,5,0)=FALSe) then
begin
ShowMessage('Se requiere Ant Movie Catalog versión 3.5 o superior');
exit;
end;
MovieName := GetField(fieldTranslatedTitle);
if MovieName = '' then
MovieName := GetField(fieldOriginalTitle);
Input('IndexDVD', 'Buscar:', MovieName);
if(GetOption('Sin resultado') = 0) then Input('IndexDVD', 'Buscar:', MovieName);
AnalyzePage('http://www.index-dvd.com/calendar_ult.php?tema=&order=tit&busqueda=' + UrlEncode(MovieName)+'&Submit.x=0&Submit.y=0');
end.
Last edited by legrad on 2012-08-14 14:22:24, edited 1 time in total.