VPF::Как сделать 8 битную копию экрана в PNG?

E_v_g

Дата 12.12.2012, 15:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 15.11.2006

Репутация: нет
Всего: нет

Нужно сделать 8 битовую копию экрана в формате PNG без использования модуля Graphics. Следующий код делает 24 битную картинку. Как перевести 24 бита в 8? Пытался пользоваться GetDIBits/SetDiBits - ничего не получилось. Подскажите, пожалуйста, в какую сторону копать?

Код


uses
  Windows,
  pngimage;

var
  png1 : TPNGObject;
  R: TRect;
  DC, memDC: HDC;
  bm, oldBM: HBITMAP;
  
begin
  try
    windows.GetWindowRect(GetDesktopWindow, r);
    DC := GetDC(0);
    memDC := CreateCompatibleDC(DC);
    bm := CreateCompatibleBitmap(DC, R.Right, R.Bottom);
    oldBM := SelectObject(memDC, bm);
    BitBlt(memDC, 0,0, R.Right, R.Bottom, DC, 0,0, SRCCOPY);
    SelectObject(memDC, oldBM);
    DeleteDC(memDC);
    DeleteObject(oldBM);
    ReleaseDC(0, DC);
    png1 := TPNGObject.Create;
    png1.AssignHandle(bm, false, 0);    
    DeleteObject(bm);
    png1.CompressionLevel := 9;
    png1.SaveToFile('screen.png');
  finally
    png1.Free;
  end
end.

x128

Дата 13.12.2012, 12:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 88
Регистрация: 29.9.2009

Репутация: 5
Всего: 7

Цитата(E_v_g @ 12.12.2012, 15:44

)

Нужно сделать 8 битовую копию экрана в формате PNG без использования модуля Graphics.

Модуль PNGImage использует Graphics...

Самое простое решение:

Код


var
  DC,WND: THandle;
  r: TRect;
begin
  WND:=GetDesktopWindow;
  GetWindowRect(WND, r);
  DC:=GetDC(WND);
  with TPNGObject.CreateBlank(COLOR_PALETTE,8,r.Right,r.Bottom) do begin
    BitBlt(Canvas.Handle, 0,0,Width,Height, DC, 0,0, SRCCOPY);
    CompressionLevel:=9;
    SaveToFile('screen.png');
    Free;
  end;
  ReleaseDC(WND, DC);
end;

Цитата(E_v_g @ 12.12.2012, 15:44

)

Как перевести 24 бита в 8?

Лекция: Алгоритмы квантования для полутоновых и цветных изображений

E_v_g

Дата 13.12.2012, 16:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 15.11.2006

Репутация: нет
Всего: нет

Цитата(x128 @ 13.12.2012, 12:32

)

Модуль PNGImage использует Graphics...

Если в модуле PNGImage закомментировать строку {$DEFINE UseDelphi}, то он не будет использовать модуль Graphics. Про это в справке есть и в самом модуле PNGImage написано:

Код


{$DEFINE UseDelphi}              //Disable fat vcl units(perfect for small

поэтому Самое простое решение не поможет. Про лекцию спасибо, почитаю.

x128

Дата 14.12.2012, 13:39 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 88
Регистрация: 29.9.2009

Репутация: 5
Всего: 7

Цитата(E_v_g @ 13.12.2012, 16:33

)

Если в модуле PNGImage закомментировать строку {$DEFINE UseDelphi}, то он не будет использовать модуль Graphics.

Да, чет я тормознул...

Можно немного подправить модуль PNGImage и "Самое простое решение" останется простым =)
в классе TChunkIHDR добавляем свойство:

Код


  property ImageDCValue: HDC read ImageDC;

и потом в BitBlt вместо Canvas.Handle пишем:

Код


  BitBlt(Header.ImageDCValue, 0,0,Width,Height, DC, 0,0, SRCCOPY);

E_v_g

Дата 14.12.2012, 14:56 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 15.11.2006

Репутация: нет
Всего: нет

Спасибо огромное, работает! И так просто! Жаль, плюс не могу поставить....

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »