Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdStart_Click()
If OpenMap() = 0 Then
MsgBox "采样程序未运行!", vbOKOnly, ""
Exit Sub
End If
Pub_Timer1Run = False
Timer1.Enabled = True
cmdStart.Enabled = False
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
Static S As String
Static v(1 To Pub_LoopN) As Single
If Pub_Timer1Run Then Exit Sub
Pub_Timer1Run = True
Call GetFromMap(strBuffer)
If Left(strBuffer, 1) = " " Then
strBuffer = "*" & Mid(strBuffer, 2)
Call CopyToMap(strBuffer)
Text1.Text = strBuffer
End If
Pub_Timer1Run = False
End Sub 'Timer1_Timer
Module1.bas：与Sampling.vbp之Module1.bas几乎完全相同，只是其中编译常数Sampling= False。
三. 函数描述
在Module1.bas中用到几个与文件映射有关的API函数，分述如下：
1.CreateFileMapping：创建文件映射对象
参数：
hFile：Long——欲在其中创建映射的一个已经打开的磁盘文件句柄；
LpFileMappingAttributes：Long——通常用0表示使用默认安全对象；
FlProtect：Long——打开映射的方式（用API常数表示的读/写或其它）；
DwMaximumSizeHigh，dwMaximumSizeLow：Long——共同表示文件映射的最大长度（前者为高32位，后者为低32位），通常均设为0表示磁盘文件的实际长度；
LpName： String——指定文件映射对象的名称。
返回值：Long——新建文件映射对象的句柄。
2.OpenFileMapping：打开一个现成的文件映射对象
参数：
dwDesiredAccess：Long——用API常数表示的对文件映射的访问方式；
bInheritHandle：Long——返回值对与子进程的继承属性，常设为False；
lpName：String——准备打开的文件映射对象的名称。
返回值：Long——指定的文件映射对象的句柄。
3.MapViewOfFile：将一个文件映射对象映射到当前应用程序空间
参数：
hFileMappingObject：Long——文件映射对象的句柄；
dwDesiredAccess：Long——用API常数表示的对文件映射的访问方式；
dwFileOffsetHigh，dwFileOffsetLow：Long——共同表示文件中的映射起点（前者为高32位，后者为低32位），通常均设为0表示从文件的起始处开始映射；
dwNumberOfBytesToMap：Long——要映射的字节数，通常设为0表示映射整个文件映射对象。
返回值：Long——文件映射在内存中的起始地址。
4.UnmapViewOfFile：解除当前应用程序中的一个文件映射对象的映射地址空间
参数：
lpBaseAddress：要解除映射的文件映射起始地址。
返回值：Long——非零表示成功，零表示失败。
Sampling.vbp的启动窗体Form1.frm在装载时创建一个文件映射（CreateMap），这个创建过程分三步：首先，通过CreateFile，WriteFile，FlushFileBuffers建立一个具有指定长度（LenBuffer 1）的磁盘文件DiskFileName；然后，由CreateFileMapping创建一个对应于磁盘文件DiskFileName的文件映射对象MapFileName；最后，用MapViewOfFile将文件映射对象映射到应用程序地址MapAddress。在本例中，磁盘文件建立后便不再与之打交道，以后的操作均针对其映射地址空间。
采样通过触发定时器Timer1周期性的进行（采样周期Pub_Period）。每次采样首先通过GetV取得原始样本并放入数组v（本例的样本用随机数替代，实际应用中是从RS232或其他设备取得），然后将其存入映射地址空间以便“管理程序”取用。样本在映射地址空间的存放形式为：“x 采样时间 样本值1 样本值2”。其中x是一个标记，当它为空格时表示新样本，为“*”时表示已取用。 为了方便程序处理，设置了一个样本缓冲strBuffer，由它与映射地址空间交换数据，CopyToMap和GetFromMap也是用于这个目的，CopyToMap(S)是复制S到映射地址空间，而GetFromMap(S)是从映射地址空间取值送到S。
在“采样程序”运行过程中，“管理程序”由于某种原因（如维护程序）可能长时间不取用样本（超过一个采样周期），这时，“采样程序”应当把样本存放到另外的磁盘文件，以免丢失样本。考虑到本文主题和文章篇幅，本例未做处理。
Manage.vbp启动窗体Form1.frm很简单，仅仅从演示的角度将映射地址空间的数据取出并显示。
试验时先运行“采样”， 再运行“管理”，观察两个窗体中的样本数据，我们会发现他们几乎是同步的。感谢文件映射！
上一篇： 开发网络应用的5个技巧
下一篇： 在VB中如何使用ping命令
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
