怎么实现DLL与主程序的变量共享？(200分)

浅谈Delphi中进程间的数据共享
http://tech.163.com/school · 2005-08-11 11:49:07 · 来源: 天极网

　　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中编译通过。

内存镜像、文件镜像、HOOK等怎么得知变量呢？

[8D]

昨天还碰到有人问这个问题，我的回答就是，直接将变量或者对象的地址进行传输，当然了，这样做不大安全，需要自己确定类型并转换正确。
想安全一点，方法多的很，比如整个框架中至少应该有一个以上的公共单元，该单元放的都是需要共享的变量，然后所有的dll都要引用这个单元，这种方法简单，但是不灵活。
用内存映射文件也不失为一个好的方法，将别的进程的内存映射到本进程的内存，就跟操作本地一样，十分方便。

还有像kgm的回复吗？
内存镜像、文件镜像、HOOK等是怎么解决问题的？

楼主是走入误区了，就这么个小问题，没必要搞这么复杂。
技术是应以解决实际问题为目的。
另外，如果只是想让dll内的线程来响应某个事件然后决定程序的执行流程的话，可以用消息循环来控制。而不应该用共享变量的方式。

dll和程序本来就是同一片内存，内存映射简直没事找事做。
同意ufo，写个函数返回不就行拉，或者写个接口把要用到的属性全部封装进去

两种方式：

1， 如wr同志说的，用bpl的方式共享于exe与dll之间。
2，采用接口共享接口单元的方式， 传递参数就可以做到。

我喜欢后者，但是前者也是不错的方式。

怎么实现DLL与主程序的变量共享？
也就是主程序里要知道DLL里的变量、DLL里的程序也要知道EXE里的变量。不知道怎么做？在网上查了N天，说什么内存镜像、文件镜像、HOOK等可以解决问题，但还是不知道什么做？

深度历险一书里详细的例子

http://www.delphibbs.com/delphibbs/dispq.asp?lid=237150

如何在两个应用程序之间设置共享内存

文件映射怎么把记录类型的变量共享呀？

文件映射怎么把记录类型的变量共享呀？

借個寶地，請問在dll中的adoquery怎樣和mainform中的adoconnection連接。

文件映射做成DLL后，当另一个或多个DLL退出Free后，这个文件映射的DLL里再使用变量就会出错这是为什么呢？应该怎么解决？

http://www.delphibbs.com/delphibbs/dispq.asp?lid=3641975