介紹了在VB開發環境下，對PCI設備進行底層訪問的兩種方法：一種是通過用用戶自己編寫的動態連接庫（DLL）實現，二是利用WINDRIVER提供的VB運行庫編寫直接訪問硬件接口函數，并對兩種方法行了比較。

VB集成化編程語言一種功能強大而容易上手的開發工具，在用戶界面、數據庫、多媒體、網絡編程等方面，VB可謂得心應手。然而VB有限的硬件編程能力以又使得許多硬件開發者對此深感無奈。尤其在工業控制，測控技術等領域，自行設計開發的I／O卡，數據采集卡等在WIN32下的驅動常常需要借助DDK，VtooIsD等工具進行艱苦而又長期的內核模式開發。本文介紹了在VB開發環境下訪問PCI設備的方法。對于其他設備，方法與此大同小異。

在VB開發環境下，用戶要訪問諸如數據采集卡之類硬件上的PCI設備，一般來說有兩種途徑：一是直接訪問，即用VB直接編寫訪問PCI設備的接口函數（這種方法要有相關軟件的支持）；二是間接訪問，即VB調用其它編程語言（如匯編，C／C＋＋等）寫的底層驅動模塊（一般封裝成動態連接庫DLL的形式）實現。

1 PCI總線的配置空間

PCI規范定義了三種地址空間，除了存儲器和I／O地址空間外，為支持PCI設備系統資源的自動配置，還定義了配置地址空羊。

PCI總線的配置空間由256個字節組成，分為預定首區和設備關聯區。預定首區包括開始64個字節，對所有的PCI設備來說，都必須支持該區的設置；設備關聯區的寄存器有不同的的PCI設備廠家自己定義。

配置空間的預定的首區分兩個部分，前16個字節的定義對各類PCI設備而言都是相同的，后48個字節空間根據設備支持的功能有不同的分配。首區類型定義了該空間的分配情況（目前只有一種類型00H）。表1是首區的組織結構。

所有的PCI設備必須支持首區的供應商ID、設備ID、指令和狀態區。對于其他寄存器的使用可根據設備的楞能來選擇。對于不同的PCI設備，其供應商ID由PCI

SIG分配以確保唯一性，而設備ID則由供應商自己分配。

2 PCI設備的配置過程

PCI總線的配置空間規范保證了所有PCI設備對“即插即用”的支持。

系統在上電后，“即插即用”BIOS通過隔離算法讀取每一個“即插即用”設備的資源申請數據，并分配相應的系統資源，同時檢查資源的沖突情況，然后引導、加載操作系統，并將控制權交給操作系統；如果加載的是“即插即用”操作系統（WINDOWS

95及以后版本），那么操作系統將接管系統的資源管理權，它首先從BIOS讀取“即插即用”設備的資源配置信息，并仲載資源沖突情況，然后配置BIOS尚未配置的“即插即用”設備，將設備的配置信息寫入配置管理器，最后激活無資源沖突的“即插即用”設備，裝載相應的設備驅動程序。

對于PCI設備來說，系統完成引導之后，除了將資源的分配寫入系統的配置管理器外，還寫入了相應的PCI配置寄存器。程序可以通過直接讀取設備的配置寄存器來得到設備的I／O，存儲器等資源配置情況。

3 VB下PCI設備的訪問

驅動程序訪問PCI設備的過程一般包括掃描PCI總線，相找指定的PCI設備，確定I／O等資源分配情況，進行I／O、存儲器、中斷以及DMA等操作。VB本身并不能實現上述對PCI設備的訪問過程，下面介紹在VB下通過其他途徑實現對PCI設備的訪問。

3．1 VB直接訪問

WINDRIVER為VB只提供了非常有限的I／O訪問能務（如串口通信），在VB下直接訪問PCI設備時需要借助其它軟件。目前WINDRIVER是KEFTech公司主推產品，是許多PCI廠家所推薦的首選驅動器程序開發工具。

WINDRIVER為VB 4.0以上版本提供了一個類模塊（WINDRIVER.CLS），利用這個類模塊，用戶可以手工編寫自己需的接口函數來訪問相應的設備。下面以具體例子來說明WINDRIVER.CLS的使用方法。

3.1.1 掃描PCI總線得到指設備的數目

利用WINDRIVER.CLS提供的應用程序接口函數（APIs），編寫一個掃描PCI總線，獲得指定PCI設備數目的函數下：

Function GetCardsNum （dwVendorID As）

Long， dwDeviceID As Long） As Integer

Dim pciScan As WD_PCI_SCAN_CARDS

Dim hWD As Long

HWD = WD_Open（）

If Hwd =INVALID_HANDLE_VALUE Then

MsgBox “設備打開出錯”

Exit Function

End If

PciScan.searchId.dwVendorId =

DwVendorID

pciScan .searchId.dwDeviceID =

dwDeviceID

WD_PciScanCards hWD， pciScan

WD_Close （hWD）

GetCardsNum = pciScan.dwCards

End Function

該函數可以通過輸入參數：PCI設備的供應商ID和設備ID得到所需的PCI設備數目。如查找AMCC公司的PCI適配芯片S5933，則輸入參數為：&H10E8和&H4750。

下面例子用于讀寫S5933的PCI配置寄存器。在工程的全局模塊中需要先定義下列數據結構，同時設備必須處于打開狀態。

Type AMCC＿INNTERRUPT

Int As WD_INTERRUPT

HThread As Long

Trans（O To 1）As WD_Transfer

End Type

Type AMCC_ADDR_DESC

dwLocalBase As Long

dwMask As Long

dwBytes As Long

dsAddr As Long

dwAddrDirect As Long

flsMemory As Boolean

End Type

Type AMCC_STRUCT

HWD As Long

CardLock As WD_CARD

PciSlot As WD_PCI_SLOT

CardReg As WD_CARD_REGISTER

AddrDesc（0 To AD_PCI_BARS－1）As

AMCC_ADDR_DESC

fUseInt As Boolean

int As AMCC_INTERRUPT

End Type

3.1.2 讀寫PCI配置寄存器

完成以上數據結構的定義后，用下面的函數可寫S5933的PCI配置寄存器內容。

Function AMCC_ReadPCIReg （hAmcc As

AMCC_SETRUCT， dwReg As Long）

Dim pciCnf As WD_PCI_CONFIG_DUMP

Dim dwVal As PVOID

pciCnf.pciSlot = hAmcc.pciSlot

pciCnf.pBuffer = dwVal

pciCnf.dwOffer = dwReg

pciCnf.dwBytes = 4

pciCnf.flsRead = True

WD_PciConfigDump hAmcc.hWD， pciCnf

AMCC_ReadPCIReg = dwVal

End Function `讀函數

Sub AMCC_WritePCIReg （hAmcc As

AMCC_STRUCT， dwReg As Long， dwData As PVOID）

Dim pciCnf As WD_PCI_CONFIG_DUMP

pciCnf.pciSlot = hAmcc.pciSlot

pciCnf.pBuffer = dwVal

pciCnf.dwOffer = dwReg

pciCnf.dwBytes = 4

pciCnf.flsRead = False

WD_PciConfigDump hAmcc.hWD， pciCnf

End Sub `寫過程

參數說明：

hAMCC 設備打開后系統分配的句柄

dwReg 讀寫的PCI配置寄存器

dwVal 讀出的寄存器數據

dwData 寫入寄存器的數據

以上例子僅僅是拋磚引玉。WINDRAR.CLS類模塊提供了功能極為強大的底層驅動的API函數，用戶通過編寫相應的驅動模塊可以方便地實現對各類硬件的I／O、存儲器映射、中斷以及DMA等操作，同時可以實現WIN32下物理內存空間的申請、讀寫等處理。另外對于實時性要求較高的設備，WINDRIVER提供的“內插”（Plug-In）特性可以讓程序的相關模塊運行于Ring 0內核模式（Kernel mode），以提高性能。

開發完成的底層驅動模塊既可直接為VB的應用程序調用，也可以在VB下封裝成DLLs供其它的WIN32開發工具調用。

3．2 自定義DLL訪問

DLL使VB的功能得到極大的增強，使得VB的應用范圍不斷擴大，使用更加靈活。VB通過調用自定義DLL可以實現對硬件的底層訪問。下面用例了說明VB對DLL的調用及DLL的編寫過程。

3．2．1 DLL的功能和編寫

本例中的DLL通過掃描PCI總線，得到總線上S5933接口芯片的數目，打開指定設備，向S5933的輸入郵箱子中寫入命令字，然后從輸出郵箱1中讀取返回數據，最后關閉設備。

extern “C” _declspec （dllexport）

int _stdcall GetCardsNum（）

{

AFX_MANAGE_STATE （AfxGetStaticModuleState（））;

int cards;

cards=AMCC_CountCards （0x10e8，0x4750）;

return cards;

} //此函數得到S5933的數目；

extern “C” declspec （dllexport）

DWORD_stdcall Send-

Command（int CardNum， DWORD dwCmd）

{

AFX_MANAGE_STATE （AfxGetStaticModuleState（））;

DWORD data;

If （AMCC_Open （&Hamcc， 0x10e8，0x4750，

Card-

Num， 0）） //打開指定設備

{

AMCC_WriteRegDWord（hAMCC， OMB1_ADDR）;

dwCmd）; //寫入命令字

do{

data=AMCC_ReadRegDWord（hAMCC，MBFF_ADDR）;

}while（（data&0x000f0000）==0x00000000）;

//等待輸入郵箱1滿

data=AMCC_ReadRegDWord（hAMCC，IMB 1_ADDR）;

//讀取返回數據

if（Hamcc） AMCC_Close（Hamcc）

//關閉設備

return data;

else

{AfxMessageBox（“打開設備失敗！”）；

return 0;}

程序中用到的函數包含在WINDRIVER的API函數庫中，在VC＋＋下編譯時加上頭文件：

#include “amcclib.h”

#include “amcclib.c”

同時在DEF文件中列出DLL的導出函數名，生成的DLL即可為VB即可為VB所調用。讀者也可用其它工具編寫驅動模塊，最后封裝成DLL即可。

2.2.2 VB調用DLL

VB調用動態連接庫（DLL）時，首先聲明DLL，然后即可像調用VB的語句或函數一樣使用DLL中的例程。下面介紹VB調用上例生成的DLL（假設文件名為Test.dll）。

聲明

Public Declare Function GetCardsNum Lib

“Test.dll”（）

As Integer

Public Declare Function SendCommand Lib

“Test.dll”

（ByVal dwCmd as Long） As Long

在聲明時需要注意：DLL的路徑；參數傳遞的方式；參數的類型。

另外，VB遵從_stdcall的參數傳遞約定，而VC＋＋默認_cdecl的傳遞約定，因此在DLL中的導出聲明需采用_stdcall的裝飾符。

調用

一旦聲明后，在VB的應用程序中就可調用DLL中的例程。如：

Private Sub Form_Load（）

Dim CardsNum As Integer

CardsNum = GetCardsNum（）

MsgBox“系統中有”+ Str（CardsNum）+“塊S5933插卡！”

End Sub

WINDRIVER包括了諸如AMCC、Altera、PLX、Galileo、V3、PLDA等公司PCI芯片的專用C／C＋＋的

API函數庫，其中包含了I／O讀寫，內存映射，中斷處理以及DMA等底層驅動的函數，可以非常方便地用VC＋＋，BC＋＋以及C＋＋Builder等工具編譯成DLLs供VB調用。

本文提供了兩種在VB的開發環境下訪問PCI設備的方法。第一種方法需要有WINDRIVER的VB運用庫支持，可以在VB環境下直接編寫所需的接口函數，但對WINDRAR。CLS類模翰中定義的內核數據結構要有較深的了解；第二種方法具有一定的靈活性、普遍性，編寫的DLL的工具較多，DLL除了可用于VB外，還可用于其他的WIN32開發工具，有較強的適應性。

以上方法在北京航空航天大學測控技術研究所研制的PHD2000高速并行數據采集系統中得到實際應用，取得了良好的效果。

責任編輯：gt