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、效果如圖：

DevExpress 攝像機的控件使用方法