Сканирование экрана

[pecson]

Суть проблемы:
Надо средствами делфи или winapi реализовать просмотр экрана (снимка экрана) с сравнением небольшой области с эталоном. Помогите пожалуйста, не дайте засыпаться...

[fbus]

юзай RAdmin

[Vedrus]

Как вариант, можно создать окно сос стилем WS_EX_TRANSPARENT. Если развернуть его во весь экран, то то, что под этим окном находится копируется в него и уже внутри этого окна через HDC можно разгребать содержимое.

[Arigato]

DC := GetDC (0);

Будет указывать на весь экран. Далее можно получить содержимое. Как-то делал что-то подобное. Вот кусок кода, который снимает экран:

  Width  := GetSystemMetrics (SM_CXSCREEN);
  Height := GetSystemMetrics (SM_CYSCREEN);

  // НАЧАЛО: Делаем снимок экрана
  with DIB.bmiHeader do
  begin
    biSize          := SizeOf (DIB.bmiHeader);
    biWidth         := Width;
    biHeight        := Height;
    biPlanes        := 1;
    biBitCount      := 32;
    biCompression   := BI_RGB;
    biSizeImage     := Width * Height * 4;
    biXPelsPerMeter := 0;
    biYPelsPerMeter := 0;
    biClrUsed       := 0;
    biClrImportant  := 0;
  end; {with}
  GetMem (Buff32, DIB.bmiHeader.biSizeImage);
  DC := GetDC (0);
  HDC1 := CreateCompatibleDC (DC);
  hBitMap := CreateDIBSection (HDC1, DIB, DIB_PAL_COLORS, Adr, 0, 0);
  SelectObject (HDC1, hBitMap);
  BitBlt (HDC1, 0, 0, Width, Height, DC, 0, 0, SRCCOPY);
  GetDIBits (HDC1, hBitMap, 1, Height, Buff32, DIB, DIB_PAL_COLORS);
  DeleteObject (HDC1);
  DeleteObject (hBitMap);
  DeleteDC (DC);
  DeleteDC (hBitMap);
  // КОНЕЦ: Делаем снимок экрана

Сейчас лень расписывать подробно, что и как тут работает. Если Вам надо - разберётесь.

[pecson]

спасибо большое, но надо ещё организовать поиск области, совпадающей с эталоном...В принципе это была главная проблема

[Altera]

Что там у вас? Bitmap-ы?
Попиксельно проверяйте.
Цыклом. Примерно так:

procedure getChangedPix;
var
x, y: cardinal;
begin
   { при условии, что есть 3 глобальные переменные, 
   curBmp, lastBmp: tBitmap; которые надо сравнить и deltaBmp: tBitmap в которую запишутся только не изменившиеся пикселы. Все 3 картинки равны в размерах. 
   Изменившиеся будут красными}
   for x := 0 to curBmp.width - 1 do
      for y := 0 to curBmp.height - 1 do
      begin
          if curBmp.pixels[x, y] = lastBmp.pixels[x, y] then
             deltaBmp[x, y] := curBmp.pixels[x, y]
          else 
             deltaBmp[x, y] := clRed;