Delphi Package

bestlong

Package

bestlong

Delphi Package
--------------------------------------------------------------------------------
来自：房客 时间：2001-8-23 3:12:00 ID:604388

有年头了 不好意思 脏了大家眼睛
[篇头]了解BPL和DLL的关系将有助于我们更好地理解DELPHI在构件制作、运用和动态、静态编译的工作方式。对初学DELPHI但仍对DELPHI开发不甚清晰的朋友有一定帮助。

BPL vs. DLL

(原文http://www.delphi3000.com/ 翻译：房客)


第一部分：有关包的介绍

一般我们编写编译一个DELPHI应用程序时，会产生一个EXE文件，也就是一个独立的WINDOWS应用程序。很重要的一点：区别于Visual Basic，DELPHI产生的是预先包裹的应用程序是不需要大量的运行库（DLL's）。

假设：打开Delphi默认的工程（只有一个空白form），F9她将编译生成一个大约295 KB (Delphi 5)的可执行文件。然后打开Project | Options，把‘Build with runtime packages’选上再编译一下，EXE文件大小就只有15 KB左右了。

我们编译一个DELPHI应用程序时默认地没有选择'Build with runtime packages'，编译器将把程序运行所需要的代码直接写入你的EXE文件中，因此产生的程序是一个相对独立的程序，并不需要任何附属的支持文件（例如动态运行库文件DLL），这也就知道了为什么DELPHI产生的应用程序为什么都那么大。

要建立尽可能小的DELPHI程序，方法之一就要充分发挥Borland package libraries的作用，简称BPL。

先说什么是包？

简而言之，一个包就是一个在DELPHI的IDE环境中被DELPHI应用程序共享的特殊的动态链接库。包允许我们通过多级应用将我们的程序的一部分当做一个分离的模块供其他应用程序来共享。

包大致可分为运行期包（Run-time packages）和设计期包（Design-time packages）：

运行期包-当运行程序时提供VCL和库函数的支持，操作上很类似标准的动态链接库。

设计期包-用来在DELPHI的IDE环境安装控件和为控件建立特殊的属性编辑器。设计期包允许包含控件、属性和控件编辑器等等，在IDE环境中，这类包是程序设计所必需的，也仅仅是DELPHI使用，并不和开发的应用程序一起分发。

知道这些包的运用，我们也就知道了运行期包是如何做处理和它们对DELPHI程序员有什么帮助了。

有一点必须说明：想很好地运用包并不要求你先成为一个成熟的控件编写者。DELPHI编程初学者也可以和应该尝试去接触包的概念，这将有利于你更好地理解包和DELPHI的工作关系。


第二部分：适时运用包裹和DLL

一般都认为加入WINDOWS操作系统中的动态运行库是一种最有用最高效的应用。在WINDOWS系统中，很多应用程序同时运行可能会引起了内存方面的问题，很多程序执行相似的操作任务，但各自又由不同的代码来控制并完成任务，动态运行库的作用就是将你的执行程序中的这些代码放到一个系统共享环境下的DLL中去。可能最为直观的动态链接库例子就是WINDOWS操作系统自己和它本身所带的API了。

动态链接库通常都是用来集合过程（procedure）和函数（function）以供程序调用。当然我们在编写动态链接库的同时，也可以把一个DELPHI FORM放到一个DLL中去（例如一个AboutBox FORM），此外我们也可以在DLL中存储程序所需要的资源（resources）。更多关于DELPHI如何操作使用动态链接库，请参考相关书籍，不再赘述。

在比较DLLs 和BPLs之前，我们先要知道可执行文件的2种代码链接的方式：静态链接和动态链接。

静态链接就是当一个DELPHI工程被编译的时候，工程所需要的所有代码将被直接链接入你的程序执行文件。结果就是执行文件将包含程序所需要使用到的所有单元（units），你也许会说这样代码有点冗长，因为在通常默认情况下，一个FORM单元的uses子句列举了至少5个基本单元（如：Windows, Messages, SysUtils,...），尽管如此，DELPHI还是能够智能地自动链接单元中真正要用到的代码到工程代码中，从而尽可能地减少了执行文件的大小。使用静态链接，我们的应用程序就是一个相对独立的程序，不需要任何额外的支持文件或动态链接库（暂时不考虑BDE和ActiveX构件）。DELPHI中默认使用的就是静态链接方式。

动态链接就是应用程序将和标准的动态链接库（DLLs）一起运行。动态链接方式不需要将代码直接建立到每个应用程序中去，单独为多个应用程序提供多线程的库函数支持，任何程序运行期间才需用到的包才将被加载，更值得一提的是：程序在动态方式需要调用的包是自动加载的，因此你不需要专门写加载包的代码。

方法：简单地选中在Project | Options 对话框中'Build with runtime packages'复选框后，再次编译你的程序，你的程序代码将自动链接到动态运行包，而不是将引用单元都静态链接入你的工程执行文件。

是选择BPL 还是 DLL？区别又在哪里？

你可能很奇怪为什么要选择使用运行期包，而不是DLL，或者还有其他什么方法。

相对于DLL而言，包裹的概念是DELPHI开发中所特有的，就是说其他语言编写的应用程序不能引用DELPHI建立的包裹。即使包是一种被DELPHI编写的应用程序所使用的动态链接库，它也同时提供给了DELPHI程序员更多的库函数支持。

通常我们在DELPHI中建立动态链接库（DLLs）是用来存储不同环境下应用程序所需要使用到的过程和函数，而包不仅能够包含代码单元（untits）、构件和FORMs，还能包含DELPHI中的类（classes）-这就使我们能够在其中引用对象向导编码（object oriented code）。在包裹中，我们可以保存完整的通用DELPHI构件，而动态运行库（DLL's）对此则无能为力了。

此外，在缩减程序代码上，DLLs和BPLs扮演着同样重要的角色，其主要原因就是在使用包裹或动态链接库技术后，都直接地减少了程序的文件大小。当然，还要说明的是：执行程序需要加载的DLLs或BPLs也可能会是很庞大的。例如如果需要分发你的包裹文件（主要是VCL包，vcl50.BPL）至少有2MB左右。

尽管如此，如果你是要分发共享同个包的多个应用程序，你就可以省很多事了。当用户方系统中已经存在程序运行需要的部分文件（如：标准的DELPHI BPLs）后，就只需要下载程序的最小执行文件了。如果你的程序工程主要是通过INTERNET等方式分发和开展，那效率显然有很大的提高。

同时，包的应用也节省系统内存，因为动态链接的结果就是：只有一个VCL被读入内存供所有使用运行期包的DLEPHI应用程序使用。


包裹的版本问题

当你想升级你的动态链接库时（改变其中一些执行函数），你可以简单地编译产生新的程序文件，并上载新版本文件，所有正在使用该动态链接库的应用程序仍将工作（除非你已经将存在的旧版本程序去除）。

换个角度来讲，在升级新包裹文件的同时，不要忘记升级程序的执行文件。正如你所了解的，包裹文件就是一个单元文件（units）的集合，所有编译过的单元文件（DCU）都含有版本信息，因此，除非我们有单元文件的源码（source），否则我们不能在DELPHI4或5中使用编译过的单元，所以一旦我们改变了单元文件中接口部分uses子句中列举出的任一单元文件，该文件就需要重新编译。编译器将检查DCU文件的版本信息，并决定单元是否需要重新编译。因此我们不能在DELPHI5编译的应用程序中使用在DELPHI6下编译的包，任何为你的应用程序服务的包和你的应用程序必须在相同环境下编译。

因此，当给包裹命名的时要保留包裹名中包含有DELPHI的版本信息（如'AboutDP50'，其中50就代表Delphi 5）。这可以有效防止文件版本的冲突问题，也可以避免很多不必要的麻烦，包使用者可以更清楚包的版本和包裹适用于哪个DELPHI编译器。

如果你要分发运行期或设计期包给其他DELPHI程序员，建议同时提供了.DCP（含有包的头信息和各个单元文件）和.BPL文件，还有包中所包含的所有单元文件的.DCU文件。


第三部分：建立和使用运行期包

建立一个包裹

建立一个包很简单，但在建包之前要做一些准备工作。首先，你需要知道你准备建立哪种类型的包文件：运行期包还是设计期包，或两者都是；其次是，建立、调试，反复地测试你想放置到包中去的单元文件；最后，为建立的包裹文件命名，还有就是选择一个合适的地方来存放文件。

建立一个新的运行期包，按照以下步骤：

1．启动DELPHI，并选择File | Close All关闭默认的工程。

2．选择File | New...，在"New items"对话框中的"new"页面中双击Package图标（如图），就会出现包裹编辑器（如图）：包裹编辑器包含2个文件夹：Contains和Requires。

3．点击Add按钮，可以增加一个单元文件（构件或是一个简单的代码单元文件）。注意：你添加的是PAS源码文件而不是编译后的DCU文件。当你添加单元文件的同时，包中的单元的名字就显示在包裹编辑器的Contains文件夹中了。如图中添加了FindFile和PictureClip的单元文件。

4．打开Requires文件夹，展开的列表表示包裹所需要的包的DCP文件，包裹文件最基本的就需要引用含有绝大部分标准可视控件的vcl50.dcp文件。

5．当你添加完单元文件，单击Options按钮，在Description面板中的Usage options组中你需要选择包裹种类：是设计期包，还是运行期包，或者两者都是。如果选择Runtime only（仅运行期包），其他包的使用者将无法将图示2个构件安装到IDE环境中去。

6．使用File | Save保存包工程文件（DPK），然后保存包文件，如AboutDP50，包裹文件的命名将很重要。

7．在包裹器中，单击Compile按钮来编译包。

8．如果不出什么意外，编译包后将建立一个包裹文件（BPL文件），期间你可能还要确定你必须增加的其他包裹（例如VCLX50），这些包都将在Requires文件夹中列出。

9．完成，Borland package library文件已经成功建立，就等着使用了。

在包裹编辑器中有一个Install按钮，就是用来将当前包裹安装成一个设计期包的。如果包裹是run-time only（仅运行期包），那Install按钮将无法使用。

关于所建立的这些文件

除了DPK文件和那些单元源码文件，DELPHI还使用包裹的动态链接版本产生一个BPL文件和一个含有包内标识信息DCP文件，DCP文件就是包中所包含单元文件的编译文件（DCU）的标识信息的集合。


使用运行期包设计程序

开始使用动态链接编写应用程序时，不需要写代码去加载运行期包裹，只需要在Project | Options中做相关设置，选择在Packages页的Runtime Packages编辑框中的包裹列表，编译程序时将自动链接。应用程序要使用到一个运行期包时，使用ADD按钮来增加包裹文件。

注意：尽管一个应用程序被链接到运行期包，程序的USES子句所列出的单元文件也必须都是存在的，编译运行期包裹只是告诉应用程序哪里可以找到构件代码而已。

当配置一个使用到运行期包裹的应用程序时，确定用户拥有可执行文件和程序所需的库文件（.BPL或.DLL）。如果库文件在和EXE文件不同的目录下，必须将其指定到系统所能到达的目录。因此，最好的选择就是Windows\System系统目录。

总而言之

包裹使你能够有弹性地选择应用程序的分发方式，也使构件的安装变简单了，此外，使用包裹也减少了应用程序的文件大小，因此，使用包裹的开发方式还是具有不小的意义的。

bestlong

如何使用 Runtime Package

By Kingron, 2005-04-21

Answer for bigery

大家都知道使用DLL，非常方便，而 Delphi 提供了 Package 的功能，特别是 Runtime Package，可以使用类似DLL的功能，然而可以比DLL功能更强大和方便，使用Package可以提高模快重用能力！

下面以如何使用一个函数和一个窗体为例，来说明如何使用 Runtime Package。

预计：在 Package 里面，提供一个 Password 对话框窗体，提供一个函数，GetRandString(Len: Integer): string。

首先你建立一个Package，设置Package Options为Run Time Package。

然后New一个Form，设置好Password之类的一些界面的东西。并和DLL一样，编写一个函数，注意需要在Interface部分声明。

然后编写代码，Build生成一个DCP和BPL文件。

接下来编写调用Package的工程。

New一个Project，然后设置Project Options，到Pacages页面中，选中 Build with runtime Packages，把其中不需要的删除！不删除那些默认的也可以，不过你需要带VCL的runtime Package，会很大的，如果不带，你的程序在没有安装Delphi的机器上面无法运行，如果使用Package，你的Package文件（bpl）需要同时发布给客户。

修改好Project Options后，在你的需要使用Package中的单元的地方，在use部分添加package中的单元名即可。以后即可和同工程中的文件一样使用，非常方便。

需要注意的是，使用的时候，由于Package 的Form不会被自动创建的，因此需要你手动创建窗体。如果Package需要给别人使用，需要发布DCP文件，DCP默认在Delphi安装目录下的Project\bpl下。

如果要动态加载Package，使用LoadPackage即可，但是必须在Package里面注册你的Class：

RegisterClass(TForm2);
UnRegisterClass(TForm2);

1. // 动态加载Package
   
2. procedure TForm1.Button1Click(Sender: TObject);
   
3. var
   
4.   PackageModule: HModule;
   
5.   AClass: TPersistentClass;
   
6. begin
   
7.   PackageModule := LoadPackage('Package1.bpl');
   
8.   if PackageModule <> 0 then
   
9.   begin
   
10.     AClass := GetClass('TForm2');
    
11.     if AClass <> nil then
    
12.       with TComponentClass(AClass).Create(Application) as TCustomForm do
    
13.       begin
    
14.         ShowModal;
    
15.         Free;
    
16.       end;
    
17.     UnloadPackage(PackageModule);
    
18.   end;
    
19. end;

複製代碼

在你的Package unload前，注意清除所有Package中的类的应用！下面这个过程可以干这个苦力活！

1. procedure DoUnloadPackage(Module: HModule);
   
2. var
   
3.   i: Integer;
   
4.   M: TMemoryBasicInformation;
   
5. begin
   
6.   { Make sure there aren't any instances of any
   
7.     of the classes from Module instantiated, if
   
8.     so then free them.  (This assumes that the
   
9.     classes are owned by the application) }
   
10. 
    
11.   for i := Application.ComponentCount - 1 downto 0 do
    
12.   begin
    
13.     VirtualQuery(GetClass(Application.Components[i].ClassName), M, SizeOf(M));
    
14.     if (Module = 0) or
    
15.       (HMODULE(M.AllocationBase) = Module) then
    
16.       Application.Components[i].Free;
    
17.   end;
    
18.   UnRegisterModuleClasses(Module);
    
19.   UnLoadPackage(Module);
    
20. end;

複製代碼

即使使用动态Package，也必须设置调用的工程为Build with runtime Package中包含你的Package，否则GetClass会失败！

附件是一个完整的例子。

grado

楼主太强了。强烈支持。