用delphi学写了个摄像头鼠标，dspack控件，能跟着动但是还不准确

zyqcome

学delphi来做上位机的，看到无线电上的例子就跟着做了个
http://www.hobbypress.cn/bencandy.php?fid-182-id-2262-page-1.htm
鼠标箭头刚刚能跟着红外管跑了，
贴些图吧，都是手机拍的，


(原文件名:a.JPG)


(原文件名:ad.JPG)


(原文件名:图像012.jpg)


(原文件名:图像013.jpg)


(原文件名:ddddd.JPG)

差点忘了，有没有什么办法能解决单击和双击的识别呢，要是像鼠标一样用按钮就有些麻烦了，
          要是用编码就得用单片机，那就更麻烦了，而且摄像头的反应挺慢的，
          网上有一个软件是停止那一段时间就单击，想想应该行，以后慢慢加进去

我照着书上的例子吧摄像头做了些改动，在镜头最后面真的有一个滤除红外光的滤光片，把它除掉以后红外管的光癍就大多了。
在镜头的最前面找了张废胶片贴在上面，把背景色滤掉。这样在二值化的时候会清楚一些。
我把我写的凌乱的代码和网上下的控件传上来，一直在论坛下资料，我也分享一下
￥.图像的灰度和二值化的代码来源是
点击此处下载 ourdev_680092Q4DZVC.pdf(文件大小:16.48M) (原文件名:《Delphi数字图像处理及高级应用》.pdf)
￥.摄像头操作的代码是看的
   http://hi.baidu.com/aquasky/blog/item/adf2acee0a107013fdfa3c23.html
   其中的教程
￥.其中用到的控件
   摄像头控制的ourdev_680093WUF5QL.rar(文件大小:2.15M) (原文件名:dspack2.3.4.rar)
   大概是摄像头操作吧，装上了，但是程序里没用ourdev_680094JKEE7P.rar(文件大小:1.36M) (原文件名:DCDSPFilter_v1.03_Source.rar)
￥.鼠标控制的代码
   http://dev.yesky.com/99/2013099.shtml
   程序：点击此处下载 ourdev_680095NYH2IN.rar(文件大小:172K) (原文件名:程序4   控制鼠标.rar)
￥.也把我被我弄的非常凌乱的程序放下面吧。
   学着来玩的，所以程序界面和代码的书写很乱，毫无讲究，让大家见笑了
   二值化的阀值是在程序里设的ourdev_680097MWDIF5.rar(文件大小:213K) (原文件名:程序6  跟踪加鼠标控制  修改跟踪函数.rar)

lixupeng

mark

jianchangd

楼主,这个与环境光不会影响吗?除了红外管其它的什么东西行不行?

gale

回复【2楼】jianchangd  
楼主,这个与环境光不会影响吗?除了红外管其它的什么东西行不行?
-----------------------------------------------------------------------

他这个是要用红外滤光片遮住摄像头，过滤其他光源的，开源项目OPENCV里面有个子项目就是这东东。。。

nicksean

这个有点意思呀

woodtower

Mark

zyqcome

回复【2楼】jianchangd  
-----------------------------------------------------------------------

其他的应该也行吧，大概就是二值化的时候阀值会变，才刚弄好，还没来得及试其他的。以前搞过红外对管。感觉抗干扰会强一些

damoplus

好久不戴妃了，怀念一下

ndust

jh

zzh241

mark

lanyuye

好贴！