[ALexandr555]

Код:

procedure TForm1.Timer2Timer(Sender: TObject);
var
fl: TStringList;
i,j: integer;
begin
Timer2.Enabled:=false;
Fl:=TStringList.Create;
Search('****',fl);
jpg1.LoadFromFile(Fl[Fl.Count-1]);
BT1.Assign(JPG1);
jpg2.LoadFromFile('C:\***\готов.jpg');
BT2.Assign(JPG2);
for i:=0 to BT1.Height - 1 do
 for j:=0 to BT1.Width - 1 do
  begin
   if BT1.Canvas.Pixels[j,i]=BT2.Canvas.Pixels[0,0] then
   if CheckImage(i,j) then ShowMessage('Успех!');
  end;
fl.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
jpg1 := TJPEGImage.Create;
jpg2 := TJPEGImage.Create;
BT1:=TBitMap.Create;
BT2:=TBitMap.Create;
end;

function TForm1.CheckImage(h, w: integer): boolean;
var
i,j,mh,mw: integer;
begin
result:=false;
mh:=h+BT2.Height;
if mh>BT1.Height then exit;
mw:=w+BT2.Width;
if mw>BT1.Width then exit;
result:=true;
for i:=h to mh do
 for j:=w to mw do
  begin
   if (BT1.Canvas.Pixels[j,i]<>BT2.Canvas.Pixels[j-w,i-h]) then
    begin
     result:=false;
     exit;
    end;
  end;
end;

Накидал код для поиска картинки в картинке, формат изображения jpg
но вырезал из изображения кусок, но он его почему то не находит хотя в одном и том же изображении находит совпадение, в чем проблема?

[ALexandr555]

Код:

procedure TForm1.Timer2Timer(Sender: TObject);
var
fl: TStringList;
i,j: integer;
begin
Timer2.Enabled:=false;
Fl:=TStringList.Create;
Search('C:\**',fl);
jpg1.LoadFromFile('C:\***\test1.jpg');
BT1.Assign(JPG1);
jpg2.LoadFromFile('C:\***\test2.jpg');
BT2.Assign(JPG2);
for i:=0 to BT1.Height - BT2.Height do
 for j:=0 to BT1.Width - BT2.Width do
  begin
   if BT1.Canvas.Pixels[j,i]=BT2.Canvas.Pixels[0,0] then
   if CheckImage(i,j) then ShowMessage('Успех!');
  end;
fl.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
jpg1 := TJPEGImage.Create;
jpg2 := TJPEGImage.Create;
BT1:=TBitMap.Create;
BT2:=TBitMap.Create;
end;

function TForm1.CheckImage(h, w: integer): boolean;
var
i,j,mh,mw: integer;
begin
result:=false;
mh:=h+BT2.Height-1;
mw:=w+BT2.Width-1;
result:=true;
for i:=h to mh do
 for j:=w to mw do
  begin
   if (BT1.Canvas.Pixels[j,i]<>BT2.Canvas.Pixels[j-w,i-h]) then
    begin
     result:=false;
     exit;
    end;
  end;
end;

вроде исправил кое что но код все равно не робит
прикрепил простые картинки по которым проверяю

ловит совпадение в 22,19 и 0,0 пикселей а дальше в 23,19 и 1,0 почему то у него они не равны

[Alegun]

Цвета не совпадают. Jpeg всё же жмёт с искажениями, перевёл представленные файлики в битмап и сразу всё заработало.

[ALexandr555]

ну я так то в паинте одинаковым цветом сделал, но все равно оригенал у меня идет только jpg так что надо как то с ним сделать

[Alegun]

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

..оригенал у меня идет только jpg так что надо как то с ним сделать

С jpg никак, или тогда задавать погрешность в изменении цвета - перепад от такого градиента до такого считать верным.

[ALexandr555]

так, нашел что png могу получить, там сработает?