Домашний медиа-сервер (UPnP, DLNA, HTTP)

Обновил (урезал) Сlipafon - пока будет так
15.11.2014 - Большое спасибо WendyH
12.06.2015 - Подправлен подкаст (работают клипы только с youtube).
21.12.2015 - Большое спасибо WendyH (работают клипы только с youtube).
22.12.2015 - Подправлен подкаст. Большое спасибо WendyH (работают клипы только с youtube).

при обновлении алфавита, сайт банит айпи, ибо у них в robots для всех параметр 2 секунды, где добавить задержку?

Robox wrote:при обновлении алфавита, сайт банит айпи, ибо у них в robots для всех параметр 2 секунды, где добавить задержку?

Честное слово - НЕ ЗНАЮ.
Рекомендации к использованию.
1) На каждой букве алфавита - создание лент подкаста.
2) На каждом исполнителе (отдельно) - обновление подкаста. (Уверен что слушаете не более 10-15 исполнителей)
При таком выполнении меня еще не банили.

порыскал по hms-функциям, не нашел временную паузу, пытался в паскаль-код добавить delay (2000); не фурычит

HmsSleep(aMilliseconds: Integer) (окно редактирования скрипта -> Функции -> Транскодирование)

оке. работает.
вставляем: Алфавит - по правой Изменить название - вкладка Скрипты - Скрипт создания подкаст-лент - после: serial(ItemsRegExpr1.Match) вставляем: HmsSleep(2000);

Ну вы чёвсекакэти? Банят по IP потому, как запросов на сайт делается много и сразу. И правильно делают. Не надо лишний раз DDOS-ить чужой сервер. И Crawl-delay в robots.txt тут не причём, это директива для роботов поисковиков - типа просьбы не нагружать, не наседать особо.

Дело в том, что в данном случае вы загружаете страницу со списоком клипов, а потом, при создании каждой ссылки на клип - загружается опять страница клипа, чтобы оттуда найти ссылку на сам клип с youtube.

[+] Ведь можно этого не делать.

Если в подкасте встать на "Алфавит" и нажать Alt-2, в скрипте чтения списка ресурсов превратить строку:

Code: Select all

HmsRegExMatch('href="(.*?)"', aItemDescr, id);

в строку:

Code: Select all

HmsRegExMatch('href="(.*?)"', aItemDescr, sItemLink);

а следующие строки закомментировать (добавить два слеша перед началом):

Code: Select all

//sWebPage := HmsDownloadURL(id) ;
//sWebPage :=HmsUtf8Decode(sWebPage); 
//HmsRegExMatch('</b> Нажмите <a href="(.*?)"', sWebPage, sItemLink); 

То создание списков клипов у исполнителей будет намного быстрей. При моём варианте - просто создаются ссылки на клипы со значением ссылки на страницу клипа с клипафона. Ну и что, нужно просто перенести команды получения настоящей ссылки в скрипт получения ссылки.

Нажимаем Alt-4 и там в низу добавляем определение нашей переменной, меняем строку после var:

Code: Select all

  sItemType: string;                                       

на строку:

Code: Select all

  sItemType, sWebPage: string;                                       

а строки:

Code: Select all

  end else 
    CreateVideoLinks

меняем на:

Code: Select all

  end else begin

    sWebPage := HmsDownloadURL(mpFilePath);
    sWebPage := HmsUtf8Decode(sWebPage);  
    HmsRegExMatch('</b> Нажмите(.*?)</a></div></div></div>', sWebPage, sWebPage); 
    HmsRegExMatch('<a href="(.*?)"', sWebPage, mpFilePath);              
      
    CreateVideoLinks
  end

И всё.
Ну, если в подкасте встать на Новинки и нажать Alt-2, то там строку:

Code: Select all

HmsRegExMatch('href="(.*?)"', aItemDescr, sWebPage);

меняем на:

Code: Select all

HmsRegExMatch('href="(.*?)"', aItemDescr, sItemLink);

а следующие строки комментируем:

Code: Select all

//sWebPage := HmsDownloadURL(sWebPage) ;
//sWebPage :=HmsUtf8Decode(sWebPage);  
//HmsRegExMatch('</b> Нажмите(.*?)</a></div></div></div>', sWebPage, sWebPage1); 
//HmsRegExMatch('<a href="(.*?)"', sWebPage1, sItemLink);              

И новинки будут быстрее создаваться. Аналогичным образом и с "Топ-50" сделать.

А если ещё внимательно посмотреть на скрипт получения ссылки для Youtube, который от Евгения и подметить, что картинка на клип - это всегда ссылка на превью кадр youtube видео, то можно ещё сделать и так. В скриптах чтения списка ресурсов в самом верху после слова const вставить строку:
mpiYoutubeItemID = 141202;
а после строки
Item.Properties[mpiThumbnail] := sItemLink ; //картинка
добавить строку:
HmsRegExMatch('/vi/(.*?)/', Item[mpiThumbnail], Item[mpiYoutubeItemID]);

Тогда в скрипте получения ссылки вообще ничего менять не надо и оставить так, как есть в изначальном скрипте.
Вот.

а не легче было файл выложить?

Robox wrote:а не легче было файл выложить?

Ни в коем случае. Никто бы не напрягся, не вдумался, не понял бы фишки. А я ведь не подкаст хочу сделать, а идею донести.

WendyH wrote:

Robox wrote:а не легче было файл выложить?

Ни в коем случае. Никто бы не напрягся, не вдумался, не понял бы фишки. А я ведь не подкаст хочу сделать, а идею донести.

15/11/2014 - Большое спасибо WendyH