摘要： Delphi2010 已经自带JSON的解析及生成引擎，见：DBXJSON 单元通过如下代码： 即可生成JSON格式的数据：{"Data":"1233"} 注意：如果想由TJSONObject自己管理其中的对象，需要将引用对象的Owned属性设置成True。 参见TJSONObject源码： 阅读全文

摘要： 在网页的.js文件中增加函数： 在Delphi中加入一个WebBrowser，并加载此网页。执行下面的代码即可调用网页中的JavaScript。 即可得到运行结果： 阅读全文

摘要： DELPHI的编译指令 {$IFDEF WIN32} -- 这可不是批注喔! 对于Delphi来说﹐左右大括号之间的内容是批注﹐然而「{$」(左括号后紧接着货币符号)对于Compiler(编译器)而言并不是批注﹐而是写给Compiler看的特别指示。 应用时机与场合 Delphi中有许许多多的Compiler Directives(编译器指令)﹐这些编译指令对于我们的程序发展有何影响呢? 它们又能帮我们什么忙呢? Compiler Directive 对程序开发的影响与助益, 可以从以下几个方向来讨论: 协助除错 版本分类 程序的重用与管理 设定统一的执行环境 阅读全文

摘要： 某一天启动Delphi2010后，突然CPU100%，等了很长时间出现‘displayNotification: 堆栈溢出’。尝试多次重装Delphi2010，问题依旧。解决方法：清理IE的历史记录，删除缓存。。。这个实在是坑爹。在网上搜到了一个禁止StartPage的方法，据说也可以解决此问题。没有试验过。贴过来大家可以参考。Delphi2010启动时有可能因为显示启动“Start Page”页面引起弹出IE对话框显示诸如："displayNotification: 内存不够" 、"displayNotification: 堆栈溢出" 的异常消息而导致 阅读全文

摘要： 解决方案：1、在运行里输入Regedit，回车 。打开注册表编辑器2、定位注册表HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.html将“(默认)”的参数修改为"htmlfile"3、修改完成后重启Outlook即可。 阅读全文

摘要： 很好的dUnit介绍的文章，格式化一下转过来 -------------------------------------------------------------------------------- 集成测试工具-dUnit 作者 陈省（hubdog） 创建测试案例 复合测试 重复测试 调整层次关系 控制台模式的测试 对GUI界面控制的测试 辅助工具 阅读全文

摘要： procedure SearchFileEx(const ADir, AExt: string; AFiles: TStrings);var LSch: TSearchrec; LDir: string;begin if RightStr(Trim(ADir), 1) <> '\' then LDir := Trim(ADir) + '\' else LDir := Trim(ADir); if not DirectoryExists(LDir) then begin AFiles.Clear; Exit; end; if FindFirst(LDi 阅读全文

摘要： 一、IP过滤：包括来源IP或者目标IP等于某个IP 比如：ip.src addr==192.168.0.208 or ip.src addr eq 192.168.0.208显示来源IP ip.dst addr==192.168.0.208 or ip.dst addr eq 192.168.0.208显示目标IP二、端口过滤： 比如：tcp.port eq 80 //不管端口是来源的还是目标的都显示 tcp.port == 80 tcp.port eq 2722 tcp.port eq 80 or udp.port eq 80 tcp.dstport == 80... 阅读全文

摘要： delphi 2010 refactor / refactoring 重构不能使用。经过实验的确是DelphiDistiller上的设置贴心的过头的原因.一切的罪魁祸首就是“Don't load .NET scap”，把"Don't load .NET scap的钩去掉,再确定,强大的重构功能又回来了。 阅读全文

摘要： Application.ProcessMessages;LockWindowUpdate(Self.Handle);//锁住当前窗口LockWindowUpdate（0）//解除锁定窗口LockWindowUpdate不但闪烁，而且有可能引起桌面闪烁。因为LockWindowUpdate并不忽略消息，只是暂时不响应，所以有可能积聚多个重画消息，并在使用LockWindowUpdate（0）之后依次响应。而使用SendMessage(ClientHandle,WM_SETREDRAW,0,0)之后，控件根本不接收重画消息，除非使用SendMessage(ClientHandle,WM_SETRE 阅读全文