',stranka));
HTMLRemoveTags(stranka);
HTMLDecode(stranka);
SetField(fieldDescription, stranka);
end;
procedure GetActors(address:string);
var Page : Tstringlist;
stranka,tmp, value: string;
hrany :boolean;
begin
Page := TStringList.Create;
Page.Text := GetPage(address);
// najdeme radku na ktere jsou herci
LineNr := FindLine('', Page, LineNr);
// pokud takovou radku najdeme
if (LineNr > -1) then
begin
Line := Page.GetString(LineNr);
//HTMLRemoveTags(Line);
HTMLDecode(Line);
stranka:=Line;
if pos('hraje:',stranka)=0 then hrany := false
else hrany:= true;
//reziser
delete(stranka,1,pos('režie:',stranka));
tmp := copy(stranka, 1, pos('',stranka));
value:= '';
repeat
delete(tmp,1,pos('alt="',tmp)+4);
value := value + copy(tmp,0, min(pos('" align',tmp),pos('" heigh',tmp)) - 1) + ', ';
until (pos('alt="',tmp) = 0);
delete(value,length(value)-1,1);
SetField(fieldDirector, trim(Value));
//herci
if hrany then
delete(stranka,1,pos('hraje:',stranka))
else
delete(stranka,1,pos('mluví:',stranka));
tmp := copy(stranka, 1, pos('',stranka));
value:= '';
repeat
delete(tmp,1,pos('alt="',tmp)+4);
value := value + copy(tmp,0, min(pos('" align',tmp),pos('" heigh',tmp)) - 1) + ', ';
until (pos('alt="',tmp) = 0);
delete(value,length(value)-1,1);
SetField(fieldActors, trim(Value));
end;
end;
begin
// kontrola verze movie catalogu
if CheckVersion(3,5,0) then
begin
MovieName := GetField(fieldTranslatedTitle);
// pokud je prelozene jmeno filmu prazdne, vem jmeno originalni
if (MovieName = '') then
MovieName := GetField(fieldOriginalTitle);
// zadani z inputu
if Input('Import movie from www.fdb.cz', 'Enter the title of the movie:', MovieName) then
begin
// analyzuj stranku http://fdb.cz/vyhledavani.php?hledat=nazev_filmu&co=filmy
AnalyzePage(BaseAddress + 'vyhledavani.html?hledat=' + UrlEncode(MovieName));
end;
end
else
ShowMessage('This script requires a newer version of Ant Movie Catalog (at least the version 3.5.0)');
end.