Page 2 of 5
Re: Загрузка инфы с сайта "Кинопоиск"
Posted: Tue Jan 19, 2010 10:21 am
by Eugene
Vale wrote:Описания стандартных классов и т. п. мне не нужны, а вот присущие хмс описаны далеко не все. По большому счету меня интересует только класс TRegExpr. Вот о его рег. выражениях хотелось бы узнать поподробней, так как в справочнике об этом ничего нет.
Подключена pcre.dll -
http://www.pcre.org.
Vale wrote:
В новой версии обнаружился баг, все в той же загрузке инфы. В прошлой версии (проверил специально) первый актер из списка в окне "Информация о медиа-ресурсе" в окне загрузки, попадал в список "Актеры", в новой версии этого не происходит

Вообще хотелось бы что бы не первый актер попадал в список а все (если конечно это не сильно сложно).
Наверно надо было нажать кнопку Обновить. Актеров в фильмах много, не уверен, что это должно быть в дистрибутиве - лишнее торможение при навигации. Но сделать не сложно,
Code: Select all
var
...
ActorList: string;
i: Integer;
...
for i := 0 to 100 do begin
ActorItem := IMDBItem.ChildList.FindItem(Format('В главных ролях\%d', [i]));
if ActorItem <> nil then begin
if ActorList <> '' then
ActorList := ActorList + ', ';
ActorList := ActorList + ActorItem.Name;
end else
Break
end;
if ActorList <> '' then
HmsSetMediaItemProperty('mpActor', ActorList);
...
Re: Загрузка инфы с сайта "Кинопоиск"
Posted: Tue Jan 19, 2010 11:02 am
by Vale
В скрипте загрузки с "кинопоиск" описание ресурса не грузится из-за ошибки в константе csKinopoiskDescripton.
Для исправления нужно заменить строку с константой на:
Code: Select all
csKinopoiskDescripton = '<tr><td colspan=3 style=\"padding: 10px 10px 20px 20px\" class=\"news\">(.*?)</td></tr>';
Re: Загрузка инфы с сайта "Кинопоиск"
Posted: Tue Jan 19, 2010 11:15 am
by Eugene
Vale wrote:В скрипте загрузки с "кинопоиск" описание ресурса не грузится из-за ошибки в константе csKinopoiskDescripton.
Для исправления нужно заменить строку с константой на:
Code: Select all
csKinopoiskDescripton = '<tr><td colspan=3 style=\"padding: 10px 10px 20px 20px\" class=\"news\">(.*?)</td></tr>';
Исправлю, спасибо.
Re: Загрузка инфы с сайта "Кинопоиск"
Posted: Tue Jan 19, 2010 6:04 pm
by Vale
Ок, разберемся...
Eugene wrote:
Vale wrote:
Актеров в фильмах много, не уверен, что это должно быть в дистрибутиве - лишнее торможение при навигации. Но сделать не сложно,
Code: Select all
var
...
ActorList: string;
i: Integer;
...
for i := 0 to 100 do begin
ActorItem := IMDBItem.ChildList.FindItem(Format('В главных ролях\%d', [i]));
if ActorItem <> nil then begin
if ActorList <> '' then
ActorList := ActorList + ', ';
ActorList := ActorList + ActorItem.Name;
end else
Break
end;
if ActorList <> '' then
HmsSetMediaItemProperty('mpActor', ActorList);
...
Возможно ты и прав, что не каждому это надо, но если кому надо то подправленный скрипт для "кинопоиск" могу выложить тут.
Выплыла еще проблемка... Вот ссылка на описание
http://www.kinopoisk.ru/level/1/film/408021/ так вот с этой страницы скрипт не выуживает актеров! Поковырявшись пришел к выводу, что данная ситуация из-за аппострофа в имени последнего актера, а конкретнее "О`Ши Майлз". Какие будут соображения?
Re: Загрузка инфы с сайта "Кинопоиск"
Posted: Tue Jan 19, 2010 6:23 pm
by Eugene
Vale wrote:
Выплыла еще проблемка... Вот ссылка на описание
http://www.kinopoisk.ru/level/1/film/408021/ так вот с этой страницы скрипт не выуживает актеров! Поковырявшись пришел к выводу, что данная ситуация из-за аппострофа в имени последнего актера, а конкретнее "О`Ши Майлз". Какие будут соображения?
Проблема из-за короткого списка актеров, нет многоточия, можно заменить на
Code: Select all
csKinopoiskCast = 'В главных ролях:(.*?)<!-- /актеры фильма -->';
Но как долго продержится неизвестно.
Re: Загрузка инфы с сайта "Кинопоиск"
Posted: Tue Jan 19, 2010 7:46 pm
by Vale
Eugene wrote:
Проблема из-за короткого списка актеров, нет многоточия, можно заменить на
Code: Select all
csKinopoiskCast = 'В главных ролях:(.*?)<!-- /актеры фильма -->';
Помогло
Eugene wrote:Но как долго продержится неизвестно.
А тогда и будем думать

Re: Загрузка инфы с сайта "Кинопоиск"
Posted: Tue Jan 19, 2010 10:14 pm
by Vale
Re: Загрузка инфы с сайта "Кинопоиск"
Posted: Tue Jan 19, 2010 10:36 pm
by Eugene
Если только через встроенный Internet браузер
Re: Загрузка инфы с сайта "Кинопоиск"
Posted: Tue Jan 19, 2010 10:52 pm
by Vale
Eugene wrote:Если только через встроенный Internet браузер
Не, такой компот нам не нужен

Re: Загрузка инфы с сайта "Кинопоиск"
Posted: Sat Mar 13, 2010 2:48 pm
by mobikon
я так и не понял, как же исправить, чтобы в информацию о фильме с Кинопоиска загружался весь список актеров, а не только первый