VB调用VC DLL的参数问题：为我的错误回答向受害者致歉。散分。

[jameshooo]

曾经回答过几个相似的问题，那就是VC的DLL导出函数被VB使用时如何申明的问题，本人固执地做出了错误解答，可能让提问者产生困扰，现在向受害者道歉，并纠正答案。

问题示例如下，假设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串的指针传递给函数。

前车之鉴啊，再次致歉，希望大家碰到这类问题时不要再犯错误。

[phisherr]

原来如此

[数据结构与算法学习、智能算法]

好的，学习学习，

[swankie]

mark!

[gaogao1041]

http://www.chinaitpower.com/A/2005-02-02/133329.html


Step by Step: Calling C++ DLLs from VC++ and VB
一步一步教你用VC和VB调用C++ DLL.

[Route66]

不錯，幫助很大，謝謝

[jy04610]

http://d.download.csdn.net/down/491318/yqh2648
真正的大侠风范啊!值得我辈学习!

[紫气东来_999]

这态度,没说的.
贴品好，就是人品好!

[PctGL]

vb 在调用api的之前会对 string 进行转换,这是自动的转换,属于vb自动操作的,将 unicode 转换为 ansi
http://www.vbgood.com/viewthread.php?tid=55275&highlight=

[域樹臨風]

值得学习

[xiongwangmxf]

[Quote=引用 5 楼 thisisyjs 的回复:]
精神可嘉 p f a
[/Quote]
a

[sdgegasdgdrgr]

向楼主学习。

[嗷嗷叫的老马]

记得有句话是这样说的,'有时候经验也是导致错误的一个方面'.

学习一下.

很久没来了.

[biaozai06]

学习

[Tiger_Zhao]

推荐《高级Visual Basic编程》(Advanced Visual Basic)
第14章，读过该章就不会犯类似的错误。

[FFirX]

嗯，这个我也读过一些，不错，学习，谢谢

[oatn]

I'd like you style!

[howard_wu]

JF

[yuziyuedemsdn]

榜样，模范

[liaojihei08S]

全是高手！

[juckxu]

正好用到。万分感谢！