нашел несколько сайтов с музыкальным видео:
http://bestrockers.ru/
http://www.smotriconcert.ru/
http://rock-centr.ru/
http://vk.com/club16039433
Можете сделать подкасты на эти ресурсы?

Спасибо!!!

Главная | Решения пользователей программы "Домашний медиа-сервер (UPnP, DLNA, HTTP)" |
|
agru wrote:FS.UA поправьте плиз
Сложно учесть в автоматическом скрипте все прибабахи создателей сайтов ,советую просто добавить самим вручную недостающие видео.bartwell wrote:1. В подкасте IDISCOVERY.RU не работает Простак за границей / 2 сезон / ПРОСТАК ЗА ГРАНИЦЕЙ 2 СЕЗОН 2 СЕРИЯ "ТРАНССИБИРСКИЙ ЭКСПРЕСС" (РОССИЯ)
2. В подкасте vepizode.net не работает С / 9.70-Симпсоны / Сезон 19 / 011 серия
И там, и там, на самом деле, не работает множество видюшек (с 1 по 19 сезоны для симпсонов например), это я для примера привел. Если это возможно, поправьте, пожалуйста.
Code: Select all
//**********************************
//** Gametrailers links extractor **
//** by manek for HMS **
//**********************************
{
MediaResourceLink = '';
string sFileName, sPage, sLink_number, sLink, sTranscoderParams;
int iStart;
sPage = HMSDownloadURL(mpFilePath);
if (Pos("http://www.gametrailers.com/download/", sPage) != 0)
{
//1. get link number
iStart = Pos("var mov_game_id =", sPage);
sLink_number = Copy(sPage, iStart, 30);
sLink_number = ExtractWord(4, sLink_number, " ;");
// 2. get link to the file
iStart = Pos("http://www.gametrailers.com/download/", sPage);
sFileName = Copy(sPage, iStart, 150);
sFileName = ExtractWord(5, sFileName, "\/\"");
// 3. create correct link
MediaResourceLink = "http://trailers-ak.gametrailers.com/gt_vault/" + sLink_number + "/" + sFilename;
}
}
Разобрался - Язык Паскальlaborhm wrote:Мне кажется, Вы не учли, что в ссылках на странице адрес хоста опускается.
Т.е. ссылка имеет урезанный вид: /download/723626/gt_battlefield3_consolereviewpod_1280x720_3500_h32.mp4.
Надо добавить адрес хоста: http://www.gametrailers.com
Code: Select all
const
csBaseUrl = 'http://www.gametrailers.com';
regexGetLink = '(/download/\d+/.*?mp4)'; // регулярное выражение,
var
sPage: string;
sResult: string;
begin
sPage := HMSDownloadURL( mpFilePath );
HmsRegExMatch( regexGetLink, sPage, sResult ); // извлечь частичную ссылку, т.е без адреса хоста
MediaResourceLink := csBaseUrl + sResult; // собрать полную ссылку: адрес хоста ПЛЮС частичная ссылка, т.е.
HmsLogMessage(1,MediaResourceLink,False); // Запишем MediaResourceLink в лог
end.
Code: Select all
regexGetLink = '(/download/\d+/.*?mp4)'; // регулярное выражение,
Code: Select all
regexGetLink = '(/download/\d+/.*?(mp4|wmv))';