用delphi学写了个摄像头鼠标，dspack控件，能跟着动但是还不准确
学delphi来做上位机的，看到无线电上的例子就跟着做了个http://www.hobbypress.cn/bencandy.php?fid-182-id-2262-page-1.htm
鼠标箭头刚刚能跟着红外管跑了，
贴些图吧，都是手机拍的，
http://cache.amobbs.com/bbs_upload782111/files_46/ourdev_679925NQMPZF.JPG
(原文件名:a.JPG)
http://cache.amobbs.com/bbs_upload782111/files_46/ourdev_679926WBPIVG.JPG
(原文件名:ad.JPG)
http://cache.amobbs.com/bbs_upload782111/files_46/ourdev_679927MWZ28V.jpg
(原文件名:图像012.jpg)
http://cache.amobbs.com/bbs_upload782111/files_46/ourdev_679928TOQ1B8.jpg
(原文件名:图像013.jpg)
http://cache.amobbs.com/bbs_upload782111/files_46/ourdev_680087C3P90Q.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) mark 楼主,这个与环境光不会影响吗?除了红外管其它的什么东西行不行? 回复【2楼】jianchangd
楼主,这个与环境光不会影响吗?除了红外管其它的什么东西行不行?
-----------------------------------------------------------------------
他这个是要用红外滤光片遮住摄像头，过滤其他光源的，开源项目OPENCV里面有个子项目就是这东东。。。 这个有点意思呀 Mark 回复【2楼】jianchangd
-----------------------------------------------------------------------
其他的应该也行吧，大概就是二值化的时候阀值会变，才刚弄好，还没来得及试其他的。以前搞过红外对管。感觉抗干扰会强一些 好久不戴妃了，怀念一下 jh mark 好贴！
页:
[1]