Загрузка инфы с сайта "Кинопоиск"

Eugene
Posts: 2805
Joined: Tue Sep 16, 2008 7:30 pm

Re: Загрузка инфы с сайта "Кинопоиск"

Post 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);    
...
Vale

Re: Загрузка инфы с сайта "Кинопоиск"

Post by Vale »

В скрипте загрузки с "кинопоиск" описание ресурса не грузится из-за ошибки в константе csKinopoiskDescripton.
Для исправления нужно заменить строку с константой на:

Code: Select all

csKinopoiskDescripton    = '<tr><td colspan=3 style=\"padding: 10px 10px 20px 20px\" class=\"news\">(.*?)</td></tr>';
Eugene
Posts: 2805
Joined: Tue Sep 16, 2008 7:30 pm

Re: Загрузка инфы с сайта "Кинопоиск"

Post by Eugene »

Vale wrote:В скрипте загрузки с "кинопоиск" описание ресурса не грузится из-за ошибки в константе csKinopoiskDescripton.
Для исправления нужно заменить строку с константой на:

Code: Select all

csKinopoiskDescripton    = '<tr><td colspan=3 style=\"padding: 10px 10px 20px 20px\" class=\"news\">(.*?)</td></tr>';
Исправлю, спасибо.
Vale

Re: Загрузка инфы с сайта "Кинопоиск"

Post by Vale »

Eugene wrote: Подключена pcre.dll - http://www.pcre.org.
Ок, разберемся... :)
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/ так вот с этой страницы скрипт не выуживает актеров! Поковырявшись пришел к выводу, что данная ситуация из-за аппострофа в имени последнего актера, а конкретнее "О`Ши Майлз". Какие будут соображения?
Eugene
Posts: 2805
Joined: Tue Sep 16, 2008 7:30 pm

Re: Загрузка инфы с сайта "Кинопоиск"

Post by Eugene »

Vale wrote: Выплыла еще проблемка... Вот ссылка на описание http://www.kinopoisk.ru/level/1/film/408021/ так вот с этой страницы скрипт не выуживает актеров! Поковырявшись пришел к выводу, что данная ситуация из-за аппострофа в имени последнего актера, а конкретнее "О`Ши Майлз". Какие будут соображения?
Проблема из-за короткого списка актеров, нет многоточия, можно заменить на

Code: Select all

csKinopoiskCast          = 'В главных ролях:(.*?)<!-- /актеры фильма -->';
Но как долго продержится неизвестно.
Vale

Re: Загрузка инфы с сайта "Кинопоиск"

Post by Vale »

Eugene wrote: Проблема из-за короткого списка актеров, нет многоточия, можно заменить на

Code: Select all

csKinopoiskCast          = 'В главных ролях:(.*?)<!-- /актеры фильма -->';
Помогло :)
Eugene wrote:Но как долго продержится неизвестно.
А тогда и будем думать ;)
Vale

Re: Загрузка инфы с сайта "Кинопоиск"

Post by Vale »

Хотелось бы выяснить такой момент... Есть вот такие устройства - http://www.elecard.com/products/iptv-so ... ec/61x.php http://www.elecard.com/products/iptv-so ... ec/8xx.php и http://www.elecard.com/products/iptv-so ... 820-10.php Совместимы ли они с ХМС?
Eugene
Posts: 2805
Joined: Tue Sep 16, 2008 7:30 pm

Re: Загрузка инфы с сайта "Кинопоиск"

Post by Eugene »

Vale wrote:Хотелось бы выяснить такой момент... Есть вот такие устройства - http://www.elecard.com/products/iptv-so ... ec/61x.php http://www.elecard.com/products/iptv-so ... ec/8xx.php и http://www.elecard.com/products/iptv-so ... 820-10.php Совместимы ли они с ХМС?
Если только через встроенный Internet браузер
Vale

Re: Загрузка инфы с сайта "Кинопоиск"

Post by Vale »

Eugene wrote:Если только через встроенный Internet браузер
Не, такой компот нам не нужен ;)
mobikon

Re: Загрузка инфы с сайта "Кинопоиск"

Post by mobikon »

я так и не понял, как же исправить, чтобы в информацию о фильме с Кинопоиска загружался весь список актеров, а не только первый
Post Reply