Delphi 开发ActiveX控件(非ActiveForm)

　　Q：为什么不采用ActiveForm工程？通过它可以快速开发带窗体控件，创建过程也非常简单(都不用考虑安全接口问题)，很省事！

　　A：如果要实现的功能用不上窗口，而一个带窗口的空程序就500多KB，不便于ActiveX的发布，本实现方法可降到100多KB，CAB打包后只有几十KB； 好吧，我承认我有点体积控。

　　

2. 在该工程中新建一个 Automation Object对象

　　

填写类名

　　

3.建一个测试方法(Test)

　　

向导会自动生成相关代码！

注意：

　　如果需要发布到Internet，还需要实现一个IObjectSafety接口，标记脚本是安全的，运行时才不会被IE阻止。如果想在线安装ActiveX控件还需要数字证书签名后才可以。

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^ := ;

pdwEnabledOptions^ := ;

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>

Delphi 开发ActiveX控件(非ActiveForm)的更多相关文章

  1. Delphi 编写ActiveX控件（OCX控件）的知识和样例（有详细步骤）

    一.ActiveX应用情况简介: ActiveX控件也就是一般所说的OCX控件,它是 ActiveX技术的一部分.ActiveX是微软公司推出的基于组件对象模型COM的技术,包括对Windows 32 ...

  2. 用C#开发ActiveX控件，并使用web调用

    入职差不多两个月了,由学生慢慢向职场人做转变,也慢慢的积累知识,不断的更新自己.最近的一个项目里边,涉及到的一些问题,因为SDK提供的只是winform才能使用了,但是有需求咱们必须得完成啊,所以涉及 ...

  3. ATL开发 ActiveX控件的 inf文件模板

    ATL开发 ActiveX控件的 inf文件模板    

  4. 使用C#开发ActiveX控件（新）

    前言 ActiveX控件以前也叫做OLE控件,它是微软IE支持的一种软件组件或对象,可以将其插入到Web页面中,实现在浏览器端执行动态程序功能,以增强浏览器端的动态处理能力.通常ActiveX控件都是 ...

  5. [转]C#开发ActiveX控件,.NET开发OCX控件案例

    引自:百度   http://hi.baidu.com/yanzuoguang/blog/item/fe11974edf52873aaec3ab42.html 讲下什么是ActiveX控件,到底有什么 ...

  6. 使用C#开发ActiveX控件（新） 转 http://www.cnblogs.com/yilin/p/csharp-activex.html

    前言 ActiveX控件以前也叫做OLE控件,它是微软IE支持的一种软件组件或对象,可以将其插入到Web页面中,实现在浏览器端执行动态程序功能,以增强浏览器端的动态处理能力.通常ActiveX控件都是 ...

  7. [转] 使用C#开发ActiveX控件

    双魂人生 原文 使用C#开发ActiveX控件 ActiveX 是一个开放的集成平台,为开发人员.用户和 Web生产商提供了一个快速而简便的在 Internet 和 Intranet 创建程序集成和内 ...

  8. 使用C#开发ActiveX控件 11

    C#开发ActiveX控件   ActiveX 是一个开放的集成平台,为开发人员.用户和 Web生产商提供了一个快速而简便的在 Internet 和 Intranet 创建程序集成和内容的方法. 使用 ...

  9. C#开发ActiveX控件

    昨天写了篇博客<Winform 程序嵌入WPF程序 并发送消息>,没有说明为什么要嵌入WPF程序,那么今天就来唠叨唠叨其中的一个使用场景,开发ActiveX控件 首先,新建一个类库工程Hu ...

随机推荐

  1. Javascript中Json对象与Json字符串互相转换方法汇总(4种转换方式)

    1.Json对象转Json字符串 JSON.stringify(obj); 2.Json字符串传Json对象 JSON.parse(str);//第一种 $.parseJSON(str);//第二种, ...

  2. 解读使用Daisy-chain（菊花链）方式筛选一定范围内素数的代码

    go version go1.11 windows/amd64 本文为解读 参考链接1 中的 菊花链 一节 的示例程序,此程序和 参考链接2 中代码有些类似:前者有范围,后者是无限循环.清楚了 参考链 ...

  3. 关于java中生产者消费者模式的理解

    在说生产者消费者模式之前,我觉得有必要理解一下 Obj.wait(),与Obj.notify()方法.wait()方法是指在持有对象锁的线程调用此方法时,会释放对象锁,同时休眠本线程.notify() ...

  4. 关卡得分（if 嵌套for）与（for嵌套if）

  5. android录音实现不再担心—一个案例帮你解决你的问题

    最近有小伙伴经常android的录音怎么实现,有没有相关的案例.今天给大家推荐一个android中实现录音和播放的小案例. 效果图: 一.实现录音的 Service 关键代码: // 开始录音 pub ...

  6. My Sql控制台命令

    1.连接Mysql 格式: mysql -h主机地址 -u用户名 -p用户密码 1.连接到本机上的MYSQL.首先打开DOS窗口,然后进入目录mysql\bin,再键入命令mysql -u root ...

  7. SPLAY，LCT学习笔记（二）

    能够看到,上一篇的代码中有一段叫做find我没有提到,感觉起来也没有什么用,那么他的存在意义是什么呢? 接下来我们来填一下这个坑 回到我们的主题:NOI 2005维修数列 我们刚刚讨论了区间翻转的操作 ...

  8. easyUI基础入门

    头部需要引人文件:<!DOCTYPE html><html><head> <meta charset="utf-8"> <ti ...

  9. 《转》Java与Http协议

    引言 http(超文本传输协议)是一个基于请求与响应模式的.无状态的.应用层的协议,常基于TCP的连接方式.HTTP协议的主要特点是:     1.支持客户/服务器模式.     2.简单快速:客户向 ...

  10. JavaScriptDom操作与高级应用（八）

    一:Dom操作基础与高级应用 Node接口也定义了一些所有节点类型都包含的属性和方法.