i changed the script for imdb a bit and made it compatible to filmposter-archiv.de.
It only imports the filmposters.
Perhaps somebody needs it
Code: Select all
// GETINFO SCRIPTING
// Bild von Filmposterarchiv.de
program filmposterarchiv;
var
MovieName: string;
const
fp_Server = 'http://www.filmposter-archiv.de/';
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;
// wenn mehrere Ergebnisse
procedure AnalyzePage(Address: string);
var
Page: TStringList;
LineNr: Integer;
begin
Page := TStringList.Create;
Page.Text := GetPage(Address);
if pos('<TITLE>Filmposter-Archiv - Filmposter-Suche', Page.Text) = 0 then
begin
AnalyzeMoviePage(Page)
end else
begin
PickTreeClear;
LineNr := 0;
LineNr := FindLine('<OL>', Page, LineNr);
if LineNr > -1 then
begin
PickTreeAdd('Suche nach "' + MovieName + '" ergab mehrere Treffer:', '');
AddMoviesTitles(Page, LineNr);
end;
if PickTreeExec(Address) then
AnalyzePage(Address);
end;
Page.Free;
end;
//wenn Filmseite
procedure AnalyzeMoviePage(Page: TStringList);
var
Line, Value, Value2, FullValue: string;
LineNr: Integer;
BeginPos, EndPos: Integer;
begin
// Picture
LineNr := FindLine('<IMG SRC="../p_', Page, 0);
if LineNr > -1 then
begin
Line := Page.GetString(LineNr);
BeginPos := pos('SRC="', Line) + 4;
Delete(Line, 1, BeginPos);
EndPos := pos('"', Line);
Value := copy(Line, 1, EndPos - 1);
GetPicture(Value, False); // False = do not store picture externally ; store it in the catalog file
end;
DisplayResults;
end;
procedure AddMoviesTitles(Page: TStringList; var LineNr: Integer);
var
Line: string;
MovieTitle, MovieAddress, PictureKiloByte, AdditionalInfo: string;
StartPos: Integer;
begin
repeat
LineNr := LineNr + 1;
Line := Page.GetString(LineNr);
// ShowMessage(Line);
StartPos := pos('<LI>', Line);
if StartPos > 0 then
begin
StartPos := StartPos + 4;
MovieTitle := copy(Line, StartPos, pos(' <A', Line) - StartPos);
HTMLDecode(Movietitle);
HTMLRemoveTags(Movietitle);
StartPos := pos(' kByte', Line) - 3;
PictureKiloByte := copy(Line, StartPos, pos(' kByte', Line) - StartPos);
MovieTitle := MovieTitle + ' | ' + Trim(PictureKiloByte) + ' kByte';
StartPos := pos('[', Line) + 1;
AdditionalInfo := copy(Line, StartPos, pos(']', Line) - StartPos);
if AdditionalInfo <> '' then
MovieTitle := MovieTitle + ' | [' + AdditionalInfo + ']';
StartPos := pos('_gr.php3?id=', Line) + 12;
MovieAddress := copy(Line, StartPos, pos('" TARGET="', Line) - StartPos);
PickTreeAdd(MovieTitle, fp_Server + 'html/anzeige_gr.php3?id=' + MovieAddress);
end;
until pos('</OL>', Line) > 0;
end;
begin
if CheckVersion(3,4,0) then
begin
MovieName := GetField(fieldOriginalTitle);
if MovieName = '' then
MovieName := GetField(fieldTranslatedTitle);
if Input('Filmposter-Archiv.de', 'Geben Sie den Namen den Films ein:', MovieName) then
begin
AnalyzePage( fp_Server + 'html/suche.php3?sent=1&language=german&filmtitel='+UrlEncode(MovieName));
end;
end else
ShowMessage('This script requires a newer version of Ant Movie Catalog (at least the version 3.4.0)');
end.
here is the source edited by me:
Well, i have some sporadic problems with that script. it can't handle id's with less than 4 digits and has some problems with some movies (don't know exactly, why...) Could someone help me find a solution? f.e. American Pie II won't work for me (Blade II works fine). It doesn't cut the url properly in some cases ("TARGET="plakatanzeige"><IMGSRC=". after the id). Can someone help?