3
51
84b3cae1-8df9-48f3-b688-b44ed7e3943f
http://hdserials.club
234DF17B-418C-4FDC-9DFE-CD0C586D2E76
4
hdserials.club
515
1
700
0
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
512
0
532
1
553
1
522
0
570
0
245
84b3cae1-8df9-48f3-b688-b44ed7e3943f
93
43474,5132682986
530
string gsUrlBase = 'http://hdserials.club'; // База для относительных ссылок
int gnTotalItems = 0; // Счётчик созданных элементов
TDateTime gStart = Now; // Время начала запуска скрипта
int gnMaxPages=10, gnMaxInGroup=100; bool gbYearInTitle=false; char gsGroupMode='';
// Регулярные выражения для поиска на странице блоков с информацией о видео
string
gsPatternBlock = '"short-item"(.*?)</div>' , // Искомые блоки
gsCutPage = '<fromCut>(.*?)<toCut>' , // Обрезка загруженной страницы
gsPatternTitle = 'alt="(.*?)"' , // Название
gsPatternLink = '<a[^>]+href="(.*?)"' , // Ссылка
gsPatternImg = '<img src="(.*?)"' , // Картинка
gsPatternYear = 'shortinfo.*?>(\\d{4})<' , // Год
gsPatternAudio = '' , // Озвучка / Перевод
gsPatternPages = '.*/page/\\d+/">(\\d+)' , // Регулярное выражение для поиска максимального номера страницы для дозагрузки
gsPagesParams = 'page/<PN>/' , // Параметр с номером страницы, который добавляется к ссылке
;
///////////////////////////////////////////////////////////////////////////////
// Создание папки или подкаста
THmsScriptMediaItem CreateFolder(THmsScriptMediaItem ParentFolder, string sName, string sLink, string sImg='') {
THmsScriptMediaItem Item = ParentFolder.AddFolder(sLink); // Создаём папку с указанной ссылкой
Item[mpiTitle ] = sName; // Присваиваем наименование
Item[mpiThumbnail ] = sImg; // Картинка
Item[mpiCreateDate] = DateTimeToStr(IncTime(gStart, 0, -gnTotalItems, 0, 0)); // Для обратной сортировки по дате создания
gnTotalItems++; // Увеличиваем счетчик созданных элементов
return Item; // Возвращаем созданный объект
}
///////////////////////////////////////////////////////////////////////////////
// Получение имени группировки по имени видео (первая буква, "A..Z" или "#")
string GetGroupName(string sName) {
string sGrp = '#';
if (HmsRegExMatch('([A-ZА-Я0-9])', sName, sGrp, 1, PCRE_CASELESS)) sGrp = UpperCase(sGrp);
if (HmsRegExMatch('[A-Z]', sGrp, sGrp)) sGrp = 'A..Z';
if (HmsRegExMatch('[0-9]', sGrp, sGrp)) sGrp = '#';
return sGrp;
}
///////////////////////////////////////////////////////////////////////////////
// Загрузка страниц и парсинг
void LoadAndParse() {
string sHtml, sData, sName, sLink, sImg, sYear, sPage, sVal, sPost, sServ; // Объявляем переменные
THmsScriptMediaItem Item, Folder = FolderItem; TRegExpr RegEx;
int i, n, nPages=0, iCnt=0, nGrp=0; char sGrp=""; bool bGroup=false;
if (HmsRegExMatch('--maxingroup=(\\d+)', mpPodcastParameters, sVal)) gnMaxInGroup = StrToInt(sVal);
if (HmsRegExMatch('--maxpages=(\\d+)' , mpPodcastParameters, sVal)) gnMaxPages = StrToInt(sVal);
HmsRegExMatch('--group=(\\w+)', mpPodcastParameters, gsGroupMode);
gbYearInTitle = (Pos('--yearintitle', mpPodcastParameters)>0);
if (LeftCopy(mpFilePath, 4) != "http") {
// Если нет ссылки - делаем поиск названия
if (Length(mpTitle)<4) mpTitle += " :::"; // Фишка обхода ограничения на минимальную длину в 4 символа (двоеточие при самом поиске не учитывается)
HmsRegExMatch('//(.*)', gsUrlBase, sServ); // получаем доменное имя из gsUrlBase в sServ
sPost = 'do=search&subaction=search&search_start=0&full_search=0&result_from=1&story='+HmsPercentEncode(HmsUtf8Encode(mpTitle));
sHtml = HmsSendRequestEx(sServ, '/index.php?do=search', 'POST',
'application/x-www-form-urlencoded; Charset=UTF-8',
gsUrlBase+'/\r\nAccept-Encoding: gzip, deflate\r\nOrigin: '+gsUrlBase,
sPost, 80, 0, '', true);
gnMaxPages = 1;
} else {
// Иначе просто, загружаем страницу по ссылке
sHtml = HmsDownloadURL(mpFilePath, 'Referer: '+gsUrlBase, true);
}
sHtml = HmsUtf8Decode(sHtml); // Декодируем страницу из UTF-8
sHtml = HmsRemoveLineBreaks(sHtml); // Удаляем переносы строк, для облегчения работы с регулярными выражениями
// Если указан шаблон поиска максимального номера страницы - применяем
if ((gsPatternPages!='') && HmsRegExMatch(gsPatternPages, sHtml, sVal)) nPages = StrToIntDef(sVal, 0);
// Вырезаем только нужный участок текста HTML, где будем искать блоки.
// Вместо <fromCut> и <toCut> вставляем начало и конец участка HTML, между которыми
// будем искать блоки текста с сылкой, наименованием и проч.
HmsRegExMatch(gsCutPage, sHtml, sHtml); // ищем в sHtml, результат кладём обратно в sHtml
// =========================================================================
// Дозагрузка страниц
if ((gnMaxPages!=0) && (nPages>gnMaxPages)) nPages = gnMaxPages;
for (i=2; i<=nPages; i++) {
HmsSetProgress(Trunc(i*100/nPages));
HmsShowProgress(Format('%s: Загрузка страницы %d из %d', [mpTitle, i, nPages]));
sLink = mpFilePath + ReplaceStr(gsPagesParams, '<PN>', IntToStr(i));
sPage = HmsDownloadURL(sLink, 'Referer: '+gsUrlBase, true);
sPage = HmsUtf8Decode(sPage);
if (gsCutPage!='') HmsRegExMatch(gsCutPage, sPage, sPage);
sHtml += sPage;
if (HmsCancelPressed) break;
}
HmsHideProgress();
// =========================================================================
// Создаём объект для поиска блоков текста по регулярному выражению,
// в которых есть информация: ссылка, наименование, ссылка на картинку и проч.
// Обычно, определяем начало и конец блока и вставляем их вместо <section> и </section>
RegEx = TRegExpr.Create(gsPatternBlock, PCRE_SINGLELINE);
try {
// Определяем, если блоков в загруженном более чем gnMaxInGroup, включаем группировку
i=0; if (RegEx.Search(sHtml)) do i++; while (RegEx.SearchAgain());
bGroup = (i > gnMaxInGroup);
// Главный цикл поиска блоков
if (RegEx.Search(sHtml)) do {
sLink=''; sImg=''; sYear=''; sName='';
HmsRegExMatch(gsPatternTitle, RegEx.Match, sName);
HmsRegExMatch(gsPatternLink , RegEx.Match, sLink);
HmsRegExMatch(gsPatternImg , RegEx.Match, sImg );
HmsRegExMatch(gsPatternYear , RegEx.Match, sYear);
if (Trim(sLink)=="") continue;
sName = ReplaceStr(HmsHtmlToText(sName), "/", "-");
sLink = HmsExpandLink(sLink, gsUrlBase);
if (sImg!='') sImg = HmsExpandLink(sImg, gsUrlBase);
// Если в ссылках встречаются русские символы - делаем их безопасными
if (HmsRegExMatch('^.*?([а-яА-Я].*)', sImg, sVal)) sImg = ReplaceStr(sImg, sVal, HmsPercentEncode(HmsUtf8Encode(sVal)));
// Если указано добавлять год вназвание и в названии его нет, добавляем
if (gbYearInTitle && (sYear!='') && (Pos(sYear, sName)<1)) sName += ' ('+sYear+')';
// Контроль группировки (создаём папку с именем группы)
if (gsGroupMode=='alph') {
Folder = FolderItem.AddFolder(GetGroupName(sName));
Folder[mpiFolderSortOrder] = "mpTitle";
} else if (gsGroupMode=='year') {
Folder = FolderItem.AddFolder(sYear);
Folder[mpiFolderSortOrder] = "mpTitle";
Folder[mpiYear ] = sYear;
} else if (bGroup) {
iCnt++; if (iCnt>=gnMaxInGroup) { nGrp++; iCnt=0; }
Folder = FolderItem.AddFolder(Format('%.2d', [nGrp]));
}
CreateFolder(Folder, sName, sLink, sImg); // Создание ссылки (папки с фильмом)
} while (RegEx.SearchAgain);
} finally { RegEx.Free(); }
if (gsGroupMode=='alph') FolderItem.Sort('mpTitle');
else if (gsGroupMode=='year') FolderItem.Sort('-mpYear');
HmsLogMessage(1, mpTitle+': создано элементов - '+IntToStr(gnTotalItems));
}
///////////////////////////////////////////////////////////////////////////////
// Г Л А В Н А Я П Р О Ц Е Д У Р А //
{
FolderItem.DeleteChildItems(); // Удаляем созданные ранее элементы в текущей папке
LoadAndParse(); // Запускаем загрузку страниц и создание папок видео
}
531
C++Script
550
string gsUrlBase = "http://hdserials.club"; // База для относительных ссылок
int gnTotalItems = 0; // Счётчик созданных элементов
TDateTime gStart = Now; // Время начала запуска скрипта
string gsTime = "00:35:00.000"; // Продолжительность видео
int mpiCountry = 10012; // Идентификаторы для хранения дополнительной
int mpiTranslate = 10013; // информации в свойствах подкаста
int mpiQuality = 10014;
///////////////////////////////////////////////////////////////////////////////
// Создание информационной ссылки
void CreateInfoItem(string sName, string sVal) {
THmsScriptMediaItem Item; sVal = Trim(sVal);
if (sVal=="") return;
Item = HmsCreateMediaItem('Info'+IntToStr(PodcastItem.ChildCount), PodcastItem.ItemID);
Item[mpiTitle ] = sName+': '+sVal;
Item[mpiThumbnail ] = 'http://wonky.lostcut.net/vids/info.jpg';
Item[mpiTimeLength] = 7;
Item[mpiCreateDate] = VarToStr(IncTime(gStart,0,-gnTotalItems,0,0));
gnTotalItems++;
}
///////////////////////////////////////////////////////////////////////////////
// Создание ссылки-ошибки
void CreateErrorItem(string sMsg) {
THmsScriptMediaItem Item = HmsCreateMediaItem('Err'+IntToStr(PodcastItem.ChildCount), PodcastItem.ItemID);
Item[mpiTitle ] = sMsg;
Item[mpiThumbnail ] = 'http://wonky.lostcut.net/icons/symbol-error.png';
}
///////////////////////////////////////////////////////////////////////////////
// Создание ссылки на видео
THmsScriptMediaItem CreateMediaItem(THmsScriptMediaItem Folder, string sTitle, string sLink='', string sGrp='') {
THmsScriptMediaItem Item = HmsCreateMediaItem(sLink, Folder.ItemID, sGrp);
Item[mpiTitle ] = sTitle;
Item[mpiCreateDate] = VarToStr(IncTime(gStart,0,-gnTotalItems,0,0));
Item[mpiTimeLength] = gsTime;
Item.CopyProperties(PodcastItem, [mpiThumbnail,mpiYear,mpiActor,mpiDirector,mpiProducer,mpiGenre]);
gnTotalItems++;
return Item;
}
///////////////////////////////////////////////////////////////////////////////
// Создание папки подкаста
THmsScriptMediaItem CreateFolder(THmsScriptMediaItem ParentFolder, string sName, string sLink, string sImg='') {
if (sImg=='') sImg = mpThumbnail;
THmsScriptMediaItem Item = ParentFolder.AddFolder(sLink); // Создаём папку с указанной ссылкой
Item[mpiTitle ] = sName; // Присваиваем наименование
Item[mpiThumbnail ] = sImg; // Картинка
Item[mpiCreateDate] = DateTimeToStr(IncTime(gStart, 0, -gnTotalItems, 0, 0)); // Для обратной сортировки по дате создания
gnTotalItems++; // Увеличиваем счетчик созданных элементов
return Item; // Возвращаем созданный объект
}
///////////////////////////////////////////////////////////////////////////////
// Создание ссылок видео
void CreateLinks() {
string sHtml, sData, sLink, sName, sTime, sImg, sVal, sSeason;
THmsScriptMediaItem Item; TRegExpr RegEx; TRegExpr re;
sHtml = HmsDownloadURL(mpFilePath, 'Referer: '+mpFilePath, true);
sHtml = HmsUtf8Decode(sHtml);
sHtml = HmsRemoveLineBreaks(sHtml);
if (('')) {
} else {
}
sHtml = HmsUtf8Decode(HmsDownloadURL(mpFilePath));
// Ищем плейлист в зангуженном html
if (HmsRegExMatch('var autoplaylist = new Playerjs(.*?)}]', sHtml, sData, 1, PCRE_SINGLELINE)) {
// Найден плейлист, значит это сериал. Его содержимое помещено в sData.
// Создаём объект TRegExpr для поиска блоков по регулярному выражению
RE = TRegExpr.Create('"comment":"(.*?)","file":"(.*?)"},', PCRE_SINGLELINE);
// Ищем элементы li и ссылки в них
if (RE.Search(sData)) do {
sLink = RE.Match(0); // Первая группировка в скобках регулярного выражения
sName = RE.Match(1); // Целиком найденный блок всего регулярного выражения
sName = HmsHtmlToText(sName); // Превращаем html в текст
sLink = ReplaceStr(sLink, '"comment":"', '');
sLink = ReplaceStr(sLink, ',"file":"', '');
sLink = ReplaceStr(sLink, ':hls:manifest.m3u8"},', '');
sLink = ReplaceStr(sLink, '"', '');
sLink = ReplaceStr(sLink, '},', '');
sLink = ReplaceStr(sLink, '1 серия', '');
sLink = ReplaceStr(sLink, '2 серия', '');
sLink = ReplaceStr(sLink, '3 серия', '');
sLink = ReplaceStr(sLink, '4 серия', '');
sLink = ReplaceStr(sLink, '5 серия', '');
sLink = ReplaceStr(sLink, '6 серия', '');
sLink = ReplaceStr(sLink, '7 серия', '');
sLink = ReplaceStr(sLink, '8 серия', '');
sLink = ReplaceStr(sLink, '9 серия', '');
sLink = ReplaceStr(sLink, '10 серия', '');
sLink = ReplaceStr(sLink, '1http:', '');
if (LeftCopy(mpFilePath, 2)=='//') mpFilePath = 'http:'+Trim(mpFilePath);
sLink = ReplaceStr(sLink, '20 серия', '');
sLink = ReplaceStr(sLink, '2http:', '');
if (LeftCopy(mpFilePath, 2)=='//') mpFilePath = 'http:'+Trim(mpFilePath);
sLink = ReplaceStr(sLink, '30 серия', '');
sLink = ReplaceStr(sLink, '3http:', '');
if (LeftCopy(mpFilePath, 2)=='//') mpFilePath = 'http:'+Trim(mpFilePath);
sLink = ReplaceStr(sLink, '40 серия', '');
sLink = ReplaceStr(sLink, '4http:', '');
if (LeftCopy(mpFilePath, 2)=='//') mpFilePath = 'http:'+Trim(mpFilePath);
sLink = ReplaceStr(sLink, '50 серия', '');
sLink = ReplaceStr(sLink, '5http:', '');
if (LeftCopy(mpFilePath, 2)=='//') mpFilePath = 'http:'+Trim(mpFilePath);
sLink = ReplaceStr(sLink, '60 серия', '');
sLink = ReplaceStr(sLink, '6http:', '');
if (LeftCopy(mpFilePath, 2)=='//') mpFilePath = 'http:'+Trim(mpFilePath);
sLink = ReplaceStr(sLink, '70 серия', '');
sLink = ReplaceStr(sLink, '7http:', '');
if (LeftCopy(mpFilePath, 2)=='//') mpFilePath = 'http:'+Trim(mpFilePath);
sLink = ReplaceStr(sLink, '80 серия', '');
sLink = ReplaceStr(sLink, '8http:', '');
if (LeftCopy(mpFilePath, 2)=='//') mpFilePath = 'http:'+Trim(mpFilePath);
sLink = ReplaceStr(sLink, '90 серия', '');
sLink = ReplaceStr(sLink, '9http:', '');
if (LeftCopy(mpFilePath, 2)=='//') mpFilePath = 'http:'+Trim(mpFilePath);
// Если ссылка указана без протокола, добавляем его
if (LeftCopy(sLink, 2)=="//") sLink = "http:"+Trim(sLink);
// Создаём ссылку на серию
Item = CreateMediaItem(PodcastItem, sName, sLink);
Item[mpiTitle] = sName;
} while (RE.SearchAgain);
RE.Free;
} else if (HmsRegExMatch('', sHtml, sLink)) {
// Найден ссылка на iframe, просто создаём ссылку на видео
if (LeftCopy(sLink, 2)=="//") sLink = "http:"+Trim(sLink);
Item = CreateMediaItem(PodcastItem, sName, sLink);
Item[mpiTitle] = mpTitle;
} else {
HmsLogMessage(1, "В загруженной странице не найдена ссылка на видео.");
}
}
///////////////////////////////////////////////////////////////////////////////
// Получение ссылки на медиаресурс в переменную MediaResourceLink
void GetLink() {
if (LeftCopy(mpFilePath, 4)=='Info');
else if (LeftCopy(mpFilePath, 3)=='Err' );
else MediaResourceLink = mpFilePath;
}
///////////////////////////////////////////////////////////////////////////////
// Г Л А В Н А Я П Р О Ц Е Д У Р А //
{
// Проверяем, при каком событии было вызвано выполнение скрипта (не папка ли это)
if (PodcastItem.IsFolder) {
PodcastItem.DeleteChildItems();
CreateLinks(); // Это зашли в папку подкаста (фильма) - создаём ссылки
} else {
GetLink(); // Это запустили фильм - получаем ссылку на медиа-поток
// Если в MediaResourceLink пусто, значит получить ссылку не получилось - выводим видео об ошибке
if (MediaResourceLink=='') MediaResourceLink = 'http://wonky.lostcut.net/vids/podcasterror_hd.mp4';
}
}
551
C++Script
50
Фильмы - LIVESTREAM - FFMPEG - STREAM
55
http://hdserials.club/templates/hdserial/images/favicon.ico
572
Нет скрипта
-
53
f7f17318-b3e3-446e-99e2-3a1e791f449d
http://hdserials.club/xfsearch/ТНТ/
84b3cae1-8df9-48f3-b688-b44ed7e3943f
515
2
512
2
532
2
700
2
553
2
42
3
4
ТНТ
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
f7f17318-b3e3-446e-99e2-3a1e791f449d
93
43532,5933011921
525
43532,6031475463
HMSMPEG
hmsmpeg.exe
http://www.ffmpeg.org/
HmsMPEG
Hmsmpeg.exe
http://www.ffmpeg.org/
hmsMPEG
hmsmpeg.exe
http://www.ffmpeg.org/
HMSMPEG
PascalScript
Транскодирование для интернет медиа-ресурсов
3
cfgTranscodingVideoMimeType
PascalScript
1
// Версия 2.02 (HMS pipe)
// Профиль берет ссылку на медиаресурс через скрипт получения ссылки,
// используя: HmsGetItemProperty(mpiMediaResourceLink) и получает поток
// напрямую, минуя встроенные в livestreamer плагины, используя конструкцию:
// protocol://path [key=value]
// Например:
// livestreamer "rtmp://streaming.server.net/playpath live=1 swfVfy=http://server.net/flashplayer.swf"
// livestreamer hds://streaming.server.net/playpath/manifest.f4m
// За определение типа потока отвечает функция GetStreamType
// 04.06 - В код добавлены параметры командной строки на будущее
// Добавлен параметр --default-stream на случай пустой переменной csQuality
//
// Stream transport options
// --hds-live-edge SECONDS
// --hds-segment-attempts ATTEMPTS
// --hds-segment-threads THREADS
// --hds-segment-timeout TIMEOUT
// --hds-timeout TIMEOUT
// --hls-live-edge SEGMENTS
// --hls-segment-attempts ATTEMPTS
// --hls-segment-threads THREADS
// --hls-segment-timeout TIMEOUT
// --hls-timeout TIMEOUT
// --http-stream-timeout TIMEOUT
// --ringbuffer-size SIZE
//
// --rtmp-proxy PROXY, --rtmpdump-proxy PROXY
// --rtmp-rtmpdump FILENAME, --rtmpdump FILENAME, -r FILENAME
// --rtmp-timeout TIMEOUT
// --stream-segment-attempts ATTEMPTS
// --stream-segment-threads THREADS
// --stream-segment-timeout TIMEOUT
// --stream-timeout TIMEOUT
// HTTP PROXY
// --http-proxy HTTP_PROXY
// --https-proxy HTTPS_PROXY
// --http-cookie KEY=VALUE
// --http-header KEY=VALUE
// --http-query-param KEY=VALUE
// --http-ignore-env
// --http-no-ssl-verify
// --http-ssl-cert FILENAME
// --http-ssl-cert-crt-key CRT_FILENAME KEY_FILENAME
// --http-timeout TIMEOUT
// Plugin options
// --twitch-oauth-token TOKEN
// --twitch-oauth-authenticate
// --twitch-cookie COOKIES
// --ustream-password PASSWORD
// --crunchyroll-username USERNAME
// --crunchyroll-password [PASSWORD]
// --crunchyroll-purge-credentials
// --livestation-email EMAIL
// --livestation-password PASSWORD
// Полное описание тут: http://docs.livestreamer.io/cli.html
const
csDumpParams = '%s "%s" --default-stream "best" --hls-segment-threads 3 --hls-segment-attempts 1 -l %s -f -o "%s"';
csQuality = "720p,480p,best"; //Предпочитаемое качество потока
cbDebug = False; //Активация режима отладки
csPathToLog = 'd:\tmp\livestream-ffmpeg-stream.log'; //Путь в файлу для записи отладочной информации
//его содержимое выслать автору
procedure DoDebug(const strToLog: string);
var
sCurrLog: String;
begin
if cbDebug then
begin
if FileExists(csPathToLog) then sCurrLog := HmsStringFromFile(csPathToLog);
HmsStringToFile(sCurrLog+#13+VarToStr(Now)+' '+strToLog, csPathToLog);
HmsLogMessage(1, strToLog);
end;
end;
// На вход функция принимает декодированную ссылку, возвращает тип потока
function GetStreamType(const aInputLink: String): String;
var
sInputFileName: String;
begin
DoDebug("Getting stream type");
Result := '';
if EndPos(aInputLink,'.m3u8') then Result := 'hls://'
else if EndPos(aInputLink,'.f4m') then Result := 'hds://'
end;
// На вход функция принимает ссылку и тип потока, возвращает True или False, а так же имя файла pipe
function ExecuteLivestreamer(const aCommandLine, aLinkType: string; var aInputFileName: string): boolean;
var
sDumpParams, sReadPipeName, sWritePipeName, sDebugKey: string;
bTest: Boolean;
begin
Result := False;
if (HmsCreateDualPipe(sReadPipeName, sWritePipeName)) then
begin
DoDebug("Executing livestreamer stage, creating pipes: for WRITE "+sWritePipeName+" and for READ "+sReadPipeName);
bTest := HmsFileLocked(sWritePipeName);
DoDebug("Is pipe "+sWritePipeName+" writable: "+Str(bTest));
if bTest then
Begin
if cbDebug then sDebugKey := 'debug'
else sDebugKey := 'none';
sDumpParams := Format('"%s" "%s" --default-stream "best" --hls-segment-threads 3 --hls-segment-attempts 1 -l %s -f -o "%s"', [aLinkType+aCommandLine, csQuality, sDebugKey, sWritePipeName]);
DoDebug("Livestreamer exec params: "+sDumpParams);
Result := HmsTranscodingExecute('LSTREAMER', sDumpParams, False);
DoDebug("Result of execution: "+Str(Result));
if Result then
aInputFileName := sReadPipeName
end;
end
end;
// На вход принимает ссылку, возвращает True, если livestreamer может обработать ссылку или False, если не может
function CheckForValidLink(const aInputFileName: string) : boolean;
begin
Result := False;
//Result := HmsTranscodingExecute('LSTREAMER','--can-handle-url '+InputFileName);
DoDebug("Is link valid: "+str(Result));
end;
var
bSuccess, bLinkValid: Boolean;
sLinkType, sFileType, sInputFileName, sRtmpServer, sRtmpFile, sTranscodingParams: string;
begin
TranscodingResult := False;
DoDebug("Обработка для профиля устройства: "+Str(cfgDeviceType));
if HmsGetStreamCount = 0 then
HmsRetrieveProperties;
InputFileName := Trim(HmsGetItemProperty(mpiMediaResourceLink));
if InputFileName = '' then InputFileName := HmsGetItemProperty(mpiFilePath);
DoDebug("URI ресурса: "+InputFileName);
sLinkType := GetStreamType(InputFileName);
if sLinkType <> '' then
begin
bSuccess := ExecuteLivestreamer(InputFileName, sLinkType, sInputFileName);
DoDebug("Livestreamer part worked, going to transcode pipe: "+sInputFileName);
end
else
begin
bSuccess := False;
DoDebug("Livestreamer didn't found any valid stream on URL: "+InputFileName);
end;
// Берем базовые параметры транскодирования из профиля Фильмы (основной)
sTranscodingParams := HmsTranscodingProfileParams('Фильмы (основной)');
if bSuccess then begin
mpInternetItem := False;
sTranscodingParams := ReplaceStr(sTranscodingParams, '<HMSMPEG> ', '');
end else
begin
sInputFileName := InputFileName;
DoDebug("Transcoding without livestreamer")
end;
sTranscodingParams := sTranscodingParams + ' -strict experimental "<OUTPUT FILE>"';
DoDebug("Starting transcode with commandline: "+sTranscodingParams);
TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscodingParams, True, sInputFileName, OutputFileName);
DoDebug("Finishing transcode with result: "+Str(TranscodingResult));
end.
PascalScript
Фильмы - LIVESTREAM - FFMPEG - STREAM
-1
52
ef6d6aeb-f4d1-4f52-b3c0-ee64a7562ef3