How to invoke active dll written by VB using VC - VC如何调用VB写的Active Dll - 详解

Visual Basic 6 同时被 3 个专栏收录
13 篇文章 0 订阅
97 篇文章 0 订阅
89 篇文章 0 订阅

零、VB Dll:prjCOMWriteNTLog.clsMain 代码,此程序只有一个Class
 
 Option Explicit

 Public Function WriteNTLog(ByVal strMsg As String)
         
     With App
      
         .StartLogging "c:/log.log", LogModeConstants.vbLogToNT
        
         .LogEvent strMsg, LogEventTypeConstants.vbLogEventTypeInformation
        
     End With
         
 End Function
 
一、在:CWinApp::InitInstance 函数中用AfxOleInit初始化 COM
 
 if (!AfxOleInit())
 {
  AfxMessageBox("AfxOleInit Failed!");
  return FALSE;
 }
 
 
二、用 #Import 引入你所要调用的 Dll
 
 #import "G:/C++ Projects/prjADOTest/res/prjCOMWriteNTLog.dll" no_namespace
 
 //Notice:这句话输入完毕后,VC就会在:程序生成目录中(Debug/Release)自动产生两个文件:
 //  prjCOMWriteNTLog.tlh
 //  prjCOMWriteNTLog.tli

 

三、定义、创建:你要调用的Dll中的对象(Class)
 
 _clsMainPtr clsWriteLog;

 clsWriteLog.CreateInstance(__uuidof(clsMain));

 

四、使用 你要调用的Dll中的对象中的函数

 

 clsWriteLog->WriteNTLog("Jackiessssssssssssssssss");

 

五、It need the import dll support when the vc program runing .

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 打赏
    打赏
  • 扫一扫,分享海报

参与评论 您还未登录,请先 登录 后发表或查看评论
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页

打赏作者

HackerJLY

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值