VB调用VC dll的返回方式-白红宇

VB调用VC dll的返回方式

阅读量：509 次

发布时间：2019-03-07

本文共 5273 字，大约阅读时间需要 17 分钟。

第一种类型：数值传递

注意：在VB中，默认变量传递方式为ByRef为地址，而传递值就是用ByVal，还要注意在C++中，

int类型的变量是32位的，在VB中要用long型变量来配合。

VC++部分：

.def文件

EXPORTS TestCalc

VB部分

声明：

调用：

第二种类型：传递字符串，主要用于字符串返回或者处理。

VC++部分：

.def文件

EXPORTS MidStr

VB部分：

声明：

调用：

第三种类型：传递数组和变量指针，主要用于从dll中读出大量数据

VC++部分：

.def文件

EXPORTS TestByte

VB部分

声明：

调用：

第四种类型：传递字符串数组

1、VB TO VC :

VC部分：

extern "C" _declspec(dllexport) int WINAPI StringArray(LPSAFEARRAY *VbArray)        {            DWORD i;            BSTR bSTR;    // UNICODE 字符串            LPSAFEARRAY pSa;            SAFEARRAYBOUND iBound;                   char *arry[10];                       for(i = 0;i < 10;i++)            {                arry[i] = "A";            }                   iBound.lLbound = 0;    // 数组起始位            iBound.cElements = 10;    // 数据长度                       // SafeArray描述符            if (*VbArray == NULL)            {                if ((pSa = SafeArrayCreate(VT_BSTR,1,&iBound)) == NULL)  // 创建SafeArray描述符                {                    return FALSE;                }                *VbArray = pSa;                // 返回SafeArray描述符            }            else             {                 if ((*VbArray)->cDims != 1)        // 释放为一维数组                          return FALSE;                 }                    for (i = iBound.lLbound;i < iBound.cElements;i++)            {                bSTR = SysAllocString((BSTR)arry[i]);                               //     if(FAILED(safeArrayGetElement(*VbArray,(long*)&i,&bSTR))) // 从VbArray数组读取数据                //{                //    return FALSE;                //}                // 放数组元素到VbArray数组                               if(FAILED(safeArrayPutElement(*VbArray,(long*)&i,bSTR)))                {                    return FALSE;                }                SysFreeString(bSTR); // 释放空间                   }            return 1;        }

VB 部分：

声明：

Public Declare Function StringArray Lib "xxx.DLL" (byval s() As String) As Integer

2、VB TO VC

VB的字符串数组是由BSTR组成的SafeArray类型，所以VB里DLL函数如此声明：

Private Declare FunctionMyFun Lib "MyDll" (ByVal strarr As Variant) As Long

建立MFC DLL工程，名为 ShowVBStrArr 编译生成 ShowVBStrArr.DLL

DLL函数原形：

在DLL工程的def文件里编辑如下：

EXPORTS

ShowVBStrArray

VB源码：

Option Explicit

Private Declare Function ShowVBStrArray Lib "xxx.dll" (ByVal pstr As Variant) As Long

Private Sub Command1_Click()

Dim prompt(1) As String

prompt(0) = "Hello"

prompt(1) = "World"

ShowVBStrArray prompt

End Sub

第五种传结构体

由于需要根据需求向DLL中传入多种值或者需要从DLL中返回多种数据，都可以传结构体，不过得注意VB和VC的类型对应。具体操作如下：VC部分：

声明：

extern "C" _declspec(dllexport) BOOL WINAPI cPowerAlarm(PowerAlarm* tagPower,PowerResult* tagResult)

结构体定义：

// 电源报警模块参数结构体typedef struct tagPowerAlarm{ char* strSIM; // SIM 卡号 char* cStartTime; // 开始时间 char* cEndTime; // 终止时间}PowerAlarm;// 电源报警模块返回结果结构体typedef struct tagPowerResult{ char cResultCH[20]; // 充电情况判断 char cResultQuality[20]; // 电池品质判断 char cResultHV[20]; // 过充判断 char cResultLV[20]; // 欠压判断 }PowerResult;

VB部分：

声明：

Public Declare Function cPowerAlarm Lib "DataDiagnose.DLL" (ByRef myPower As h_PowerAlarm, ByRef myPowerResult As h_PowerResult) As Integer

结构体定义：

' 电源报警模块参数结构体Public Type h_PowerAlarm strSIM As String ' SIM 卡号 strStartTime As String ' 开始时间 strEndTime As String ' 终止时间End Type' 电源报警模块返回结果结构体Public Type h_PowerResult strResultCH As String * 20 ' 充电情况判断 strResultQuality As String * 20 ' 电池品质判断 strResultHV As String * 20 ' 过充判断 strResultLV As String * 20 ' 欠压判断End Type

如果有问题及建议，欢迎关注微信公众号：

你可能感兴趣的文章