13518219792
在实际应用中我们经常需要实现多个进程之间共享信息，以及实现互相之间的控制传递。
我们可以有很多的方法，最为常用的是共享一个本地的数据文件，或者是共享一个数据库。但问题也随之而来--不断的对硬盘进行操作会对硬盘硬件造成极大的伤害，另外由于读取硬盘需要大量的时间，也同样对软件的运行效率大打折扣！
因此，更为高级的就是我们共享内存！过去在C/C++中这个似乎比较便捷，但VB6中则需要很多API操作才能实现。对于。NET过去也只能通过委托来实现API.
而现在。NET4为我们提供了强大的功能--内存文件映射功能。通过内存映射可以完美实现多个进程之间的信息共享！
下面一个简单的例子来说明：
实现任务：进程A向内存写入信息，进程B则读取这些信息，实现进程B共享进程A的信息。
进程A代码如下：
Public Class Form1
Dim MF As System.IO.MemoryMappedFiles.MemoryMappedFile 'MemoryMappedFile 内存映射文件对象
Private Sub Form1_Load（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles MyBase.Load
MF = MF.CreateNew（"SYSIO", 5000） '在主共享进程中创建一个非常驻的内存映射文件，其大小为5000字节
End Sub
Private Sub Timer1_Tick（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles Timer1.Tick
Dim buf（4） As Byte
Dim s As Single
Dim ms As System.IO.MemoryMappedFiles.MemoryMappedViewStream '内存映射文件的视图流
ms = MF.CreateViewStream（）
s = Rnd（）
buf = BitConverter.GetBytes（s）
ms.Write（buf, 0, buf.Length） '向内存映射文件写入信息
End Sub
End Class
进程B代码如下：
Public Class Form1
Dim MF As System.IO.MemoryMappedFiles.MemoryMappedFile
Private Sub Form1_Load（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles MyBase.Load
MF = MF.OpenExisting（"SYSIO"） '打开一个内存中已经存在的映射，也就是主共享进程中创建的内存映射文件
End Sub
Private Sub Timer1_Tick（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles Timer1.Tick
Dim buf（） As Byte = {0, 0, 0, 0, 0}
Dim ms As System.IO.MemoryMappedFiles.MemoryMappedViewStream
ms = MF.CreateViewStream（）
ms.Read（buf, 0, buf.Length） '读取该映射文件中的指定内容
Me.TextBox1.Text = BitConverter.ToSingle（buf, 0）
End Sub
End Class
眉县网站制作公司哪家好，找创新互联！从网页设计、网站建设、微信开发、APP开发、响应式网站等网站项目制作，到程序开发，运营维护。创新互联于2013年成立到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选创新互联。
