Перекодирование видео

Фильмотека хранится на NAS netgear Stora. Контент отдается по UPNP без какой-либо конвертации. Соответственно, на телевизоре на некоторых фильмах не отображается видео или звук. Причем оказалось, что важно не только поддержка контейнера и форматов, но и их соответствие, и даже соответствие расширению файла. Из первых опытов:

Видео

XVID	DIVX3	DIVX4	DIVX5

Аудио

MP2	MP3	AC3	PCM	WMA

Перекодирование видео с помощью VLC не увенчались успехом - не пошел ни один файл, им переконвертированый. Причем, расширение файла почему-то надо придумывать самому, что не всегда удается сделать правильно.

Воспользовался HMS как перекодировщиком, используя функцию предварительного транскодирования.

В Настройка → Обработка скопировал скрипт "Предварительное транскодирование (Shift+F5)". В нем поставил галку для отображения кнопки на панели и немного переделал.
// для того, чтобы фильм транскодировался в исходный каталог sDestFileName := ChangeFileExt(aSourceFileName, sDestFileExt) // для того, чтобы фильм не пытался перезаписать самого себя if aSourceFileName = sDestFileName then HmsLogMessage(mtiInfo,'Ошибка совпадения названий файлов',True) else begin ... end

Для того, чтобы при выставленном аудио кодеке AC3 сохранялся MP3, который поддерживается телевизором, на основе основного профиля создал новый профиль транскодирования в Настройка → Транскодер → Профили

Фильмы (транскодирование)

IfThen(mpSubItemsCount > 0, HmsTranscodingDvdParams,
   IfThen(mpAudioCodec = 'MP3',
      HmsTranscodingInputParams + 
      ReplaceStr(HmsTranscodingVideoParams, '-acodec ac3',  '-acodec copy') + 
      HmsTranscodingMapParams(mpAudioStreamNo),    

      HmsTranscodingInputParams + 
      HmsTranscodingVideoParams + 
      HmsTranscodingMapParams(mpAudioStreamNo)
   )   
)

Там же установил этот профиль в Предварительном транскодировании фильмов. После этого для перекодирования достаточно выделить файл, нажать кнопку транскодирования и после завершения процесса удалить файл с диска по правой кнопке.

Проверил разные контейнеры и видео форматы в Настройка → Устройства → по-умолчанию (кнопка настройки) → Кодеки с тем аудио кодеком, который ставится по-умолчанию.

Контейнер\Кодек

	MPEG1	MPEG2	MPEG4	H.264
DVD	103MB	105MB	92MB	139MB
TS	109MB	112MB	95MB	149MB
MPEG1	95MB	97MB	82MB	133MB

Там же можно поставить галку для отображения субтитров в полученном файле, если таковые имются. Можно еще поставить галку для отображения кнопки сканирования.

Проверял перекодированный файл тут же, изменив в настройках устройства, соответствующего телевизору, поддерживаемые файлы на "*" для того, чтобы HMS не пытался транскодировть полученный файл.

Заодно сделал профиль для телефона

Фильмы (MP4)

const
  mWidth  = 480; //640;
  mHeight = 270; //360;
var iWidth,iHeight : Integer;
begin
iWidth := mpWidth; iHeight := mpHeight;
if iWidth > mWidth then begin
  iHeight := iHeight * mWidth div iWidth;
  iWidth := mWidth;
end;
if iHeight > mHeight then begin
  iWidth := iWidth * mHeight div iHeight;
  iHeight := mHeight;
end;
TranscodingParams := 
HmsTranscodingInputParams + 
' -vf "scale=' + IntToStr(iWidth) + ':' + IntToStr(iHeight) + '"' +
' -vcodec mpeg4 -b:v 3000000 -copyts -pix_fmt yuv420p -threads 2' +
' -acodec libfaac -ab 448000 -ar 48000 -ac 2' +
HmsTranscodingMapParams(mpAudioStreamNo)
end.

Пришлось повозиться с тем, чтобы выбор аудио дорожки и субтитров участвовал в предварительном транскодировании. Кроме того, что это не предполагается, добавило трудности несовпадение значений параметров и результаты скрипта в тестах, транскодировании и предварительном транскодировании. И описания функций и параметров нигде нет.

Скрипт, в силу этих причин, получился не очень изящным, но работающим.
const mWidth = 480; //Max Width, 640; mHeight = 270; //Max Height, 360; mScroll = 25; //Bottom padding var iWidth,iHeight : Integer; sAudio,sVideo,sSubt: String; sStreams,sHeightSubt: String; begin sAudio:=CurrentMediaItem.Properties[mpiAudioSelected]; sSubt:=CurrentMediaItem.Properties[mpiSubtitleLanguage]; if (sAudio <> '') then sStreams:=' -vstreamid ' + Str(HmsGetStreamID('V',0))+ ' -astreamid ' + ExtractWord(2,sAudio,'x]') else sStreams:=HmsTranscodingMapParams(mpAudioStreamNo); iWidth:=mpWidth; iHeight:=mpHeight; if iWidth>mWidth then begin iHeight:=iHeight*mWidth div iWidth; iWidth:=mWidth; end; if iHeight>mHeight then begin iWidth:=iWidth*mHeight div iHeight; iHeight:=mHeight; end; if (sSubt <> '') then sHeightSubt := ',pad=' + IntToStr(iWidth) + ':' + IntToStr(mHeight) + ':0:' + IntToStr((mHeight-iHeight) div 2) + '" -vhook "hmssubt.dll ' + mpFilePath + ',Arial Narrow,14,,,,1,,,,' + Str(iWidth) + ',' + Str(mHeight - mScroll) + ',' + Str(mpFrameRate) + ',,,,' + sSubt + '"' else sHeightSubt := '"'; TranscodingParams := HmsTranscodingInputParams + ' -vf "scale='+IntToStr(iWidth)+ ':' + IntToStr(iHeight) + sHeightSubt + ' -vcodec mpeg4 -b:v 3000000 -copyts -pix_fmt yuv420p -threads 2' + ' -acodec libfaac -ab 448000 -ar 48000 -ac 2' + sStreams; end.

И для обозначения в имени файла языка аудио дорожки и субтитров немного изменил скрипт запуска транскодирования
// добавление в переменные основной процедуры выбранные дорожки procedure ProcessFile(const aSourceFileName, aDestDirectory: string; aCheckTranscodingFinish: Boolean; sAudio, sSubt: string); ... // то, что добавляется к имени файла sAddFileName: string; begin sAddFileName:=''; // берется только язык дорожки if (''+sAudio<> '') then sAddFileName:=sAddFileName + '.' + ExtractWord(1,sAudio,' ') // если не выбрана аудио дорожка, но выбраны субтитры else sAddFileName:='.x'; // прибавляется язык дорожки if (''+sSubt <> '') then sAddFileName:=sAddFileName + '.' + ExtractWord(1,sSubt,' '); if (sAddFileName='.x') then sAddFileName:=''; ... // само прибавление sDestFileName := IncludeTrailingBackslash(aDestDirectory) + ChangeFileExt(ExtractFileName(aSourceFileName), sAddFileName + sDestFileExt); ... begin ... // добавление в параметры основной процедуры выбранные дорожки ProcessFile(MediaItem.Properties[mpiFilePath], cfgPreTranscodingDestDirectory, False, MediaItem.Properties[mpiAudioSelected], MediaItem.Properties[mpiSubtitleLanguage]);