delphi2007:一个程序如何控制两个摄像头
我的电脑有两个摄像头,如何进行两个同时摄像,拍照?
请大侠指点,我只有20分。谢谢。
[解决办法]
- Delphi(Pascal) code
procedure TForm1.FormCreate(Sender: TObject);begin cmbCap:=TComboBox.Create(StatusBar1); cmbCap.Style:=csOwnerDrawFixed; cmbCap.Left:=75; cmbCap.Width:=self.Width-83; cmbCap.Parent:=StatusBar1; FCap:= TCapture.Create(Panel1); if FCap.GetCapDevice(cmbCap.Items)=0 then ShowMessage('没有找到摄像头') else cmbCap.ItemIndex:=0; FCap.OnMouseDown:=MyMouseDown; FCap.OnDblClick:=MyDblClick;end;
[解决办法]
创建枚举器,获取设备名称,绑定设备,生成一个filtergrap ,打开指定的设备。。。。
大概思路是这样的...