Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Как сделать 8 битную копию экрана в PNG?

Автор: E_v_g 12.12.2012, 15:44

Нужно сделать 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

Цитата(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?

http://www.intuit.ru/department/graphics/rastrgraph/12/1.html

Автор: E_v_g 13.12.2012, 16:33

Цитата(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

Цитата(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

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