TMdb.ifs
À propos du fichier
- Type de fichier
- Fichier IFS de 15 Ko (text/html)
- Confidentialité
- Fichier public, envoyé le 18 août 2013 à 04:59, depuis l'adresse IP 81.50.x.x (France)
- Sécurité
- Ne contient aucun Virus ou Malware connus - Dernière vérification: hier
- Statistiques
- La présente page de téléchargement a été vue 1173 fois depuis l'envoi du fichier
- Page de téléchargement
-
Aperçu du fichier
(***************************************************
Ant Movie Catalog importation script
www.antp.be/software/moviecatalog/
[Infos]
Authors=Legrad
Title=TMdb
Description=
Site=http://www.themoviedb.org/
Language=EN,...
Version=1.0.1
Requires=3.5.1
Comments=
License=
GetInfo=1
RequiresMovies=1
[Options]
[Parameters]
Language=en|en|Put language code here to choose language for tmdb (default en=english, fr=francais, ...)
***************************************************)
program TMdb;
var
MovieName: string;
MovieURL: string;
//------------------------------------------------------------------------------------
function UpFirstLetterWord(texto:string):string;
var espaco:integer;
sst:string;
begin
texto:=AnsiUpFirstLetter(AnsiLowerCase(texto));
repeat
espaco:=Pos(' ',texto);
sst:=AnsiUpperCase(Copy(texto,espaco+1,1));
texto:=Copy(texto,1,espaco-1)+'/|\'+sst+Copy(texto,espaco+2,length(texto));
until Pos(' ',texto)=0;
texto := StringReplace(texto, '/|\', ' ');
if Copy(texto,1,1)=' ' then
texto:=Copy(texto,2,length(texto));
result:=texto;
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 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;
BeginPos2, EndPos2: Integer;
begin
strPage := GetPage(Address);
BeginPos := Pos('<h2>Movie Results</h2>', strPage);
if(BeginPos > -1)then
begin
PickTreeClear;
Delete(strPage, 1, BeginPos);
BeginPos := Pos('<h3><a href="/movie/', strPage);
EndPos := 1;
while ((BeginPos > 0) and (EndPos > 0)) do
begin
Delete(strPage, 1, BeginPos);
EndPos := Pos('" title=', strPage);
MovieId := Copy(strPage, +13, EndPos-13);
MovieAddr := 'http://www.themoviedb.org' + MovieId;
BeginPos2 := Pos('">',strPage) + 2;
EndPos2 := Pos('</span>', strPage);
MovieTitle := Copy(strPage, BeginPos2, EndPos2-BeginPos2);
BeginPos2 := Pos('<p>Director',strPage) + 3;
EndPos2 := Pos('</p>', strPage);
MovieTitle := MovieTitle + ' - ' + Copy(strPage, BeginPos2, EndPos2-BeginPos2);
DeleteTags(MovieTitle);
MovieTitle := UTF8Decode(MovieTitle);
PickTreeAdd(MovieTitle, MovieAddr);
PickTreeSort;
BeginPos := Pos('<h3><a href="/movie/', 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;
Comments: String;
Actors: string;
Directors: string;
Description: string;
Busca: integer;
begin
Description := '';
Comments := '';
// URL
SetField(fieldURL, Address);
Page := TStringList.Create;
Page.Text := GetPage(Address + '?language=' + GetParam('Language'));
//fieldOriginalTitle
//fieldTranslatedTitle
LineNr := FindLine('id="title"><a href="/movie/', Page, 0);
Line := Page.GetString(LineNr);
Item := TextBetween (Line, '<span itemprop="name">', '</span>');
HTMLDecode(Item);
LineNr := FindLine('<h3>Original Title</h3>', Page, 0);
if LineNr > 0 then
begin
SetField(fieldTranslatedTitle, Trim ( UTF8Decode(Item)));
Line := Page.GetString(LineNr + 1);
Item := TextBetween (Line, '<p>', '</p>');
HTMLDecode(Item);
SetField(fieldOriginalTitle, Trim ( UTF8Decode(Item)));
end
else
SetField(fieldOriginalTitle, Trim ( UTF8Decode(Item)));
//fieldYear
LineNr := FindLine('id="title"><a href="/movie/', Page, 0);
Line := Page.GetString(LineNr);
Item := TextBetween (Line, '<h3 id="year">(', ')</h3>');
HTMLDecode(Item);
SetField(fieldYear, Trim (Item));
// fieldRating
LineNr := FindLine('<p class="average">', Page, 0);
Line := Page.GetString(LineNr);
Item := TextBetween (Line, 'itemprop="ratingValue">', '</span>');
HTMLDecode(Item);
SetField(fieldRating, Trim (Item));
//fieldLength
LineNr := FindLine('<p><strong>Runtime:</strong> <span id="runtime">', Page, 0);
if LineNr > 0 then
begin
Line := Page.GetString(LineNr);
Item := TextBetween (Line, '<span id="runtime">', '</p>');
Item := TextBetween (Item, '/>', '</span>');
HTMLDecode(Item);
SetField(fieldLength, Trim (Item));
end;
//fieldDescription
LineNr := FindLine('id="overview"', Page, 0);
if LineNr > 0 then
begin
Line := Page.GetString(LineNr);
Item := TextBetween (Line, 'itemprop="description">', '</p>');
HTMLDecode(Item);
SetField(fieldDescription, Trim ( UTF8Decode(Item)));
end;
// fieldDirector
LineNr := FindLine('<td class="job">Director', Page, 0);
if LineNr > 0 then
begin
Line := Page.GetString(LineNr + 1);
Item := TextBetween (Line, '<span itemprop="name">', '</td>');
Item := DeleteTags(Item );
HTMLDecode(Item);
SetField(fieldDirector, Trim ( UTF8Decode(Item)));
end;
// fieldActors
LineNr := FindLine('<div class="castItem">', Page, 0);
if LineNr > 0 then
begin
Item := copy(Page.Text, pos('<div class="castItem">',Page.Text), length(Page.Text));
Item := TextBetween (Item, '<span class="text">', '</table>');
Item := StringReplace (Item, '<div class="castItem">', '), ');
Item := StringReplace (Item, ' as ', '(as ');
Item := StringReplace (Item, #13#10, '');
Item := StringReplace (Item, ' ', '');
Item := DeleteTags(Item );
Item := StringReplace (Item, ' ), ', '), ');
Item := StringReplace (Item, '(', ' (');
SetField(fieldActors,( UTF8Decode(Item)));
end;
// fieldCategory
LineNr := FindLine('<h3>Genres</h3>', Page, 0);
if LineNr > 0 then
begin
Item := Copy(Page.Text, pos('<h3>Genres</h3>',Page.Text), length(Page.Text));
Item := TextBetween (Item, '<li>', '<div');
Item := DeleteTags(Item );
Item := Trim (Item);
Item := StringReplace (Item, ' ', ', ');
Item := StringReplace (Item, ', ', ',');
HTMLDecode(Item);
SetField(fieldCategory, UTF8Decode(Item));
end;
//Page change to show full crew
SetField(fieldURL, Address+'/cast');
Page := TStringList.Create;
Page.Text := GetPage(Address + '/cast' + '?language=' + GetParam('Language'));
// fieldComments
LineNr := FindLine('<h4>Writing</h4>', Page, 0);
if LineNr <> -1 then
begin
Item := copy(Page.Text, pos('<h4>Writing</h4>',Page.Text), length(Page.Text));
Item := TextBetween (Item, '<tr>', '</table>');
Item := StringReplace (Item, '</tbody>', '**');
Item := StringReplace (Item, #13#10, '');
Item := StringReplace (Item, '<td class="job">', ' (');
Item := StringReplace (Item, ' </tr>', '), ');
HTMLDecode(Item);
Item := DeleteTags(Item );
Item := StringReplace (Item,' ', '');
Item := StringReplace (Item,',', ', ');
Item := StringReplace (Item,', ** ', '');
Comments := Comments + 'Writer: ' + Item +#13#10;
end;
// fieldComments
LineNr := FindLine('<h4>Editing</h4>', Page, 0);
if LineNr <> -1 then
begin
Item := copy(Page.Text, pos('<h4>Editing</h4>',Page.Text), length(Page.Text));
Item := TextBetween (Item, '<tr>', '</table>');
Item := StringReplace (Item, '</tbody>', '**');
Item := StringReplace (Item, #13#10, '');
Item := StringReplace (Item, '<td class="job">', ' (');
Item := StringReplace (Item, ' </tr>', '), ');
HTMLDecode(Item);
Item := DeleteTags(Item );
Item := StringReplace (Item,' ', '');
Item := StringReplace (Item,',', ', ');
Item := StringReplace (Item,', ** ', '');
Comments := Comments + 'Editing: ' + Item +#13#10;
end;
// fieldComments
LineNr := FindLine('<h4>Sound</h4>', Page, 0);
if LineNr <> -1 then
begin
Item := copy(Page.Text, pos('<h4>Sound</h4>',Page.Text), length(Page.Text));
Item := TextBetween (Item, '<tr>', '</table>');
Item := StringReplace (Item, '</tbody>', '**');
Item := StringReplace (Item, #13#10, '');
Item := StringReplace (Item, '<td class="job">', ' (');
Item := StringReplace (Item, ' </tr>', '), ');
HTMLDecode(Item);
Item := DeleteTags(Item );
Item := StringReplace (Item,' ', '');
Item := StringReplace (Item,',', ', ');
Item := StringReplace (Item,', ** ', '');
Comments := Comments + 'Music: ' + Item +#13#10;
end;
// fieldComments
LineNr := FindLine('<h4>Camera</h4>', Page, 0);
if LineNr <> -1 then
begin
Item := copy(Page.Text, pos('<h4>Camera</h4>',Page.Text), length(Page.Text));
Item := TextBetween (Item, '<tr>', '</table>');
Item := StringReplace (Item, '</tbody>', '**');
Item := StringReplace (Item, #13#10, '');
Item := StringReplace (Item, '<td class="job">', ' (');
Item := StringReplace (Item, ' </tr>', '), ');
HTMLDecode(Item);
Item := DeleteTags(Item );
Item := StringReplace (Item,' ', '');
Item := StringReplace (Item,',', ', ');
Item := StringReplace (Item,', ** ', '');
Comments := Comments + 'Camera: ' + Item +#13#10;
end;
// fieldComments
LineNr := FindLine('<h3>Trailers', Page, 0);
if LineNr <> -1 then
begin
Item := copy(Page.Text, pos('<h3>Trailers',Page.Text), length(Page.Text));
Item := TextBetween (Item, '/> <a href="', '" target="_blank">');
HTMLDecode(Item);
Item := DeleteTags(Item );
Comments := Comments + 'Trailer: ' + Item +#13#10;
end;
// fieldComments
LineNr := FindLine('<h3>Plot Keywords</h3>', Page, 0);
if LineNr <> -1 then
begin
Item := copy(Page.Text, pos('<h3>Plot Keywords</h3>',Page.Text), length(Page.Text));
Item := TextBetween (Item, '<h3>Plot Keywords</h3>', '</div></ul>');
Item := StringReplace (Item,#13#10, '');
Item := StringReplace (Item,'</a></li>', ', ');
Item := StringReplace (Item,'<div style="clear: left;">', '*');
HTMLDecode(Item);
Item := DeleteTags(Item );
Item := StringReplace (Item,', *', '');
Comments := Comments + 'Plot Keywords:' + Item +#13#10;
end;
// fieldComments
LineNr := FindLine('<h3>Movie Facts</h3>', Page, 0);
if LineNr <> -1 then
begin
Item := copy(Page.Text, pos('<h3>Movie Facts</h3>',Page.Text), length(Page.Text));
Item := TextBetween (Item, '<h3>Movie Facts</h3>', '<span id="homepage">');
HTMLDecode(Item);
Item := DeleteTags(Item );
Comments := Comments + #13#10+'-Movie Facts-' + Item +#13#10;
end;
// fieldComments
LineNr := FindLine('<h3>Release Info</h3>', Page, 0);
if LineNr <> -1 then
begin
Item := copy(Page.Text, pos('<h3>Release Info</h3>',Page.Text), length(Page.Text));
Item := TextBetween (Item, '<h3>Release Info</h3>', '</ul>');
Item := StringReplace (Item,#13#10, '');
HTMLDecode(Item);
Item := StringReplace (Item,'</p></li>', #13#10);
Item := DeleteTags(Item );
Comments := Comments + #13#10+'-Release Info-' +#13#10+ Item;
end;
SetField(fieldComments, UTF8Decode( Comments));
// fieldProducer
LineNr := FindLine('<h4>Production</h4>', Page, 0);
if LineNr <> -1 then
begin
Item := copy(Page.Text, pos('<h4>Production</h4>',Page.Text), length(Page.Text));
Item := TextBetween (Item, '<tr>', '</tbody>');
Item := StringReplace (Item, #13#10, '');
Item := StringReplace (Item, '<td class="job">', ' (');
Item := StringReplace (Item, ' </tr>', '), ');
HTMLDecode(Item);
Item := DeleteTags(Item );
Item := StringReplace (Item,' ', '');
Item := StringReplace (Item,',', ', ');
SetField(fieldProducer, Trim ( UTF8Decode(Item)));
end;
// SetField(fieldURL, Address+'/posters');
// Page := TStringList.Create;
// Page.Text := GetPage(Address + '/posters + '?language=' + GetParam('Language')');
// Cover
LineNr := FindLine('<img id="upload_poster"', Page, 0);
if LineNr <> -1 then
begin
Line := Page.GetString(LineNr);
Item := TextBetween (Line, 'src="', '" ');
Item := StringReplace (Item,'w185', 'original');
GetPicture (Item);
end;
// LineNr := FindLine('<img src="http://cf2.imgobject.com/', Page, 0);
// <div id="image_panel">
// if LineNr <> -1 then
// begin
// Item := copy(Page.Text, pos('<img src="http://cf2.imgobject.com/',Page.Text), length(Page.Text));
// Item := TextBetween (Item, '<img src="http://cf2.imgobject.com/', '"');
// Item := StringReplace (Item,'w185', 'original');
// HTMLDecode(Item);
// GetPicture ('http://cf2.imgobject.com/'+Item);
// end;
end;
//-------------------------------------------------------------------------
begin
if (CheckVersion(3,5,1)=FALSe) then
begin
ShowMessage('Need Ant Movie Catalog version 3.5.1 or higher');
exit;
end;
MovieName := GetField(fieldTranslatedTitle);
if MovieName = '' then
MovieName := GetField(fieldOriginalTitle);
Input('TMdb', 'Search:', MovieName);
if(GetOption('No result') = 0) then Input('TMdb', 'Search:', MovieName);
AnalyzePage('http://www.themoviedb.org/search?query='+UrlEncode(MovieName));
end.
Partager le fichier TMdb.ifs sur le Web et les réseaux sociaux:
Télécharger le fichier TMdb.ifs
