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

Код


var
mPicture,bPicture,CMP_Picture:TPicture; //малая, большая, результативная
mHeight, mWidth, cWidth: Integer; //Размеры эталона
bHeight, bWidth, cHeight: Integer; //Размеры большой картинки
RIGHT_INF, BOTTOM_INF:integer; //правый и нижний пределы
i,j,k,m,p,L:integer;
II,JJ:Integer;  //координаты найденной картинки;

dR,dG,dB:byte;
dLIGHT:array[1..10000000] of Double    ; //массив разности яркостей
Lmin:Single; //минимальный элемент массива разности яркостей
size11:Single;
Rct_Dest,Rct_Source:TRect;

bcanvas:TCanvas;
begin

size11:=9;
//Создаем картинки
bPicture:=TPicture.Create;
mPicture:=TPicture.Create;
CMP_Picture:=TPicture.Create;

bPicture.LoadFromFile('image_big.bmp');
mPicture.LoadFromFile('image_small.bmp');


//Считываем размеры
mHeight:=mPicture.Height;
mWidth:=mPicture.Width;
cHeight:=mHeight;
cWidth:=mWidth;
bHeight:=bPicture.Height;
bWidth:=bPicture.Width;

CMP_Picture.Bitmap.Height:=mHeight;
CMP_Picture.Bitmap.Width:=mWidth;
size11:=1/(mHeight*mWidth);

//Ограничения в цикле
RIGHT_INF:=bWidth-mWidth;
BOTTOM_INF:=bHeight-mHeight;
//showmessage(inttostr(bWidth)+' '+inttostr(mWidth));

//Инициализация
i:=0; j:=0; k:=0; m:=0; L:=0;

bCanvas:=bPicture.Bitmap.Canvas;//.Create;

for j:=0 to BOTTOM_INF do
 begin
  for i:=0 to BOTTOM_INF do
   begin
    writeln(i, ' ', j);
   //Область, в которую копируем
    Rct_Dest:=Rect(0,0,CMP_Picture.Width,CMP_Picture.Height);
   //Откуда копируем 
    Rct_Source:=Rect(i,j,mWidth+i,mHeight+j);
    CMP_Picture.Bitmap.Canvas.CopyRect(Rct_Dest,bCanvas,Rct_Source);

//-----теперь в цикле сравниваем две мелкие картинки
    for L:=1 to mHeight-1 do
     for m:=1 to mWidth-1 do
      begin
       inc(k);
       dr:=GetRValue(CMP_Picture.Bitmap.Canvas.Pixels[m,L]) -
              GetRValue(mPicture.Bitmap.Canvas.Pixels[m,L]);
       dg:=GetGValue(CMP_Picture.Bitmap.Canvas.Pixels[m,L]) -
              GetGValue(mPicture.Bitmap.Canvas.Pixels[m,L]);
       db:=GetBValue(CMP_Picture.Bitmap.Canvas.Pixels[m,L]) -
              GetBValue(mPicture.Bitmap.Canvas.Pixels[m,L]);
     //Записываем в массив разность яркостей. 
       dLIGHT[k]:=0.299*dr+0.587*dg+0.114*db;
      end; //for m
//--------------
   end; //for i
  Application.ProcessMessages;
 end; //for j

// goto ext;
p:=k;
k:=0;
//Находим минимальную разность
Lmin:=dLIGHT[1];
 for k:=1 to p do
   if dLIGHT[k]<Lmin then Lmin:=dLIGHT[k];
//Теперь, по номеру k надо найти координаты картинки, начиная с
// которых надо вырезать маленькую картинку из большой.
ii:=0; JJ:=0;
JJ:=(k div RIGHT_INF)+1;
II:=k-((JJ-1)*RIGHT_INF);

Rct_Dest:=Rect(0,0,CMP_Picture.{Bitmap.}Width,CMP_Picture.{Bitmap.}Height);
Rct_Source:=Rect(II,JJ,mWidth+II,mHeight+JJ);
CMP_Picture.Bitmap.Canvas.CopyRect(Rct_Dest,bCanvas,Rct_Source);

CMP_Picture.Bitmap.SaveToFile('Result.bmp');

readln;
end.