DevExpress 摄像机的控件使用方法

标签：procedure   切换   image   cli   ice   assign   使用方法   dev   分享   

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 摄像机的控件使用方法

标签：procedure   切换   image   cli   ice   assign   使用方法   dev   分享   

原文地址：http://www.cnblogs.com/windel/p/7634204.html