当前位置: 传客网 > 计算机等级考试:浅谈Delphi中进程间的数据共享

计算机等级考试:浅谈Delphi中进程间的数据共享

2016-12-26 作者:全国计算机考试

 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);
end;

procedure DllEntryPoint(dwReason: DWord);
begin
 case dwReason of
  Dll_Process_Attach: OpenThisData; //调用DLL时传入的参数,由系统自动传入
  Dll_Process_Detach: CloseThisData; //释放DLL时传入的参数,系统自动传入。
 end;
end;

{$R *.res}

exports
 GetDllData; //外部应用程序调用的就是这个过程。
 
begin
 DllProc := @DllEntryPoint; //该变量是一个全局变量,由它来指定DLL的入口及出 //口函数。
 DllEntryPoint(Dll_Process_Attach);
end.
//以上代码在Delphi6中编译通过。
原文:http://www.thea.cn/cs/learning/2008-6-26/87706-1.htm)!


相关推荐

  • 虚拟机与XP系统之间的数据共享

    近来学习linux,在WindowsXP上面安装了OracleVMVirtualBox4.1.8虚拟机,并在虚拟机上安装了CentOS-5.7final版本。某一天师兄给了我一个4G的日志练习文件,让我练习awk等命令。师兄是用u盘拷给我的

  • 新都区地税局:大数据“共享共用共治”筑牢“诚信纳税”之基

    为了积极社会信用体系建设,不断推进纳税信用管理和依法治税,新都区地税局积极与国税、国土、房管、银行等部门联合,建立“共享共用共治”大数据平台,推动社会信用体系建设,让诚信守法者畅行无阻,让失信违法者寸步难行。一是推进国、地信息共享,联合强化

  • 福科软件:解决异地数据共享管理的进销存商务管理系统

    VPN远程管理软件VPN远程管理软件产品简介  信息共享——方便管理主机与分机之间的信息共享。解决连锁企业管理的信息同步问题!让距离不再是问题!  打印机共享——总店,分店打印机远程共享打印!  成本最低——只需一个服务器,共用一个后台!一

  • 我省正式联通国家统一信用信息共享平台实现数据共享和奖惩联动

    12月1日,贵州省公共信用信息平台通过对接测试,正式与国家统一信用信息共享平台实现互联互通。我省信用信息资源与全国各地、各部门之间实现有效共享,全省、全国信用“一张网”,打破了“信息孤岛”和“信息碎片化”局面,全省社会信用体系建设工作迈上了

  • VNN解决传输文件慢及实现远程数据共享

    VNN解决传输文件慢及实现远程数据共享这几年网络上最火的恐怕非VPN莫属了,VPN也叫虚拟专网,他是“VirtualPrivateNetwork”的缩写。企业通过VPN技术可以保障异地ADSL用户成功接入企业内部网,或者实现两地子公司的内网

  • 我院社区服务站实现与院内检验系统数据共享

    来源:信息中心作者:巩 知近日,我院社区医疗中心社区服务站实现与院内检验系统的数据共享功能,通过网络平台打印化验单条码和检验结果报告。目前,复兴门社区卫生服务站、国家铁路局医务室、铁路总公司医务室、戎晖门诊部、铁四区保健室、莲花池保健室、科

  • 多进程间的数据通讯方式的探讨

    %A%9%9%9%A  摘要:该文介绍了Windows环境下进行多进程编程的优缺点,分析了多进程编程时进程间通信的原理和多进程中资源共享的方法。重点讨论了如何在MFC中使用COPYDATA和共享虚拟内存方法实现进程间的数据通讯。%A  关键

  • 鹰谷:让药企通过联盟和数据共享来降低成本

    众所周知,制药行业有着成本高、周期长、风险大、回报大的特点。相关数据显示,研发一个新药的平均成本大约10亿美元,从研发立项到上市销售的平均时间为13年,失败率超过95%。但一旦上市,回报将是巨大的。如吉利德2013研发上市成功的抗丙肝新药索

  • 响应时间的数据消耗!

    把“响应时间”的概念确定为“对请求作出响应所需要的时间”,把响应时间作`为用户视角的软件性能的主要体现。CMO求职的响应时间划分为“呈现时间”和“系统响应时间”两个部分。其中“呈现时间”取决于数据在被客户端收到响应数据后呈现页面所消耗的时间

  • 干货分享 | 如何快速复制公司间的数据

    何谓快速复制公司间的数据?快速复制公司间的数据就是把一个已经导入打印格式、添加过自定义表、自定义字段和查询报表或者配置过系统的一些基础资料、存在基础资料(物料、业务伙伴、人员、固定资产、BOM等)的账套的信息导入到一个没有任何设置过的新建账

  • 促进物流行业发展做好企业间的信息共享进行资源业务联动

      目前,我国市场物流行业的整体集中度仍旧不高。在业界看来,基于此,众多的企业开始借助融资获取市场规模已经成为企业发展途径之一;另一方面,市场行业对于“互联网+物流”这一发展模式也有所期待。北京华海通达物流公司认为物流是一个非常庞大的基础行

  • Visual C#中实现窗体间的数据传递

    代码:C#关键字:数据传递、窗体出自:http://developer.ccidnet.com/pub/disp/Article?columnID=294&articleID=34309&pageNO=1摘要:本文我们将列举

  • oracle误删除表空间的数据文件

    事故原因:1.由于误操作用hpunix命令rm-fdatafilename删除表空间的数据文件2.altertablespacetablespacenaemdropdatafiledatafile;3.droptablespacetable

  • Android开发之两个类之间的数据传递

    1.在MyAPP中定义属性handlerpackagemark.zhang;importmark.zhang.MasterActivity.MyHandler;importandroid.app.Application;publicclas

  • 智能手机和智能手表之间的数据传输也不安全

    DGC共享币非凡的博客安全研究人员警告说,随着越来越多设备开始与智能手机进行交互,短信、日历条目、运动数据其他敏感的用户信息都可能遭到黑客的破解。这是因为大多数智能手表依靠六位数字密码进行安卓智能手机验证。手机和智能设备之间的加密连接只有一

  • 智能手表和手机之间的数据传输也不安全

    安全研究人员警告说,随着越来越多设备开始与智能手机进行交互,短信、日历条目、运动数据其他敏感的用户信息都可能遭到黑客的破解。这是因为大多数智能手表依靠六位数字密码进行安卓智能手机验证。手机和智能设备之间的加密连接只有一百万种密码组合可供使用

  • 浙江信息共享工程进社区

    7月9日下午,余杭区图书馆的技术人员来到西大街社区针对信息共享工程,进行实地考察,并为社区电子阅览室的电脑开通了浙江信息共享工程,同时对文化信息共享工程管理人员及十多位居民进行了运用指导,区图书馆人员采用文化信息资源共享工程的教法演练与学员

  • Oracle数据库中的时间类数据类型小结

    在ORACLE数据库中有一类比较特别的数据类型,它就是时间类的数据类型。这中数据类型表面上看看,像字符型的数据类型,但是又不是。因为他可以像数字型的数据类型那样,进行运算。所以说,他是兼有数字型与字符型数据类型的特点。掌握好时间型的数据类型

  • 补充知识:linux 轻量级的内核空间与用户空间传数据

    put_user和get_user很简单,看下英文文档即可。1.put_userNameput_user--Writeasimplevalueintouserspace.Synopsisput_user(x,ptr);ArgumentsxV

  • 通过spring实现对所有定时任务进行AOP拦截,和实现每个定时任务执行的时间从数据库动态获得

    通过spring实现对所有定时任务进行AOP拦截,和实现每个定时任务执行的时间从数据库动态获得,这样可以保证不需要重启容器就可以修改某个定时任务的执行时间1.spring.xml配置AOP切面<beanid="methodTimeAd

返回
顶部