Delphi 開發ActiveX控件(非ActiveForm)

時間 2019-11-10

標籤 delphi 開發 activex 控件 activeform 欄目 Delphi 简体版

原文原文鏈接

Delphi 開發ActiveX控件(非ActiveForm)

　　Q：爲何不採用ActiveForm工程？經過它能夠快速開發帶窗體控件，建立過程也很是簡單(都不用考慮安全接口問題)，很省事！html

　　A：若是要實現的功能用不上窗口，而一個帶窗口的空程序就500多KB，不便於ActiveX的發佈，本實現方法可降到100多KB，CAB打包後只有幾十KB；好吧，我認可我有點體積控。安全

2. 在該工程中新建一個 Automation Object對象

填寫類名ide

3.建一個測試方法(Test)

嚮導會自動生成相關代碼！測試

注意：

　　若是須要發佈到Internet，還須要實現一個IObjectSafety接口，標記腳本是安全的，運行時纔不會被IE阻止。若是想在線安裝ActiveX控件還須要數字證書籤名後才能夠。spa

代碼：

?code

1orm

2htm

3對象

4接口

{

* created by HouSoft

* 2011/11/18

}

unit AXDemo_u;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses

ComObj, ActiveX, AXDemo_TLB, StdVcl,

Windows;

type

TAXDemoCtrl = class(TAutoObject, IAXDemoCtrl, IObjectSafety)

FObjectSafetyFlags: DWORD;

{ 實現IObjectSafety 接口用於將控件標記爲安全，不然IE加載時可能會被阻止！}

function GetInterfaceSafetyOptions(const IID: TIID; pdwSupportedOptions,

pdwEnabledOptions: PDWORD): HResult; stdcall;

function SetInterfaceSafetyOptions(const IID: TIID; dwOptionSetMask,

dwEnabledOptions: DWORD): HResult; stdcall;

protected

procedure Test(const Msg: WideString); safecall;

implementation

uses ComServ;

function TAXDemoCtrl.GetInterfaceSafetyOptions(const IID: TIID;

pdwSupportedOptions, pdwEnabledOptions: PDWORD): HResult;

var

Unk : IUnknown;

begin

if (pdwSupportedOptions = nil) or (pdwEnabledOptions = nil) then

Result := E_POINTER;

Result := QueryInterface(IID, Unk);

if Result = S_OK then

pdwSupportedOptions^ := INTERFACESAFE_FOR_UNTRUSTED_CALLER or

INTERFACESAFE_FOR_UNTRUSTED_DATA;

pdwEnabledOptions^ := FObjectSafetyFlags and

(INTERFACESAFE_FOR_UNTRUSTED_CALLER or INTERFACESAFE_FOR_UNTRUSTED_DATA);

pdwSupportedOptions^ := 0;

pdwEnabledOptions^ := 0;

function TAXDemoCtrl.SetInterfaceSafetyOptions(const IID: TIID;

dwOptionSetMask, dwEnabledOptions: DWORD): HResult;

var

Unk : IUnknown;

begin

Result := QueryInterface(IID, Unk);

if Result <> S_OK then

FObjectSafetyFlags := dwEnabledOptions and dwOptionSetMask;

procedure TAXDemoCtrl.Test(const Msg: WideString);

begin

MessageBox(GetActiveWindow,

PChar(string(Msg)),

initialization

TAutoObjectFactory.Create(ComServer, TAXDemoCtrl, Class_AXDemoCtrl,

ciMultiInstance, tmApartment);

部署測試：

<html> <head> <title>ActiveX Test Page</title> </head> <H1>ActiveX Test Page</H1> <hr> <p> <body> <object classid="clsid:C7C16439-AFF0-48A4-A22D-4655400FC4BE" codebase="AXDemo.cab#version=1,0,0,0"> </object> <script> functiontry'Hello World!'catch'ActiveX測試失敗!\r\n'+</script>