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>