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. python的开发环境配置-Eclipse-PyDev插件安装

    安装PyDev插件的两种安装方法: 1.百度搜索PyDev 2.4.0.zip,下载后解压,得到Plugins和Feature文件夹,复制两文件夹到Eclipse目录,覆盖即可. 插件的版本要对应py ...

  2. hdu 1240 3维迷宫 求起点到终点的步数 (BFS)

    题意,给出一个N,这是这个三空间的大小,然后给出所有面的状况O为空地,X为墙,再给出起始点的三维坐标和终点的坐标,输出到达的步数 比较坑 z是x,x是y,y是z,Sample InputSTART 1 ...

  3. #13【BZOJ2794】[Poi2012]Cloakroom

    题解: 感觉真是很智障..连这么简单的题都没想出来 一直在想这么做动态背包..发现不会 首先显然我们将询问按照m 序列按照a[i]排序 然后怎么满足b呢 其实很简单啊..只需要记录f[i]表示前面这些 ...

  4. [NOI2012]随机数生成器

    题解: 很显然是一道矩阵优化dp 然而表示我很智障地把式子一个个带入 然后就发现了为什么会有那些部分分(大概用扩欧是70吧) 注意用矩阵计算的时候要用快速乘(当然想写高精那也随便,时间无限宽裕) 代码 ...

  5. 虚树------sdoi2011<消耗战>

    卡着时间过得,大概是因为全用了ll,时间涨了一倍吧?? 懒得改了,第一道虚树还是思路比较重要 下面这段文字是复制来的: 给出一棵树. 每次询问选择一些点,求一些东西.这些东西的特点是,许多未选择的点可 ...

  6. C#对Windows文件/文件夹/目录的一些操作总结

    1.   在一个目录下创建一个文件夹 if (!System.IO.Directory.Exists(path)) System.IO.Directory.CreateDirectory(path); ...

  7. Unity 脚本中的主要函数的 执行顺序及其介绍

    Awake ->OnEable-> Start -> FixedUpdate-> Update  -> LateUpdate ->OnGUI ->OnDisa ...

  8. linux SSH免密码登录远程服务器

    背景:无密码登录,所谓的无密码登录其实是指通过证书认证的方式登录,使用一种‘公私钥’认证的方式来进行ssh登录 在linux系统中,ssh是远程登录的默认工具,因为该工具的协议使用了RSA/DSA的加 ...

  9. POJ 3903 Stock Exchange 【最长上升子序列】模板题

    <题目链接> 题目大意: 裸的DP最长上升子序列,给你一段序列,求其最长上升子序列的长度,n^2的dp朴素算法过不了,这里用的是nlogn的算法,用了二分查找. O(nlogn)算法 #i ...

  10. Linux学习之常用权限管理命令(二)

    (一)常用权限管理命令 (1)chmod命令 (2)chown (3)chgrp (4)umask (一)常用权限管理命令 (1)chmod命令 命令名称:chmod命令英文原意:change the ...