Фоновая подсветка телевизора Ambilight

[Chip]

Там в софте есть регулировка плавности... ИМХО это из-за этого...
Оригинальный эмбилайт, судя по всему, сам настраивает плавность изменения цвета в зависимости от сцены... Но если выбрать между плавными переходами и резкими - по мне так лучше плавные. Я пробовал смотреть 3х зонный самопальный эмбилайт у друга, так долго глаза устают смотреть, когда цвета слишком резко меняются.
Ясное дело, что алгоритмы еще нужно сто раз дорабатывать... Филипс тоже не за один вечер всё сделал )

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

[Fasterpast]

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

[Sorgan]

Chip работа над программой идёт? :-)

[Sorgan]

24 всё же наверно перебор)), но не обязательно их ползунками делать, в конфиг файле например прописать, просто у меня телек на стене висит под наклоном, низ ярче получается... А вообще яркость не так важна, главное выбор монитора.

[Chip]

Если есть опыт работы с несколькими рабочими столами , то прошу помочь.

Вот нашел кое что .

procedure TForm1.FormCreate(Sender: TObject);
const
  ENUM_CURRENT_SETTINGS = -1;
  ENUM_REGISTRY_SETTINGS = -2;
var
  dm: DEVMODE;
  dc: HDC;
  oldBrush: HBRUSH;
  LastError: Cardinal;
begin
  Memo1.Clear;

  ZeroMemory(@dm, sizeof(dm));
  dm.dmSize := sizeof(dm);
  EnumDisplaySettings('\\.\DISPLAY2', Cardinal(ENUM_REGISTRY_SETTINGS), dm);
  dc := CreateDC('\\.\DISPLAY2', nil, nil, @dm);
  if (dc = 0) then
    begin
    LastError := GetLastError();
    Memo1.Lines.Add(SysErrorMessage(LastError) + ' (' + IntToStr(LastError) + ')');
    end;
  oldBrush := SelectObject(dc, GetStockObject(WHITE_BRUSH));
  Rectangle(dc, 0, 0, dm.dmPelsWidth, dm.dmPelsHeight);
  MoveToEx(dc, 0, 0, nil);
  LineTo(dc, dm.dmPelsWidth, dm.dmPelsHeight);
  SelectObject(dc, oldBrush);
  DeleteDC(dc);
end; 

Нет второго монитора попробовать, но по всей видимости нужно вот это:

  EnumDisplaySettings('\\.\DISPLAY2', Cardinal(ENUM_REGISTRY_SETTINGS), dm); 
  dc := CreateDC('\\.\DISPLAY2', nil, nil, @dm); 

[Sorgan]

Нет второго монитора попробовать, но по всей видимости нужно вот это:

  EnumDisplaySettings('\\.\DISPLAY2', Cardinal(ENUM_REGISTRY_SETTINGS), dm); 
  dc := CreateDC('\\.\DISPLAY2', nil, nil, @dm); 

Выкладывайте что получилось мы попробуем

[Fasterpast]

Chip, а если изображение выводится через EVR или VMR в "эксклюзивном" режиме (монитор один), твоя прога будет работать?
Поделись кодом )))))

[Chip]

Что такой EVR или VMR ?

[Fasterpast]

Рендерер. А с DXVA работать будет? И зачем она у меня библиотеку FTDI просит? )

[Chudik]

Что такой EVR или VMR ?

рендерер оверлейной части монитора, куда выводится изображение.

Там FT232 или FT245?