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
53
ef6d6aeb-f4d1-4f52-b3c0-ee64a7562ef3