delphi11 LuxandFaceSDK8 从TImage获取人脸代码

以下是 Delphi 11 中使用 LuxandFaceSDK 8 从 TImage 获取人脸的示例代码：

首先，确保已经安装了 LuxandFaceSDK 8 并将其添加到 Delphi 11 中的项目中。

然后，您可以使用以下代码从 TImage 中获取人脸：

uses
  LuxandFaceSDK; // 导入 LuxandFaceSDK 单元

// ...

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  ImageHandle: HImage;
  FaceCount: Integer;
  FacePosition: TFacePosition;
begin
  // 从 TImage 中加载图像
  ImageHandle := FSDK_LoadImageFromFile(PChar(Image1.Picture.FileName));

  try
    // 检测人脸
    FSDK_DetectFaces(ImageHandle, @FaceCount, @FacePosition, SizeOf(TFacePosition) * 256);

    // 遍历每个检测到的人脸
    for I := 0 to FaceCount - 1 do
    begin
      // 从人脸位置中获取人脸图像
      FSDK_GetFaceTemplate(ImageHandle, @FacePosition[I], FaceTemplate);

      // 处理人脸图像，例如保存到文件或发送到服务器
      // ...
    end;
  finally
    // 释放图像句柄
    FSDK_FreeImage(ImageHandle);
  end;
end;

请注意，此示例仅检测并提取每个人脸的模板，您需要根据您的实际需求进一步处理图像和模板。