有些时候需要写个自己的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
INSTALL_PARSE_FAILED_INCONSISTENT_CERTIFICATES错误解决方法
XE7在安装APK文件时出现类似INSTALL_PARSE_FAILED_INCONSISTENT_CERTIFICATES的提示。 原因分析：这样的问题主要是签名冲突造成的。 解决方案： 解决的方法除了只有先老老实实从手机上卸载原有版本再进行安装。
关于使用Intraweb连接SQLSERVER数据库注意事项
用开发web程序，其实跟C/S架构差不了多少，但是做数据库程序时，连接我们需要特别注意下serverController.cmInitialization的属性。 改成如下设置： serverController.cmInitialization:=ciMultiThreaded或ciNormal； 不能使用默认值ciNone;
SQL查询时生成合计数
在查询时如何某个字段来合计呢？ 这里有一些代码值得参考： select * from ( select * from t1 union all select 月,’本月合计’,sum([数量]) fro