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

    分类：技术心得      Delphi 2009 中 string 与 Char 的改变    delphi中Format的用法 

    将本文章摘录到：

    版权声明：转载时请以超链接形式标明文章原始出处和作者信息
    http://blog.bloodbird.com/tianwufengBlogs/Technology/200905/20090501121547.Html

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

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

    delphi 代码
     
    1. library Project1;
    2. uses
    3. shareMem,
    4. windows,
    5. SysUtils,
    6. Classes;
    7. const
    8. 　MFileName: Pchar = ’ShareData’;
    9. 　//定义一个记录类型，你所需要共享的数据就保存在这里。
    10. 　//当在进程中调用GetDllData时，进程中也应该定义一个与这个一样的记录类型。
    11. type
    12. 　PGlobalDllData = ^TGlobalDllData;
    13. 　TGlobalDllData = record
    14. 　s: string[50];
    15. 　i: integer;
    16. end;
    17.  
    18. var
    19. 　GlobalData: PGlobalDllData; //这是一个全局变量，指向创建的内存映射文件。
    20. 　MapHandle: THandle;
    21.  
    22. 　//给外部进程调用的过程，当外部进程调用这个过程后，形参AGlobalData就指向了我//们创建的内存映射文件. 我们可以创建两个进程, 同时调用这个过程, 那么在其中一个进 //程中修改数据后, 在另外一个进程中既可反应出来, 实现了我们需要的共享.
    23.  
    24. procedure GetDllData(var AGlobalData: PGlobalDllData);stdcall; begin
    25. 　AGlobalData := GlobalData;
    26. end;
    27.  
    28. procedure OpenThisData;
    29. var
    30. 　size: integer;
    31. begin
    32. 　size := sizeof(TGlobalDllData);
    33. 　//创建一个内存文件映射对象，MfileName保存的值就是该对象的名字。
    34. 　mapHandle := CreateFileMapping(Dword(-1), nil, page_readWrite, 0, size, MFileName);
    35.  
    36. 　if mapHandle = 0 then
    37. 　　RaiseLastWin32Error;
    38. 　　//把文件的视图映射到调用进程的地址空间，该函数的返回值就是该对象的首地址。注//意，这是调用进程的地址，两个应用程序调用该DLL，返回值是不一样的。
    39. 　GlobalData := MapViewOfFile(mapHandle, File_map_all_Access, 0, 0, size);
    40.  
    41. 　Globaldata^.s := ’TEST’;
    42. 　GlobalData^.i := 5;
    43. 　if GlobalData = nil then
    44. 　begin
    45. 　　CloseHandle(MapHandle);
    46. 　　RaiseLastWin32Error;
    47. 　end;
    48. end;
    49. //DLL从进程中分离出来时，应该释放相应的空间
    50. procedure CloseThisData;
    51. begin
    52. 　unmapViewOfFile(GlobalData);
    53. 　closeHandle(MapHandle);
    54. end;
    55.  
    56. procedure DllEntryPoint(dwReason: DWord);
    57. begin
    58. 　case dwReason of
    59. 　　Dll_Process_Attach: OpenThisData; //调用DLL时传入的参数，由系统自动传入
    60. 　　Dll_Process_Detach: CloseThisData; //释放DLL时传入的参数，系统自动传入。
    61. 　end;
    62. end;
    63.  
    64. {$R *.res}
    65.  
    66. exports
    67. 　GetDllData; //外部应用程序调用的就是这个过程。
    68. 　
    69. begin
    70. 　DllProc := @DllEntryPoint; //该变量是一个全局变量，由它来指定DLL的入口及出 //口函数。
    71. 　DllEntryPoint(Dll_Process_Attach);
    72. end.
    73. //以上代码在DELPHI6中编译通过。

     

    Tag：数据共享
    引用地址：
    天舞枫 发表于2009-05-01 12:15:47 | 分类:技术心得 | 浏览( ) | 评论( ) | 收藏这篇日志

    评论

    正在读取日志的评论数据,请稍后……
    正在加载日志评论签写框，请稍后……