VB VC混合编程疑难问题解

　　我们在编写Visual Basic应用程序的时候常常需要自己动手编写一些库函数或ActiveX控件，而这些函数或者控件常常采用VC 语言来写，因而也常为VB和VC两种语言之间不同参数类型、内存空间使用方法等问题为难，怎么做好呢？本文介绍了在VB和VC混合编程的情况下对这些问题的解决方法。

　　一、自定义类型参数向DLL库函数的传递

　　用VB, VC 进行混合编程时，通常需要在VB中调用VC 编写的DLL库函数，这时，一般都要遇到向库函数传递参数的问题。对于标准类型(如Double, Long等)参数，其传递比较简单，只要保证了VB中对库函数的声明和VC 中对库函数的定义在参数类型、次序和传递方式上的一致性，参数就不会被错误传递。但是，如果需要向库函数传递自定义类型的参数，情况就会变得复杂了。

　　情况一：自定义类型的所有成员变量都是同一种类型(例如下面的Pens自定义类型，其成员都为Long型)。
Type Pens
　 RedPenNum As Long
　 GreenPenNum As Long
　 B1uePenNum As Long
End Type
　　 这时，只要在VB和VC 中对该结构采用相同的定义，并充分注意到VB和VC 对某些数据类型(如32，位操作系统下，VC 中的int和VB中的Integer)存储上的差异，就不会发生参数传递错误。

　　情况二：自定义类型中成员变量的类型不完全一致。这时，又要区分两种情况：

　　情况(1)没有Double型成员变量。

　　这时一般也不会出现参数的传递错误。

　　情况(2)含有Double型成员变量。

　　这时参数通常就会被误传。比如传递下面的Person类型的参数到VC 开发的DLL库函数，Double型成员Height的值就会在传递中丢失：
Type Person
Age As Long
Height As Double
End Type
　　 造成Height值丢失的原因是由于在VC 中存储Person型变量时，将自动在Long型成员Age和Double型成员Height之间插入若干字节的分隔空间，而VB则不会。所以，VC 中存储一个Person型变量需要的内存要多于12字节，而VB只需要12个。因此，从VB传入DLL库函数的Person型变量就不能被正确接收。

　　解决这一问题的方法有多种，这里介绍一种比较简便和普适的，称之为“引入补位成员法”:在Person这种自定义类型中引入若干个内存补位成员，使得任一个Double型成员之前的所有成员占用的字节总数都是单个Double型变量所占字节数的整数倍(8的整数倍)。

　　仍以Person类型为例，由于Age成员占用4字节内存，所以要在其后引入一个占用4字节的补位成员，不妨引入一个String型的成员Tempst：
Type Person
　 Age As Long
　 Tempst As String*4
　 Height As Double
End Type
　　 于是，Double型成员Height之前的所有成员占用的内存总数变成了8个字节，是8的整数倍。此时，将DLL库函数中对Person的定义作同样的修改后，就可以正确接收从VB传来的Person型参数了。

　　注意：引入补位成员时，不但要合理分配其占用的字节数，而且要正确安排其在结构体中的位置，二者缺一不可。上例中，若把补位成员放在Height之后， Doubl型变量Height之前的所有成员占用的字节总数仍然是4，不是8的整数倍。

　　在自己编写DLL库函数时，往往会在函数接口处使用复杂的自定义结构。在VB中调用这种函数时，采用“引入补位成员法”适当修改结构体的定义，就可以有效地避免参数传递上的错误。

　　二、使用在VC 中动态申请的内存

　　混合语言编程时，有时需要在VB代码中使用通过VC 动态申请到的内存。这时，可以通过下述方法实现：

　　1) VC 中申请动态内存的DLL库函数
char* APIENTRY CreateStringBuffer(long Length)
{
char* bufV;//假设需要申请用以存放字符申的动态内存
buf=(char*)::malloc(Length);
return buf;//返回字符串指针，其实就是一个long型数
}
　　 2) VB中接收动态内存指针的代码
......
Declare Function CreateStringBuffer Lib "C:\DLLTest\Test.dll" _
(By Val Length As Long) As Long
'Long型变t接收动态内存指针
......
Dim slBuffer&
atBuffer = CreateStringBuffer (20)
'申请一块可存放20个字符的内存，得到指向该内存的指针
......
'使用该动态内存
......
　　 注意：VB中使用完动态内存后，为了避免内存泄漏二要将其指针传回VC 进行内存释放工作。

　　三、自定义类型参数向ActiveX控件的传递

　　在编写VB程序时，如果使用的是标准ActiveX控件，那么一般不需要向控件传递自定义类型的参数，因为大多数控件的大多数属性都是标准类型(如Double,Long)的。但是，在混合语言编程中，当我们采用VC 中的ATL3.0模板(而不是VB)自行开发ActiveX控件时，往往希望能够向控件的某些属性或方法传递自定 义类型的参数，以提高参数的传递效率。

　　这里介绍一种向控件传递自定义类型参数的简便方法。假设要以VB为客户端开发一个ActiveX控件AX，它有一个Student属性，类型是自定义结构Person：
Type Person
　 Age As Long
　 Height As Double
End Type
　　 第一，正确编写Student属性的接口函数(以用ATL3.0 模板开发AX为例)。我们将Student属性存取函数的接口参数类型写成一个long型的指针，而不再是BSTR。因为ActiveX内部的通信全部基于Unicode基础之上，所以，这样处理会避免由于字符集不匹配而造成的参数误传。相关的代码如下：

　　1) AX.idl中对Student属性的定义
[propget,id(0),helpstring("property Student")] HRESULT
Student([out,retval] long* pVal);
[propput,id(0),helpstring("property Student")] HRESULT
Student([in] long newVal);
　　 2) AX.h中对Student属性存取函数的定义
STDMETHOD(get_Student)(/*[out, retval]*/ long *pVal);
STDMETHOD(put_Student)(/*[in]*/ long newVal);
　　 3) AXcpp中对Student属性存取函数的实现
STDMETHODIMP CAX::get_Student(long *pVal)
{
// TODD: Add your implementation code here

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有