一般來說,VB和VC共同編程有3種方式:一種是VC生成DLL,在VB中呼叫DLL;一種是VC生成ActiveX控制項(.ocx),在VB中插入;還有一種是在VC中產生ActiveX Automation伺服器,在VB中呼叫。相對而言,第一種方法對VC程式設計者的要求最低,但要求你的夥伴進行配合,我推薦這個方法。
先說說VC++的程式設計。首先在VC++中產生Win32 DLL工程。在這個工程中加入幾個函數供VB用戶呼叫。一個DLL中的函數要想被VB調用,必須滿足兩個條件:一是調用方式為stdcall,另一個是必須是export的。要做到第一條,只須在函數宣告前面加上__stdcall關鍵字。如:
short __stdcall sample(short nLen, short *buffer)
要做到第二條,需要在*.def檔案中加上如下的幾行:
EXPORTS
sample @1
這裡的sample是你要在VB中呼叫的函數名,@1表示該函數在DLL中的編號,每個函數都不一樣。注意這裡的函數名是區分大小寫的。至於你說的需要傳遞大量數據,可以這樣做,在VB中用一個數組存放數據,然後將該數組的大小和地址傳給VC(至於如何在VB中編程我會在下面介紹)。就像上面的例子,nLen是數組大小,buffer是數組位址,有了這兩條,你可以像使用VC的陣列一樣處理了。至於輸出圖形,可以產生WMF或BMP格式,讓VB呼叫。不過,我認為也可以直接輸出到視窗,只要VB將視窗的句柄hWnd和hDC以及視窗的繪圖位置(VB和VC採用的座標系必須一致才行)傳給VC就行了。而VB的AutoRedraw屬性必須為False,在Paint事件中呼叫VC的繪圖程式。
再談談VB的程式設計。 VB呼叫DLL的方法和呼叫Windows API的方法是一樣的,一般在VB的書中有介紹。對於上面一個例子,先要宣告VC函數:
Declare Function sample Lib "mydll.dll" (ByVal nLen As Integer, buffer As Integer) As Integer
這裡mydll.dll是你的dll的名字。你可能已經注意到了兩個參數的聲明有所不同,第一個參數加上了ByVal。規則是這樣的:如果在VC中某個參數宣告為指標和數組,就不加ByVal,否則都要加上ByVal。在VB中呼叫這個函數採用這樣的語法:
sample 10, a(0)
這裡的a()數組是用來存放資料的,10為數組長度,這裡的第二個參數不能是a(),而必須是要傳遞的資料中的第一個。這是VB程式設計的關鍵。
下面在說幾個可能遇到的問題。一個問題是VB可能報告找不到dll,你可以把dll放到system目錄下,並確保VB的Declare語句正確。另一個問題是VB報告找不到需要的函數,這通常是因為在VC中*.def檔案沒設定。第三種情況是VB告訴不能進行轉換,這可能是在VC中沒有加上__stdcall關鍵字,也可能是VB和VC的參數型別不一致,注意在VC中int是4個位元組(相當於VB的Long),而VB的Integer只有2個位元組。必須確保VB和VC的參數個數相同,所佔位元組數也一致。最後一個要注意的問題是VC中絕對不能出現數組越界的情況,否則會導致VB程式崩潰
1. 呼叫DLL的優越性
動態連結庫(DLL)作為Windows作業系統的基礎,具有優越的應用效能:
DLL擴充了應用程式的特性。由於DLL能夠動態地裝入進程的位址空間,因此應用程式能夠在運行時確定需要執行什麼操作,然後裝入相應的程式碼,以便根據需要執行這些操作。
DLL可以用多種語言進行編寫。例如用VB來寫應用程式的介面,而用C++來寫演算法、通訊之類的底層運算。
DLL簡化了軟體專案的管理。如果在軟體開發過程中不同的工作小組在不同的模組上工作,那麼這個專案管理起來比較容易。
DLL有助於節省記憶體。如果兩個或多個應用程式使用同一個DLL,那麼該DLL的頁面只要放入RAM一次,所有的應用程式都可以共用它的各個頁面。
DLL有助於資源的共享。 DLL可以包含對話方塊範本、字串、圖示和點陣圖等資源,多個應用程式能夠使用DLL來共享這些資源。
DLL有助於應用程式的本地化。例如,只包含程式碼而不包含使用者介面元件的應用程式可以載入包含本地化使用者介面元件的DLL 。
DLL有助於解決平台差異。不同版本的Windows配有不同的函數,開發人員常常想要呼叫新的函數。但是,如果原始程式碼包含了對一個新函數的調用,而應用程式將要在不能提供該函數的Windows版本上運行,那麼作業系統的載入程式將拒絕運行該進程。如果將這些新函數保存在DLL中,那麼應用程式就能夠將它們載入到Windows的舊版上,就可以成功地呼叫該函數。
2.找到DLL的入口點
初次接觸DLL的用戶經常會遇到一個問題:在VC環境下創建的DLL,在VC裡運行的好好的,可在VB應用程式中調用時卻老是出現"調用約定錯誤"、"找不到入口點"之類的錯誤。這主要是由以下疏漏造成的。
首先,要注意DLL中的函數和VB中的函數宣告在名稱、傳回型別、參數型別、參數個數等方面必須完全相同,尤其要注意大小寫的問題。
其次,在DLL的.def檔案中必須加上入口函數。
最後,函數定義前必須加上extern "c",_stdcall關鍵字。
具體格式可參考應用實例。
3.數組參數在DLL中的傳遞
由於DLL常用來進行一些底層的運算操作,因此應用程式常常需要將大量的資料傳遞給DLL。在C++中,指標是進行陣列操作的最佳選擇,但VB中沒有指標的概念。這通常可用兩種方法來解決。
其一,在VB中宣告DLL時,用byref來取代byval,即可將陣列指標傳遞給DLL。
另外,將陣列宣告為變體型(variant),即可直接將陣列傳遞給DLL。
4.應用實例
以下透過一個具體實例來說明在VB中呼叫VC環境下所建立的DLL的過程。
建立一用於訊號處理的DLL,"SigPro.dll",其中有一個用於富氏計算的函數"Fourier"。
VC中的聲明:
在"SigPro.h"中加入以下程式碼,
複製代碼代碼如下:
extern "C"
{
double EXPORT _stdcall Fourier(long int *Sample,int NumSam,int OvertoneOrder,bool SinOrCos);
}
在"SigPro.cpp"中加入以下程式碼,
extern "C"
double EXPORT _stdcall Fourier(long int *Sample,int NumSam,int OvertoneOrder,bool SinOrCos)
{
int i;
double result=0.0;
if(SinOrCos==true)
{
for(i=0;i<NumSam;i++)
{
result=result+*(Sample+i)*cos(OvertoneOrder*i*2*3.1415926/NumSam);
}
}
else
{
for(i=0;i<NumSam;i++)
{
result=result+*(Sample+i)*sin(OvertoneOrder*i*2*3.1415926/NumSam);
}
}
result =result*2/NumSam;
return result;
}
在"SigPro.def"中加入以下程式碼,
EXPORTS
Fourier
VB中的呼叫聲明:
Public Declare Function Fourier Lib "SigPro" (ByRef Sample() As Long, ByVal NumSam As Integer, ByVal OvertoneOrder As Integer, ByVal SinOrCos As Boolean) As Double