delphi xe LuxandFaceSDK 对比图片 代码

以下是使用Delphi XE编写的LuxandFaceSDK对比图片的示例代码：

uses LuxandFaceSDK;

...

procedure CompareImages;
var
  Image1, Image2: TFaceImage;
  Similarity: double;
begin
  Image1 := LoadImageFromFile('image1.jpg');
  Image2 := LoadImageFromFile('image2.jpg');
  
  if Image1 = nil then begin
    ShowMessage('Failed to load image1.jpg');
    Exit;
  end;
  
  if Image2 = nil then begin
    ShowMessage('Failed to load image2.jpg');
    Exit;
  end;
  
  if FSDK_FaceMatching(Image1.Handle, Image2.Handle, Similarity) <> FSDKE_OK then begin
    ShowMessage('Failed to match faces');
    Exit;
  end;
  
  ShowMessageFmt('Similarity: %f', [Similarity]);
  
  FreeImage(Image1);
  FreeImage(Image2);
end;

其中，`LoadImageFromFile`和`FreeImage`函数用于加载和释放图像，`FSDK_FaceMatching`函数用于对比两张图像中的人脸，并返回相似度。请确保在使用LuxandFaceSDK前已经正确初始化，并且已经加载了相应的DLL文件。