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 mpHeight = 0 then HmsRetrieveProperties;
if Trim(mpDVDAspectRatio) = '' then begin
mpDVDAspectRatio := '16:9';
CurrentMediaItem[mpiDVDAspectRatio] := mpDVDAspectRatio;
HmsLogMessage(1, mpTitle+': '+IntToStr(mpWidth)+'x'+IntToStr(mpHeight)+' '+mpDVDAspectRatio);
end;
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 + '"';
TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscodingParams, True)
end
end
end.
PascalScript
AceStream (ACEPLAYER - FFMPEG) + 16:9
-1
28
981edd46-3a8f-4bc5-bff8-7038bff0bb50