VB环境下实现PCI设备底层访问的两种方法

    摘要：介绍了在VB开发环境下，对PCI设备进行底层访问的两种方法：一种是通过用用户自己编写的动态连接库（DLL）实现，二是利用WINDRIVER提供的VB运行库编写直接访问硬件接口函数，并对两种方法行了比较。

    关键词：WINDRIVER PCI 动态连接库 应用程序接口

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高速并行数据采集系统中得到实际应用，取得了良好的效果。