DevExpress 摄像机的控件使用方法

Posted 2020-10-09 winniez

1、放置dxCameraControl控件在窗体上。

2、放置cxImage控件在窗体上。

3、放置2个按钮cxButton在窗体上。

4、摄像:

procedure TForm1.cxButton1Click(Sender: TObject);
begin
self.dxCameraControl1.Capture;
self.cxImage1.Picture.Assign(self.dxCameraControl1.CapturedBitmap);
end;
5、切换摄像机

procedure TForm1.cxButton2Click(Sender: TObject);
begin
self.dxCameraControl1.DeviceIndex:=1-self.dxCameraControl1.DeviceIndex;
end;
6、效果如图：