delphi11 LuxandFaceSDK8 FSDK_GrabFrame 拍照代码

以下是 Delphi11 中使用 LuxandFaceSDK8 的 FSDK_GrabFrame 函数进行拍照的代码示例：

uses
  LuxandFaceSDK;

procedure TForm1.Button1Click(Sender: TObject);
var
  cameraHandle: HCamera;
  imageHandle: HImage;
begin
  // 打开摄像头
  cameraHandle := FSDK_OpenVideoCamera(0);

  // 拍照
  if FSDK_GrabFrame(cameraHandle, imageHandle) <> FSDKE_OK then
  begin
    ShowMessage('Failed to grab frame');
    Exit;
  end;

  // 保存图片到文件
  if FSDK_SaveImageToFileW(imageHandle, 'C:\temp\photo.jpg') <> FSDKE_OK then
  begin
    ShowMessage('Failed to save image');
  end;

  // 释放资源
  FSDK_FreeImage(imageHandle);
  FSDK_CloseVideoCamera(cameraHandle);
end;

代码中首先使用 `FSDK_OpenVideoCamera` 函数打开摄像头，然后使用 `FSDK_GrabFrame` 函数拍照并获取图片句柄，接着使用 `FSDK_SaveImageToFileW` 函数将图片保存到指定文件，最后使用 `FSDK_FreeImage` 函数释放图片句柄并使用 `FSDK_CloseVideoCamera` 函数关闭摄像头。