Домашний медиа-сервер (UPnP, DLNA, HTTP)

SPavel_74 wrote:я так понимаю что в

Code: Select all

function GetFileFormat(const aFileFormat: string): string;
begin
  if SameText(aFileFormat, 'ASF (Windows Media Format)') then
    Result := 'asf'
  else if SameText(aFileFormat, 'MPEGTS (MPEG Transport Stream)') then
    Result := 'ts'
  else  
    Result := 'mpeg1'
end;

нужно добавить MPEG-PS

Eugene wrote:

SPavel_74 wrote:я так понимаю что в

Code: Select all

function GetFileFormat(const aFileFormat: string): string;
begin
  if SameText(aFileFormat, 'ASF (Windows Media Format)') then
    Result := 'asf'
  else if SameText(aFileFormat, 'MPEGTS (MPEG Transport Stream)') then
    Result := 'ts'
  else  
    Result := 'mpeg1'
end;

нужно добавить MPEG-PS

Нет, вместо 'mpeg1' указать 'ps'. Но направление правильное

function GetFileFormat(const aFileFormat: string): string;
begin
  if SameText(aFileFormat, 'ASF (Windows Media Format)') then Result := 'asf';
  if SameText(aFileFormat, 'MPEGTS (MPEG Transport Stream)') then Result := 'ts'; 

  if SameText(aFileFormat, 'MPEGPS (MPEG Transport Stream)') then Result := 'ps'  else  Result := 'mpeg1';
end;

SPavel_74 wrote:

Eugene wrote:

SPavel_74 wrote:я так понимаю что в

Code: Select all

function GetFileFormat(const aFileFormat: string): string;
begin
  if SameText(aFileFormat, 'ASF (Windows Media Format)') then
    Result := 'asf'
  else if SameText(aFileFormat, 'MPEGTS (MPEG Transport Stream)') then
    Result := 'ts'
  else  
    Result := 'mpeg1'
end;

нужно добавить MPEG-PS

Нет, вместо 'mpeg1' указать 'ps'. Но направление правильное

в переменной cfgTranscodingFileFormat какие форматы могут быть
про ASF (Windows Media Format) и MPEGTS (MPEG Transport Stream) уже знаю

может так

Code: Select all

function GetFileFormat(const aFileFormat: string): string;
begin
  if SameText(aFileFormat, 'ASF (Windows Media Format)') then Result := 'asf';
  if SameText(aFileFormat, 'MPEGTS (MPEG Transport Stream)') then Result := 'ts'; 

  if SameText(aFileFormat, 'MPEGPS (MPEG Transport Stream)') then Result := 'ps'  else  Result := 'mpeg1';
end;

?

SPavel_74 wrote:MPEG (DVD) - это и есть MPEG-PS

или MPEG (DVD) делится на несколько в том числе MPEG-PS

функция верная или всетаки просто mpeg1 заменить на ps

function GetFileFormat(const aFileFormat: string): string;
begin
  if SameText(aFileFormat, 'ASF (Windows Media Format)') then
    Result := 'asf'
  else if SameText(aFileFormat, 'MPEGTS (MPEG Transport Stream)') then
    Result := 'ts'
  else  
    Result := 'ps'
end;

SPavel_74 wrote:Так с телика интернет телевидение без транскодирования
заработало

интернет телевидение с транскодированием
тоже заработало.

Только катринка сильно сжата по ширине,
в Информации о фильме разрешение установленно 320*240

в коде транскодирования

Code: Select all

  iScreenWidth  := Min(cfgTranscodingScreenWidth, 640);
  iScreenHeight := Min(cfgTranscodingScreenHeight, 480);

Что лучьше сделать чтобы картинка приняла нормальный вид. ?

SPavel_74 wrote:Так с телика интернет телевидение без транскодирования
заработало

интернет телевидение с транскодированием
тоже заработало.

Только катринка сильно сжата по ширине,
в Информации о фильме разрешение установленно 320*240

в коде транскодирования

Code: Select all

  iScreenWidth  := Min(cfgTranscodingScreenWidth, 640);
  iScreenHeight := Min(cfgTranscodingScreenHeight, 480);

Что лучьше сделать чтобы картинка приняла нормальный вид. ?

Eugene wrote:

SPavel_74 wrote:Так с телика интернет телевидение без транскодирования
заработало

интернет телевидение с транскодированием
тоже заработало.

Только катринка сильно сжата по ширине,
в Информации о фильме разрешение установленно 320*240

в коде транскодирования

Code: Select all

  iScreenWidth  := Min(cfgTranscodingScreenWidth, 640);
  iScreenHeight := Min(cfgTranscodingScreenHeight, 480);

Что лучьше сделать чтобы картинка приняла нормальный вид. ?

Возможно это http://www.homemediaserver.ru/forum/vie ... 5375#p5375, заменить mpeg1 - указать ps