使用vc开发标准dll及其调用

cyycoish

dll的优点想必大家你知我知，不用我废话了吧，接下来老C将网上和自己总结的一些开发dll的心得在此帖与大家分享。
那么，开始。老C用的环境是win8.1+vc2013，使用纯C来开发我们的动态链接库。
1.新建一个win32工程

2.按图进行设置，注意这里要选dll

3.给工程添加一个C源文件

好了，这里贴上dll的源码：

1. #include <windows.h> //包含windows.h头文件
   
2. 
   
3. #define DLLEXPORT _declspec(dllexport) //定义导出宏
   
4. 
   
5. DLLEXPORT int Add(int a, int b) //导出的函数
   
6. {
   
7.         return a + b;
   
8. }
   
9. 
   
10. BOOL APIENTRY DllMain(HANDLE hModule, DWORD  reason, LPVOID lpReserved) //dll入口函数
    
11. {
    
12.         switch (reason)
    
13.         {
    
14.         case DLL_PROCESS_ATTACH:
    
15.                 break;
    
16.         case DLL_PROCESS_DETACH:
    
17.                 break;
    
18.         case DLL_THREAD_ATTACH:
    
19.                 break;
    
20.         case DLL_THREAD_DETACH:
    
21.                 break;
    
22.         }
    
23.         return TRUE;
    
24. }

复制代码

ok，咱们先来vc调用dll的例子：
首先建立一个console app，将以下代码粘贴至C源文件中：

1. #include <stdio.h>
   
2. 
   
3. extern _declspec(dllexport) int Add(int a, int b); //刚才写的dll中的导出函数，如果导出函数较多，可以写在头文件中并包含
   
4. 
   
5. #pragma comment(lib,"dlltest.lib") //把dlltest.dll和dlltest.lib复制到当前目录
   
6. 
   
7. int main()
   
8. {
   
9.         int a;
   
10.         a = Add(10, 5);
    
11.         printf("%d \n", a);
    
12.         return 0;
    
13. }

复制代码

再来vb6调用的例子：

1. Option Explicit
   
2. Private Declare Function Add Lib "dlltest.dll" (ByVal a As Integer, ByVal b As Integer) As Integer
   
3. 
   
4. Private Sub Command1_Click()
   
5.     MsgBox Add(10, 5)
   
6. End Sub
   

复制代码

接着是delphi7调用的例子：

1. unit Unit1;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
7.   Dialogs, StdCtrls;
   
8. 
   
9. type
   
10.   TForm1 = class(TForm)
    
11.     Button1: TButton;
    
12.     procedure Button1Click(Sender: TObject);
    
13.   private
    
14.     { Private declarations }
    
15.   public
    
16.     { Public declarations }
    
17.   end;
    
18. 
    
19. var
    
20.   Form1: TForm1;
    
21. 
    
22. implementation
    
23.   function Add(a:Integer; b:Integer):Integer; stdcall; external 'dlltest.dll';
    
24. {$R *.dfm}
    
25. 
    
26. procedure TForm1.Button1Click(Sender: TObject);
    
27. begin
    
28.   ShowMessage(IntToStr(Add(2,3)));
    
29. end;
    
30. 
    
31. end.

复制代码

这里需要注意的是：
dll文件必须要放在程序当前目录下或者windows目录下，以供程序寻找dll入口
还有，以vc2013默认状态开发出来的dll是不可以在xp系统上使用的

老C再将一些从vc dll中导出字符串供vb6调用的办法告诉大家
这个功能的具体作用呢，就是将多种语言字符串封装在dll中，程序调用后，即可切换显示语言
先以上面的模板改造dll：

1. #include <windows.h> //包含windows.h头文件
   
2. 
   
3. #define DLLEXPORT _declspec(dllexport) //定义导出宏
   
4. 
   
5. DLLEXPORT int Add(int a, int b)
   
6. {
   
7.         return a + b;
   
8. }
   
9. 
   
10. DLLEXPORT BOOL GetString(LPSTR str, int iWhichLanguage) //导出的函数
    
11. {
    
12.         if (iWhichLanguage == 0)
    
13.                 strcpy(str, "Hello!");
    
14.         else
    
15.                 strcpy(str, "你好！");
    
16.         return TRUE;
    
17. }
    
18. 
    
19. BOOL APIENTRY DllMain(HANDLE hModule, DWORD  reason, LPVOID lpReserved) //dll入口函数
    
20. {
    
21.         switch (reason)
    
22.         {
    
23.         case DLL_PROCESS_ATTACH:
    
24.                 break;
    
25.         case DLL_PROCESS_DETACH:
    
26.                 break;
    
27.         case DLL_THREAD_ATTACH:
    
28.                 break;
    
29.         case DLL_THREAD_DETACH:
    
30.                 break;
    
31.         }
    
32.         return TRUE;
    
33. }
    

复制代码

然后呢，在vb6中这样调用：

1. Option Explicit
   
2. Private Declare Function GetString Lib "dlltest.dll" (ByVal str As String, ByVal iWhichLanguage As Integer) As Boolean
   
3. 
   
4. Private Sub Option1_Click(Index As Integer)
   
5.     Dim str As String * 256 '注意这里一定要申请一个定长字符串然后将函数中的字符串传进这个定长字符串，否则会导致程序崩溃
   
6.     Call GetString(str, Index)
   
7.     Label1 = str
   
8. End Sub

复制代码

结果如下：



最后：
这些方法是老C试验了n次得出的结论，每段代码都有测试，确保可以使用。

0xAA55

不错不错。。但是为毛你截取的图看起来都好大？

mzflz

最好再加个extern "C"

cyycoish

mzflz 发表于 2015-1-9 19:49
最好再加个extern "C"

嗯，extern “C”是cpp的写法 我是用纯C写的，这样保证了在cpp下也能运行