最近搞Delphi，發(fā)現(xiàn)原來的程序中使用了很多包，但是總是處于懵懵懂懂的狀態(tài)。索性來好好研究一下這個(gè)問題，可能要花一些時(shí)間。所以首先把需要分析的問題列出來：
什么是包？什么是exe？它們在組成上有什么不同？包跟dcu是什么關(guān)系？dcp是干什么的？這些文件在編譯時(shí)是什么關(guān)系？又是怎么裝載的？裝載了以后怎么樣操作包？dll可以exports，但是為什么delphi幫助中不提包的exports，但是有些代碼卻又在包中使用exPRots？

首先來看看delphi的編譯過程。delphi的工程中有兩類：包和程序，前者的后綴為dpk，后者為dpr。從簡單的開始，先來搞dpr。根據(jù)delphi的幫助文檔，一個(gè)典型的dpr文件的結(jié)構(gòu)如下：
 1 program Editor;
 2    
 3     uses
 4       Forms, {change to QForms in linux}
 5       REAbout in 'REAbout.pas' {AboutBox},
 6       REMain in 'REMain.pas' {MainForm};
 7    
 8     {$R *.res}
 9    
10     begin
11       application.Title := 'Text Editor';
12       Application.CreateForm(TMainForm, MainForm);
13       Application.Run;
14     end.
其中10行到14行，begin…end很自然就是程序的執(zhí)行入口。uses部分指明了程序需要使用的一些Unit，這個(gè)就比較含糊了，為什么有的會用in指明源代碼的位置（這部分是自己向工程中添加的），有的如Forms這個(gè)部分，卻又不需要？那每個(gè)Unit又會uses其它Unit，這個(gè)問題似乎越來越復(fù)雜了。先看整個(gè)源代碼的結(jié)構(gòu)：

我猜測編譯器第一步首先遍歷這張有向圖，對每個(gè)Unit，如果有必要就對其進(jìn)行編譯，生成對應(yīng)的dcu。而這個(gè)“必要”問題，我開始以為是use這個(gè)Unit的語句是帶有in的，后來試驗(yàn)發(fā)現(xiàn)不對。因?yàn)樵谏厦娴那闆r下，Unit3并沒有在Unit1的Uses子句中指明路徑，但是仍然正確產(chǎn)生了對應(yīng)的dcu文件。后來使用filemon來監(jiān)視文件打開情況，發(fā)現(xiàn)過程是這樣的：對于圖中的每個(gè)節(jié)點(diǎn)，編譯器按照當(dāng)前目錄—project屬性中的search path—IDE環(huán)境中的library path，這樣的順序，搜索節(jié)點(diǎn)對應(yīng)的pas文件，沒找到就再來一遍，但是這次搜索的是節(jié)點(diǎn)對應(yīng)的dcu文件。

現(xiàn)在編譯搞定了，每個(gè)Unit（即pas文件）已經(jīng)生成了對于的dcu文件，下面的問題是連接。說到連接，問題就復(fù)雜了，連接有兩種：靜態(tài)和動態(tài)。靜態(tài)連接就是說把這些dcu全部合并到一起。這樣，一個(gè)Unit對另一個(gè)Unit的調(diào)用，就成了程序內(nèi)部的事情了。這樣的好處是快，而且簡單，并發(fā)共享之類的問題都容易處理。缺點(diǎn)是目標(biāo)程序很大，而且如果現(xiàn)在要編寫另一個(gè)程序，而Unit3可以重用的話，則在連接時(shí)Unit3.dcu被再次拷貝。這樣在兩個(gè)程序同時(shí)運(yùn)行時(shí)，內(nèi)存中會有兩個(gè)Unit3的副本，比較浪費(fèi)。動態(tài)連接就是說，兩個(gè)程序在連接時(shí)，僅僅只保留對Unit3的引用，而并不拷貝Unit3的內(nèi)容。到運(yùn)行時(shí)，把Unit3裝入內(nèi)存，讓兩個(gè)程序公用。Dll和BPL都是動態(tài)連接的解決方案。問題在于，delphi中關(guān)于連接的選項(xiàng)就只有project|Options|packages菜單中出現(xiàn)，“Build with runtime packages”這句話實(shí)在是太模糊了。所以還要再研究一下。
在程序執(zhí)行的時(shí)候，我們可以通過view|debug window|moudles來查看有哪些東西被加載到內(nèi)存中去了，它們又包含哪些內(nèi)容。
簡便起見，我們建立如下結(jié)構(gòu)的一個(gè)程序：

program ProjectEXE;

uses
  Forms,
  Windows,
  UnitFormMain in 'UnitFormMain.pas' {FormMain};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TFormMain, FormMain);
  Application.Run;
end.

unit UnitFormMain;

interface

uses
  Windows, StdCtrls, Forms, UnitFormAnother,Classes, Controls;

type
  TFormMain = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;

implementation

{$R *.dfm}

procedure TFormMain.Button1Click(Sender: TObject);
var
  LForm:TFormAnother;
begin
  LForm:=TFormAnother.Create(Application);
  LForm.ShowModal;
  LForm.Free;
end;

end.

unit UnitFormAnother;

interface

uses
  Forms;

type
  TFormAnother = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

end.

在動態(tài)連接之后，還存在一個(gè)問題：裝入。裝入有兩種策略，靜態(tài)也稱為自動，由delphi生成代碼，在裝載exe之前，自動裝入包；另一種是動態(tài)，即在程序運(yùn)行時(shí)通過編碼，指定一個(gè)包，把它裝入內(nèi)存。問題在于，我必須搞清楚delphi在什么情況下會自動裝入一個(gè)包，什么情況下可以避免delphi自作聰明，這樣才能靈活地使用包。前面的試驗(yàn)中，只可以看出，在dpr文件執(zhí)行到begin之前，靜態(tài)連接的的包就已經(jīng)裝入內(nèi)存了。具體過程我也不清楚，等下一章開始寫自己的包，再來做實(shí)驗(yàn)吧。