VB 调用VC写的dll的有关问题,请高手帮忙
VB 调用VC写的dll的问题,请高手帮忙!
Debug error!
Program: C:\Program Files\Microsoft Visual Studio\VB98\vb6.exe
abnormal program termination
然后VB就自动关闭了,我实在没辙了,各位大侠能不能帮我看看啊,下面是VC的dll中我调用的函数以及VB中的声明.
VC:
int __stdcall Start(const LPCTSTR CfgPath)
VB声明语句:
Private Declare Function Start Lib "VcleD" (ByVal CfgFile As String) As Long
VB调用语句
Dim iRet As Long
iRet = Start(App.Path)
------解决方案--------------------
AfxEnableControlContainer(); 前面加一句 CoInitialize(NULL);
并把vc dll的编码方式改为非Unicode 或者是vb传参数的时候传unicode的字符串
另 "const LPCTSTR CfgPath" 把 const 去掉. LPCTSTR 就已经是const了
Debug error!
Program: C:\Program Files\Microsoft Visual Studio\VB98\vb6.exe
abnormal program termination
然后VB就自动关闭了,我实在没辙了,各位大侠能不能帮我看看啊,下面是VC的dll中我调用的函数以及VB中的声明.
VC:
int __stdcall Start(const LPCTSTR CfgPath)
VB声明语句:
Private Declare Function Start Lib "VcleD" (ByVal CfgFile As String) As Long
VB调用语句
Dim iRet As Long
iRet = Start(App.Path)
------解决方案--------------------
AfxEnableControlContainer(); 前面加一句 CoInitialize(NULL);
并把vc dll的编码方式改为非Unicode 或者是vb传参数的时候传unicode的字符串
另 "const LPCTSTR CfgPath" 把 const 去掉. LPCTSTR 就已经是const了