////////////////////////////////////////////////////////////////////////////////
// Для парсинга предусмотрены следующие функции //
// //
// MyPos(sub: string; s: string; n: integer): integer; - находит подстроку //
// sub в строке s, начиная с позиции n //
// //
// CutText(str1: string; str2: string; str: string): string; - вырезает //
// подстроку из строки str, находящуюся между подстроками str1 и str2 //
// //
// Replace(Str, X, Y: string): string; - в строке Str заменяет подстроку X //
// на подстроку Y //
// //
// ParsePattern(strInput, strPattern: string; n: integer):string; - поиск по //
// шаблону //
// //
// ReplaceLetters(text: String): String; - функция замены специальных //
// символов //
// //
// DeleteLineBreaks(const S: string): string; - Удаление переносов из строки //
// //
// DecodeHTML(s: string): string; удаляет из строки html-коды //
// //
// HtmlDownload(http:string):string; - загружает html-код страницы //
// с url-адресом http //
// //
////////////////////////////////////////////////////////////////////////////////
function SearchURL(title_search:string;year_search:string):string;
begin
Result := //'http://www.kinopoisk.ru/index.php?first=no&what=&kp_query='+Replace(title_search,' ','+')+'&m_act%5Byear%5D='+year_search;
//'http://s.kinopoisk.ru/level/7/type/film/find/'+Replace(title_search,' ','+')+'/m_act[year]/'+year_search;
'http://www.kinopoisk.ru/s/type/film/list/1/find/'+URLEncode(Replace(title_search,' ','+'))+'/order/relevant/perpage/10'+'/m_act[year]/'+year_search;
//'http://www.kinopoisk.ru/index.php?level=7&from=forma&result=adv&m_act%5Bfrom%5D=forma&m_act%5Bwhat%5D=content&m_act%5Bfind%5D='+Replace(title_search,' ','+')+'&m_act%5Byear%5D='+year_search;
end;
function SearchOnYear():integer;
begin
Result := 1;
end;
function MediaSearch(s:string) : integer;
var
i, j, k: integer;
text: string;
LinkMovie, NameMovie, OrigNameMovie, YearMovie: array of string;
begin
k:=0;
i:=pos('<title>Результаты поиска',s);
if i>0 then
begin
i:=pos('<p class="pic"><a href="', s);
while (i>0) do
begin
try
SetLength(LinkMovie, k+1);
SetLength(NameMovie, k+1);
SetLength(OrigNameMovie, k+1);
SetLength(YearMovie, k+1);
j := MyPos('</div>', s, i+1);
text := copy(s, i, j-i-3);
LinkMovie[k]:=CutText('<a href="', 'sr/1/"', text);
NameMovie[k]:=ReplaceLetters(Replace(HTMLDecode(ParsePattern(CutText('<p class="name">', '</p>', text), '\<a.*?\>(.*?)\</a\>', 1)),' ',' '));
LinkMovie[k]:= 'http://www.kinopoisk.ru' + LinkMovie[k]+'view_info/ok/#trivia';
OrigNameMovie[k]:=ReplaceLetters(Replace(ParsePattern(CutText('<span class="gray">', '</span>', text), '(.*?), \d+ мин', 1),' ',' '));
YearMovie[k]:=CutText('<span class="year">', '</span>', text);
k:=k+1;
finally
delete(s, 1, j);
i:=pos('<p class="pic"><a href="', s);
end;
end;
Result:=k;
FoundVariant(NameMovie, OrigNameMovie, YearMovie, LinkMovie);
end
else
begin
i:=pos('<title>404: Страница не найдена - Кинопоиск.ru',s);
if i=0 then
begin
SetLength(LinkMovie, 1);
SetLength(NameMovie, 1);
SetLength(OrigNameMovie, 1);
SetLength(YearMovie, 1);
i:=pos('<div class="movie">', s);
j := MyPos('Рецензии зрителей</td>', s, i+1);
//s := copy(s, i, j-i-1);
LinkMovie[0]:= 'http://www.kinopoisk.ru/film/' + ParsePattern(s, 'id_film = (\d+)', 1)+'/view_info/ok/#trivia';
// Название
NameMovie[0]:=ParsePattern(s,'moviename-big".[^<>]*>\n?\r?(.*?)\</h1\>',1);
NameMovie[0]:=ReplaceLetters(NameMovie[0]);
NameMovie[0]:=DecodeHTML(NameMovie[0]);
// Оригинальное название
OrigNameMovie[0]:=ParsePattern(s,'\<SPAN style=\"*?.*?#666.*?\"*?\>(.*?)\</span\>',1);
OrigNameMovie[0]:=ReplaceLetters(OrigNameMovie[0]);
OrigNameMovie[0]:=DecodeHTML(OrigNameMovie[0]);
// Год
YearMovie[0]:=ParsePattern(s, 'm_act%5Byear%5D/.*?\>(.*?)\</a\>', 1);
Result:=1;
FoundVariant(NameMovie, OrigNameMovie, YearMovie, LinkMovie);
end;
end;
end;
procedure ParseMediaUrl(s:string);
var
i, i1, j, j1, k, k1, k2, l, n_page, m: integer;
text, text1, text2, s1: string; id, film_code, posters_url, persons_url, season_url,
s_persons , s_season : string; awards_url, s_awards : string;
name_actors, url_actor, photo_actor : string;
NumSeason, NameSeries, OrigNameSeries, YearSeries, s_posters: array of string;
begin
i:=pos('<title>404: Страница не найдена - Кинопоиск.ru',s);
if i=0 then
begin
// Ссылка на кинопоиск kinopoisk
//URLKP:=ParsePattern(s, 'http://www\.kinopoisk\.ru/film/(\d+)', 0);
film_code:=cuttext('kinopoisk.ru/film/','/',s);
URLKP:='http://www.kinopoisk.ru/film/'+film_code;
id:=cuttext('var FILM_ID = ',';',s);
URLKP:='http://www.kinopoisk.ru/film/'+id;
//i:=pos('<div class="shadow">', s);
//j := MyPos('Рецензии зрителей</td>', s, i+1);
//s := copy(s, i, j-i-1);
s := cuttext('id="viewFilmInfoWrapper" class="clearfix">','Отзывы и рецензии зрителей',s);
// Название
Name:=ParsePattern(s,'moviename-big".[^<>]*>\n?\r?(.*?)\</h1\>',1);
Name:=ReplaceLetters(Name);
Name:=DecodeHTML(Name);
Name:=Trim(Name);
// Оригинальное название
OrigName:=ParsePattern(s,'\<SPAN itemprop="?alternativeHeadline"?\>(.*?)\</span\>',1);
OrigName:=ReplaceLetters(OrigName);
OrigName:=DecodeHTML(OrigName);
OrigName:=Trim(OrigName);
// Жанр
Genre:=CutText('>жанр', '</td></tr>', s);
Genre:=Replace(Genre, 'слова', '');
Genre:=DecodeHTML(Genre);
Genre:=DeleteLineBreaks(Genre);
Genre:=Replace(Genre,', ...','');
Genre:=Trim(Genre);
// Год
Year:=ParsePattern(s, 'm_act%5Byear%5D/.*?\>(.*?)\</a\>', 1);
// Страна
Country:=CutText('>страна', 'слоган</', s);
Country:=DecodeHTML(Country);
Country:=DeleteLineBreaks(Country);
Country:=Replace(Country,', ...','');
Country:=Trim(Country);
// Описание
Description:=CutText('<span class="_reachbanner_">', '</span>', s);
Description:=ReplaceLetters(Description);
Description:=DecodeHTML(Description);
Description:=Trim(Description);
// Режиссеры
Director:=CutText('режиссер</td>', '</td></tr>', s);
Director:=DecodeHTML(Director);
Director:=ReplaceLetters(Director);
Director:=Trim(Director);
if SeasonIf=1 then
begin
// Загружаем страницу "Сезоны"
if film_code <> '' then
begin
season_url:='http://www.kinopoisk.ru/film/'+ film_code+'/episodes/';
m:=pos('/film/'+ film_code+'/episodes/',s);
if m>0 then
begin
s_season:=HtmlDownload(season_url);
s1:=s_season;
i:=pos('<table cellpadding=0 cellspacing=0 width=100%>', s1);
l:=pos('<title>404: Страница не найдена - Кинопоиск.ru',s1);
k:=0; k2:=1;
if l=0 then
begin
while (i>0) do
begin
try
k1 := MyPos('</h1>', s1, i+46);
j := MyPos('</table>', s1, i+46);
text := copy(s1, i+46, j-i-46);
i1:=pos('>Эпизод ', text);
while (i1>0) do
begin
try
SetLength(NumSeason, k+1);
SetLength(NameSeries, k+1);
SetLength(OrigNameSeries, k+1);
SetLength(YearSeries, k+1);
j1 := MyPos('</tr>', text, i1+8);
text1 := copy(text, i1+8, j1-i1-8);
NumSeason[k]:=IntToStr(k2);
NameSeries[k]:=CutText('<b>', '</b>', text1);
OrigNameSeries[k]:=CutText('''episodesOriginalName''>', '</span>', text1);;
YearSeries[k]:=ParsePattern(text1, 'left\"?\>(\d+.*?\w+.*?\d+)\</td\>', 1); //CutText('width="20%">', '</td>', text1);
YearSeries[k]:=ReplaceLetters(YearSeries[k]);
k:=k+1;
finally
delete(text, 1, j1+length('</tr>')-1);
i1:=pos('>Эпизод ', text);
end;
end;
finally
delete(s1, 1, j+length('</table>')-1);
i:=pos('<table cellpadding=0 cellspacing=0 width=100%>', s1);
k2:=k2+1;
end;
end;
end;
SeasonFunc(NumSeason, NameSeries, OrigNameSeries, YearSeries);
end;
end;
end;
// Загружаем страницу "Создатели"
if film_code <> '' then
persons_url:='http://www.kinopoisk.ru/film/'+ film_code+'/cast/#actor';
try
s_persons:=UrlCode(persons_url,'start_list=0','end_list=2000','');
//s_persons:=HtmlDownload(persons_url);
finally
// Актеры (со страницы "Создатели")
i:=pos('Актеры</div>',s_persons);
if i>0 then i:=i+12;
j:=MyPos('Наверх страницы</a>',s_persons,i);
if j<=0 then j:=MyPos('Продюсеры</div>',s_persons,i);
if j<=0 then j:=MyPos('Режиссеры дубляжа</div>',s_persons,i);
if j<=0 then j:=MyPos('Роли дублировали</div>',s_persons,i);
if j<=0 then j:=MyPos('Сценаристы</div>',s_persons,i);
if j<=0 then j:=MyPos('Операторы</div>',s_persons,i);
if j<=0 then j:=MyPos('Композиторы</div>',s_persons,i);
if j<=0 then j:=MyPos('Художники</div>',s_persons,i);
if j<=0 then j:=MyPos('Монтажеры</div>',s_persons,i);
if j<=0 then j:=MyPos('<!-- Правая сторона -->',s_persons,i);
if i>0 then s1:=copy(s_persons,i,j-i+1) else s1:='';
s1:=DeleteLineBreaks(s1);
actors:='';
i:=pos('<div class="actorInfo"', s1); //<div class="name"><a href="/name/17733/">Сэм Уортингтон</a> <span class="gray">Sam Worthington</span></div>
k:=1;
while (i>0) and (k<=ActorCount) do
begin
try
j := MyPos('<div class="clear"></div>', s1, i+22);
text := copy(s1, i+22, j-i-22);
name_actors:=CutText('alt="', '"', text);
url_actor:=CutText('<a href="', '"', text);
photo_actor:=CutText('title="/images/sm_actor/', '"', text);
actors:=actors+'"'+'http://www.kinopoisk.ru'+url_actor+'='+name_actors+'"'+#13#10;
NameActor:=NameActor+'"'+ParsePattern(text, '\<div class=\"name\"\>\<a href=\"/name/\d+/\"\>(.*?)\</a\>', 1)+'"'+#13#10;
OrigNameActor:=OrigNameActor+'"'+CutText('<span class="gray">', '</span>', text)+'"'+#13#10;
Character:=Character+'"'+CutText('<div class="role">... ', '</div>', text)+'"'+#13#10;
if photo_actor<>'' then
PhotoActor:=PhotoActor+'"http://st.kinopoisk.ru/images/sm_actor/'+photo_actor+'"'+#13#10
else PhotoActor:=PhotoActor+'""'+#13#10;
if url_actor<>'' then
LinkActor:=LinkActor+'"'+'http://www.kinopoisk.ru'+url_actor+'"'+#13#10
else LinkActor:=LinkActor+'""'+#13#10;
finally
delete(s1, 1, j+length('<div class="clear"></div>')-1);
i:=pos('<div class="actorInfo"', s1);
end;
k:=k+1;
end;
// Актеры (со страницы фильма)
if Actors='' then
begin
s1:='';
s1:=CutText('В главных ролях:</h4>', '<h4>Роли дублировали:</h4>', s);
s1:=DeleteLineBreaks(s1);
actors:='';
i:=pos('/name/', s1);
while (i>0) do
begin
try
j := MyPos('/name/', s1, i+6);
text := copy(s1, i, j-i);
url_actor:=CutText('/name/', '"', s1);
photo_actor:=CutText('/name/', '/"', s1);
NameActor:=NameActor+'"'+CutText('/">', '</a>', s1)+'"'+#13#10;
if photo_actor<>'' then
PhotoActor:=PhotoActor+'"http://st.kinopoisk.ru/images/sm_actor/'+photo_actor+'"'+#13#10
else PhotoActor:=PhotoActor+'""'+#13#10;
if url_actor<>'' then
LinkActor:=LinkActor+'"'+'http://www.kinopoisk.ru'+url_actor+'"'+#13#10
else LinkActor:=LinkActor+'""'+#13#10;
OrigNameActor:=OrigNameActor+'""'+#13#10;
Character:=Character+'""'+#13#10;
actors:=actors+'"http://www.kinopoisk.ru/name/'+CutText('/name/', '"', s1)+'='+CutText('/">', '</a>', s1)+'"'+#13#10;;
//actors:=actors+'"http://www.kinopoisk.ru'+Replace(text,'">','=')+'"'+#13#10;
finally
delete(s1, 1, j+length('/name/'));
i:=pos('/name/', s1);
end;
end;
end;
actors:=ReplaceLetters(actors);
actors:=DecodeHTML(actors);
NameActor:=DecodeHTML(NameActor);
NameActor:=ReplaceLetters(NameActor);
OrigNameActor:=DecodeHTML(OrigNameActor);
OrigNameActor:=ReplaceLetters(OrigNameActor);
Character:=DecodeHTML(Character);
Character:=ReplaceLetters(Character);
end;
// Сценаристы
Scenarist:=CutText('сценарий</td><td>', '</td></tr>', s);
Scenarist:=DecodeHTML(Scenarist);
Scenarist:=ReplaceLetters(Scenarist);
Scenarist:=Replace(Scenarist,', ...','');
//Scenarist:=DeleteLineBreaks(Scenarist);
Scenarist:=Trim(Scenarist);
// Продюсер
Producer:=CutText('продюсер</td>', '</td></tr>', s);
Producer:=DecodeHTML(Producer);
Producer:=ReplaceLetters(Producer);
Producer:=Replace(Producer,', ...','');
//Producer:=DeleteLineBreaks(Producer);
Producer:=Trim(Producer);
// Оператор
Operator:=CutText('оператор</td>', '</td></tr>', s);
Operator:=DecodeHTML(Operator);
Operator:=ReplaceLetters(Operator);
Operator:=Replace(Operator,', ...','');
//Operator:=DeleteLineBreaks(Operator);
Operator:=Trim(Operator);
// Композитор
Composer:=CutText('композитор</td>', '</td></tr>', s);
Composer:=DecodeHTML(Composer);
Composer:=ReplaceLetters(Composer);
Composer:=Replace(Composer,', ...','');
//Composer:=DeleteLineBreaks(Composer);
Composer:=Trim(Composer);
// Монтаж
Editor:=CutText('монтаж</td>', '</td></tr>', s);
Editor:=DecodeHTML(Editor);
Editor:=ReplaceLetters(Editor);
Editor:=Replace(Editor,', ...','');
//Editor:=DeleteLineBreaks(Editor);
Editor:=Trim(Editor);
// Художники
Painter:=CutText('художник</td>', '</td></tr>', s);
Painter:=DecodeHTML(Painter);
Painter:=ReplaceLetters(Painter);
Painter:=Replace(Painter,', ...','');
//Painter:=DeleteLineBreaks(Painter);
// Бюджет
Budget:=CutText('бюджет</td>','</td>',s);
Budget:=DecodeHTML(Budget);
Budget:=ReplaceLetters(Budget);
Budget:=Trim(Budget);
// Сборы в США
ChargesUS:=CutText('сборы в США</td>', '</a>', s);
ChargesUS:=DeleteLineBreaks(ChargesUS);
ChargesUS:=DecodeHTML(ChargesUS);
ChargesUS:=ReplaceLetters(ChargesUS);
ChargesUS:=Trim(ChargesUS);
// Сборы в мире
ChargesWorld:=CutText('сборы в мире</td>', '</a>', s);
ChargesWorld:=DeleteLineBreaks(ChargesWorld);
ChargesWorld:=DecodeHTML(ChargesWorld);
ChargesWorld:=ReplaceLetters(ChargesWorld);
ChargesWorld:=Trim(ChargesWorld);
// Сборы в России
ChargesRF:=CutText('сборы в России</td>', '</a>', s);
ChargesRF:=DeleteLineBreaks(ChargesRF);
ChargesRF:=DecodeHTML(ChargesRF);
ChargesRF:=ReplaceLetters(ChargesRF);
ChargesRF:=Trim(ChargesRF);
// Премьера (мир)
PremiereWorld:=CutText('премьера (мир)</td>', '</a>', s);
PremiereWorld:=DeleteLineBreaks(PremiereWorld);
PremiereWorld:=DecodeHTML(PremiereWorld);
PremiereWorld:=ReplaceLetters(PremiereWorld);
PremiereWorld:=Replace(PremiereWorld,' ',' ');
PremiereWorld:=Replace(PremiereWorld,', ...','');
PremiereWorld:=Trim(PremiereWorld);
// Премьера (РФ)
PremiereRF:=CutText('премьера (РФ)</td>', '</a>', s);
PremiereRF:=DeleteLineBreaks(PremiereRF);
PremiereRF:=DecodeHTML(PremiereRF);
PremiereRF:=ReplaceLetters(PremiereRF);
PremiereRF:=Replace(PremiereRF,' ',' ');
PremiereRF:=Replace(PremiereRF,', ...','');
PremiereRF:=Trim(PremiereRF);
// Релиз на DVD
ReleasedDVD:=CutText('релиз на DVD</td>', '</td>', s);
ReleasedDVD:=DeleteLineBreaks(ReleasedDVD);
ReleasedDVD:=DecodeHTML(ReleasedDVD);
ReleasedDVD:=ReplaceLetters(ReleasedDVD);
ReleasedDVD:=Replace(ReleasedDVD,' ',' ');
ReleasedDVD:=Replace(ReleasedDVD,', ...','');
ReleasedDVD:=Trim(ReleasedDVD);
// Релиз на Blu-Ray
ReleasedBluRay:=CutText('релиз на Blu-Ray</td>', '</td>', s);
ReleasedBluRay:=DeleteLineBreaks(ReleasedBluRay);
ReleasedBluRay:=DecodeHTML(ReleasedBluRay);
ReleasedBluRay:=ReplaceLetters(ReleasedBluRay);
ReleasedBluRay:=Replace(ReleasedBluRay,' ',' ');
ReleasedBluRay:=Replace(ReleasedBluRay,', ...','');
ReleasedBluRay:=Trim(ReleasedBluRay);
// Зрители
s1:='';
s1:=CutText('зрители</td>', '</tr>', s);
//s1:=DeleteLineBreaks(s1);
Spectators:='';
i:=pos('<img src="', s1);
while (i>0) do
begin
try
j := MyPos('<', s1, i+1);
text := copy(s1, i, j-i+1);
Spectators:=Spectators+'"'+CutText('title="', '"', text)+'='+ParsePattern(text, ' (\d\d?\d?\.?\d?\d?\d?.*?)\<', 1)+'"'+#13#10;
finally
delete(s1, 1, j-1);
i:=pos('<img src="', s1);
end;
end;
Spectators:=Replace(Spectators,' ','');
Spectators:=Replace(Spectators,',','');
// Рейтинг kinopoisk
RatingKP:=CutText('<div class="div1">', '</div>', s);
RatingKP:=DeleteLineBreaks(RatingKP);
RatingKP:='"'+ParsePattern(RatingKP, '(\d\.\d\d\d)', 1)+'='+CutText('ratingCount">', '</span>', RatingKP)+'"';
RatingKP:=DecodeHTML(RatingKP);
RatingKP:=Replace(RatingKP,' ','');
RatingKP:=Trim(RatingKP);
if RatingKP='"='+'"' then RatingKP:='"0.000=0"';
// Рейтинг imdb
RatingIMDB:=CutText('verdana">IMDb: ', ')</div>', s);
RatingIMDB:=Replace(RatingIMDB,'(','=');
RatingIMDB:=Replace(RatingIMDB,' ','');
RatingIMDB:=Replace(RatingIMDB,' ','');
RatingIMDB:=Trim(RatingIMDB);
if RatingIMDB='' then RatingIMDB:='0.00=0';
// Рейтинг MPAA
RatingMPAA:=CutText('>рейтинг MPAA</td>', '</td>', s);
RatingMPAA:=ParsePattern(RatingMPAA, '\<img.*?alt=\"?(.*?)\"?\sborder=.*?\>', 1);
RatingMPAA:=Trim(RatingMPAA);
// Ожидания
Expectation:=CutText('ожидание: ', '</div>', s);
Expectation:='"'+Replace(ParsePattern(Expectation, '(\d+%\</a\>\s?\(.*?)\)', 1),'%</a> (','=')+'"';
//Expectation:='"'+ParsePattern(Expectation, '\<a[^<>]*href=\"?.*?\"?\sstyle=[^<>]*\>(\d+)%\</a\>\s?\((\w+)\)\<a', 1)+'='+ParsePattern(Expectation, '\<a[^<>]*href=\"?.*?\"?\sstyle=[^<>]*\>(\d+)%\</a\>\s?\((\w+)\)\<a', 2)+'"';
Expectation:=Replace(Expectation,' ','');
Expectation:=Replace(Expectation,' ','');
Expectation:=Trim(Expectation);
// Слоган
Slogan:=CutText('слоган</td>', '</tr>', s);
if Slogan<>'-' then begin
Slogan:=DeleteLineBreaks(Slogan);
Slogan:=DecodeHTML(Slogan);
Slogan:=ReplaceLetters(Slogan);
Slogan:=Trim(Slogan); end else Slogan:='';
// Знаете ли вы, что...
s1:='';
s1:=CutText('<ul class="trivia trivia_slide">', '</ul>', s);
s1:=DeleteLineBreaks(s1);
i1:=pos('<li class="trivia', s1);
i := MyPos('>', s1, i1+17);
while (i>0) do
begin
try
j := MyPos('</li>', s1, i);
text := copy(s1, i+1, j-i-1);
text :=Trim(text);
text :=MarkerKnowThat+' '+text;
KnowThat:=KnowThat+text+#13#10#13#10;
finally
delete(s1, 1, j+5);
i1:=pos('<li class="trivia', s1);
if i1>0 then i := MyPos('>', s1, i1+17) else i:=0;
end;
end;
KnowThat:=DecodeHTML(KnowThat);
KnowThat:=ReplaceLetters(KnowThat);
KnowThat:=Trim(KnowThat);
// Награды
if AwardsIf=1 then
begin
// Загружаем страницу "Сезоны"
if film_code <> '' then
begin
awards_url:='http://www.kinopoisk.ru/film/'+ film_code+'/awards/';
m:=pos('/film/'+ film_code+'/awards/',s);
if m>0 then
begin
s_awards:=HtmlDownload(awards_url);
s1:=s_awards;
i:=pos('<table cellspacing=0 cellpadding=0 border=0 width=100%>', s1);
if i<>0 then
begin
k1 := length('<table cellspacing=0 cellpadding=0 border=0 width=100%>')+1;
j := MyPos('Смотрите также:</span>', s1, i+k1);
Awards := copy(s1, i+k1, j-i-k1);
end;
Awards:=DeleteLineBreaks(Awards);
Awards:=Replace(Awards,#9,'');
Awards:=Replace(Awards,'<li class="trivia">',MarkerKnowThat+' ');
Awards:=Replace(Awards,'</li>',#13#10);
Awards:=Replace(Awards,'<br>',#13#10);
Awards:=Replace(Awards,'<b>',#13#10);
Awards:=Replace(Awards,'<br />',#13#10);
Awards:=Replace(Awards,'<ul class="trivia">',#13#10);
Awards:=Replace(Awards,' ',''); Awards:=Replace(Awards,' ','');
Awards:=DecodeHTML(Awards);
Awards:=ReplaceLetters(Awards);
Awards:=Trim(Awards);
end;
end;
end;
// Загружаем страницу с постерами
if id <> '' then
posters_url:='http://www.kinopoisk.ru/film/'+ id +'/posters/';
m:=pos('/film/'+ id+'/posters/',s);
if m>0 then
begin
SetLength(s_posters, 1);
s_posters[0]:=HtmlDownload(posters_url);
text:=ParsePattern(s_posters[0], '\"?/film/'+id+'/posters/page/(\d+)/\"?\>»»\</a\>', 1);
if text<>'' then
begin
n_page:=StrToInt(text);
SetLength(s_posters, n_page);
for i:=1 to n_page-1 do
s_posters[i]:=HtmlDownload('http://www.kinopoisk.ru/film/'+film_code+'/posters/page/'+IntToStr(i+1)+'/');
end;
// Постеры
posters:='';
for i1:=0 to Length(s_posters)-1 do
begin
i:=pos('Информация o', s_posters[i1]);
j:=MyPos('Навигация по базе постеров', s_posters[i1], i+12);
if i>0 then s1:=copy(s_posters[i1],i+12,j-(i+12)) else s1:='';
s1:=DeleteLineBreaks(s1);
i:=pos('/images/poster/sm_', s1);
while (i>0) do
begin
try
j := MyPos('"', s1, i+18);
k1 := MyPos('<i>', s1, j+1);
k2 := MyPos('</i>', s1, k1+3);
text1 := copy(s1, i+18, j-i-18);
text2 := copy(s1, k1+3, k2-k1-3);
posters:=posters+'"http://st.kinopoisk.ru/images/poster/'+text1+'='+text2+'"'+#13#10;;
finally
delete(s1, 1, k2+length('</i>'));
i:=pos('/images/poster/sm_', s1);
end;
end;
end;
//posters:=Replace(posters,'_imp_','');
posters:=ReplaceLetters(posters);
end;
end;
end;
begin
end.
