VB调用VC DLL的参数问题

来源:互联网 发布:ios cell数组赋值 编辑:程序博客网 时间:2024/04/27 23:21

问题示例如下,假设VB中申明一个DLL中的导出函数为:
    Public Declare Function SomeFunc Lib "test.dll" Alias "SomeFunc" (ByVal name As String) As Long
那么VC做的DLL中的导出函数原型是什么?

因为VB中的String都是UNICODE串,本人想当然地认为DLL导出函数应该这样写:
    extern "C" long __stdcall SomeFunc(LPCWSTR name);

这两天搞了一个测试,发现自己错了,VB调用SomeFunc()时得不到正确的结果,最后终于发现原来想当然的东西是错误的,VB在调用DLL或者系统提供的API时,使用的都是ANSI版本的API,也就是说String参数会被自动转换成ANSI串后再作为参数调用API,如果某个串作为返回值,也是返回ANSI串后被VB转换成UNICODE,所以正确答案应该是
    extern "C" long __stdcall SomeFunc(LPCSTR name);

这个问题同时引申出另一个问题,假如某个DLL的导出函数中用的是LPCWSTR作为参数,那么VB使用该函数时该如何申明和使用呢?此时不能再使用String作为参数类型了,应该换一种方式:
    Public Declare Function SomeFunc Lib "test.dll" Alias "SomeFunc" (ByVal name As Long) As Long
注意这里申明的参数类型不再是String,而是Long,其实代表一个指针的值。使用的时候也需要一点技巧:
    Dim name As String = "hello world"
    SomeFunc(StrPtr(name))
不能直接用name作为参数,而是要用StrPtr(name)获取UNICODE串的指针传递给函数。

原创粉丝点击