轉自:http://lanshanlhy.blog.163.com/blog/static/302294762010112832031218/
再談在VB中調用VC++開發的DLL
再談在VB中調用VC++開發的DLL近日開發一個程序,用到動態鏈接庫,在VB中調用時遇到了一些問題。我查了一些資料,也看了一下CSDN上的文章,感覺這些文章對在VB中調用VC++開發的DLL這一問題闡述得不夠詳細。因此在我的問題得到解決之餘,特爲初接觸DLL的朋友們寫下這篇文章。
本文中關於調用約定的解決方法,也適用於解決其它編程語言之間DLL調用的兼容問題。
① 關於DLL的創建與調用
使用VC++的嚮導即可。具體操作如下:打開菜單“File\New”→選擇“Projects\Win32 Dynamic-Link Library”→選擇“A simple DLL project”即可。這時系統會自動生成3個文件:*.cpp,stdafx.cpp,stdafx.h。
之後將入口函數DLLMain()補充完整,再添加你自定義的函數的代碼。如果你自定義的函數很多,可以將這些函數的聲明部分統一寫入一個頭文件中。再在.cpp文件首部用“#i nclude”語句引入這個頭文件。注意函數聲明前要加上“__declspec(dllexport)”。
(如果你建DLL時選擇的是第三種類型(加入示例代碼),則在函數聲明及定義前都要加上系統定義的宏“*_API”。)
在VB中用如下語句聲明:“Declare Function 函數名 Lib "完整路徑\文件名.dll" [Alias "函數別名"] (ByVal 變量1 As 類型1, ByVal 變量2 As 類型2,…) As 類型3”,與調用API函數類似。
注意:若在窗體代碼的“通用”部分使用,“Declare”前要加“Private”;若在Moudle中使用,“Declare”前要加“Public”。若將DLL文件放在系統目錄(“\Windows\System”或“\WinNT\System32”)或程序可執行文件所在目錄下,“Lib”後只寫出DLL主文件名即可。
具體的實例代碼見④(修正後的,可直接運行)。
② 關於入口點
如上編寫Cipher.dll,運行,出現錯誤信息“找不到DLL入口點(Error 53)”。出現這一錯誤的原因是C++編譯器在編譯時對函數名Encrypt作了修改。打開快速查看程序(D:\WINNT\System32\Viewers\QuikView.exe),將Cipher.dll拖入查看窗口,找到字段“?Encrypt@@YAHHH@Z”,發現函數名被加了一串字符。
解決方法有二。第一,直接在VB聲明中將“?Encrypt@@Y AHHH@Z”作爲別名放在“Alias”後即可;第二,在Cipher.dll代碼中在語句“__declspec(dllexport) int __stdcall Encrypt(int p, int k);”前加上“extern "C" ”,編譯後,用QuikView查看,函數名變爲“_Encrypt”,之後再在VB聲明中做相應調整即可。
(對於使用宏的DLL,在“#define”語句中,對宏“Cipher_API”的替換值做更改即可。)
進行了③的更改後,程序又找不到入口點了。再用QuikView查看,發現函數名變爲“_Encrypt@8”。還有解決方法。在Cipher.dll工程中添加一個文本文件,命名爲“Cipher.def”,添加代碼如④。編譯後再用QuikView查看,函數名變回“Encrypt”,在VB中調用,運行正常。注意使用了.def文件,就不需要再使用“extern "C" ”了。
③ 關於調用約定
採用②中第二種解決方法,運行,出現錯誤信息“DLL調用約定錯誤(Error 49)”。原因是調用約定共有5種方式:__fastcall、__pascal、__stdcall、__cdecl及__thiscall(成員函數的調用方式,但不能使用它顯示聲明一個函數),VC++默認調用方式爲__cdecl,而VB默認調用方式則爲__stdcall。解決方法是,更改代碼如下(指定調用方式):
__declspec(dllexport) int __stdcall Encrypt(int p, int k);
…………
int __stdcall Encrypt(int p, int k)
{
int c = p + k;
return c;
}
④ 源代碼
Cipher.dll:
Cipher.cpp:
//引入預編譯頭文件
#i nclude “stdafx.h”
#define CIPHER_API __declspec(dllexport)
//聲明我的函數
CIPHER_API int __stdcall Encrypt( int p, int k );
……
//DLL入口函數
BOOL APIENTRY DllMain(HANDLE hModule,
DWORD ul_reason_for_call,
LPVOID lpReserved)
{
switch (ul_reason_for_call)
{
case DLL_PROCESS_ATTACH:
case DLL_THREAD_ATTACH:
case DLL_THREAD_DETACH:
case DLL_PROCESS_DETACH:
break;
}
return TRUE;
}
//我的函數
int __stdcall Encrypt(int p, int k)
{
int c = p + k;
return c;
}
……
Cipher.def:
LIBRARY Cipher
EXPORTS Encrypt
編譯後,將Cipher.dll複製到VB程序可執行文件所在目錄。
在VB中調用:
Option Explicit
Private Declare Function Encrypt Lib “Cipher” (ByVal p As Long, ByVal k As Long) As Long
Private Sub Form_Load()
Dim c As Long
c = Encrypt(24, 8)
Text1.Text = c
End Sub