Item := HmsCreateMediaItem(sLink, FolderItem.ItemID); // Создаём элемент подкастаЕсли в указанной папке уже есть элемент с тким значением ссылки - она не создаёт новый, а возвращает найденный.
Так что всё норм, в этом плане.
Чтобы грузить для разных категорий разное количество страниц, самое простое, это после:
nPages := 2; // Количество загружаемых страницвставить строки:
// Если в параметрах подкаста указаны значения - устанавливаем оттуда
If HmsRegExMatch('--pages=(\d+)', mpPodcastParameters, sVal) Then nPages := StrToInt(sVal);А в параметрах подкаста (категории) указать ключи со значениями количества, например "--pages=2", а у другого "--pages=10".
И скрипт, если найдёт в параметрах это значение - присвоит его переменной nPages.
А не нравится мне, это что когда для обновления выставляю побольше страниц, например 30, то и разделы где всего 1-2 страницы (спорт, 60fps) - обновляются так же долго , как и где много страниц. Как тут лучше то придумать ?
]]> // Создаём элемент медиа-ссылки
Item := HmsCreateMediaItem(sLink, FolderItem.ItemID); // Создаём элемент подкаста
Item.Properties[mpiTitle ] := sName; // Наименование
Item.Properties[mpiThumbnail ] := sImg; // Картинка
Item.Properties[mpiYear ] := sYear; // Год
Item.Properties[mpiTimeLength] := nSec; // Длительность
Item.Properties[mpiTrack ] := gnTotalItems;вставить ещё дополнительно:
// Создаём элемент медиа-ссылки в корневой папке подкаста
Item := HmsCreateMediaItem(sLink, FolderItem.ItemParent.ItemID); // Создаём элемент подкаста
Item.Properties[mpiTitle ] := sName; // Наименование
Item.Properties[mpiThumbnail ] := sImg; // Картинка
Item.Properties[mpiYear ] := sYear; // Год
Item.Properties[mpiTimeLength] := nSec; // Длительность
Item.Properties[mpiTrack ] := FolderItem.ItemParent.ChildCount;Как тут можно заметить, просто в команде
Item := HmsCreateMediaItem(sLink, FolderItem.ItemParent.ItemID); // Создаём элемент подкастауказан ItemID родительского элемента (ItemParent) текущей папки подкаста (FolderItem)
А с сортировкой решил следующим образом - в свойство mpiTrack вставляем количество уже созданных элементов в этой корневой папке (FolderItem.ItemParent.ChildCount). После каждого создания в корневой папке это число будет увеличиваться и можно по этому полю тоже сортировать.
Всякие FolderItem.DeleteChildItems; не трогаем, ибо у нас эта команда будет удалять только ссылки в текущем разделе, а в корневой ссылки будут копиться вечно.
]]>sLink := mpFilePath+'/page/'+IntToStr(i)+'/'; // Формируем ссылку для загрузки, включающую номер страницыВ итоге получается два слеша в одном месте. Нужно убрать в ссылках самих разделов последний слеш, либо в цикле загрузке страниц не добавлять лишний.
Кроме того, первой страницы http://stereotraker.ru/kino/page/1/ не существует, сервер ругается. Поэтому нужно сначала загружать просто http://stereotraker.ru/kino/, а потом http://stereotraker.ru/kino/page/2/
Значит, нужно исправить немного код этого цикла загрузки в том месте, где формируется ссылка загружаемой страницы.
Вместо:
sLink := mpFilePath+'/page/'+IntToStr(i)+'/'; // Формируем ссылку для загрузки, включающую номер страницыНужно вставить:
sLink := mpFilePath;
If i > 1 Then sLink := sLink+'page/'+IntToStr(i)+'/'; // Формируем ссылку для загрузки, включающую номер страницы что означает:
ссылка для загрузки равна ссылке раздела (sLink := mpFilePath;)
а если номер загружаемой страницы больше чем 1 - то добавляем часть "page/i/"
На счёт сортировки надо поэкспериментировать.
На счёт создания ссылок в корневом разделе - я думаю даже можно пожертвовать строчкой FolderItem.DeleteChildItems; для удаления старых ссылок, лишь бы это реализовать, потому что для каждого подкаста должен быть индивидуальный подход, и именно для этого это даже в плюс, опять же из-за малого колличества контента.
Вот меня сейчас и интересует вопрос : почему при обновлении подкаста не все ссылки попадают с сайта в подкаст ?
Например в разделе "спорт" на сайте 24 фильма, а при обновлении подкаста только 16, и без разницы сколько страниц для обновления выставляешь в скрипте чтения списка ресурсов - хоть 2, хоть 10, хоть 50 - только дольше обновляет подкаст и в итоге то же самое, и так во всех разделах.
Item := HmsCreateMediaItem(sLink, FolderItem.ItemID); // Создаём элемент подкастатам, где присваиваются им разные свойства, также добавить присвоение свойства через идентификатор mpiTrack значение номера созданного элемента.
У нас в скрипте есть счётчик - переменная gnTotalItems, которая увеличивается командой
Inc(gnTotalItems);после каждого создания элемента. А значит каждый раз будет на единицу больше.
Значит, там где устанавливаем свойства созданного элемента, можно добавить команду
Item.Properties[mpiTrack ] := gnTotalItems;И после этого, при установленном режиме сортировки в mpTrack и обновления подкаста, элементы будут внутри отсортированы по этому свойству. А у наших элементов это свойство - у каждого свой номер увеличивающийся.
2) Создание списка фильмов страницы Топ 100
В команде Item := FolderItem.AddFolder(gsUrlBase+"/?do=top100&mode=rating/"), насколько я понимаю, последнего слеша не должно быть. Страница с такой ссылкой в браузере ругается на не существование такой страницы.
Должно быть так:
Item := FolderItem.AddFolder(gsUrlBase+"/?do=top100&mode=rating");Но тут так быстро ответить не получится.
Откройте эту страницу в браузере - видите, там напрочь по-другому выглядит список. А значит наш скрипт, который ищет ссылки на фильмы в загруженной странице ("Скрипт чтения списка ресурсов") нужно именно под эту страницу писать.
Помните, мы в шаблоне меняли строку на:
RegEx := TRegExpr.Create('<div class="short-story">(.*?)<div class="clear">', PCRE_SINGLELINE);Это мы задавали регулярное выражения поиска блоков текста, которые начинаются на <div class="short-story"> и кончаются <div class="clear">. Между ними блок текста содержал ссылки на фильм, название и проч.
Так вот на странице "Топ 100" - эти значения в нашем скрипте должны быть другие.
Два варианта:
а) В скрипте чтения списка ресурсов сделать проверку: мы обновляем список не Топ 100 случайно? Если Топ 100 - то не загружаем все 10 страниц по циклу, а только одну и используем другие значения для поиска блоков текста, содержащих информацию о фильме.
б) На данный раздел (подкаст) сделать персональный скрипт чтения списка ресурсов. Вставить шаблон и его под него переделать.
3) Такая ситуация могла возникнуть, когда активной папкой была главная папка подкаста (которая содержит другие разделы) и вы зашли в редактирование скрипта чтения списка ресурсов и там начали отладку, т.е. запустили скрипт, который загрузил страницу по ссылке, которая указана в этой папке (видимо ссылка на сам сайт там) и там нашла и создала ссылки на фильмы. Получается что с главной страницы сайта.
Насчёт идеи обновления раздела "Главное" и создание ссылок в корневой папке. Думаю, реализуемо даже. Только нужно понять, что обычно, при обновлении подкастов - в начале главной процедуры скрипта есть команда
FolderItem.DeleteChildItems; // Очищаем существующие ссылкиона подчищает ранее созданные ссылки и создаёт список заново. А у вас там кроме ссылок ещё и папки! Их же желательно не удалять?
Если очистку ранее созданных не делать, тогда кроме проблемы что там будет со временем копиться миллион ссылок, так ещё и с сортировкой что-то тоже придумывать.
Не знаю как получился у меня такой косяк который я устранил, но сейчас хочу чтобы именно так и было и не получается - а именно, при заходе в папку подкаста получились созданные папки и тут же фильмы с главной страницы. Вроде бы нет папки "обновить подкаст" когда в ней созданы другие папки, но может можно создать папку "главная" при обновлении которой будут создаваться ссылки и в ней и в самом подкасте stereotraker, потому что смотрелось авторитетно, как будто зашёл на сайт где сразу на виду и фильмы и папки.
]]>В главной процедуре, после команды HmsDownloadURLToFile(...
должна же быть вызвана та самая главная функция формирования команды запуска. Сама функция у вас есть (которую вы ставили из шаблона), а вызова её нет.
Добавьте
GetLink_AceStreamTorrent(sFile);End.
]]>Сделал всё по инструкции в скрипте, ошибок синтаксиса и при выполнении нет, но не происходит автозапуск Ace Playera ни с транскодом ни без транскода т.е. при запуске с телека фильма - создаётся торрент во временной папке HMS и всё глухо. Сам торрент вручную через Ace Plaer запускается нормально.
Специально проверил запуск фильмов с подкаста Торрент ТВ с папки фильмы - там при запуске сразу появляется консольное окно Ace Playera, идёт закачка файла в кеш AceStream (D:\_acestream_cache_), а оттуда если без транскода то сразу на телек, а если через транскод то ещё сохраняется в D:\Временные файлы HMS\HmsTemp, а оттуда на телек.
А у нас только торрент сохраняется в D:\Временные файлы HMS\HmsTemp и всё глухо, потому что нет автозапуска Ace Playera.
[Common]
TemplateLastCheck = 2015.11.07
TemplateLastUpdate = 2015-11-07T08:52:24ZЭто запомненные даты, когда последний раз проверялись обновления шаблонов.
Потом закройте окно редактирования скриптов, если оно открыто, и заново его откройте. Через 5 сек у вас, по-идее, должны обновиться шаблоны и в редакторе станет возможно выбрать шаблон "Функция получения ссылки torrent AceStream".
Вот эту функцию нужно вставить перед главной процедурой.
А в главной процедуре, в самом конце вызвать эту функцию, в качестве параметра передать переменную, которая содержить путь до файла torrent.
Короче, должно получиться что-то типа этого:
Var
gsUrlBase: String = "http://stereotraker.ru";
sHeaders, sHtml, sLink, sFile: String;
// ---- Получение ссылки на ресурс из torrent файла через AceStream -----------
Procedure GetLink_AceStreamTorrent(sFile: String);
Var
sCmd, sPlayer: String;
Begin
sCmd := 'cmd://"%s" --no-crashdump --play-and-exit --language en -Idummy --demuxdump-file="<OUTPUT FILE>" vlc://pause:4 --access=p2p_access "%s" :demux=dump';
sPlayer := ExtractShortPathName(RegistryRead('Software\AceStream\InstallDir'))+'\Player\ace_player.exe';
MediaResourceLink := Format(sCmd, [sPlayer, sFile]);
End;
///////////////////////////////////////////////////////////////////////////////
// Г Л А В Н А Я П Р О Ц Е Д У Р А //
Begin
sHeaders := "Referer: "+mpFilePath+#13#10;
sHtml := HmsDownloadURL(mpFilePath, sHeaders, True);
sHtml := HmsRemoveLineBreaks(sHtml);
HmsRegExMatch('(http://stereotraker.ru/engine/download.php\?id=\d+)', sHtml, sLink);
sFile := HmsTranscodingTempDirectory + PodcastItem.ItemID + ".torrent";
HmsDownloadURLToFile(sLink, sFile, sHeaders);
GetLink_AceStreamTorrent(sFile);
End.А сейчас надо как то принудительно указать для подкаста - обязательный запуск AceStream для ссылок.
]]>