Как узнать что рисунок 1 есть на рисунке 2

[Даниил_глазко]

Здравствуйте.Как узнать что рисунок 1 есть на рисунке 2.Заренее благодарен.

[bulldog5293]

Сравнить оба рисунка

[Даниил_глазко]

А примера нет?

[Даниил_глазко]

Или поправте следующий код:

procedure TForm1.BitBtn3Click(Sender: TObject);
var
x,y:integer;
sw,xa,ya:integer;
begin
for x:=0 to image1.Width do begin
  for y:=0 to image1.Height do begin
    if image1.Canvas.Pixels[x,y] = image2.Canvas.Pixels[0,0]
    then begin
      for xa:=x to image1.Width do
        for ya:=y to image1.Height do begin
          if image1.Canvas.Pixels[xa,ya]<> image2.Canvas.Pixels[xa-x,ya]
          then begin

          exit;
          exit;
          end
          else caption:='x:'+inttostr(xa)+'y:'+inttostr(ya);
        end;
    end;
  end;
end;
end;

[Даниил_глазко]

P.S.Простите если ошибка в x,y

[grafgrial]

Что то типа этого нужно?
http://www.delphisources.ru/pages/so...-pictures.html

[Даниил_глазко]

Вы меня не так поняли.Нужно на картинке 2.bmp найти фрагмент 1.bmp.

[evg_m]

мы проверяем вторую картинку

      for xa:=x to x+image2.Width do
        for ya:=y to y+image2.Height do begin

по X смещение учитываем for x:=0 ...
, а кто будет учитывать смещение по Y for y:=0 to ...

          if image1.Canvas.Pixels[xa,ya]<> image2.Canvas.Pixels[xa-x,ya-y]

или так

      for xa:=0 to image2.Width do
        for ya:=0 to image2.Height do begin
          if image1.Canvas.Pixels[x+xa, y+ya]<> image2.Canvas.Pixels[xa,ya]

и не учтена возможность НЕПОЛНОГО вхождения (выход второго рисунка за границу первого).
если это именно bitmap, то почему не воспользоваться Tbitmap

b1:=Image1.Bitmap;
b1:=Tnitmap.Creqte;
b1.LoadFromfile();

[x128]

http://programmersforum.ru/showthread.php?t=106514

[Даниил_глазко]

evg_m:Вот что я использую.