http://www.cnblogs.com/gulvzhe/archive/2012/03/14/2396230.html
这篇博客是我找到最合适的一篇了,不得不说,给日本人打工的仔做的总结就是详细而精美。
不过因为我想先做个简单的加法的dll,所以没用这篇博文里的例子。
vc环境下调用
我想完成的功能是 int MyAdd(int a,int b);
总结来说生成dll的过程是这样的:
1:建一个dll的工程,名字就叫 testdll 吧,选空项目。建的时候有三个选择,①win32 ②控制台 ③mfc
因为mfc的dll只能在mfc的工程下使用,所以不选择。win32的应该都可以用,所以我选win32的。
2:添加头文件MYDLL.h。
#pragma once
#define DLL_EXPORT __declspec(dllexport)
extern "C" DLL_EXPORT int MyAdd(int a,int b);
3:添加源文件MYDLL.cpp
#include <iostream>
#include "MYDLL.h" //不可少
int MyAdd(int a,int b)
{
return a+b;
}
4:添加def(模块定义)文件
LIBRARY testdll
EXPORTS
MyAdd
LIBRARY是模块定义文件必须的一部分,它告诉链接器(linker)如何命名你的DLL,名字必须和工程名相同。EXPORTS也是模块定义文件必须的一部分,这部分使得该 函数可以被其它应用程序访问到并且它创建一个导入库。当你生成这个项目时,不仅是一个.dll文件被创建,而且一个文件扩展名为.lib的导出库也会被创建。EXPORTS后面列出要导出函数的名称。可以在.def文件中的导出函数名后加@n,表示要导出函数的序号为n(在进行函数调用时,这个序号将发挥其作用)。
经过了上面4步就可以生成了。生成成功后在debug里多出来两个问件,一个是 testdll.dll,一个是testdll.lib,生成的库文件的名字和工程名字相同。
注意:我做了几次失败了,就是没弄白第4步的含义,所以忽略了第4步。
在另一个工程MyTest里调用testdll.dll的步骤是这样滴:
5:将testdll目录下的testdll.dll文件放在MyTest的debug目录下
6:将testdll目录下的testdll.lib文件和头文件testdll.h放在MyTest的文件目录下
7:修改 ① MyTest属性->链接器->输出->常规->附加库目录 添加 testdll.lib的路径
②MyTest属性->链接器->输出->常规->附加库目录 添加 testdll.lib
8:在工程MyTest的头文件里添加testdll.h
9:在源文件中调用格式为:
int x=1; int y=2; int z=MyAdd(x,y);
这样z的值即为3.
vb环境下调用
vc下dll编译:
将第2步改为
#pragma once
#define DLL_EXPORT __declspec(dllexport)
extern "C" int DLL_EXPORT _stdcall MyAdd(int a,int b);
将第3步改为
#include <iostream>
int _stdcall MyAdd(int a,int b)
{
return a+b;
}
vb下调用:
不执行第5步及以下步骤,换成下面:
10: 在public下添加
Declare Function MyAdd Lib "%放置目录%testdll.dll" (ByVal a As Integer, ByVal b As Integer) As Integer
11:调用方式:
Dim x As Integer, y As Integer, z As Integer
x = 5
y = 2
z = MyAdd(x, y)
完成!
注意:尝试了一下,以适合vb调用的方式编译的dll文件,无法在vc里调用,应该是我调用的方式不对。
前面是返回的值型,如何返回指针呢?我抓瞎了一段时间,不过好在看了资料找到了解决方法。
如果第3步为
#include <iostream>
int _stdcall MyAdd(int a,char* b)
{
b="hello world!";
return a;
}
那么就要修改调用方式:
12:
在public下添加
Declare Function MyAdd Lib "%放置目录%testdll.dll" (ByVal a As Integer, ByVal b()As Byte) As Integer
11:调用方式:
Dim x As Integer, y(50) AsByte, z As Integer
x = 5
z = MyAdd(x, y)
//y即返回一串hello world!的asc码.如果把byte改为char,则y的50个值都为".所以这是为什么?
完成!