HMSMPEG
hmsmpeg.exe
http://www.ffmpeg.org/
HmsMPEG
Hmsmpeg.exe
http://www.ffmpeg.org/
hmsMPEG
hmsmpeg.exe
http://www.ffmpeg.org/
HMSMPEG
PascalScript
Транскодирование для TorrentStream, AceStream медиа-ресурсов
3
cfgTranscodingVideoMimeType
PascalScript
1
const
csVlcParams = '-Idummy --language en vlc://pause:2 --demuxdump-file="%s" --access=p2p_access "%s" :demux=dump';
var
sFileType, sInputFileName, sMediaResourceLink, sReadPipeName, sWritePipeName, sTranscodingParams: string;
bNoChangeAR: boolean;
begin
if (mpOriginalHeight=0) then begin
HmsRetrieveProperties;
if (mpOriginalWidth>0) then begin
// if ((mpOriginalWidth / mpOriginalHeight) > 1.5) then
// mpDVDAspectRatio := '16:9'
// else
// mpDVDAspectRatio := '4:3';
// //mpDVDAspectRatio := cfgTranscodingAspectRatio;
// CurrentMediaItem[mpiDVDAspectRatio] := mpDVDAspectRatio;
HmsLogMessage(1, mpTitle+' '+IntToStr(mpOriginalWidth)+'x'+IntToStr(mpOriginalHeight)+' '+mpDVDAspectRatio);
end;
end;
bNoChangeAR := true; //(mpDVDAspectRatio = '');
TranscodingResult := False;
sInputFileName := InputFileName;
if sInputFileName = '-' then begin
sMediaResourceLink := HmsGetItemProperty(mpiMediaResourceLink);
if Pos('--demuxdump-file', sMediaResourceLink) > 0 then begin
if not HmsRegExMatch('--access=p2p_access "(.*?)"', sMediaResourceLink, sInputFileName) then
HmsRegExMatch('"(.*?\.torrent)"', sMediaResourceLink, sInputFileName)
end
end;
if HmsCreateDualPipe(sReadPipeName, sWritePipeName) then begin
if HmsTranscodingExecute('ACEPLAYER', Format(csVlcParams, [sWritePipeName, sInputFileName]), False) then begin
if mpFileType <> '' then
sFileType := '-f "' + mpFileType + '" '
else
sFileType := '';
mpInternetItem := False;
sTranscodingParams := HmsTranscodingProfileParams('Фильмы (основной)');
sTranscodingParams := ReplaceStr(sTranscodingParams, '<HMSMPEG> ', sFileType);
sTranscodingParams := ReplaceStr(sTranscodingParams, '<INPUT FILE>', sReadPipeName);
sTranscodingParams := sTranscodingParams + ' "' + OutputFileName + '"';
// Удаляем из параметров вообще ключ форматирования видео (scale, dar...)
if bNoChangeAR and HmsRegExMatch('(-vf\s+".*?")', sTranscodingParams, gsUserVariable1) then sTranscodingParams := ReplaceStr(sTranscodingParams, gsUserVariable1, '');
//HmsLogMessage(1, mpTitle+' TranscodingParams: '+sTranscodingParams);
TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscodingParams, True)
end
end
end.
PascalScript
AceStream (ACEPLAYER - FFMPEG) Без изменения соотношения сторон
-1
24
981edd46-3a8f-4bc5-bff8-7038bff0bb50