随笔分类 -  Delphi

摘要：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: 堆栈溢出" 的异常消息而导致 阅读全文

摘要：很好的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 阅读全文

摘要：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 阅读全文

摘要：WebBrowser.OnDocumentComplete := wb1DocumentComplete; 1 procedure TForm1.wb1DocumentComplete(ASender: TObject; const pDisp: IDispatch; 2 const URL: Ol 阅读全文

摘要：引用单元 ;HttpAppprocedure TForm1.Button1Click(Sender: TObject);var Str: WideString; http: AnsiString;begin Str := Memo1.Text; http := HTTPEncode(UTF8Encode(Str)); Memo2.Text := http;end;procedure TForm1.Button2Click(Sender: TObject);var Str: WideString; http: AnsiString;begin Str := Memo2.Text;... 阅读全文