Delphi XE 和 Luxand FaceSDK7 检测人脸特征的示例代码

以下是 Delphi XE 和 Luxand FaceSDK7 检测人脸特征的示例代码：

uses
  LuxandFaceSDK;

procedure TForm1.Button1Click(Sender: TObject);
var
  ImageHandle: HImage;
  FaceCount, i: Integer;
  FaceHandles: array of HFaceRecord;
  FacePosition: TFacePosition;
begin
  ImageHandle := LoadImageFromFile('test.jpg');
  if ImageHandle = 0 then
  begin
    ShowMessage('Failed to load image!');
    Exit;
  end;

  FSDK_Initialize('');
  FSDK_SetFaceDetectionParameters(True, True, 384);
  FSDK_SetFaceDetectionThreshold(3);

  FSDK_DetectFacialFeatures(ImageHandle, @FaceHandles, @FaceCount);
  for i := 0 to FaceCount - 1 do
  begin
    FSDK_GetFacePosition(FaceHandles[i], @FacePosition);
    // 获取人脸位置信息，例如人脸坐标、宽度、高度等
    // FacePosition.x, FacePosition.y, FacePosition.w, FacePosition.h

    FSDK_FreeFaceRecord(FaceHandles[i]);
  end;

  FSDK_Finalize();
  FreeImage(ImageHandle);
end;

这段代码首先加载一个名为 "test.jpg" 的图像，然后使用 Luxand FaceSDK7 检测其中的人脸特征。通过 FSDK_DetectFacialFeatures 函数，可以获取到所有检测到的人脸的 FaceRecord 句柄，然后可以使用 FSDK_GetFacePosition 函数获取每个人脸的位置信息。最后，需要使用 FSDK_FreeFaceRecord 函数释放 FaceRecord 句柄，释放资源。

请注意，Luxand FaceSDK7 是一个商业软件包，需要购买许可证后才能使用。在使用 Luxand FaceSDK7 之前，请确保已经阅读了其文档，并按照要求进行正确的配置和初始化。