關鍵詞 VB 動態連接庫DLL C程序一、引言 Visual Basic( 以下簡稱VB)是一種可視化的面向對象的編程語言，以其編程簡單、快捷等特點，深受廣大WINDOWS程序員的青睞。利用VB開發界面友好、操作方便的軟件只需很短的時間。但是VB運行速度較慢，對於龐大的科學計算問題，VB的這種慢速會使人難以忍受。C語言是國際上非常流行的一種中級編程語言，以其靈活、高效等優點而獲得廣泛應用，許多的應用程序都是用C語言在DOS環境下編寫而成。那麼如何發揮VB和C這兩種語言的優勢，用VB設計一種良好的for windows界面來調用C語言程序，即實現VB調用C語言程序呢？現有的文獻只提到動態鏈接庫（以下簡稱DLL）可以將這兩種語言連接起來，但有講動態鏈接庫DLL的製做及其編程方法。本文詳細介紹了Borland C環境下製作動態鏈接庫以及VB調用for dos動態鏈接庫的的方法、步驟，並通過實例描述VB調用C程序的全過程。二、用Borland C編寫DLL程序的方法 要想實現VB調用C程序，首先需要用Borland C編寫動態連接庫DLL程序（假設DLL程序取名爲example）。動態鏈接庫包含四個文件：C語言源程序(.C）、模塊定義文件（）、原型函數文件（.H）和工程文件（）。下面分別詳細介紹一下這四種文件的具體結構。1、編寫C語言源程序的框架：C語言源程序（example.C），它包括三種函數：入口函數、輸出函數和終止函數。其具體
結構如下：
/*************************************/
/* 文件名： example.C */
/*************************************/
#include <windows.h>
/***********入口函數***********/
int FAR PASCAL LibMain ( HANDLE hInstance,
WORD wDataSeg,
WORD cbHeapSize,
LPSTR lpszCmdLine )
{
if (cbHeapSize!=0)
UnlockData(0);
return （1）;
}/***********輸出函數***********/int FAR PASCAL example(int param1,...,char param n)
{
...... /*C語言應用程序*/
}
/***********終止函數***********/
int FAR PASCAL WEP ( int /*SystemExit*/ )
{
return(1);
}
以上各組成部分參數的含義：Windows.h頭文件，它包含有數據類型的定義、API入口點定義和其它有用的參數信息。PASCAL說明符定義該程序的傳遞參數和淨化堆棧的協定（注意：DLL外部傳送的指針必須是遠指針FAR）。LibMain帶四個參數：hInstance、 wDataSeg、cbHeapSize和lpszCmdLine。第一個參數hInstance是DLL事例句柄， wDataSeg參數是數據段（DS）寄存器值，bHeapSize參數是在模塊定義文件中定義的堆的大小，LibMain 使用該值使本地堆初始化。lpszCmdLine參數包括命令行信息，但很少被DLL使用。一般來說，這四個參數是製作DLL通用的參數。如果不想讓DLL數據被封住，那麼必須調用unlockdata恢復正常的非鎖狀態，如果DLL初始化已經成功，DLL則返回1，若不成功則返回0值，且 DLL退出系統。DLL的輸出函數實現用戶所要完成的任務，這部分是DLL的核心。它與一般C語言程序不同之處在於無scanf函數。所有的外部指針都是遠指針FAR。畫直線函數要用lineto函數。DLL包括一個終止函數，終止函數有時稱爲退出函數，它的名字必須是WEP。且它可以被包括在DLL模塊定義文件的EXPORTS段中。
2、模塊定義文件（)的結構和各段的意義
模塊定義文件的結構如下：
/*************************************/
/* 文件名： */
/*************************************/
LIBRARY example /* DLLname */
DESCRIPTION ' '
EXETYPE WINDOWS
CODE PRELOAD MOVEABLE DISCARDABLE
DATA PRELOAD MOVEABLE SINGLE
HEAPSIZE 1024
EXPORTS
example @1
WEP @2
關鍵字LIBRARY是把這個模塊視爲一個DLL，庫的名字example跟在其後，且必須與該庫的名字、DEF中的DLL的文件名相一致。DESCRIPTION語句採用一個字符串，其長度可達128 個字符，通常用它來保存模塊描述的信息。EXETYPE windows語句每個windows應用程序和 DLL都需要。DATA語句定義該庫數據段的內存屬性，關鍵字MOVEABLE允許內存管理程序在 必要時移動內存段，關鍵字SINGLE是DLL必要，因爲DLL總是有一個單一數據段，而不管訪 問它的應用程序的數量。HEAPSIZE語句用來定義一個DLL局部堆的初始規模，執行局部內 存分配的DLL必須在庫啓動時使該堆初始化，堆的大小被傳送給DLL的LiEntry的程序。然 後用該堆的大小調用Locallnit使DLL的'局部堆初始化。 EXEPORTS語句定義將被用作來自應用程序或來自其它DLL入口點的程序，windows利用這個信息建立一個序數入口值，序數入口值是一個優化的值，允許動態連接機制更快塊操作且使用較少的內存。 一般來說，模塊定義文件（)的結構除取動態庫的名字不同外，其它結構都是固定的。
3．建立原形函數文件(.H)
原形函數的功能是進一步聲明調用函數的函數名和傳遞的參數，其形式爲：
/*************************************/
/* 文件名： example.H */
/*************************************/
extern "C" int _export FAR PASCAL example(int param1,...,char param n) ;
4．建立工程文件()
工程文件中包含有example.C、兩個文件後，然後編譯連接生成動態鏈接庫即可。
以上是製作動態連接庫的框架，現在通過一個實例介紹製作動態鏈接庫的方法。如要求程序完成功能爲：打開一個數據文件讀出前兩個數據，將這兩個數與所傳遞的兩個參數相加，返回它們的和。設該DLL程序的名字爲ADD。
第一步：在Borland C++環境下編輯.C文件、文件和.H文件，並建立文件。如
（1）編寫C語言源程序清單：
/*************************************/
/* 文件名： ADD.C */
/*************************************/
#include <iostream.h>
#include <conio.h>
#include <io.h>
#include <alloc.h>
#include <stdlib.h>
#include <windows.h>
#include <math.h>
#include <stdio.h>
#include "c:ADD.h"
/*入口函數*/
int FAR PASCAL LibMain (HANDLE hInstance ,
WORD wDataSeg ,
WORD cbHeapSize,
LPSTR lpszCmdLine )
{
if (cbHeapSize!=0)
UnlockData(0);
return 1;
}
/*輸出函數*/
int FAR PASCAL ADD(int x,int y,char *filein)
{ int a,b；
fp=fopen(filein,"r");
if(fp==NULL) { exit(0);}
int temp1=0,temp2=0;
fscanf(fp,"%d",&a);
fscanf(fp,"%d",&b);
temp1=x+a;
temp2=y+b;
temp1=temp1+temp2;
fclose(fp);
return(temp1);
}
/*退出函數*/
int FAR PASCAL WEP ( int/*SystemExit*/ )
{
return(1);
}
2）文件的程序清單：
/*************************************/
/* 文件名： ADD.H */
/*************************************/
LIBRARY ADD
DESCRIPTION ''
EXETYPE WINDOWS
CODE PRELOAD MOVEABLE DISCARDABLE
DATA PRELOAD MOVEABLE SINGLE
HEAPSIZE 1024
EXPORTS
ADD @1
WEP @2
（3）ADD.H程序清單：
/*************************************/
/* 文件名： ADD.H */
/*************************************/
extern "C" int _export FAR PASCAL add(int x,int y,char *filein) ;
（4）建立工程文件：
在Borland C++環境下的project項中打開open project file項並建立，在add item中加入ADD.C文件和文件即可建立工程文件。第二步，在Borland C的options項的Applation中選擇Windows DLL，再在Compile中選擇Build all，這樣就可生成動態鏈接庫供VB調用。三、VB3.0調用動態鏈接庫DLL方法 製作好DLL之後，就可以用VB調用它，實現VB調用C程序。VB程序要使用DLL中的函數， 首先必須要有特殊的聲明，用Declare聲明語句在窗體級或模塊級或全局模塊的代碼聲明段進行聲明，將動態鏈接庫中的函數聲明到VB中，供VB程序調用。語句格式爲：Declare Sub 過程名Lib摽鈹黚_n[ Alias " 別名]（[ByVal 參數AS類型]），或爲Declare Function函數名Lib摽鈹黚_衃 Alias " 別名]（[ByVal 參數AS類型]）AS類型在聲明中首先用Declare關鍵字表示聲明DLL中的函數。在C語言中有的函數類型爲VOID，它表示不具有返回值，則必須用關鍵字Sub將其聲明成過程。有的函數具有返回值，則必須用關鍵字Function將其聲明成函數，並且在聲明語句的最後要用AS關鍵字指明函數返回值的類型。例如上面的在VB中就可以聲明爲：
Declare Function ADD Lib撫c:敓―ByVal X AS Integer, ByVal Y AS Integer ,ByVal filein as string）AS Integer通過此聲明語句將函數ADD聲明到VB中，便可直接調用。四、結束語 以上詳細介紹了Borland C環境下製作動態鏈接庫以及VB調用for dos動態鏈接庫的方法、步驟，並通過實例說明VB調用C語言程序的方法。舉例程序ADD經VB3.0編譯，在486微機上調試通過。本文介紹的方法具有廣泛的意義，也完全適用於C++ 語言程序。