最近升级公司的主ERP数据库版本从SQL2005 升级到SQL2008 R2 64Bit,好事多磨啊，另一提供接口的SQL2000数据库不能为主服务器提供数据了。 找来找去，发现2008下没提供2000的接口。 sql server 2008 64位连接sql 2000服务器的时候出现以下提示： 链接服务器"2Kserver"的 OLE DB 访问接口 &qu
月度归档： 2015 年 9 月
Delphi实现PING功能
有些时候需要写个自己的ping工具，可以参考以下代码。 unit PING; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdRawBase, IdRawClient, IdIcmpClient; type TForm1 = class(TForm) Button1
鼠标按住不放自动累加的实现
群里有人发出这么个需求，说是鼠标按住不放的同时开始计数累加1，放掉归零。 delphi 中没有鼠标按住不放的属性，只能借助MouseDown，Mouseup，加timer来实现了。 timer设置时间周期为50，可以随意调整。 unit Unit1; interface &nb
使用openwrt设置访客网络
最近遇到比较烦恼的事情是隔壁需要借助自家Wifi，但是对方老是不小心将手机上的东西投射到我家的电视上，很是烦恼。 萌生了隔离网段的想法，上网淘资料。 在命令行下执行以下脚本。 以下脚本在openwrt路由器上创建一个SSID为Guest-WIFI的访客网络，该网不设置安全检查，能访问外网，但不能访问家庭网络上的资源。 ## Add&nb
XE开发安卓调试错误代码
1:无效的安装包,安装包已损坏[INSTALL_FAILED_INVALID_APK] 请检查安装包是否完整。如果是xpk包，可以通过 手动安装xpk来检测一下。如果是apk包，请重新下载。 2:系统版本过低,[INSTALL_FAILED_OLDER_SDK] 当前程序不支持您的手机。 3:没有足够的存储空间,[INSTALL_FAILED_INSUFFICIENT_STORAGE] 清理空间,重启手机后重试。或将安装位置选择为安装到手机内存。 4:无效的安装位置,[INSTALL_FAILE