Delphi中进程间的数据共享

  次阅读 作者:智能小宝 来源:互联网 2016-01-19 12:49 我要评论(0)

DLL是创建Windows应用程序,实现代码重用的重要手段。那么当我们需要在进程间共享数据时,怎样做才能快捷方便地实现呢?在32位应用系统中,每个应用程序会将DLL映射到自己的地址空间,同时DLL中的数据也就随之被映射了。这样,每个应用程序都有自己的数据实例,在一个应用程序中修改 DLL中的全局变量,不会影响其它的应用程序。DLL的使用似乎与我们的目的相背离,那么如何才能实现我们想要的东东呢?这里给大家介绍一种特殊的技术,那就是内存映射文件。

内存映射文件提供了一种方法,就是在WIN32系统的地址空间保留一块内存区域,物理存储可以向其中提交。并且内存映射文件不只是磁盘文件,也可以是WIN32的页面文件,而且后者比前者要好,因为这意味着可以像访问一个磁盘文件那样访问内存中的一个区域,而不用创建临时文件,用完后还得删除它。WIN32有自己的管理页面调度文件,当不需要页面调度文件时,系统会自动将有关区域释放。以下是具体的实现代码

library Project1;

uses

shareMem,

windows,

SysUtils,

Classes;

const

MFileName: Pchar =ShareData ;

//定义一个记录类型,你所需要共享的数据就保存在这里。

//当在进程中调用GetDllData时,进程中也应该定义一个与这个一样的记录类型。

type

PGlobalDllData = ^TGlobalDllData;

TGlobalDllData = record

s: string[50];

i: integer;

end;

var

GlobalData: PGlobalDllData; //这是一个全局变量,指向创建的内存映射文件。

MapHandle: THandle;

//给外部进程调用的过程,当外部进程调用这个过程后,形参AGlobalData就指向了我//们创建的内存映射文件. 我们可以创建两个进程, 同时调用这个过程, 那么在其中一个进 //程中修改数据后, 在另外一个进程中既可反应出来, 实现了我们需要的共享.

procedure GetDllData(var AGlobalData: PGlobalDllData);stdcall; begin

AGlobalData := GlobalData;

end;

procedure OpenThisData;

var

size: integer;

begin

size := sizeof(TGlobalDllData);

//创建一个内存文件映射对象,MfileName保存的值就是该对象的名字。

mapHandle := CreateFileMapping(Dword(-1), nil, page_readWrite, 0, size, MFileName);

if mapHandle = 0 then

RaiseLastWin32Error;

//把文件的视图映射到调用进程的地址空间,该函数的返回值就是该对象的首地址。注//意,这是调用进程的地址,两个应用程序调用该DLL,返回值是不一样的。

GlobalData := MapViewOfFile(mapHandle, File_map_all_Access, 0, 0, size);

Globaldata^.s :=TEST ;

GlobalData^.i := 5;

if GlobalData = nil then

begin

CloseHandle(MapHandle);

RaiseLastWin32Error;

end;

end;

//DLL从进程中分离出来时,应该释放相应的空间

procedure CloseThisData;

begin

unmapViewOfFile(GlobalData);

closeHandle(MapHandle);

本站文章信息来源于网络以及网友投稿,本站只负责对文章进行整理、排版、编辑,是出于传递更多信息之目的,并不意味着赞同其观点或证实其内容的真实性。如果您有什么意见或建议,请联系QQ28-1688-302!

人工智能实验室
相关文章相关文章
  • 无人驾驶汽车如何改变城市生活?听听他们怎么说

    无人驾驶汽车如何改变城市生活?听听他们怎么说

  • 未来两年人工智能要怎么走?看这篇就够了

    未来两年人工智能要怎么走?看这篇就够了

  • 韩春雨称已能重复实验结果 近期将有消息公布

    韩春雨称已能重复实验结果 近期将有消息公布

  • 英国研发“杀生”机器人 通过生命体获取能量

    英国研发“杀生”机器人 通过生命体获取能量

网友点评网友点评
阅读推荐阅读推荐

据国外媒体报道,在过去两年内,聊天机器人(chatbot)、人工智能以及机器学习的研发和采用取得了巨大进展。许多初创公司正利用人工智能和...

霍金 视觉中国 图 英国著名物理学家霍金(Stephen Hawking)再次就人工智能(AI)发声,他认为:对于人类来说,强大AI的出现可能是最美妙的...

文|郑娟娟 今年,人工智能(AI) 60岁了。在AI60岁的时候,笔者想要介绍一下AI100,一个刚刚2岁的研究项目,但它的预设寿命是100年,甚至更长...

AlphaGo与李世石的人机大战,为大众迅速普及了人工智能的概念。 但对谷歌而言,除了下围棋,现在的人工智能进展到哪一步了?未来,人工智能...