delphi-opencv 对比 代码

以下是使用 Delphi-OpenCV 进行两张图像对比的示例代码：

uses
  CvTypes, CvImgProc, CvHighgui;

function CompareImages(const Image1, Image2: string): Single;
var
  Img1, Img2: pIplImage;
  Hist1, Hist2: pCvHistogram;
  Mat1, Mat2: pCvMat;
begin
  // 读取图像
  Img1 := LoadImage(Image1);
  Img2 := LoadImage(Image2);

  // 转换为灰度图像
  cvCvtColor(Img1, Img1, CV_BGR2GRAY);
  cvCvtColor(Img2, Img2, CV_BGR2GRAY);

  // 计算直方图
  Hist1 := cvCreateHist([256], CV_HIST_ARRAY, cvCreateMat(1, 256, CV_32FC1), 1);
  Hist2 := cvCreateHist([256], CV_HIST_ARRAY, cvCreateMat(1, 256, CV_32FC1), 1);
  Mat1 := cvCreateMat(Img1.height, Img1.width, CV_8UC1);
  Mat2 := cvCreateMat(Img2.height, Img2.width, CV_8UC1);
  cvConvert(Img1, Mat1);
  cvConvert(Img2, Mat2);
  cvCalcHist(@Mat1, Hist1);
  cvCalcHist(@Mat2, Hist2);

  // 比较直方图
  Result := cvCompareHist(Hist1, Hist2, CV_COMP_CORREL);

  // 释放资源
  cvReleaseMat(@Mat1);
  cvReleaseMat(@Mat2);
  cvReleaseHist(@Hist1);
  cvReleaseHist(@Hist2);
  cvReleaseImage(@Img1);
  cvReleaseImage(@Img2);
end;

在上述代码中，`Image1` 和 `Image2` 分别为待比较的两张图像的文件路径。我们首先使用 Delphi-OpenCV 中提供的 `LoadImage` 函数读取图像，并使用 `cvCvtColor` 函数将图像转换为灰度图像。然后，我们使用 `cvCalcHist` 函数计算两张图像的直方图，并使用 `cvCompareHist` 函数比较两个直方图的相似度。最后，我们返回相似度的值。需要注意的是，我们在比较直方图时使用了 `CV_COMP_CORREL` 参数，表示使用相关性作为相似度的度量方式。你可以根据具体需求调整参数值。