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 begin HmsRetrieveProperties; if (mpWidth>0) then begin if ((mpWidth / mpHeight) > 1.5) then mpDVDAspectRatio := '16:9' else mpDVDAspectRatio := '4:3'; //mpDVDAspectRatio := cfgTranscodingAspectRatio; CurrentMediaItem[mpiDVDAspectRatio] := mpDVDAspectRatio; HmsLogMessage(1, mpTitle+': '+IntToStr(mpWidth)+'x'+IntToStr(mpHeight)+' '+mpDVDAspectRatio); end; end; TranscodingParams := IfThen(mpInternetItem, HmsTranscodingProfileParams('Интернет-телевидение'), IfThen(mpSubItemsCount > 0, HmsTranscodingDvdParams, HmsTranscodingInputParams + HmsTranscodingVideoParams + HmsTranscodingMapParams(mpAudioStreamNo))); // Удаляем из параметров вообще ключ форматирования видео (scale, dar...) //if HmsRegExMatch('(-vf\s+".*?")', TranscodingParams, gsUserVariable1) then TranscodingParams := ReplaceStr(TranscodingParams, gsUserVariable1, ''); end. PascalScript Фильмы (основной) + Определение соотношения сторон -1 0 57f25b5f-e78b-406c-847e-f1566e77abed