delphi11 opencv 人脸对比代码

以下是一个 Delphi11 中使用 OpenCV 进行人脸对比的示例代码：

uses
  ..., cvtypes, cvimgproc, cvhighgui, cvhaartraining;

function CompareFaces(const Image1, Image2: IplImage): Double;
var
  Cascade: CvHaarClassifierCascade;
  Storage: PCvMemStorage;
  Faces1, Faces2: CvSeq;
  FaceRect1, FaceRect2: TCvRect;
  i: Integer;
  TotalDiff: Double;
begin
  // 加载人脸检测器
  Cascade := cvLoad('haarcascade_frontalface_alt.xml', nil, nil, nil);

  // 分配内存
  Storage := cvCreateMemStorage(0);

  // 检测图像1中的人脸
  Faces1 := cvHaarDetectObjects(Image1, Cascade, Storage, 1.2, 2, CV_HAAR_DO_CANNY_PRUNING, cvSize(50, 50));
  // 检测图像2中的人脸
  Faces2 := cvHaarDetectObjects(Image2, Cascade, Storage, 1.2, 2, CV_HAAR_DO_CANNY_PRUNING, cvSize(50, 50));

  // 计算两张图像中所有人脸的相似度
  TotalDiff := 0;
  for i := 0 to Min(Faces1.total, Faces2.total) - 1 do
  begin
    // 获取人脸区域
    FaceRect1 := PCvRect(cvGetSeqElem(Faces1, i))^;
    FaceRect2 := PCvRect(cvGetSeqElem(Faces2, i))^;

    // 裁剪出人脸图像
    cvSetImageROI(Image1, FaceRect1);
    cvSetImageROI(Image2, FaceRect2);
    // 计算人脸图像的相似度
    TotalDiff := TotalDiff + cvNorm(Image1, Image2, CV_L2);
    // 重置图像区域
    cvResetImageROI(Image1);
    cvResetImageROI(Image2);
  end;

  // 释放内存
  cvReleaseHaarClassifierCascade(Cascade);
  cvReleaseMemStorage(@Storage);

  // 计算平均相似度
  Result := TotalDiff / Min(Faces1.total, Faces2.total);
end;

调用 `CompareFaces()` 函数并传入两张需要比较的图像，函数会返回两张图像中所有人脸的平均相似度。请注意，此代码仅用于演示，实际应用中需要根据具体情况进行修改和优化。