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))); end. PascalScript Фильмы (основной) + AR16:9 -1 1 57f25b5f-e78b-406c-847e-f1566e77abed