不注册调用ActiveX Dll

2024-04-26 16:58
文章标签 dll 调用 注册 activex

本文主要是介绍不注册调用ActiveX Dll，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

每个ActiveX Dll都应该有个DllGetClassObject函数,利用该函数就可以直接创建所需的com对象,而不需要通过注册表(或者注册),

STDAPI DllGetClassObject(
  REFCLSID rclsid,  //CLSID for the class object
  REFIID riid,      //Reference to the identifier of the interface
                    // that communicates with the class object
  LPVOID * ppv      //Address of output variable that receives the
                    // interface pointer requested in riid
);

    这里必须知道两样东西,一个rclsid,就是需要创建的com对象的CLSID,另一个是 riid,该对象的一个接口的 id.
    然而,调用DllGetClassObject,并不能直接创建所需要的对象,但可以得到对应的 IClassFactory,再由 IClassFactory.CreateInstance得到所需的对象.
vb实现代码大概如下:
    需要用到一个库,http://www.mvps.org/emorcillo/download/vb6/tl_ole.zip
(引用页,http://www.mvps.org/emorcillo/en/code/vb6/wbframe.shtml)
另外,也将那个ActiveX Dll引用进工程,这里,并不是需要注册它,而是为了方便使用它的方法,因为并没有使用new来创建对象,
    程序编译后即使不注册那个Dll文件都能够正常使用.

Option Explicit

'假设ActiveX Dll 的文件名为dllDemo.dll,并且处于工程同一目录
Private Declare Function DllGetClassObject Lib "dllDemo.dll" ( _
    rclsid As UUID, riid As UUID, ByRef ppv As Any) As Long

'class id
Private Const ClsStr_Obj As String = "{C1A334BA-D1A4-48D0-98D5-47FE934961DF}"
'接口id
Private Const IidStr_Ins As String = "{231114D5-E046-4DAE-B192-0AB49D493A85}"

'IClassFactory id
Private Const strIID_IClassFactory As String = "{00000001-0000-0000-C000-000000000046}"

Private ClsId_Obj As UUID
Private Iid_Ins As UUID
Private iid_iunknow As UUID
Private iid_iclassfactory As UUID


Private Sub Command1_Click()
Dim tobj As olelib.IUnknown
Dim tobj2 As dllDemo.IDemo
Dim tFac As olelib.IClassFactory

Call DllGetClassObject(ClsId_Obj, iid_iclassfactory, tFac)

tFac.CreateInstance Nothing, iid_iunknow, tobj
Set tFac = Nothing
Set tobj2 = tobj

'调用IDemo.Test测试所创建的对象
tobj2.Test
End Sub

Private Sub Form_Load()
'将string转换为 UUID
CLSIDFromString ClsStr_Obj, ClsId_Obj
CLSIDFromString IidStr_Ins, Iid_Ins
CLSIDFromString IIDSTR_IUnknown, iid_iunknow
CLSIDFromString strIID_IClassFactory, iid_iclassfactory
End Sub

 

    至此,问题似乎已经解决了,只要为不同的ActiveX Dll编写对应的DllGetClassObject函数就可以了,只是当文件名未定时就比较难办了,例如编写插件时.
    解决办法是用LoadLibrary动态的调用各个dll上的DllGetClassObject.可惜的是vb不支持函数指针.我的办法是借助vc来解决.用vc写dll供vb调用,主要代码如下:

// CrCom.cpp : Defines the entry point for the DLL application.
//

#include "stdafx.h"
#include <unknwn.h>
#include <objbase.h>

typedef int (CALLBACK *MYPROC)(REFCLSID,REFIID,LPVOID *);

BOOL APIENTRY DllMain( HANDLE hModule,
                       DWORD  ul_reason_for_call,
                       LPVOID lpReserved
      )
{
    return TRUE;
}


// if(riid==NULL)riid=&IID_IUnknown
int _stdcall CrComObj(
      LPCSTR lpDll,
      CLSID *rclsid,
      IID *riid,
      LPVOID * ppv)
{
 HINSTANCE hinstLib;
    MYPROC ProcAdd;  

 BOOL fFreeResult, fRunTimeLinkSuccess = FALSE;
 int rtn=0;
 // Get a handle to the DLL module.
 
 
    hinstLib = LoadLibrary(lpDll);
 
    // If the handle is valid, try to get the function address.
 
    if (hinstLib != NULL)
    {   
        ProcAdd =(MYPROC)GetProcAddress(hinstLib, "DllGetClassObject");
 
        // If the function address is valid, call the function.
  
        if (fRunTimeLinkSuccess = (ProcAdd != NULL))
  {  
   if(rclsid==NULL)
   {
    FreeLibrary(hinstLib);
    return 0;
   }
   
   if(riid==NULL)
    riid=(IID *)&IID_IUnknown;

   IClassFactory *pIf;
   pIf=NULL;
            if(ProcAdd(*rclsid,IID_IClassFactory,(void **)&pIf)==S_OK && pIf!=NULL)
   {
    if(pIf->CreateInstance(NULL,*riid,ppv)==S_OK)
     rtn=(int)hinstLib;    
    pIf->Release();
    pIf=NULL;
   }
  }
        // Free the DLL module.
 
        if(!rtn)fFreeResult = FreeLibrary(hinstLib);
    }
 return rtn;
}


// if strriid==NULL, use IID_IUnknown;
int _stdcall CrComObj2(
      LPCSTR lpDll,
      LPCSTR  strrclsid,
      LPCSTR  strriid,
      LPVOID * ppv )
{
 HINSTANCE hinstLib;
    MYPROC ProcAdd;  

 BOOL fFreeResult, fRunTimeLinkSuccess = FALSE;
 
 int rtn=0;
 // Get a handle to the DLL module.
 
 
    hinstLib = LoadLibrary(lpDll);
 
    // If the handle is valid, try to get the function address.
 
    if (hinstLib != NULL)
    {   
        ProcAdd =(MYPROC)GetProcAddress(hinstLib, "DllGetClassObject");
 
        // If the function address is valid, call the function.
 
        if (fRunTimeLinkSuccess = (ProcAdd != NULL))
  {  
   CLSID rclsid;
   IID riid;
   
   if(strrclsid==NULL)
   {
    FreeLibrary(hinstLib);
    return 0;
   }
   CLSIDFromString((LPOLESTR )strrclsid,&rclsid);

   if(strriid!=NULL)
    CLSIDFromString((LPOLESTR )strriid,&riid);
   else
    riid=IID_IUnknown;

   IClassFactory *pIf=NULL;

            if(ProcAdd(rclsid,IID_IClassFactory,(void **)&pIf)==S_OK && pIf!=NULL)
   {
    if(pIf->CreateInstance(NULL,riid,ppv)==S_OK)
     rtn=(int)hinstLib;    
    pIf->Release();
    pIf=NULL;
   }
  }
        // Free the DLL module.
  
        if(!rtn)fFreeResult = FreeLibrary(hinstLib);
    }
 return rtn;
}


在vb中的使用方法,CrComObj传递的是UUID,CrComObj2传递的是String,

'函数声明
Private Declare Function CrComObj Lib "CrCom.dll" ( _
    ByVal lpDll As String, ByVal rclsid As Long, ByVal riid As Long, ByRef ppv As Any) As Long
Private Declare Function CrComObj2 Lib "CrCom.dll" ( _
    ByVal lpDll As String, ByVal strrclsid As Long, ByVal strriid As Long, ByRef ppv As Any) As Long


Dim tobj As olelib.IUnknown
Dim tobj2 As dllDemo.IDemo

hlib = CrComObj(App.Path & "/dllDemo.dll", VarPtr(ClsId_Obj), 0, tobj)
Set tobj2 = tobj
tobj2.Test

'或者

hlib=CrComObj2(App.Path & "/dllDemo.dll", StrPtr(ClsStr_Obj), 0, tobj)
Set tobj2 = tobj
tobj2.Test


    CrComObj与CrComObj2返回的是LoadLibrary的返回值,必要的时候需要用FreeLibrary释放.


后记:
    我的多页面浏览器LE中,也实现了不注册调用ActiveX Dll,我是直接使用了一本书(Advanced Visual Basic)的代码,代码颇长,似乎也挺复杂,原先使用的时候也不明所以然,后来终于搞清楚了,其原理是一样的,但是因为vb不支持函数指针,于是它花了很大力气去处理这个问题.相比而言,我觉得还是借用一下vc比较好,这样的话简捷的多.

 

这篇关于不注册调用ActiveX Dll的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！


http://www.chinasem.cn/article/938134。

相关文章

Java调用C++动态库超详细步骤讲解(附源码)

Java调用C++动态库超详细步骤讲解(附源码)

《Java调用C++动态库超详细步骤讲解(附源码)》C语言因其高效和接近硬件的特性,时常会被用在性能要求较高或者需要直接操作硬件的场合,：本文主要介绍Java调用C++动态库的相关资料,文中通过代... 目录一、直接调用C++库第一步：动态库生成（vs2017+qt5.12.10）第二步：Java调用C++
阅读更多...
在C#中调用Python代码的两种实现方式

在C#中调用Python代码的两种实现方式

《在C#中调用Python代码的两种实现方式》：本文主要介绍在C#中调用Python代码的两种实现方式,具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地方,望不吝赐教... 目录C#调用python代码的方式1. 使用 Python.NET2. 使用外部进程调用 Python 脚本总结C#调
阅读更多...
mss32.dll文件丢失怎么办? 电脑提示mss32.dll丢失的多种修复方法

mss32.dll文件丢失怎么办? 电脑提示mss32.dll丢失的多种修复方法

《mss32.dll文件丢失怎么办?电脑提示mss32.dll丢失的多种修复方法》最近，很多电脑用户可能遇到了mss32.dll文件丢失的问题，导致一些应用程序无法正常启动,那么，如何修复这个问题呢... 在电脑常年累月的使用过程中，偶尔会遇到一些问题令人头疼。像是某个程序尝试运行时，系统突然弹出一个错误提
阅读更多...
电脑提示找不到openal32.dll文件怎么办? openal32.dll丢失完美修复方法

电脑提示找不到openal32.dll文件怎么办? openal32.dll丢失完美修复方法

《电脑提示找不到openal32.dll文件怎么办?openal32.dll丢失完美修复方法》openal32.dll是一种重要的系统文件，当它丢失时，会给我们的电脑带来很大的困扰,很多人都曾经遇到... 在使用电脑过程中，我们常常会遇到一些.dll文件丢失的问题，而openal32.dll的丢失是其中比较
阅读更多...
电脑win32spl.dll文件丢失咋办? win32spl.dll丢失无法连接打印机修复技巧

电脑win32spl.dll文件丢失咋办? win32spl.dll丢失无法连接打印机修复技巧

《电脑win32spl.dll文件丢失咋办?win32spl.dll丢失无法连接打印机修复技巧》电脑突然提示win32spl.dll文件丢失，打印机死活连不上，今天就来给大家详细讲解一下这个问题的解... 不知道大家在使用电脑的时候是否遇到过关于win32spl.dll文件丢失的问题，win32spl.dl
阅读更多...
SpringCloud之LoadBalancer负载均衡服务调用过程

SpringCloud之LoadBalancer负载均衡服务调用过程

《SpringCloud之LoadBalancer负载均衡服务调用过程》：本文主要介绍SpringCloud之LoadBalancer负载均衡服务调用过程,具有很好的参考价值,希望对大家有所帮助,... 目录前言一、LoadBalancer是什么？二、使用步骤1、启动consul2、客户端加入依赖3、以服务
阅读更多...
Vue 调用摄像头扫描条码功能实现代码

Vue 调用摄像头扫描条码功能实现代码

《Vue调用摄像头扫描条码功能实现代码》本文介绍了如何使用Vue.js和jsQR库来实现调用摄像头并扫描条码的功能,通过安装依赖、获取摄像头视频流、解析条码等步骤,实现了从开始扫描到停止扫描的完整流... 目录实现步骤：代码实现1. 安装依赖2. vue 页面代码功能说明注意事项以下是一个基于 Vue.js
阅读更多...
电脑提示msvcp90.dll缺少怎么办? MSVCP90.dll文件丢失的修复方法

电脑提示msvcp90.dll缺少怎么办? MSVCP90.dll文件丢失的修复方法

《电脑提示msvcp90.dll缺少怎么办?MSVCP90.dll文件丢失的修复方法》今天我想和大家分享的主题是关于在使用软件时遇到的一个问题——msvcp90.dll丢失,相信很多老师在使用电脑时... 在计算机使用过程中，可能会遇到 MSVCP90.dll 丢失的问题。MSVCP90.dll 是 Mic
阅读更多...
电脑开机提示krpt.dll丢失怎么解决? krpt.dll文件缺失的多种解决办法

电脑开机提示krpt.dll丢失怎么解决? krpt.dll文件缺失的多种解决办法

《电脑开机提示krpt.dll丢失怎么解决?krpt.dll文件缺失的多种解决办法》krpt.dll是Windows操作系统中的一个动态链接库文件，它对于系统的正常运行起着重要的作用，本文将详细介绍... 在使用 Windows 操作系统的过程中，用户有时会遇到各种错误提示，其中“找不到 krpt.dll”
阅读更多...
电脑报错cxcore100.dll丢失怎么办? 多种免费修复缺失的cxcore100.dll文件的技巧

电脑报错cxcore100.dll丢失怎么办? 多种免费修复缺失的cxcore100.dll文件的技巧

《电脑报错cxcore100.dll丢失怎么办?多种免费修复缺失的cxcore100.dll文件的技巧》你是否也遇到过“由于找不到cxcore100.dll，无法继续执行代码,重新安装程序可能会解... 当电脑报错“cxcore100.dll未找到”时，这通常意味着系统无法找到或加载这编程个必要的动态链接库
阅读更多...

Copyright China编程 23002807@qq.com

沪ICP备2023033072号-2