关闭

浅谈Delphi中进程间的数据共享

674人阅读 评论(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);
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中编译通过。
 

0
0
查看评论

Android 应用程序之间数据共享

Android是如何实现应用程序之间数据共享的?一个应用程序可以将自己的数据完全暴露出去,外界根本看不到,也不用看到这个应用程序暴露的数据是如何存储的,或者是使用数据库还是使用文件,还是通过网上获得,这些一切都不重要,重要的是外界可以通过这一套标准及统一的接口和这个程序里的数据打交道,例如:添加(i...
  • zhangtian6691844
  • zhangtian6691844
  • 2016-08-13 19:14
  • 838

进程间的数据共享

//========================================================================//TITLE://    进程间的数据共享//AUTHOR://    norains//...
  • norains
  • norains
  • 2008-07-16 23:19
  • 10736

多线程间的数据共享的几种实现方式比较

需求:设计4个线程,其中两个线程每次对j增加1,另外两个线程对j减少1. 实现数据共享的几种方式比较: 1.使用同一个runnable对象 如果每个线程执行的代码相同,那么可以使用同一个runnable对象,这个runnable有那个共享数据,例如,卖票系统就是这么做的. 如...
  • lwj0310
  • lwj0310
  • 2014-04-25 11:28
  • 3361

java 线程间数据共享和android 线程间数据共享异同

(一)Java多线程编程访问共享对象和数据的方法 1、每个线程执行的代码相同,例如,卖票:多个窗口同时卖这100张票,这100张票需要多个线程共享。 2、每个线程执行的代码不同,例如:设计四个线程,其中两个线程每次对j增加1,另外两个线程每次对j减少1。 a、如果每个线程执行的代码相同,可以使...
  • tianyeming
  • tianyeming
  • 2015-11-30 15:23
  • 1101

一起talk C栗子吧(第八十四回:C语言实例--使用信号进行进程间通信一)

各位看官们,大家好,上一回中咱们说的是进程间通信的例子,这一回咱们说的例子是:使用信号进行进程间通信。闲话休提,言归正转。让我们一起talk C栗子吧!
  • talk_8
  • talk_8
  • 2015-12-27 09:39
  • 1719

多线程之不共享数据和共享数据

西城旧梦梦旧人 2017-03-28 18:00 我们在设计线程的时候,有时候希望他共享数据,有时候又希望不,那么这两种情况究竟怎么做呢? 不共享数据 不共享数据就是每个都是独立的线程,再去调自己的start方法就可以不共享数据了,下面看下代码。 public cla...
  • u011277123
  • u011277123
  • 2017-03-30 09:14
  • 773

JAVA 并发编程-多个线程之间共享数据(六)

多线程共享数据的方式: 1,如果每个线程执行的代码相同,可以使用同一个Runnable对象,这个Runnable对象中有那个共享数据,例如,卖票系统就可以这么做。2,如果每个线程执行的代码不同,这时候需要用不同的Runnable对象,例如,设计4个线程。,其中两个线程每次对j增加1,另外两...
  • hejingyuan6
  • hejingyuan6
  • 2015-07-25 10:09
  • 15236

[Linux C编程]进程间的通信(二)

共享内存实现分为两个步骤: 1、创建共享、打开共享内存,使用shmget函数 2、映射共享内存,将这段创建的共享内存映射到具体的进程空间去,使用shmat函数 3. 分离共享内存 4. 控制、删除共享内存 创建shmget: 函数的作用:在内核中创建共享内存 函数的原型:int shmget...
  • wzhCAlex
  • wzhCAlex
  • 2016-10-23 23:28
  • 410

Linux下进程间通信--共享内存:最快的进程间通信方式

Linux下进程间通信--共享内存:最快的进程间通信方式
  • Li_Ning_
  • Li_Ning_
  • 2016-08-11 20:27
  • 1559

《现代操作系统》读书笔记之——进程间通信

很多时候,进程需要和其他的进程进行通信。比如shell中的管道命令:ps -ef | grep nginx,一个命令的输出,作为另一个进程的输入,这就是进程间通信(Interprocess Communication)。     进程间通信主要需要解决三个问题:  ...
  • gzvincentlee
  • gzvincentlee
  • 2015-06-18 22:52
  • 603
    个人资料
    • 访问:213946次
    • 积分:2816
    • 等级:
    • 排名:第15005名
    • 原创:34篇
    • 转载:154篇
    • 译文:1篇
    • 评论:25条
    文章分类