我要实现通过采集卡和摄象头采集图片,不知道那位做过,或者是否有开发包,谢谢!(200分)

G

gdcqs

Unregistered / Unconfirmed
GUEST, unregistred user!
我要实现通过采集卡和摄象头采集图片,不知道那位做过,或者是否有开发包,谢谢!
 
没有做过吗?
就是视频采集,我问过其他的公司了,需要视频采集卡和摄象头,如果有什么问题?
清大家告诉我!

另外具体要实现这个功能,该怎么做,谢谢!
 
有很多的视频捕捉卡都有开发包,但开发包多是vb和vc的。
如果没有开发包,可以去找视频捕捉的控件或用vfw
 
谢谢 ,能提供一些更详细的信息吗?真的很感谢了!
 
先找控件来试试吧,几乎所有相关下载网站都有。
 
我用的CG300, 他们有Delphi例子
 
我用VFW检测不到视频采集卡的存在,是不是意味者我的这张视频采集卡不支持vfw啊?
我的卡的型号是av-878

 
VIDEOCAP是利用Microsoft Video for Windows提供的AVICAP32.DLL截取AVI文件画面的VCL构件。
在http://www.hktk.com/soft/soft_con_media/videocap.html 下载
对于USB口的摄像头采集图像可以用,我试过,看看对你是否能用。
 
我用的是CG300,不错。
以前也用的什么flyVideo之类,不好用,开发太麻烦
 
你可以看说明书 很少有听说不支持vfw的捕捉卡和摄像头。你看是否支持wdm 如果 连这个
也不支持。那你就只有找厂家要开发包。如果开发包也没有。那你跳楼吧 :))))

一般捕捉卡一般都支持vfw和directshow两种方式, 普通的usb摄像头90%以上的都不支持wdm(directshow);一般支持vfw和twain;
你可以用vfw的方式。
下面就是例子:(需要头文件vfw,c++builder里面已经自带,delphi 可以在网上下载;
如果 你认为麻烦, 你可以自己对cap32.dll申明这几个函数,如果需要 我可以email给你);
//其它的功能这里就不一一阐述

m_hCapWnd:Hwnd;

procedure TForm1.create(Sender: TObject); // 视频扑获处理
var
dwSize:Integer;
setBmp : BITMAPINFO ;
begin
try
m_hCapWnd:=capCreateCaptureWindow('',
WS_CHILD or WS_VISIBLE,0,0,AviPanel.width,AviPanel.height,AviPanel.Handle,0);
//avipanel 就是你要显示的视频窗口的;可以是form ,panel等
//AviPanel.width就是显示的宽度,AviPanel.height显示的高度;
if(capDriverConnect(m_hCapWnd,0)) then
begin
// capOverlay(m_hCapWnd,true); //普通的摄像头不能用overlay的方式 主意;
capPreviewRate(m_hCapWnd,30); //设置帧率为30
capPreview(m_hCapWnd,true); // preview方式显示
dwSize:=capGetVideoFormatSize(m_hCapWnd);
capGetVideoFormat(m_hCapWnd,@setBmp, dwSize);
setBmp.bmiHeader.biWidth:=352; //这个就是设置你捕捉图片的大小了 宽度 :)
setBmp.bmiHeader.biHeight:=288; //这个就是设置你捕捉图片的大小了 高度 :)
capSetVideoFormat(m_hCapWnd,@setBmp,dwSize);
end;
except
end;
end;

procedure Tform1.capbmp;
begin
capEditCopy(m_hCapWnd); //把图像拷到剪贴板
Image1.picture.bitBmp.LoadFromClipboardFormat(CF_BITMAP,Clipboard.GetAsHandle(CF_BITMAP), 0);
// 这时在image1里面的就是你需要的图片;
end;

procedure TForm1.close(Sender: TObject; var Action: TCloseAction);// 视频扑获处理
begin
capDriverDisconnect(m_hCapWnd);// vfw 里面的标准函数
end;

在网上下在一个vfw.pas 就是对微软video for windows的申明文件。
收索一下 很多地方有 如果需要 我可以email给你。。


如果你用 directshow 那么我建议你用dspack。 同样 很多地方有下载。
如果需要 同样也可以email给你
 
blackbook:请发小弟一份!
 
end_sub@hotmail.com
 
为什么我用Microsoft Video for Windows
提示说我msvfw32.dll反问地址出错啊!是不是我系统出问题了,我晕了!
 
我有一个摄像头的PAS文件,定义了所有与视频接口有关的函数。你写个地址我传给你吧
 
使用 avphone 的话直接读 picture 属性就行了:

p := vidcap1.picture;

p 为标准的 StdPicture 类。

http://www.banasoft.net/AVPhone.htm
 
only you:
"我有一个摄像头的PAS文件,定义了所有与视频接口有关的函数。"
我也要,gswzhoufujin@153.com

 
多人接受答案了。
 
能给我一份不?

lxc@bic.siic.com.cn
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
顶部