delphi xe LuxandFaceSDK8 人脸对比 实用代码

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

首先，您需要将LuxandFaceSDK8的DLL文件和头文件添加到Delphi项目中。然后，您可以使用以下代码：

uses LuxandFaceSDK;

function CompareFaces(const Image1, Image2: string): Integer;
var
  hImage1, hImage2: HImage;
  FaceCount1, FaceCount2: Integer;
  FaceCoords1, FaceCoords2: TFacePositionArray;
  FaceTemplate1, FaceTemplate2: TFaceTemplate;
  Similarity: Single;
begin
  Result := 0;
  
  // 加载图像
  if FSDK.LoadImageFromFile(@hImage1, PAnsiChar(AnsiString(Image1)), 0) <> FSDKE_OK then
    Exit;
  if FSDK.LoadImageFromFile(@hImage2, PAnsiChar(AnsiString(Image2)), 0) <> FSDKE_OK then
  begin
    FSDK.FreeImage(hImage1);
    Exit;
  end;
  
  // 检测人脸
  if FSDK.DetectFaces(hImage1, @FaceCount1, @FaceCoords1[0], Length(FaceCoords1)) <> FSDKE_OK then
  begin
    FSDK.FreeImage(hImage1);
    FSDK.FreeImage(hImage2);
    Exit;
  end;
  if FSDK.DetectFaces(hImage2, @FaceCount2, @FaceCoords2[0], Length(FaceCoords2)) <> FSDKE_OK then
  begin
    FSDK.FreeImage(hImage1);
    FSDK.FreeImage(hImage2);
    Exit;
  end;
  
  // 提取人脸模板
  if FSDK.GetFaceTemplate(hImage1, @FaceCoords1[0], @FaceTemplate1) <> FSDKE_OK then
  begin
    FSDK.FreeImage(hImage1);
    FSDK.FreeImage(hImage2);
    Exit;
  end;
  if FSDK.GetFaceTemplate(hImage2, @FaceCoords2[0], @FaceTemplate2) <> FSDKE_OK then
  begin
    FSDK.FreeImage(hImage1);
    FSDK.FreeImage(hImage2);
    Exit;
  end;
  
  // 对比相似度
  if FSDK.MatchFaces(@FaceTemplate1, @FaceTemplate2, @Similarity) = FSDKE_OK then
    Result := Round(Similarity * 100);
  
  // 释放资源
  FSDK.FreeImage(hImage1);
  FSDK.FreeImage(hImage2);
end;

该函数将返回两张图片中人脸的相似度，以百分比表示。您可以根据需要调整该函数，例如添加错误处理和日志记录等。

请注意，此示例仅适用于使用LuxandFaceSDK8进行人脸比对，并且您需要获取并使用相应的许可证才能使用该SDK。