Delphi Поиск Картинки В Картинке

Delphi - это замечательная среда программирования для реализации различных задач. Если вы хотите научиться находить картинку в картинке, то в Delphi это можно сделать с помощью библиотеки ImageMagick, которая имеет готовые функции для работы с изображениями.

С помощью библиотеки ImageMagick вы можете находить картинку в картинке, изменять её размер и формат, а также редактировать её различные параметры.

Приведу небольшой пример кода на Delphi:

uses  ImageMagick, ImageMagickWand;function FindImageInImage(needle, haystack: string): string;var  mw: PMagickWand;  x, y, w, h: integer;begin  MagickWandGenesis();  mw := NewMagickWand();  MagickReadImage(mw, PChar(haystack));  Result := '';  try    MagickResetIterator(mw);    while (MagickNextImage(mw) = MagickTrue) do      begin        x := 0;        y := 0;        w := MagickGetImageWidth(mw) - MagickGetImageWidth(needle);        h := MagickGetImageHeight(mw) - MagickGetImageHeight(needle);        MagickFindImageInImage(mw, NewMagickWandFromImage(wand), x, y);        if (x >= 0) and (y >= 0) then          begin            Result := Format('%d,%d', [x, y]);            break;          end;      end;  finally    DestroyMagickWand(mw);    MagickWandTerminus();  end;end;

Как видно из кода, для нахождения картинки в картинке используется функция MagickFindImageInImage, которая принимает изображение, в котором производится поиск, и образец, который ищется.