delphi11 luxandfacesdk 摄像头获取 代码

以下是 Delphi 11 中使用 Luxand FaceSDK 获取摄像头图像的示例代码：

uses
  LuxandFaceSDK;

var
  cameraHandle: HCamera;
  cameraName: array[0..255] of Char;
  cameraCount, i: Integer;
  imageData: TFaceImage;
begin
  // 初始化 SDK
  if FSDK_ActivateLibrary('your_license_key') <> FSDKE_OK then
  begin
    ShowMessage('Failed to activate FaceSDK library');
    Exit;
  end;

  // 获取可用摄像头
  if FSDK_GetCameraList(@cameraName, 255, @cameraCount) <> FSDKE_OK then
  begin
    ShowMessage('Failed to get camera list');
    Exit;
  end;

  // 打开摄像头
  if cameraCount > 0 then
  begin
    if FSDK_OpenVideoCamera(@cameraName, 0, 0, 0, @cameraHandle) <> FSDKE_OK then
    begin
      ShowMessage('Failed to open camera');
      Exit;
    end;
  end
  else
  begin
    ShowMessage('No camera found');
    Exit;
  end;

  // 获取摄像头图像
  while True do
  begin
    if FSDK_GrabFrame(cameraHandle, @imageData) <> FSDKE_OK then
    begin
      ShowMessage('Failed to grab frame');
      Break;
    end;

    // 处理图像，例如进行人脸检测等操作
    // ...

    // 释放图像数据内存
    FSDK_FreeImage(imageData);
  end;

  // 关闭摄像头
  FSDK_CloseVideoCamera(cameraHandle);
end.

其中，`your_license_key` 应该替换为你的 FaceSDK 许可证密钥。在代码中，我们首先通过调用 `FSDK_ActivateLibrary` 方法来激活 FaceSDK 库。然后，我们使用 `FSDK_GetCameraList` 方法获取可用的摄像头列表，并使用 `FSDK_OpenVideoCamera` 方法打开第一个摄像头。接下来，我们使用 `FSDK_GrabFrame` 方法获取摄像头图像，然后可以对图像进行处理，例如进行人脸检测等操作。最后，我们使用 `FSDK_CloseVideoCamera` 方法关闭摄像头。注意，在处理完每个图像后，应该调用 `FSDK_FreeImage` 方法释放图像数据内存。