dxCameraControl控件(拍照)

最新推荐文章于 2025-10-28 10:41:18 发布

原创最新推荐文章于 2025-10-28 10:41:18 发布 · 480 阅读

1 ·

CC 4.0 BY-SA版权

delphi 专栏收录该内容

39 篇文章

订阅专栏

这篇博客介绍了如何利用DeveloperExpress VCL Products 19.1.2组件进行摄像头控制，包括捕获、暂停、播放和停止操作，并展示了如何在cxImage组件中显示捕获的图像以及保存图片的实现过程。

Developer Express VCL Products 19.1.2
主要属性设置

Active:True

DeviceIndex:设备号,默认为0

其他方法
procedure Capture; //捕获
procedure Pause; //暂停
procedure Play; //播放
procedure Stop; //停止
property State: TdxCameraControlState read FState; //设备状态


//拍照并在cxImage中显示
procedure TForm1.Button1Click(Sender: TObject);
begin
  dxCameraControl1.Capture;
  cxImage1.Picture.Assign(dxCameraControl1.CapturedBitmap);
end;
//保存图片
procedure TForm1.Button3Click(Sender: TObject);
begin
  if SavePictureDialog1.Execute then
  begin
    cxImage1.Picture.SaveToFile(SavePictureDialog1.FileName);
  end;
end;

效果如图