简单的DLL建立问题(在线等待）

[rbird]

我想使用VB调用VC建立的动态链接库。
例如：我想用VC建立一个DLL,返回一个int形值，string值，和一个结构。
vb能接收到。
能不能给我上面说的简单的示例呢？具体在c函数里。直接返回常量就行了。我主要想知道调用的方法。谢谢！
我知道VC里有一个向导，入口函数为
BOOL APIENTRY DllMain( HANDLE hModule,
DWORD ul_reason_for_call,
LPVOID lpReserved
)
{
return TRUE;
}

但具体该怎么写呢？

[rbird]

我想使用VB调用VC建立的动态链接库。
例如：我想用VC建立一个DLL,返回一个int形值，string值，和一个结构。
vb能接收到。
能不能给我上面说的简单的示例呢？具体在c函数里。直接返回常量就行了。我主要想知道调用的方法。谢谢！
我知道VC里有一个向导，入口函数为
BOOL APIENTRY DllMain( HANDLE hModule,
DWORD ul_reason_for_call,
LPVOID lpReserved
)
{
return TRUE;
}

但具体该怎么写呢？

[qing_li73]

See the sample below, FYI:

http://www.codeproject.com/dll/ctovbarray_passing.asp

[shesh]

直接用VC的工程生成模板就行.

[rbird]

谢谢，只不过是英文的。只有慢慢看了。
不知道还有中文的吗？

[wuxuan]

see this,can help you:
http://www.codeproject.com/useritems/DLL.asp
http://www.codeproject.com/useritems/dll_calling.asp

[NowCan]

这个，应该到书店去找找。

[zswzwy]

网上有的是去找找吧

[功名半纸]

typedef struct
{
short i;
BSTR str;
} ARG;

extern "C" BOOL __stdcall ExpFun(int * iRet,BSTR * bstrRet,ARG * argRet)
{
BSTR *pbstrTemp;
*iRet = 12;

if (*bstrRet== NULL)
{
*bstrRet= SysAllocStringByteLen("Hello World!", sizeof("Hello World!"));
if (*bstrRet== NULL)
return -2;
}
else
{
*pbstrTemp = SysAllocStringByteLen("Hello World!", sizeof("Hello World!"));
// Did it fail?
if (pbstrTemp == NULL)
return -3;

SysFreeString(*bstrRet);
*bstrRet= *pbstrTemp;
}
BSTR bstr;

if (argRet== NULL)
return -1;

if ((bstr = SysAllocString((BSTR)szArg)) == NULL)
return -1;

if (argRet->bstr != NULL) // string is already assigned
SysFreeString(argRet->bstr);

argRet->i = SysStringByteLen(bstr);
argRet->bstr = bstr;

return 1;
}

[zhang865]

类的导出我没有做过，不过其他的很简单了，要例子的话说一声，
[e-mail]
2.4 VB 调用32 位动态库方法
16 位DLL 调用方法与32 位DLL 调用方法类同。
语法：
[Public | Private] Declare Fun Function name Lib "libname" [Alias "aliasname"]
ction [([arglist])] [As type]
Declare 语句的语法包含下面部分：
Public 可选的。用于声明对所有模块中的所有其它过程都可以使用的函数。
Private 可选的。用于声明只能在包含该声明的模块中使用的函数。
name 必需的。任何合法的函数名。动态链接库的入口处（entry points）区分大小写。
libname 必需的。包含所声明的函数动态链接库名或代码资源名。
Alias 可选的。表示将被调用的函数在动态链接库(DLL) 中还有另外的名称。当外部函数名与某个函数重名时，就可以使用这个参数。当动态链接库的函数与同一范围内的公用变量、常数或任何其它过程的名称相同时，也可以使用Alias。如果该动态链接库函数中的某个字符不符合动态链接库的命名约定时，也可以使用Alias。
aliasname 可选的。动态链接库。如果首字符不是数字符号(#)，则aliasname 是动态链接库中该函数的入口处的名称。如果首字符是(#)，则随后的字符必须指定该函数的入口处的顺序号。
arglist 可选的。代表调用该函数时需要传递的参数的变量表。
type可选的。Function 返回值的数据类型；可以是Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Date、String（只支持变长）或Variant，用户定义类型，或对象类型。
arglist 参数的语法以及语法各个部分如下：
[Optional] [ByVal | ByRe ByRef] [ParamArray] varname[( )] [As type] 部分描述：
Optional可选的。表示参数不是必需的。如果使用该选项，则arglist 中的后续参数都必需是可选的，而且必须都使用Optional 关键字声明。如果使用了ParamArray，则任何参数都不能使用Optional。
ByVal 可选的。表示该参数按值传递。
ByRef 表示该参数按地址传递。
ParamArray 可选的。只用于arglist 的最后一个参数，表示最后的参数是一个
Variant 元素的Optional 的数组。使用ParamArray 关键字可以提供任意数目的参数。
ParamArray 关键字不能与ByVal、ByRef 或Optional 一起使用。
varname 必需的。代表传给该函数的参数的变量名；遵循标准的变量命名约定。
( ) 对数组变量是必需的。指明varname 是一个数组。
type可选的。传递给函数的参数的数据类型；可以是除Decimal 以外的任何类型。
说明：
Function 的数据类型决定其返回值的数据类型。可以在arglist 之后使用As 子句来指定函数返回值的数据类型。在arglist 中，可以使用As 子句来指定任何传给该函数的参数的数据类型。不单可以指定为任何标准数据类型，还可以在arglist 中指定As Any 来禁止类型检查，从而允许将任意数据类型传递给该函数。空圆括号表示该Function 没有参数，且Visual Basic 应确保不会传递任何参数。

[blue_bat]

这是前不久我给开发单片机的哥们写的关于VC开发动态连接库的东西，可能对你有点帮助。

/******************************************************************
用 Visual C++ 创建动态连接库

一、首先，请创建动态连接库工程。

1、打开Visual C++ 5.0或者6.0
2、选择[文件]-[新建]，在[工程]选项页上选择[Win32 动态连接库]
3、在出现的向导中输入工程名（即动态连接库的名称，此处假设输入为Sample）和源代码保存的位置。
4、点击[确认]按钮
5、选择动态连接库类型：[一个空的动态连接库工程]，点击[完成]按钮。

二、创建模块定义文件

1、选择[文件]-[新建]-[文本文件]，输入要保存的文件名称，Sample.def,其中文件名称为动态连接库工程名称，此例中为Sample；扩展名为def,必须为def扩展名。
2、输入以下代码。（注意：这里//后面的斜体部分连同//都不需要输入，否则会出错。）
LIBRARY Sample //不用分号结尾，LIBRARY后面跟的名称为动态连接库工程名称
EXPORTS //此行是定义导出函数的开头
ShowMe //这里是导出函数的定义，本例中定义了ShowMe函数
3、保存这个文件

三、创建C++源代码文件。

1、选择[文件]-[新建]-[C++ 源代码文件]
2、输入文件名称，文件名称应该与工程名称相同。此例中输入Sample.cpp，点击[确认]按钮。
3、在C++源代码文件即本例中的Sample.cpp中输入如下代码。

//Sample.cpp
//您可以在这里包含更多的头文件，比如"Conio.h".
#include <windows.h>

int ShowMe(void); //我们定义的函数的定义部分

//DllEntryPoint为DLL入口点函数,负责初始化并终止DLL
//一般来说不用更改这个函数的代码
BOOL WINAPI DllEntryPoint(HINSTANCE hDLL,DWORD dwReason,LPVOID Reserved)
{
switch(dwReason)
{
case DLL_PROCESS_ATTACH:
{break;}
case DLL_PROCESS_DETACH:
{break;}
}
return TRUE;
}

//我们定义的函数的实现部分
int ShowMe(void)
{ //蜂鸣器响一下
MessageBeep((WORD)-1);
return 1;
}

4、保存这个源代码文件Sample.cpp。

四、编译这个动态连接库文件并调试，有关调试程序在文章的后面列出源代码。
如果您需要发布这个动态连接库，请按照如下的设置配置发布版本的动态连接库。
1、选择[Build]-[Set Active Configuration ...],选择[Sample Win32 Release],点击[确认]按钮。
2、重新编译工程。
3、在工程所在的源代码目录下有一个[\Release]目录，将这个目录下面的Sample.dll复制到您测试程序所在的目录或者Windows System目录。

五、测试工程。

1、打开Visual C++ 5.0或者6.0
2、选择[文件]-[新建]，在[工程]选项页面中选择[MFC AppWizard (.exe)],输入工程名称后点击[确认]按钮。
3、选择工程类型[Dialog Based]，点击[完成]按钮。
4、在对话框中添加一个按钮。
5、用鼠标双击这个按钮，弹出[Add Member Function]对话框，点击[OK]。
6、在光标指向的函数体内添加如下代码：

HINSTANCE gLibSample=NULL;
FARPROC ShowMe;
gLibSample=LoadLibrary("SAMPLE.DLL");
ShowMe = GetProcAddress(gLibSample,"ShowMe");
(* ShowMe)();
FreeLibrary(gLibSample);

7、选择[Build]-[Rebuild All]，编译这个工程。

8、将动态连接库Sample.Dll复制到这个测试工程所生成的可执行文件同一目录下或者Windows System目录下，运行这个可执行文件，点击按钮时应该能够听到“当”的一声，说明动态连接库创建成功。

这里的动态连接库适合Windows 95/NT/2000/XP等各种Windows平台，但是如果动态连接库中的函数涉及到一些硬件的操作，比如直接读写内存、读写USB端口等操作，在NT/2000/XP下可能不被支持！


******************************************************************/