关于Delphi包的说明

最近用delphi做一个东东，整个东东由多个子程序组成，正好适合使用链接运行期包。翻了好一会儿大富翁，找到一篇好文章，转帖一下。
顺便问一下，这年头还有人在用Delphi开发项目吗？


一、什么是包？
Delphi中的包是Delphi程序间通讯与模块化的一个方法，其中包可分为设计包（比如控件都有一个设计包）和运行包，包的本质和Win32下的DLL并无本质
    区别，可以理解为Borland专有的一个DLL，只不过这个“DLL”只能用Delphi开发的程序中。这有点类似于VC下的可以导出整个类的DLL--这种DLL只
    能被使用MFC编程的程序使用。Delphi运行包的好处与VC中的专有DLL有相同之处：使用十分方便，开发的程序可以很容易模块化，便于合作开发。
       1。设计包
    其实每个VCL控件一般都有一个设计包，可以在 Project| Option...对话框中的Package页中安装、删除。设计包此处从略
    2。运行包
        可以显式链接也隐式链接（这一点与DLL几乎完全一模一样！）
二、包的开发方法
    开发方法十分简单：New|...|package即可，可以在包中添加窗体和各种各样的控件以及相应的代码、数据，与平时开发应用程序无任何不同。
    唯一不同的一点是生成  .BPL 文件，生成的BPL文件默认位置是在Delphi的安装目录下的Project|BPL中，不过可以另外设定Output目录。
       另外还有一点不同是：在使用包之前必须要知道包中有哪些类，所有先注册。所以要在每个包中的  initialization部分注册类而在 finalization部分注销类
    如下使用：

unit1.pas
……

initialization
  RegisterClass(TForm2);
finalization
  UnRegisterClass(TForm2);


三、使用方法
    A）隐式链接
包含相应的Unit单元，同时在 Project | Option... 中的 Packages页选中 Build with RunTime Package复选框，并在相应的Edit框中添加要链接的
包的文件名，如果是放在和Exe文件同一目录中的话，可以不加路径名
    B）显式链接
下面例程演示了如何使用：
procedure TForm1.Button1Click(Sender: TObject);
var
  PackageModule: HModule;
  AClass: TPersistentClass;
begin
  PackageModule := LoadPackage('Package1.bpl');//装载包
  if PackageModule <> 0 then
  begin
    AClass := GetClass('TForm2'); //得到包中的相应的类

    if AClass <> nil then
      with TComponentClass(AClass).Create(Application)
        as TCustomForm do
      begin
        ShowModal;
        Free;
      end;

    UnloadPackage(PackageModule);
  end;
end;

四、包使用中的应该注意的几点：
1。包不能递归使用。
   比如有下面两个程序：A和B两个包而且A中用到了B，那么B就不能使用A包了，否则出错。
   解决方法如下：
   使用额外的包！即将各个模块共有的部分抽取出来单独做一个包供其它所有的模块使用。
  

补充(by wallimn 2009-02-18)：
　　关于动态连接与静态链接，部分人其实存在一个认识上的误区，就是，使用uses方式使用bpl中的类，并不一定就是静态链接。
　　动态与静态链接，其实取决于Project->Options->Packages窗口中，Build with runtime packages勾选与否。
　　若勾选，所有bpl都是动态链接的，包括自己写的BPL，若未勾选，则为静态链接。可以从生成的exe文件的大小直观的看出来。