VB调用VC dll的返回方式

第一种类型：数值传递
注意：在VB中，默认变量传递方式为ByRef为地址，而传递值就是用ByVal，还要注意在C++中，
int类型的变量是32位的，在VB中要用long型变量来配合。
VC++部分：

extern "C" _declspec(dllexport) int __stdcall TestCalc(int source)
{
    //AFX_MANAGE_STATE(AfxGetStaticModuleState());
    return(++source);
}

.def文件
EXPORTS TestCalc

 

 

VB部分
声明：

Private Declare Function TestCalc Lib "Dll.dll" (ByVal Source As Long) As Long

调用：

Dim Tint As Long
Tint = TestCalc(45)
MsgBox Tint, vbExclamation

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

 

 

VC++部分：

extern "C" _declspec(dllexport) int __stdcall MidStr(CHAR * src,CHAR * dest)
{
    //AFX_MANAGE_STATE(AfxGetStaticModuleState());
    strcpy(dest,src+1);
    return 0;
}

.def文件
EXPORTS MidStr

 

VB部分：
声明：

Private Declare Function MidStr Lib "Dll.dll" (ByVal src As String, ByVal dest As String) As Long

调用：

Dim i As Long, s As String * 255
tempstr = "Hello!World"
i = MidStr(tempstr, s)  或者 i = MidStr("Hello!World", s)
MsgBox s, vbExclamation

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

 

VC++部分：

extern "C" _declspec(dllexport) int __stdcall TestByte(BYTE *p,int *length)
{
    //AFX_MANAGE_STATE(AfxGetStaticModuleState());
    *p=45;
    *(p+1)=46;
    *length=2;
    return 0;
}

.def文件
EXPORTS TestByte

VB部分
声明：

Private Declare Function TestByte Lib "Dll.dll" (ByRef src As Any, ByRef length As Long) As Long

调用：

Dim a(0 To 10) As Byte
Dim i As Integer, length As Long
i = TestByte(a(0), length)
MsgBox a(0) & " " & a(1) & vbCrLf & length, vbExclamation

第四种类型：传递字符串数组 
    
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

 

Sub StringArrayTest()
      Dim s()     As String

        tmp = StringArray(s)
        Debug.Print s(0)
End Sub

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函数原形：

extern "C" BOOL __stdcall ShowVBStrArray(VARIANT VBpStrArray)
{
SAFEARRAY FAR *pStrArrTemp = NULL;
long LBound;
long UBound;
BSTR HUGEP *pbstr;
CString strtemp;
if(V_VT(&VBpStrArray) != (VT_ARRAY | VT_BSTR))//判断是否为字符数组
return FALSE;
pStrArrTemp = V_ARRAY(&VBpStrArray);
if (SafeArrayGetDim(pStrArrTemp)!=1)//判断是否为一维数组
return FALSE;
SafeArrayGetLBound(pStrArrTemp,1,&LBound);
SafeArrayGetUBound(pStrArrTemp,1,&UBound);
SafeArrayAccessData(pStrArrTemp, (void HUGEP* FAR*)&pbstr);
for (int i=0;i<(UBound-LBound)+1;i++)
strtemp+=LPWSTR(pbstr);
MessageBox( 0,strtemp,"结果",MB_OK);
SafeArrayUnaccessData(pStrArrTemp);
return TRUE;
}

在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