摘要: 硬件准备1,待监控对象若干(只、个、位),呵呵开个玩笑。2,普通摄像头一个,电脑市场到处都是卖的,¥30~40左右一个,我这个买的时候号称1400万像素,要是真的话,我还是回去把我的佳能7D扔掉好了。3,RC模型舵机两个,淘宝有的卖,10~20一个,因为我们只是控制摄像头转动,需要的力矩很小,普通3KG的足够了。我们需要控制摄像头左右、上下移动,所以需要2个舵机,一个转轴水平,一个转轴垂直。如果你只想左右移动,一个也可以凑合。4,302胶水,¥2。5,USB电缆一根,从坏掉的USB鼠标键盘弄来一根不要钱的。6,带有LPT接口的电脑一台,大部分台式机都有,如果你是笔记本可以需要10块钱左右买一个 阅读全文
posted @ 2011-03-27 20:53 庄园 阅读(10095) 评论(21) 推荐(12) 编辑
摘要: 最近突发奇想,是否可以使用RC模型上替换下来的两个舵机加上普通摄像头做一个可以远程控制云台的Webcam,来监视家中的宠物不要搞破坏呢?于是得出本文。概念:使用云台进行左右、上下两个纬度的转动来带动装在云台上的摄像头变换角度进行取向,并使用TCP建立一个远程控制页面控制云台,并接收摄像头传来的实时数据。云台的驱动:使用步进电机或RC模型上使用的舵机都可以驱动云台,为什么不用普通电机呢?1你没法控制旋转速度,2也没法知道当前电机处在什么位置,3你肯定不希望摄像头上的数据线在电机的带动下缠绕最终卡死。由于材料问题本人采用舵机作为驱动设备。舵机资料:舵机有三个针脚,中间的为信号线,两边为电源,舵机根 阅读全文
posted @ 2011-03-24 23:39 庄园 阅读(7747) 评论(7) 推荐(1) 编辑
摘要: 前段时间作了一个HTML的解析类,方便在蜘蛛、信息发布、小偷程序中正确抓取网页内容。有人可能会说,为啥不用Webbrowser呢。1,首先是效率问题,Webbrowser太慢了。2,你无法操作Webbrowser上传一个文件。3,你无法操作Webbrowser跨域的Iframe4,你不能不按套路出牌,例如页面setTimeout 100秒输出一个div,你也只能100秒后才能获取到。5,如果你只想... 阅读全文
posted @ 2010-09-04 14:42 庄园 阅读(2830) 评论(5) 推荐(1) 编辑
摘要: 调用任何COM组件之前,你必须首先初始化COM套件环境,即调用CoInitialize或CoInitializeEx。COM套件环境在线程的生存周期内有效,线程退出前需要调用CoUninitialize释放COM套件。所谓COM套件,实际上是微软为了方便大家理解而起的一个名字,不过个人认为改名词很难理解。COM套件只指COM组件运行时的环境,其中包括COM组件的数据、变量、线程调度方式。COM套件... 阅读全文
posted @ 2010-05-17 12:53 庄园 阅读(19623) 评论(6) 推荐(6) 编辑
摘要: 最近在实现一个内嵌浏览器的上传组建遇到了回调JS函数的问题。首先我通过使用Webbrowser中的External对象可以实现JS向Delphi的交互。通过External向JS暴露一个这样的接口js通过调用external.uploadfile('c:\test.txt',function(sentSize,totalSize){alert(sentSize)})就可以直接触发上传,并实时接受上... 阅读全文
posted @ 2010-04-28 18:07 庄园 阅读(5139) 评论(1) 推荐(1) 编辑
摘要: 今天在博客园看到一篇控制台输出螺旋型数字的文章,文章链接为:http://www.cnblogs.com/hanyulcf/archive/2010/03/11/1683098.html他是用c++写的,我也想练练手,于是用Delphi又写了一遍,代码如下:代码 阅读全文
posted @ 2010-03-11 19:49 庄园 阅读(602) 评论(1) 推荐(1) 编辑
摘要: 最近在做一个HTML解析的引擎,在处理<FORM>表单时候特别混乱。在此根据近一周的经验总结一下HTML表单的提交规则。<INPUT>TYPE=BUTTON永远不提交<INPUT>TYPE=CHECKBOX只在勾选后提交<INPUT>TYPE=FILE永远提交,即使为空值<INPUT>TYPE=HIDDEN永远提交,即使为空值<IN... 阅读全文
posted @ 2010-03-11 19:03 庄园 阅读(9950) 评论(4) 推荐(4) 编辑
摘要: 代码Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--procedure DeleteArray(var Buffer:Array of Integer;Position,Len:Integer);var MoveStart,MoveLen:Intege... 阅读全文
posted @ 2010-02-10 16:28 庄园 阅读(468) 评论(0) 推荐(0) 编辑
摘要: 最近项目中要使用Json交换数据,曾有印象Delphi2009的宣传文章中已经支持Json了,我想2010中应该也会有吧。用Json这个词在安装目录搜索了一番,却只找到DBXJSON和DBXJSONReflect,从名字上看就已经很失望了。但还是不死心,于是进去看看源代码。果然只是给DataSnap准备的。既然官方不支持,只能自谋生路了,看过万一老师推荐的JSON – SuperObj... 阅读全文
posted @ 2010-01-28 21:54 庄园 阅读(7610) 评论(3) 推荐(0) 编辑
摘要: 最近使用THTMLLabel控件时候发现,如果文本中包含中文的时候,该控件不能很好的换行。该控件也没有WordWrap属性,查看源代码后发现如下情况:1,WordWrap=Not Ellipsis;该控件虽然没有WordWrap属性,但实际上Ellipsis属性的设置值影响着WordWrap行为。如果Ellipsis为True则超出部分显示为...但并不换行。如果Ellipsis为False则超出... 阅读全文
posted @ 2010-01-27 17:54 庄园 阅读(1071) 评论(0) 推荐(0) 编辑