delphixe FaceAPI 离线 人脸对比 代码

FaceAPI 是一个在线的人脸识别服务，不支持离线的人脸对比。如果你需要离线的人脸对比功能，可以考虑使用其他的人脸识别库，例如 OpenCV。下面是使用 OpenCV 进行人脸对比的示例代码：

uses
  System.SysUtils, System.Classes, Vcl.Graphics, Winapi.Windows, Winapi.Messages,
  Vcl.Forms, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Imaging.jpeg, OpenCV.Core, OpenCV.ImgProc,
  OpenCV.HighGUI;

function CompareFaces(const image1, image2: TStream): Single;
var
  img1, img2: IplImage;
  gray1, gray2: IplImage;
  faceCascade: pCvHaarClassifierCascade;
  storage: pCvMemStorage;
  faces1, faces2: CvSeq;
  i: integer;
  matchCount: integer;
begin
  // 载入图片
  img1 := cvLoadImageFromStream(image1);
  img2 := cvLoadImageFromStream(image2);

  try
    // 转换为灰度图像
    gray1 := cvCreateImage(cvGetSize(img1), IPL_DEPTH_8U, 1);
    gray2 := cvCreateImage(cvGetSize(img2), IPL_DEPTH_8U, 1);
    cvCvtColor(img1, gray1, CV_BGR2GRAY);
    cvCvtColor(img2, gray2, CV_BGR2GRAY);

    // 加载人脸检测器
    faceCascade := cvLoadHaarClassifierCascade('haarcascade_frontalface_alt.xml', cvSize(0, 0));

    // 创建内存存储器
    storage := cvCreateMemStorage(0);

    try
      // 检测第一张图像中的人脸
      faces1 := cvHaarDetectObjects(gray1, faceCascade, storage, 1.1, 2, CV_HAAR_DO_CANNY_PRUNING, cvSize(30, 30));
      
      // 检测第二张图像中的人脸
      faces2 := cvHaarDetectObjects(gray2, faceCascade, storage, 1.1, 2, CV_HAAR_DO_CANNY_PRUNING, cvSize(30, 30));

      // 对比每一对人脸
      matchCount := 0;
      for i := 0 to faces1.total - 1 do
      begin
        // 获取第一张图像中的人脸
        cvSetImageROI(img1, pcvRect(faces1^.rect[i]));
        // 将人脸缩放到统一的大小
        cvResize(img1, img1, cvSize(100, 100));
        // 重置图像区域
        cvResetImageROI(img1);

        for j := 0 to faces2.total - 1 do
        begin
          // 获取第二张图像中的人脸
          cvSetImageROI(img2, pcvRect(faces2^.rect[j]));
          // 将人脸缩放到统一的大小
          cvResize(img2, img2, cvSize(100, 100));
          // 重置图像区域
          cvResetImageROI(img2);

          // 使用 L2 范数计算两张图像的距离
          matchCount := matchCount + cvNorm(img1, img2, CV_L2);
        end;
      end;

      // 计算平均距离
      if (faces1.total > 0) and (faces2.total > 0) then
        Result := matchCount / (faces1.total * faces2.total)
      else
        Result := 0;
    finally
      // 释放内存存储器
      cvReleaseMemStorage(storage);
    end;
  finally
    // 释放图像
    cvReleaseImage(img1);
    cvReleaseImage(img2);
  end;
end;

在上面的代码中，我们使用了 OpenCV 库中的 `cvHaarDetectObjects` 函数来检测每张图像中的人脸，并使用 L2 范数计算两张图像的距离。最后，返回的值为两张图像中人脸的相似度，值越高表示两张图像中的人脸越相似。注意，在使用 OpenCV 库时，需要使用 `IplImage` 类型来表示图像，而非 `TBitmap` 类型。