在發(fā)布使用ActiveX控件的應(yīng)用程序時，應(yīng)該附帶使用到的ActiveX控件的OCX文件或DLL文件，并且在運行應(yīng)用程序之前，必須先在系統(tǒng)注冊表中注冊ActiveX控件。注意：有些ActiveX控件會使用到其它的DLL文件，這時也要提供這些文件?？梢酝ㄟ^RegSvr32.exe來注冊ActiveX控件，這個程序在Windows系統(tǒng)中可以找到。也可以使用Delphi開發(fā)環(huán)境目錄中的bin目錄中的TRegSvr.exe來注冊。另一種方法是將ActiveX控件的注冊代碼集成到應(yīng)用程序中，Delphi已提供了TRegSvr.exe的源代碼，并演示了如何注冊ActiveX控件。

ActiveX控件向?qū)?ActiveX Control Wizard)
  這個向?qū)г试S把一個VCL控件轉(zhuǎn)換成一個ActiveX控件，能被轉(zhuǎn)換成ActiveX控件的VCL控件要滿足下面三個準(zhǔn)則：
. VCL控件必須在當(dāng)前安裝的設(shè)計包中(它必須在組件面板中)。
. VCL控件必須是TWinControl的派生類，當(dāng)前非窗口控件不能轉(zhuǎn)換為ActiveX控件。
. VCL控件必須是還沒有被RegisterNonActiveX()過程列出來的
許多標(biāo)準(zhǔn)的VCL控件無法轉(zhuǎn)換為ActiveX控件，是因為其中有些轉(zhuǎn)換成ActiveX控件沒有意義，或者是因為轉(zhuǎn)
換需要大量的工作，超出了向?qū)芴峁┑墓δ堋?br>注意：雖然ActiveX向?qū)Р荒馨岩粋€非窗口的控件轉(zhuǎn)換成ActiveX控件，但能通過Delphi ActiveX(DAX)框架
來手工編寫這樣的控件。

ActiveX控件的選項(ActiveX Control Options)：
. Make Control Licensed，選中這個選項，一個許可證文件(LIC)就會產(chǎn)生，這是為了使其他開發(fā)者在不同
的開發(fā)環(huán)境能用這個Activex控件。
  為了能使用這個控件除了ActiveX控件的ocx文件，還需要許可證文件。DAX需要把一個許可文件和ActiveX
控件的OCX文件一起發(fā)布到用戶的機器上。許可字符串是ActiveX控件類工廠構(gòu)造器的一個參數(shù)。若在向?qū)е?br>選中了Make Control Licensed，這個選項將生成一個GUID字符串，并把這個字符串插到類工廠構(gòu)造器的調(diào)
用中和LIC文件中。如果這個ActiveX控件要用在開發(fā)工具中，DAX就會把類工廠的許可字符串與LIC文件中許
可字符串進(jìn)行比較，如果匹配的話，才能創(chuàng)建這個控件的實例。當(dāng)編譯使用這個ActiveX控件的應(yīng)用程序時，
許可字符串會嵌入到應(yīng)用程序中，但運行這個應(yīng)用程序不再需要LIC文件。
. Include Version Information，選中這個選項，一個VersionInfo資源將連到OCX文件中，在它的字符串
文件信息中有一個稱為OleSelfRegister的變量，它的值為1，這個變量是為了兼容老的ActiveX控件的宿主，
例如Visual Basic 4.0，在Project Options對話框的VersionInfo頁中能編輯這個變量。
. Include About Box，選中這個選項是為了把“About”對話框連到ActiveX控件中，在ActiveX容器應(yīng)用程
序中在ActiveX控件上單擊右鍵出現(xiàn)的菜單中能激活這個對話框，這個About對話框是一個普通的Delphi窗體。

下面簡要描述ActiveX控件向?qū)О岩粋€VCL控件轉(zhuǎn)換成ActiveX控件要經(jīng)歷的步驟：
1) 向?qū)Q定是哪個單元包含了選中的VCL控件，然后經(jīng)編譯器處理，由編譯器生成與VCL控件的屬性、方法和事件相對應(yīng)的特殊符號信息。
2) 為這個項目創(chuàng)建一個類型庫，其中包括一個具有屬性和方法的接口、一個事件調(diào)度接口和一個表示ActiveX控件的控件類。
3) 向?qū)П闅vVCL控件的所有符號信息，把其中的屬性和方法加到接口中，把事件加到調(diào)度接口中。
注意：只有那些屬性、方法的參數(shù)和返回值、事件的類型與自動化兼容的才能被加到類型庫中，與自動化兼
容的數(shù)據(jù)類型有：Byte、SamllInt、Integer、Single、Double、Currency、TDataTime、WideString、
WordBool、PSafeArray、TDecimal、OleVariant、IUnknown和IDispatch。不過，這個規(guī)則也有例外，如果參
數(shù)的類型是TStrings、TPicture和TFont，也是允許的。對于這些類型，向?qū)в锰厥獾倪m配器對象將其封裝為
兼容的類型。這三個類型對應(yīng)的自動化接口分別為：IStrings、IPicture和IFont。
4) 一旦所有的屬性、方法和事件加到類型庫中后，類型庫編輯器就產(chǎn)生一個包含類型庫內(nèi)容的Object Pascal譯本。
5) 向?qū)葾ctiveX控件的實現(xiàn)文件，這個文件中有一個TActiveXControl對象，它實現(xiàn)了在類型庫中描述的接口，并自動實現(xiàn)原來在VCL中的屬性、方法和事件。
注意：在類型庫的單元文件中有一個類似于TMemoX的類這是從TOleControl繼承下來的，這樣就可以把這個
ActiveX控件加到組件面板中，只要把XXX_TLB單元加到設(shè)計期包中。

Delphi的ActiveX框架(簡稱DAX)在單元AxCtrls中。一個ActiveX控件可以看成是一個自動化對象，因為它需要實現(xiàn)IDispatch接口及其他接口。TActiveXControl是TAutoObject的派生類，它能實現(xiàn)一個ActiveX控件所需的接口。DAX框架是一個雙向的框架，在ActiveX中的TActiveXControl部分能和在VCL控件中的TWinControl進(jìn)行通信。就像所有的COM對象一樣，ActiveX控件由類工廠創(chuàng)建， DAX中的TActiveXControlFactory就是TActiveXControl對象的類工廠。而類工廠的實例是在控件實現(xiàn)單元的initialization部分創(chuàng)建的，這個類的構(gòu)造器聲明如下：
constructor TAcitveXControlFactory.Create(ComServer:TComServerObject;ActiveXControlClass:
  TActiveXControlClass;WinControlClass:TWinControlClass;const ClassID:TGUID;ToolboxBitmapID:
  Integer;const LicStr:String;MiscStatus:Integer;  ThreadingModel:TThreadingModel=tmSingle);
ComServer用于指定一個TComServer的實例，它通常是ComServ單元中的全局變量ComServer。
ActiveXControlClass用于指定TActiveXControl的派生類的名字，它定義在實現(xiàn)文件中。
WinControlClass指定了VCL TWinControl派生類的名字，ActiveX控件就是從它轉(zhuǎn)換來的。
ClassID指定了ActiveX控件的類標(biāo)識符(CLSID)，它被列在類型庫編輯器中。
ToolboxBitmapID指定了一個位圖的資源標(biāo)識符，這個位圖作為ActiveX控件在組件面板中的圖標(biāo)。
LicStr用于指定AtiveX控件的許可字符串，如果這個字符串設(shè)為空，表示不許可。
MiscStatus用于指定Activex控件的OLEMISC_XXX狀態(tài)標(biāo)志。這些標(biāo)志決定了一個ActiveX控件怎樣在窗口畫
出，是否能包含其他控件。關(guān)于這些標(biāo)志的含義，請查閱Microsoft Develpoer’s Network中OLEMISC主題。
ThreadingModel用于指定ActiveX控件的線程模式，特別要注意，這個參數(shù)僅用來對ActiveX控件指定一種線
程模式，但不能保證在這個線程模式下ActiveX控件就能安全工作，它只是決定了ActiveX控件是怎樣注冊的。
線程安全需要由程序員編程實現(xiàn)。

OLEMISC_XXX參數(shù)的其中一個值為OLEMISC_SIMPLEFRAME ,當(dāng)VCL控件的ControlStyle屬性中有
csAcceptsControls時，這個值被自動加到ActiveX控件中。這意味著，ActiveX控件就能成為其他ActiveX控
件的容器。在TActiveXControl類中有能使控件正確工作的消息處理結(jié)構(gòu)，以處理子控件的消息。通常這個
值通過向?qū)ё詣釉O(shè)定。如果不希望這樣，就應(yīng)當(dāng)在調(diào)用類工廠構(gòu)造器的代碼中把這個標(biāo)志手工地去掉。

某些ActiveX控件要有消息才能正確工作。因此，DAX將創(chuàng)建一個反射器窗口，它的任務(wù)是接收消息，并把它
們傳遞給VCL控件。凡是需要反射器窗口的VCL控件在ControlStryle屬性中有csReflector標(biāo)志。如果有一個
要處理通知消息的自定義的TWinControl控件，必須保證在控件構(gòu)造器的ControlStyle集合中有這個標(biāo)志值。

VCL提供一種簡單的方法來判斷一個控件當(dāng)前是處在設(shè)計期還是在運行期，只要檢查在ComponentState屬性中
是否有csDesigning標(biāo)志。雖然對ActiveX控件也能進(jìn)行類似的判斷，但它實現(xiàn)起來不那么簡單，它需要獲得
容器的IAmbientDispatch調(diào)度接口的指針并檢查這個調(diào)度接口的UserMode屬性?？梢杂孟铝写a來完成：
function IsControlRunning(Control:IUnknown):Boolean;
var
  OleObj:IOleObject;
  Site:IOleClientSite;
begin
  Result:=true;
  //得到控件的IOleObject指針，通過它得到容器的IOleClientSite，再得到IAmbientDispatch
  if (Control.QueryInterface(IOleObject,OleObj)=S_OK) and
     (OleObj.GetClientSite(Site)=S_OK) and (Site<>nil) then
    Result:=(Site as IAmbientDispatch).UserMode;
end;

LIC文件并不是唯一的許可策略。例如，有些開發(fā)者認(rèn)為附加一個文件很麻煩，他們更愿意在注冊表中注冊
一個許可字符串。DAX用一種簡單的方法來實現(xiàn)了這個目標(biāo)，在TActiveXControlFactory中有一個方法叫
HasMachineLicense。默認(rèn)的情況下，這個方法在LIC文件中查找許可字符串，但可以讓這個方法在注冊表中
查找許可字符串。例如，下面代碼顯示了一個TActiveXControlFactory的派生類如何在注冊表中查找許可字
符串。
type
  TRegLicActiveXControlFactory=class(TActiveXControlFactory)
  protected
    function HasMachineLicense:Boolean;override;
  end;

function TRegLicActiveXControlFactory.HasMachineLicense:Boolean;
var Reg:TRegistry;
begin
  Result:=true;
  if not SupportsLicensing then Exit;
  Reg:=TRegistry.Create;
  try
    Reg.RootKey:=HKEY_CLASSES_ROOT;
    Result:=Reg.OpenKey('\Licenses\'+LicString,False);
  finally
    Reg.Free;
  end;
end;
把許可字符串加到注冊表文件的REG文件：
REGEDIT4

[HKEY_CLASSES_ROOT\Licenses\{C06EFEA0-06B2-11D1-A9BF-B18A9F703311}]
@="Licensing info for DDG demo ActiveX control"

屬性頁提供了通過一個對話框修改ActiveX控件屬性的方法。在控件容器中，通過在控件上單擊右鍵并在產(chǎn)
生的菜單中選擇命令，就能打開一個控件的屬性頁。
1. 標(biāo)準(zhǔn)的屬性頁
  DAX為類型IString、IPicture、TColor和IFont提供了標(biāo)準(zhǔn)的屬性頁。這些屬性頁的CLSID定義在AxCtrls
單元中。它們聲明如下：
const
  Class_DColorPropPage:TGUID='{5CFF5D59-5946-11D0-BDEF-00A024D1875C}';
  Class_DFontPropPage:TGUID='{5CFF5D5B-5946-11D0-BDEF-00A024D1875C}';
  Class_DPicturePropPage:TGUID='{5CFF5D5A-5946-11D0-BDEF-00A024D1875C}';
  Class_DStringPropPage:TGUID='{F42D677E-754B-11D0-BDFB-00A024D1875C}';
在ActiveX控件中使用上述任何一種屬性頁時，僅需要把它們的CLSID傳遞到控件DefinePropertyPages()方
法中的DefinePropertyPage參數(shù)即可。示例如下：
procedure TMemoX.DefinePropertyPages(DefinePropertyPage:TDefinePropertyPage);
begin
  DefinePropertyPage(Class_DColorPropPage);
  DefinePropertyPage(Class_DFontPropPage);
  DefinePropertyPage(Class_DStringPropPage);
end;
2、自定義的屬性頁
   示例：先新建一個ActiveX Control，再新建一個Property Page，在Property Page上設(shè)計界面與代碼，
將屬性頁的默認(rèn)類型標(biāo)志符Class_PropertyPage1改名為其它喜歡的名字，再在ActiveX控件類的
DefinePropertyPages方法中加入以下代碼：
procedure TMemoX.DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage);
begin
  DefinePropertyPage(Class_DStringPropPage);//這個是標(biāo)準(zhǔn)的屬性頁的CLSID
  DefinePropertyPage(Class_PropertyPage1);
end;
  實現(xiàn)自定義屬性頁時，用OleObject來與屬性頁中的ActiveX控件交互。OleObject是變體，它能引用
ActiveX控件的IDispatch接口，屬性頁的UpdatePropertyPage()方法和UpdateObject()方法由向?qū)Мa(chǎn)生。
在屬性頁激活時UpdatePropertyPage()被調(diào)用，這樣就有機會把ActiveX控件的屬性值顯示在屬性頁上。當(dāng)
用戶單擊屬性頁上的OK鍵或Apply按鈕時會調(diào)用UpdateObject()方法。這樣就有機會以用戶所做的修改來更
新Activex控件的屬性。屬性頁上的按鈕被按下時應(yīng)該調(diào)用屬性頁的Modified()方法，它能使Apply按鈕有效，
并臨時更新ActiveX控件的屬性。

ActiveForm：
從功能上講，ActiveForm非常像ActiveX控件，
ActiveForm在類型庫中的接口是“平面”的，而不是像VCL那樣是嵌套的。這表示如果一個ActiveForm上有
幾個按鈕，則無法用類似于ActiveForm.Button.ButtonProperty的方式來訪問ActiveForm上的按鈕(訪問者
是使用該ActiveForm的客戶端程序)。要解決這個問題的最簡單的方法是把按鈕的屬性轉(zhuǎn)換為ActiveForm的
屬性。只要采取兩個步驟。這里假設(shè)要轉(zhuǎn)換按鈕的Caption屬性：
1) 在實現(xiàn)文件的ActiveForm聲明中增加一個公開的被稱為ButtonCaption的新屬性，它有讀、寫方法，來讀
寫按鈕的Caption屬性。
2) 在類型庫中中的ActiveForm接口中加入一個名字為ButtonCaption的新屬性。Delphi將為這個屬性自動生
成讀、寫方法的程序框架。必須自己編寫代碼通過對ActiveForm的ButtonCaption屬性的讀、寫來完善程序。
ActiveForm最理想的用途是在WWW上作為傳送小型程序的載體。小小的ActiveX框架同樣能增加Web頁的功能和
外觀。因為ActiveX控件能運行在Web瀏覽器上，如果它能調(diào)用Web瀏覽器的函數(shù)和接口，這非常有意義。Web
瀏覽器的函數(shù)和接口大部分在UrlMon單元中，其中最簡單的是Hlinkxxx()函數(shù)，它能讓瀏覽器跳轉(zhuǎn)到不同的
地方。例如，HlinkGoForward()和HlinkGoBack()函數(shù)可以使瀏覽器在歷史記錄中前后跳轉(zhuǎn)。
HlinkNavigateString()函數(shù)能使瀏覽器跳轉(zhuǎn)到一個特定URL，這些函數(shù)在UrlMon單元中是這樣聲明的：
function HlinkGoForward(pUnk:IUnknown):HResult;stdcall;
function HlinkGoBack(pUnk:IUnknown):HResult;stdcall;
function HlinkNavigateString(pUnk:IUnknown;szTarget:PWideChar):HResult;stdcall;
  pUnk參數(shù)是ActiveX控件的IUnknown接口，對于ActiveX控件來說，可以傳遞Control as IUnknown給這個參
數(shù)；對于ActiveForm來說，可以傳遞IUnknown(VclComObject)給這個參數(shù)。HlinkNavigateString()的
szTarget參數(shù)用于指定一個URL。調(diào)用URLDownloadToFile()函數(shù)可以從服務(wù)器下載一個文件，這個函數(shù)在
UrlMon中是這樣聲明的：
function URLDownloadToFile(p1:IUnknown;p2:PChar;p3:PChar;p4:DWORD;p5:
  IBindStatusCallback):HResult;stdcall;
  p1代表ActiveX控件的IUnknown接口，它類似于HlinkXXX()函數(shù)的pUnk參數(shù)。p2參數(shù)是要下載的文件的URL。
p3參數(shù)用于指定該文件下載到本地的路徑和名稱。p4參數(shù)必須設(shè)為0。p5參數(shù)用于指定一個可選的
IBindStatusCallback接口的指針。這個接口用于獲取文件在下載時的附加信息。
  Delphi的IDE可以很方便地把ActiveX控件在Web站點上發(fā)布，要能實現(xiàn)這個功能，必須在編輯ActiveX控件
項目時選擇菜單項Project|Web Deployment Options。該對話框中的各個選項解釋如下：
1. Project頁
  Target Dir框用于指定ActiveX控件要發(fā)布的目標(biāo)路徑。這里假設(shè)能把一個驅(qū)動器映射到Web服務(wù)器上—
Target Dir框中必須輸入一個常規(guī)的或UNC路徑名，其中不應(yīng)當(dāng)有文件名。
  Target URL框用于輸入Target Dir框所指定的路徑的URL。一個合法的URL必須以http://、file://、
ftp://等為前綴。這個框中也不要輸入文件名。
  HTML Dir 框用于指定一個路徑，用于存試生成的HTML文檔。它通常跟Target Dir框中指定的路徑相同。
  use CAB file compression，如果選中了這個選項， OCX文件將以Microsoft Cabinet(CAB)格式壓縮。在
低帶寬的網(wǎng)絡(luò)上，建議選中這個選項。
  Include file version number，這個選項決定生成的HTML文件或INF文件中是否要有版本號。推薦選中這
個選項，它能避免用戶下載已經(jīng)下載過的控件。
  Autoincrement release number，如果選中這個選項，版本信息中的發(fā)布號將自動增大。
  Code sign project，如果有數(shù)字簽名的授權(quán)證書，可以讓IDE自動給ActiveX項目加上數(shù)字簽名。
  Deploy required packages，如果ActiveX項目使用了包，發(fā)布ActiveX項目時會自動包括所需要的包。
  Deploy additional files，如果還需要跟其他文件一起發(fā)布，就選中這個復(fù)選框。
2. Packages頁和Additional Files頁
如果在Project頁上選中了use CAB file compression復(fù)選框，在Packages頁和Additional Files頁上的
CAB Options框中就可以選擇把CAB文件與OCX一起壓縮還是單獨分別壓縮，一般都選擇分別壓縮到各自的
CAB中，這樣能使用戶避免每次都下載所有文件。如果選中Use File VersionInfo 復(fù)選框，發(fā)布引擎將決
定選中的文件是否有版本信息。如果有，在VersionInfo中的版本號將加到INF文件中。Target URL框缺省
地是Project頁中Target URL框中的內(nèi)容，即文件可以被下載的URL，如果ActiveX控件的用戶已經(jīng)安裝了這
個文件，就讓這個框空著。Target Directory編輯框用于指定文件被復(fù)制到服務(wù)器的哪個路徑中。如果文件
已經(jīng)在服務(wù)器中，就讓這個編輯框空著，以避免重復(fù)復(fù)制。
3. Code Signing頁
  Code Signing頁可以用來指定授權(quán)文件和私人密鑰文件。另外還能指定ActiveX控件的名稱、公司的URL、
壓縮算法類型、是否對授權(quán)文件加蓋時間戳。推薦加蓋時間戳，這樣即使授權(quán)文件過期了，簽名仍然有效。
注意：如果在Project頁上的設(shè)置有錯誤，控件在Web頁上出現(xiàn)的時候，在控件的左上角有一個紅色的X。出
現(xiàn)這種情況后，要在HTML文件和INF文件中尋找錯誤，最通常的錯誤是控件的URL不正確。