代码改变世界

delphi 打开资源管理器并定位到指定目录下的文件

2011-12-21 21:38 by 一人游走, 1545 阅读, 1 推荐, 收藏, 编辑
摘要:可以与 Explorer.exe 一起使用的命令行选项有:/n、/e、/root(加上一个对象)和 /select(加上一个对象)。 阅读全文

MakeCat Delphi实现生成安全编录(用于数字签名)

2011-12-21 09:44 by 一人游走, 630 阅读, 0 推荐, 收藏, 编辑
只有注册用户登录后才能阅读该文。 阅读全文

CryptSIPRetrieveSubjectGuid

2011-12-20 11:30 by 一人游走, 569 阅读, 0 推荐, 收藏, 编辑
摘要:CryptSIPRetrieveSubjectGuid根据文件类型检索SubjectGUID, 用于 CryptSIPLoad。 阅读全文

CertCreateCertificateChainEngine & CertGetCertificateChain Delphi演示

2011-12-19 14:27 by 一人游走, 737 阅读, 0 推荐, 收藏, 编辑
只有注册用户登录后才能阅读该文。 阅读全文

Delphi Rtti 笔记

2011-12-13 23:04 by 一人游走, 299 阅读, 0 推荐, 收藏, 编辑
摘要:uses Rtti;procedure TForm1.btn1Click(Sender: TObject);var ctx: TRttiContext;begin ShowMessage(ctx .GetType(TButton) .GetProperty('Caption') .GetValue(Sender) .ToString); // 同 btn1.Caption, 输出: btn1end; 阅读全文

Delphi 关键字详解

2011-12-13 11:30 by 一人游走, 212 阅读, 0 推荐, 收藏, 编辑
摘要:absolute//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.var Str: string[32]; StrLen: Byte absolute Str;//这个声明指定了变量StrLen起始地址与Str相同.//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.begin Str := 'abc'; Edit1.Text := IntToStr(StrLen);end;更多请点击>> 阅读全文

Punycode

2011-12-12 13:16 by 一人游走, 423 阅读, 0 推荐, 收藏, 编辑
摘要:Punycode是一个根据RFC 3492标准而制定的编码系统,主要用於把域名从地方语言所采用的Unicode编码转换成为可用於DNS系统的编码。Delphi 代码:PunycodeEncodeDomain('数字证书.cn'); //xn--1jq582atzhc33b.cnPunyCode库:http://code.google.com/p/delphionrails/source/browse/trunk/src/dorPunyCode.pas 阅读全文

delphi 的一些备忘

2011-12-12 11:25 by 一人游走, 264 阅读, 0 推荐, 收藏, 编辑
摘要:override:覆盖;overload:重载;Reintroduce:重定义,它的引入是为了屏蔽父类的一个虚方法,而在子类中生成一个新的方法;其实你不使用reintroduce也会覆盖屏蔽父类的方法的但是会产生一个警告!virtual(虚拟方法)和dynamic(动态方法)表示: 后代类可以override祖先的同名方法,在override过程的实现里,还可以用inherited调用祖先的同名方法,virtual(虚拟方法)和dynamic(动态方法)两者的差异在于方法指针的保存,virtual方法使用VMT(Virtual Method Table),也就是说,每一个该类的后代类都拥有整. 阅读全文

HttpResponseStrings

2011-12-12 10:38 by 一人游走, 558 阅读, 0 推荐, 收藏, 编辑
摘要:function HttpResponseStrings(code: integer): RawByteString;begin case code of 100: Result := '100 Continue'; 101: Result := '101 Switching Protocols'; 102: Result := 'Processing'; // WebDAV 200: Result := 'HTTP/1.1 200 OK'; 201: Result := 'HTTP/1.1 201 Created' 阅读全文