dxCameraControl摄像头控件(拍照)(16)

参考 https://www.cnblogs.com/liessay/p/5267247.html

 仅设置Active:True， 要在运行时 才有 效果

//DeviceIndex:设备号,默认为0

//拍照并在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;

//切换摄像头
dxCameraControl1.DeviceIndex:=1-dxCameraControl1.DeviceIndex;

 其他方法

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