...jusqu'à ce que par hasard je l'ai cliqué alors que le film sélectionné était
avait pour titre traduit "Chat blanc chat noir"
et pour titre original "Crnamacka, Belimacor"
Le bouton lance les recherches avec le titre traduit, il n'y a qu'IMDB qui le
reconnaisse.
Pour ne pas avoir à modifier les titres avant d'utiliser le bouton j'ai écrit ce petit script qui permet taper un titre et de choisir un site.
Code: Select all
// GETINFO SCRIPTING
// Recherche de films
program Recherche;
const
kAllocine = 'Allocine';
kAmazon = 'Amazon';
kCinefil = 'Cinefil';
kDVDFR = 'DVDFR';
kMonsieur_Cinema = 'Monsieur_Cinema';
kMoviecovers = 'Moviecovers';
kYoVideo = 'YoVideo';
kIMDB = 'IMDB';
kSeparator = '---------------';
function BuildURL(psSite, psMovie : String) : String;
var
lsMovie, lsText : String;
begin
lsMovie := Trim(StringReplace(psMovie, ' ', ' '));
case psSite of
kAllocine:
begin
lsMovie := StringReplace(psMovie, ' ', '+');
lsText := 'http://www.allocine.fr/recherche/?motcle=<<<MOVIE>>>&f=3&rub=0';
end;
kAmazon:
lsText := 'http://www.amazon.fr/exec/obidos/search-handle-url/index=dvd-fr&field-title=<<<MOVIE>>>';
kCinefil:
lsText := 'http://www.cinefil.com/cinefil2005/CFM_Recherches/films.cfm?lachaine2=<<<MOVIE>>>';
kDVDFR:
begin
lsMovie := StringReplace(psMovie, ' ', '+');
lsText := 'http://www.dvdfr.com/search/search.php?multiname=<<<MOVIE>>>&x=0&y=0';
end;
kMonsieur_Cinema:
lsText := 'http://cinema.tiscali.fr/recherche.aspx?file=http&keys=<<<MOVIE>>>&go.x=0&go.y=0';
kMoviecovers:
lsText := 'http://www.moviecovers.com/multicrit.html?titre=<<<MOVIE>>>';
kYoVideo:
lsText := 'http://www.yo-video.com/film/?nom=<<<MOVIE>>>&motor=1&base=0';
kIMDB:
lsText := 'http://french.imdb.com/Find?<<<MOVIE>>>';
kSeparator:
result := '';
else
Error;
end;
result := UrlEncode(StringReplace(lsText, '<<<MOVIE>>>', lsMovie));
end;
//entry
var
lsSite, lsMovie, lsURL : String;
lbBreak : Boolean;
begin
if not CheckVersion(3,4,0) then
begin
ShowMessage('Ce script requiert une version plus récente de Ant Movie Catalog (au moins la version 3.4.0)')
exit;
end;
lsMovie := '';
lsSite := '';
if not Input('Recherche de films', 'Entre le titre du film :', lsMovie) then
exit;
if lsMovie = '' then
exit;
PickTreeClear;
// PickTreeAdd('Site de recherche :', '');
PickTreeAdd(kAllocine , kAllocine);
PickTreeAdd(kAmazon , kAmazon);
PickTreeAdd(kCinefil , kCinefil);
PickTreeAdd(kDVDFR , kDVDFR);
PickTreeAdd(kMonsieur_Cinema , kMonsieur_Cinema);
PickTreeAdd(kMoviecovers , kMoviecovers);
PickTreeAdd(kYoVideo , kYoVideo);
PickTreeAdd('' , kSeparator);
PickTreeAdd(kIMDB , kIMDB);
lbBreak := False;
repeat
if not PickTreeExec(lsSite) then
exit;
if lsSite = '' then
exit;
if lsSite <> kSeparator then
lbBreak := True;
until lbBreak;
lsURL := BuildURL(lsSite, lsMovie);
if lsURL <> '' then
Launch(lsURL, '');
exit;
end.