VC的DLL如果通过参数向VB传数据？ - VB / 基础类
我这样写的.
VC DLL部分
size_t *Ep2ReadLen;
extern "C" int _stdcall TestDLL(size_t* iPort2ReadLen)
{
Ep2ReadLen = iPort2ReadLen;
*Ep2ReadLen = 5; //这里
if (Ep2ReadLen)
{
free(Ep2ReadLen);
//Ep2ReadLen=NULL;
}
return 0;
}
VB部分
Declare Function TestDLL Lib "XXX.dll" (ByRef iPort2ReadLen As Integer) As Integer
Dim iPort2ReadLen As Integer
rt = TestDLL(iPort2ReadLen)
编译通过，运行VB程序，调用，能正确返回5。但是在关闭VB程序时,报错。
但在上面的 *Ep2ReadLen = 5; 注释掉后，就不报错了。说明是这行导致的。
我曾考虑是不是VC指针没有释放，所以加上 free(Ep2ReadLen);
但结果仍然一样。
请教各位，错在哪里？
、、、、、、、、、、、、、、、、、
free(Ep2ReadLen);的添加不是我的本意，最先是没有加这行的，但最终关闭VB程序报错后，我增加了这行，结果相同。
我原以为是没有释放指针，导致的报错，但现在看好像又不是 :(
VB好像没有指针？
、、、、、、、、、、、、、、、、、
VB中
我又试了一下
测试一：
Dim iPort2ReadLen As Integer
Private Sub Command1_Click()
iPort2ReadLen = 34
rt = TestDLL(iPort2ReadLen)
MsgBox iPort2ReadLen
End Sub
iPort2ReadLen 作为全局变量，关闭VB窗体时“报错”。
测试二：
Private Sub Command1_Click()
Dim iPort2ReadLen As Integer
相关问答：
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
各位高手，小弟最近碰到一个问题：原先写的程序大概的思路是：首先webbrowser打开网址，网址显示后，点击网址上的某一个连接，当webbrowser检测到网址已经连接到想要的地址时候就开始下载文件，当用IE6的时候下� ......
谁能帮我把下面这些代码改成VB形式的，多谢了，急用~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
挺繁琐，之前发的帖子，分值太低现在重发一个。欢迎各位大侠~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......
