интернет телевидиние

[SPavel_74]

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

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]

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

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'. Но направление правильное

[SPavel_74]

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

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;

?

[Eugene]

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

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;

?

Они перечислены в настройке программы (Транскодер-Кодеки, кадр), т.е. MPEG (DVD)

[SPavel_74]

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

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

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

[Eugene]

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

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

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

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 := 'ps'
end;

[SPavel_74]

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

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

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

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

Code: Select all

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

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

[SPavel_74]

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

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

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

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

Code: Select all

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

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

поменял в нформации о фильме разрешение на 640*480, результата не дало.

[Eugene]

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

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

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

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

Code: Select all

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

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

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

[SPavel_74]

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

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

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

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

Code: Select all

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

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

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

при Тестовом транскодировании параметры vlc
почемуто вычисляет Width=160;Height=480


Сейчас попробую создать новый профиль