delphi11 LuxandFaceSDK8 活体检测 代码

以下是使用Delphi 11和LuxandFaceSDK 8实现活体检测的示例代码：

uses
  LuxandFaceSDK_TLB;

var
  FSDKCam: IFSDKCam_v1;
  FSDKMatch: IFSDKMatch;
  FSDK: IFaceSDK;
  LiveResults: TLiveFaceDetectionArray;
  LiveRes: TLiveFaceDetection;
  ImageHandle: HImage;
  FacePosition: IFacePosition;
  CameraHandle: HCamera;
  Res: Integer;
begin
  // 初始化LuxandFaceSDK
  FSDK := CoFaceSDK.Create;
  FSDK.Initialize('');

  // 初始化相机
  FSDKCam := CoFSDKCam_v1.Create;
  FSDKCam.InitializeCapturing();

  // 获取相机句柄
  CameraHandle := FSDKCam.GetCameraHandle(CAMERA_IDX_ANY);

  // 打开相机
  FSDKCam.SetVideoFormat(CameraHandle, VIDEO_FORMAT_I420);
  FSDKCam.OpenVideoCamera(CameraHandle);

  // 创建人脸识别对象
  FSDKMatch := CoFSDKMatch.Create;

  // 持续进行活体检测
  while True do
  begin
    // 获取图像句柄
    ImageHandle := FSDKCam.GrabFrame(CameraHandle);

    // 进行人脸检测
    FSDK.FeedFrame(ImageHandle, 0, FacePosition);

    // 进行活体检测
    FSDK.ProcessImageLive(ImageHandle, FacePosition, LIVE_FACES_DEFAULT, LiveResults);

    // 遍历检测结果
    for LiveRes in LiveResults do
    begin
      // 判断是否为真人
      if LiveRes.Live then
      begin
        ShowMessage('是真人！');
      end
      else
      begin
        ShowMessage('不是真人！');
      end;
    end;
  end;

  // 释放资源
  FSDKMatch := nil;
  FSDKCam.CloseVideoCamera(CameraHandle);
  FSDKCam.FinalizeCapturing();
  FSDK.Finalize();
end.

以上代码仅供参考，具体实现需要根据实际情况进行调整。