delphi11 LuxandFaceSDK8 FSDK_MatchFaces 人脸对比代码

以下是使用Delphi 11和LuxandFaceSDK8进行人脸对比的示例代码：

uses LuxandFaceSDK;

function MatchFaces(const filename1, filename2: string): double;
var
  img1, img2: HBITMAP;
  faceCount1, faceCount2: integer;
  faceCoords1, faceCoords2: PFSDK_FaceCoords;
  i: integer;
  score: double;
begin
  img1 := LoadImage(filename1);
  img2 := LoadImage(filename2);
  
  FSDK_DetectFaces(img1, @faceCount1, @faceCoords1);
  FSDK_DetectFaces(img2, @faceCount2, @faceCoords2);
  
  if (faceCount1 = 0) or (faceCount2 = 0) then
  begin
    Result := -1;
    Exit;
  end;
  
  score := 0;
  for i := 0 to faceCount1 - 1 do
  begin
    score := score + FSDK_MatchFaces(img1, @faceCoords1[i], img2, @faceCoords2[0]);
  end;
  score := score / faceCount1;
  
  Result := score;
  
  FreeImage(img1);
  FreeImage(img2);
  FSDK_FreeFaceCoords(faceCoords1);
  FSDK_FreeFaceCoords(faceCoords2);
end;

该函数接受两个文件名作为参数，加载图像并检测其中的面孔。然后，它将每个面孔与第二个图像中的第一个面孔进行匹配，并计算所有匹配的平均值。如果无法检测到任何面孔，则返回-1。请注意，此代码假定您已正确初始化LuxandFaceSDK8库。