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 var s, sCrop, sVF: string; nH: Extended; nCrop: integer; 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))); // CROP --------------------------------------------------------------------- if mpHeight > 0 then begin nH := mpWidth / (16/9); sCrop := ''; if (nH < mpHeight) then begin nCrop := Round(Round(mpHeight - nH)/2); sCrop := Format('crop=in_w:in_h-%d:0:%d,', [nCrop*2, nCrop]); sVF := Format('scale=%d:%d,pad=%d:%d:0:0:0x000000,setdar=16:9', [cfgTranscodingScreenWidth, cfgTranscodingScreenHeight-2, cfgTranscodingScreenWidth, cfgTranscodingScreenHeight]); If HmsRegExMatch('(-vf\s+".*?")', TranscodingParams, s) Then TranscodingParams := ReplaceStr(TranscodingParams, s, '-vf "'+sCrop+sVF+'"'); end; end; // -------------------------------------------------------------------------- end. PascalScript Фильмы (основной) + AR16:9 CROP -1 6 eeee735a-8d97-491f-b725-687c8b12a016