在VB中用文件映射来进行进程通讯
四川行政财贸管理干部学院计算机管理系 卿 静
当我们用vb开发应用系统时，可能涉及多进程问题。比如工业上应用较多的数据采集系统，也许就需要两个进程，一个是“采样程序”，另一个是“管理程序”，“采样程序”做单一的采集样本工作，而“管理程序”则对样本进行分析，存储，输出各种图表等等。为了便于维护，“采样程序”与“管理程序”各自作为独立的应用程序而运行，那么“管理程序”怎样才能取得“采样程序”所采集的数据呢？这就是所谓进程间的通信问题。
在多个应用程序之间交换数据，我们自然会想到磁盘文件，但这种方法在实时系统中是不宜采用的，因为读写磁盘文件的时间效率往往不能满足实时要求。幸运的是，Windows提供了几种高效的进程间交换数据的机制，如管道，邮路和文件映射。以下我们只针对文件映射进行讨论。
一. 文件映射概念
所谓文件映射，简单地说，就是将磁盘文件（或部分）映射到某段内存空间，对磁盘文件的访问转变成对内存的访问，显然，这大大提高了访问速度。
实际的映射过程是通过几个API函数来实现的，首先需要创建一个“文件映射对象”，而这个对象是共享的，各个进程可将对象映射到自己的内存地址空间，各进程的映射地址不一定相同，但地址中的内容却一定是相同的，各进程对各自的映射地址的访问都归结为对“文件映射对象”的访问。
如上所言，我们可以认为“文件映射”是将文件映射到内存供各进程共享。那我们何不直接开辟一块全局内存来共享呢？这在32位Windows中是行不通的，因为全局内存在32位Windows中不是多进程共享的对象。因此，文件映射在进程间通信中扮演了重要的角色。
二. 示例
我们姑且把这个示例叫做“数据采集系统”，它由两个工程组成：Sampling.vbp（采样）和Manage.vbp(管理)。
Sampling.vbp包含两个文件：Form1.frm，Module1.bas。清单如下：
Form1.frm:
VERSION 5.00
Begin VB.Form Form1
Caption = "Sampling"
ClientHeight = 1440
ClientLeft = 48
ClientTop = 288
ClientWidth = 4416
LinkTopic = "Form1"
ScaleHeight = 1440
ScaleWidth = 4416
StartUpPosition = 3 ''窗口缺省
Begin VB.CommandButton cmdStop
Caption = "Stop"
Enabled = 0 ''False
Height = 372
Left = 2160
TabIndex = 2
Top = 360
Width = 972
End
Begin VB.CommandButton cmdStart
Caption = "Start"
Height = 372
Left = 840
TabIndex = 1
Top = 360
Width = 972
End
Begin VB.TextBox Text1
Height = 372
Left = 120
TabIndex = 0
Text = "Text1"
Top = 840
Width = 4092
End
Begin VB.Timer Timer1
Enabled = 0 ''False
Interval = 60
Left = 0
Top = 0
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdStart_Click()
Pub_Timer1Run = False
Pub_LastTime = Timer()
Timer1.Enabled = True
cmdStart.Enabled = False
cmdStop.Enabled = True
End Sub
Private Sub cmdStop_Click()
Timer1.Enabled = False
cmdStart.Enabled = True
cmdStop.Enabled = False
End Sub
Private Sub Form_Load()
Call CreateMap
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call CloseMap
End Sub
Private Sub Timer1_Timer()
Static tm As Single, Dlt As Single
Static i As Integer
Static dtNow As Date
St