2011年12月_henreash

12月 11月 10月 09月 08月 07月

原创将Delphi2007的所有dcu打包到一个运行时包中

新建一个运行时包，拷贝如下代码到工程文件中。编译后得到一个14M的大bpl，使用AsPack压缩后大约7M，如果带包发布的话可以使用压缩后的bpl随最终exe或dll一同发布给客户。第一次发布确实有些大，但是对于Delphi自带的dcu我们基本上没有机会进行更改，因此发布一次，以后在升级直接拷贝exe或dll即可，单窗体的exe只有30k，方便升级。而且发布的时候才带包编译，只需要一个bpl文件，

2011-12-31 14:01:05 6159 2

转载剖析Qt Creator布局管理器

在Qt Creator中首先对菜单进行完善，实现布局管理器的应用。1.我们在做好的基础上再加入一些常用菜单，加以完善。“文件”的子菜单如下图。中间的分割线可以点击Add Separator添加。 “编辑”子菜单的内容如下。“帮助”子菜单的内容如下。2.我们在动作编辑器中对各个菜单的属性进行设置。如下图。3.我们拖动“新建”菜单的图标，将其放到工具栏里。拖

2011-12-28 11:12:17 2819

转载运行Dos命令并得到dos的输出文本

function RunDOS(const CommandLine: string): string;var HRead, HWrite: THandle; StartInfo: TStartupInfo; ProceInfo: TProcessInformation; b: Boolean; sa: TSecurityAttributes; inS: TH

2011-12-22 15:57:05 3858 1

转载 dcc32.exe命令行编译工程搜索路径的问题

时间到了23点，说这么一句，是因为时间紧迫，还有很多工作没有做完，但还是坚持花半个小时写这么一篇文章，总是找别人帮忙解决问题，不出点绵薄之力，都不好意思再混下去。OK，长话短说废话少说，进入正题。相信对dcc32.exe动过念头的人，都碰到搜索路径的问题：在编辑器中设置好了Search Path，使用dcc32.exe编译工程时愣是提示找不到相关文件，究其原因，还是因为没有指定

2011-12-22 14:18:36 2825 1

原创 Delphi2007获取对象的published方法

procedure GetObjectPublishedMethods(const AObj: TObject; var AList: TStringList);var VMT: Pointer; pMethodInfo: Pointer; nCount: Integer;begin AList.Clear; VMT := PPointer(AObj)^

2011-12-16 10:42:55 1420

转载 Delphi6/7/2007获取类型信息

2010年2月10日Delphi2010强化的反射第一篇http://hi.baidu.com/rarnu/blog/item/880c68810337f3d1bc3e1e9e.html第二篇http://hi.baidu.com/rarnu/blog/item/29914b4a32faac2a08f7ef7f.htmlposted @ 2010-02-10

2011-12-16 09:57:06 3612

原创将Dev的皮肤封装在包中

Dev的皮肤导致编译的执行文件比较大,所以如果能将皮肤代码封装在包中,在需要的时候以插件的形式载入,则不会影响执行文件的尺寸了.通过测试发现把如下单元加入到运行时包中,并在主程序中调用LoadPakage函数加载包即可实现皮肤切换,如果希望使用皮肤则同时发布包,不使用皮肤则主程序文件大小也不会受到影响.unit LoadDevSkin;interfaceuses Windows, Cl

2011-12-15 11:28:13 2772

原创创建Delphi向导

创建一个设计器包,将下面代码拷贝到一个新建单元中,并加入到设计器包,编译并安装. unit DevFormExpt;interfaceuses Classes, SysUtils, Controls, Windows, ToolsApi;Type TNewFormExpt = class(TInterfacedObject, IOTAWizard, IOTARepo

2011-12-09 16:22:57 1422

原创 Free Pascal泛型

DelphiXE2的泛型竟然无法支持加减乘除运算,太让人恼火了.感觉这方面是完全模拟C#的泛型实现的,可是却忘记了一件事情,C#中所有类型都是类,实现了一些公共的接口,而在Delphi中基本的类型确是原生的,本想用DelphiXE2翻译一个C++的模板库.后来发现行不通了,最基本的运算都做不了,里面有个比较大小的运算实现起来也非常复杂.网上搜索了一下Delphi的小弟FPC,其泛型竟然支持直接做运

2011-12-08 10:54:08 2069

原创 DelphiXE2泛型判断基本类型

uses TypInfo;procedure TForm1.CheckType;var p: PTypeInfo;begin p := System.TypeInfo(T); case p.Kind of tkInteger, tkInt64: begin case GetTypeData(p).OrdType of

2011-12-07 08:43:13 1799 1

原创 Delphi带包编译实现插件方式开发

1.新建一个exe执行文件作为主框架,并建立一个存放插件类的单元,建立插件类TTestClass.接着新添加一个单元TestClasses1,在其中添加一个继承于TTestClass的类TTestClass1,并在单元的initialization节中调用基类TTestClasses1的RegistClass方法注册类型.2.创建运行时包,将TestClasses单元添加到Contai

2011-12-01 10:18:01 3799