HMSMPEG hmsmpeg.exe http://www.ffmpeg.org/ HmsMPEG Hmsmpeg.exe http://www.ffmpeg.org/ hmsMPEG hmsmpeg.exe http://www.ffmpeg.org/ HMSMPEG Нет скрипта Транскодирование с перекодированием видео 3 begin if SameText(cfgTranscodingFileFormat, 'MPEG (DVD)') then FileExt := 'mpg' else if Pos('MPEGTS', cfgTranscodingFileFormat) > 0 then FileExt := 'ts' else if Pos('ASF', cfgTranscodingFileFormat) > 0 then FileExt := 'wmv' else if SameText(cfgTranscodingFileFormat, 'MP4') then FileExt := 'mp4' else if SameText(cfgTranscodingFileFormat, 'MPEG1') then FileExt := 'mpeg' else FileExt := ''; if FileExt <> '' then MimeType := HmsGetMimeType(FileExt) else MimeType := '' end. PascalScript 0 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; TranscodingParams := IfThen(mpInternetItem, HmsTranscodingProfileParams('Интернет-телевидение'), IfThen(mpSubItemsCount > 0, HmsTranscodingDvdParams, HmsTranscodingInputParams + HmsTranscodingVideoParams + HmsTranscodingMapParams(mpAudioStreamNo))); // Заменяем в параметрах указания изменения формата кадра на свои if HmsRegExMatch('(-vf\s+".*?")', TranscodingParams, gsUserVariable1) then begin gsUserVariable2 := '-vf "scale=1080/ih*iw:1080,crop=1920:1080"'; if HmsRegExMatch2('pad=(\d+):(\d+)', TranscodingParams, gsUserVariable3, gsUserVariable4) then begin gsUserVariable2 := ReplaceStr(gsUserVariable2, '1920', gsUserVariable3); gsUserVariable2 := ReplaceStr(gsUserVariable2, '1080', gsUserVariable4); end else begin gsUserVariable2 := ReplaceStr(gsUserVariable2, '1920', IntToStr(cfgTranscodingScreenWidth)); gsUserVariable2 := ReplaceStr(gsUserVariable2, '1080', IntToStr(cfgTranscodingScreenHeight)); end; TranscodingParams := ReplaceStr(TranscodingParams, gsUserVariable1, gsUserVariable2); end; end. // W=760 H=304 -vf "scale=800:320,pad:800:450:0:64:0x000000,setdar=16:9" // -vf "scale=640:ih*640/iw, crop=640:480" PascalScript Фильмы (основной) CROP -1 3 4c530943-1df4-47db-baf9-e62f3554705e