HDSDUMP Transcoders\hdsdump.exe https://github.com/WendyH/HDSDump_HMS https://github.com/WendyH/HDSDump_HMS/releases/latest HDSDUMP PascalScript Профиль транскодирования для ссылок на манифесты F4M (формат HDS). (By WendyH) Транскодирование с перекодированием видео 3 var i: Integer; sFileExt: string; begin if mpFileType <> '' then begin if SameText(mpFileType, 'mpegts') then sFileExt := 'ts' else if SameText(mpFileType, 'mpeg') then sFileExt := 'mpg' else if MatchText(mpFileType, ['matroska', 'matroska,webm']) then sFileExt := 'mkv' else if SameText(mpFileType, 'asf') then sFileExt := 'wmv' else begin i := Pos(',', mpFileType); if i > 0 then sFileExt := Copy(mpFileType, 1, i - 1) else sFileExt := mpFileType end; MimeType := HmsGetMimeType(sFileExt) end end. PascalScript 1 /////////////////////////////////////////////////////////////////////////////// // Г Л А В Н А Я П Р О Ц Е Д У Р А // { string sReadPipeName, sWritePipeName, sLink, sTranscoderParams, sQual; TranscodingResult = false; // Создаём именованные PIPE-каналы для чтения и записи потока // (для передачи потока между двумя программами транскодерами). if (!HmsCreateDualPipe(sReadPipeName, sWritePipeName)) { HmsLogMessage(2, "Невозможно создать PIPE каналы для чтения/записи."); return; } // Если есть скрипт получения ссылки на ресурс - пытаемся получить его результат HmsRetrieveProperties(); sLink = HmsGetItemProperty(mpiMediaResourceLink); // Если нет - просто берём ссылку на файл if (Trim(sLink)=="") sLink = mpFilePath; // Формируем параметры для hdsdump.exe sTranscoderParams = Format('--manifest "%s" --threads 2 --outfile "%s" ', [Trim(sLink), sWritePipeName])+Trim(HmsGetItemProperty(mpiTranscodingParams)); if (mpTimeStart!="") sTranscoderParams += ' --skip ' + mpTimeStart; // Если параметрах транскодирования уже не указаны ключи качества -q или --quality // и они указаны в дополнительных параметрах - добавляем к параметрам hdsdump.exe. if (!HmsRegExMatch('(-q|--quality) ', sTranscoderParams, '') && HmsRegExMatch('--quality=(\\w+)', mpPodcastParameters, sQual)) sTranscoderParams += ' --quality ' + sQual; // Возможны значения high|medium|low // Запускаем получение потока через hdsdump.exe и запускаем также транcкодирование // полученного потока в формате flv в формат, получающийся при использовании // профиля "Фильмы (основной)" с помощью hmsmpeg.exe. if (HmsTranscodingExecute('HDSDUMP', sTranscoderParams, False)) { sTranscoderParams = HmsTranscodingProfileParams('Фильмы (основной)'); sTranscoderParams = ReplaceStr(sTranscoderParams, '<INPUT FILE>', sReadPipeName) + ' "' + OutputFileName + '"'; TranscodingResult = HmsTranscodingExecute('HMSMPEG', sTranscoderParams); } } C++Script Фильмы - HDS (Транскодирование) -1 47 da38cfed-0c55-4c6f-ada9-b1e43c6c3685