Delphi中使用ActiveX的一些心得

原创 2006年05月30日 15:00:00
  使用方法分为两种:
一、直接把可视化的ActiveX控件放到程序中;
二、运行时根据需要实时建立。
  如果是直接使用,则应用程序在初始化的过程中会自动寻找、创建所需的ActiveX控件,如果控件没有注册,初始化程序会产生一个异常,捕捉并处理这个异常。
在程序Form中加入一个新的方法:
unit UAutoRegActiveX; 
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComObj; //加入ComObj单元
type
  TAutoRegActiveXFrm = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    { Public declarations }
    procedure CheckException(Sender: TObject; EAbort: Exception);
  end;
var
  AutoRegActiveXFrm: TAutoRegActiveXFrm;
implementation
{$R *.dfm}
{-------------------------------------------------
标准ActiveX控件中,有两个函数DLLRegisterServer 、DLLUnRegisterServer可调用,
其中函数用于注册控件,用于卸载控件。我们可用LoadLibrary装载DLL/OCX文件,用
GetProcAddress获取DLLRegisterServer和DLLUnRegisterServer两个函数的指针,然
后再直接运行这两个函数即可实现注册和卸载ActiveX控件的操作,从而代替Windows
系统的RegSvr32.exe实现ActiveX控件的注册和卸载。
--------------------------------------------------}
{-------------------------------------------------
参数说明:
sOleFileName 一个DLL或OCX文件名;
OleAction 表示注册操作类型:1表示注册,0表示卸载
返回值:True表示操作执行成功,False表示操作执行失败
--------------------------------------------------}
function OLERegister(sOleFileName: String; OleAction: Byte):Boolean;
const
  RegisterOle = 1; //注册
  UnRegisterOle = 0; //卸载
type
  TOleRegisterFunction = function: HResult; //注册或卸载函数原型
var
  hLibraryHandle: THandle; //由LoadLibray返回的DLL或OCX句柄
  hFunctionAddress: TFarProc; //DLL或OCX中的函数句柄,由GetProAddress返回
  RegFunction: TOleRegisterFunction; //注册或卸载函数指针
begin
  Result := False;
  //打开文件,返回DLL或OCX句柄
  hLibraryhandle := LoadLibrary(PChar(SOleFileName));
  if (hLibraryHandle > 0) then //DLLakg OCX句柄正确
  try
    //返回注册或卸载函数指针
    if (OleAction = RegisterOle) then  //返回注册函数指针
      hFunctionAddress := GetProcAddress(hLibraryhandle,PChar('DLLRegisterServer'))
    else //返回卸载函数指针
      hFunctionAddress := GetProcAddress(hLibraryhandle,PChar('DLLUnRegisterServer'));
    if (hFunctionAddress <> nil) then //判断注册或卸载函数是否存在
    begin
      RegFunction := TOleRegisterFunction(hFunctionAddress); //获取操作函数的指针
      if RegFunction >=0 then  //执行注册或卸载操作,返回值>=0表示执行成功
        Result := True;
    end;
  finally
    FreeLibrary(hLibraryHandle); //关闭已打开的文件
  end;
end;
{ TAutoRegActiveXFrm }
procedure TAutoRegActiveXFrm.CheckException(Sender: TObject;
  EAbort: Exception);
begin
  if EAbort is EOleSysError then
  begin
    if HResult(EOleSysError(EAbort).ErrorCode) = REGDB_E_CLASSNOTREG then
      OleRegister('D:/Flash.ocx',1);
  end
  else
    Application.ShowException(EAbort);
end;
//将CheckException方法赋值给系统Application变量,在主Form的OnCreate事件中。
procedure TAutoRegActiveXFrm.FormCreate(Sender: TObject);
var
  DemoOcx: Variant; //变量声明
begin
  Application.OnException := CheckException;
  //是否产生类名称字符串错误
  try
    DemoOcx := CreateOleObject('Demo.Demo');
  except
    on EAbort:EOleSysError do
    if HResult(EAbort.ErrorCode) = CO_E_CLASSSTRING then
    begin
      if OleRegister('D:/Flash.ocx',1) then
        DemoOcx := CreateOleObject('Demo.Demo')
      else
      begin
        Application.MessageBox('控件注册失败,程序将无法正常运行',PChar('注册控件'),MB_OK+MB_ICONERROR);
        Application.Terminate;
      end;
    end;
  end;
end;
第二种方法:有时用到的*.OCX会用到很多DLL所以,这个时候如果,我们还是按照上面的方法去做,是比较麻烦的,所以我建议用一下方法:
1. 首先找到*.OCX所需要的DLL文件;
2. 把所有文件拷贝到程序所在目录下;
3. 在程序初始化段中写如下代码:
winexec(pchar('regsvr32.exe -s'+getcurrentdir()+'/vcf132.ocx'),sw_show);
   实际上我们只是把原来在MS-DOS手动安装的步骤放到程序里面做,
注意这里注册只要注册vcf132.ocx即可;

Delphi下的COM接口編程(ActiveX Library)

在較早的時候,我的博客里已經有關于COM編程的有關知識(http://hi.baidu.com/yueyun889/blog/item/53ad2c1208b6f950f919b8ee.html),不...
  • lailai186
  • lailai186
  • 2012年11月16日 14:18
  • 2985

delphi中ActiveX 和 Web

http://book.77169.com/data/web5302/20050228/20050228__3692503.htmlActiveX 和 Web在Windows 操作系统下,有一个重要的...
  • leixg
  • leixg
  • 2010年05月13日 16:42
  • 3728

Activex和javaScript结合使用

http://download1.csdn.net/down3/20070613/13093058219.rar由于项目的需要,将一组事务封装成Activex控件(使用传统的delphi),总结来前人...
  • liuzuofei
  • liuzuofei
  • 2007年06月13日 09:31
  • 982

delphi开发activexObject传递参数的两种方法:

本来要和delphi说再见了,没想到今天还会用到它,这个给无数程序员带来欢乐和泪水的工具,有了你,程序员的世界多彩多资! delphi开发activexObject传递参数有两种方法: 1,在定义的方...
  • c_huabo
  • c_huabo
  • 2015年09月08日 14:55
  • 1236

Delphi2007 下安装ActiveX控件

此英文文章来自codegear官方网站,但是是讲在BDS2006 下如何安装,我在delphi 2007下用此方法,一样通过,原文如下 Description:How to import an Act...
  • lee576
  • lee576
  • 2007年09月03日 19:44
  • 3872

activex和javascript交互(delphi版本)

利用Delphi的ActiveForm,可以很方便地开发出可以嵌入IE的ActiveX组件,无需知道太多幕后的COM知识。如何使得OCX可以很方便地调用Web上的JavaScript函数呢,研究了一个...
  • w809026418
  • w809026418
  • 2011年04月18日 14:22
  • 3316

delphi实现web activex控件

目前在做一个项目,开发一个控件供给web使用,第一次开发Delphi ActiveX,记录开发过程。1、新建一个ActiveX Library工程。2、接着新建一个Type Library。3、现在新...
  • justit
  • justit
  • 2008年12月16日 15:51
  • 893

图解在DELPHI6中调试ACTIVEX

在WEB页面中会应用到DELPHI6开发的ACTIVEX组件,调试ACTIVEX步骤step by step,follow me:1)编译ActiveX项目,保证组件无错。2)注册ActiveX组件,...
  • aquadp
  • aquadp
  • 2008年04月08日 22:00
  • 660

Delphi中彻底卸载ActiveX控件的方法(该方法同样适用于CBuilder)

最近为了做一个项目,尝试了很多皮肤控件,其中一个使用ocx。尝试完后希望能够彻底删除,可是从component->import ActiveX Control中删除后再ActiveX标签中还是能够找到...
  • binnygoal
  • binnygoal
  • 2014年04月07日 16:28
  • 2305

cadence 心得

1 orcad转换为cadence的时候电源网络或者其它NET不显示,仅仅高亮在ORCAD 或者cadence PCB环境中取消no_rat属性即可2 orcad做的元件封装,一定不要重名,特别是GN...
  • Baiduluckyboy
  • Baiduluckyboy
  • 2010年12月03日 11:55
  • 1291
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi中使用ActiveX的一些心得
举报原因:
原因补充:

(最多只允许输入30个字)