请问如何获取USB摄像头图象(100分)

  • 主题发起人 主题发起人 jonson
  • 开始时间 开始时间
J

jonson

Unregistered / Unconfirmed
GUEST, unregistred user!
我现在需要编一个程序从USB摄像头获取图象,实现照相功能。
请各位大侠指点
 
请参考:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=403762
 
用videocap 控件,可以找到的。如果你没有找到给我留下你的eamil 我发给你。
它是homepage公司的,功能还可以。不过你也可以通过看delphi的帮助
‘ms sdk help’下的Microsoft Multimedia Programer's Reference
自己实现该控件所有功能!
 
USB摄像头十有八九是WDM设备,jinzuo007的方法可能不行,得用DS
 
VFW,参照MSDN,有相关sample
 
VFW不能使用WDM设备
 
呵呵,我只知道vc下怎么做,delphi我不会
vc下摄像头(等)使用毁掉函数,每采集一帧就给你数据,然后在毁掉函数中处理
 
我也想知道,email:bravercaohao@163.com
 
用vfw几句话都搞定。usb摄像头一般不支持wdm 除非很贵的摄像头。所以用ds的话90%不行。
但基本上都支持vfw,可惜我很懒,以前在上面写了几句vfw.马上给你贴出来。
procedure TKaoQFaceForm.InitCap;
var
m_hCapWnd :HWND;
begin
try
m_hCapWnd:=capCreateCaptureWindow('usb视频捕捉',
WS_CHILD+WS_VISIBLE+WS_EX_CLIENTEDGE+
WS_EX_DLGMODALFRAME,0,0,PanelAvi.Width,PanelAvi.Height,PanelAvi.Handle,0);
if (capDriverConnect(m_hCapWnd,0)) then
begin
CapPreviewRate(m_hCapWnd,26);
CapPreview(m_hCapWnd,true); //不能用ovlay方式 大部分usb摄像头不支持
end;
except
showmessage('视频摄像头初始化错误');
end;
end;
 
能来个实例学习吗?
 
jinzuo007
我的e-mail是wenkiy@21cn.com
请发个给我
 
我使用bcb的,能给我一个吗?lujibear@126.com
 
http://www.2ccc.com/article.asp?articleid=272
 

Similar threads

D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
898
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部