Изменения в Image

[MARTY]

С Новым годом, Уважаемые программисты!
Возник вопрос, хотел бы попросить помощи в реализации одной задачи.

Есть компонент TImage, делаются скриншоты экрана и в него загоняются эти скриншоты периодично. Необходимо отловить изменения содержимого image.

Т.е. необходимо узнать произошли ли изменения в картинке. Если изменилось содержимое Image то сделать "действие A", а если экран завис и скрины загоняются одни и те же, то сделать "действие Б"

Нужно быстрое решение, без прогона всего имейджа по пиксельно, возможно, путем взвешивания всех пикселей или еще как-то. Чтобы не было большой задержки по времени и ресурсам.

Буду очень признателен за коддинг.Спасибо!

[ZuBy]

а в каком формате скриншоты?
быстрей ScanLine'a думаю не найдете, попиксельное сравнение

[MARTY]

Сообщение от ZuBy

а в каком формате скриншоты?
быстрей ScanLine'a думаю не найдете, попиксельное сравнение

формат бмп 24пикс.
можете помочь с кодом используя ScanLine?

[Человек_Борща]

Работайте с изображениями на прямую в памяти, это быстрее.

[ZuBy]

Сообщение от Человек_Борща

Работайте с изображениями на прямую в памяти, это быстрее.

например? ScanLine вроде и работает с памятью Bitmap'a

[MARTY]

можете с кодом помочь в реализации ScanLine ?
был бы очень признателен....хотя бы наброскам...

к примеру таймер раз в 10 секунд прогонет Image1, если изменилось содержимое Image1 за эти 10 сек - то действие А, если нет - Б

[ZuBy]

// для PixelFormat = 24 bit
const
  PixelCountMax = 32768;

type
  pRGBArray = ^TRGBArray;
  TRGBArray = array [0 .. PixelCountMax - 1] of TRGBTriple;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  Original, Buffer: TBitmap;
  I, Y: integer;
  OrinalRGB: pRGBArray;
  BufferRGB: pRGBArray;
begin
  Caption := '';
  Buffer := TBitmap.Create;
  Original := TBitmap.Create;

  Buffer.PixelFormat := pf24bit;
  Original.PixelFormat := pf24bit;

  Original.Assign(Image1.Picture.Bitmap); // оригинал
  Buffer.Assign(Image2.Picture.Bitmap); // измененное

  for I := Original.Height - 1 downto 0 do
  begin
    OrinalRGB := pRGBArray(Original.ScanLine[I]);
    BufferRGB := pRGBArray(Buffer.ScanLine[I]);

    for Y := Original.Width - 1 downto 0 do
    begin
      if (OrinalRGB[Y].rgbtBlue <> BufferRGB[Y].rgbtBlue) or (OrinalRGB[Y].rgbtGreen <> BufferRGB[Y].rgbtGreen) or
        (OrinalRGB[Y].rgbtRed <> BufferRGB[Y].rgbtRed) then
        Caption := 'Изменено!';
    end;
  end;

  FreeAndNil(Buffer);
  FreeAndNil(Original);
end;

Учитываем что PixelFormat = pf24bit и размеры Битмапов одинаковы

[Vapaamies]

На самом деле правильней всего использовать CompareMem, который вроде код из FastCode использует. И сравнивать сплошняком, естественно. ScanLine вроде же подразумевает непрерывный массив?