delphi通过使用“内存映射文件”,实现内存共享

一.原理

    通过使用“内存映射文件”,实现内存共享

二.主要操作

    共享内存结构:

  PShareMem = ^TShareMem;
  TShareMem = Record
    id:string[10];
    name:string[20];
    age:Integer;  end;

    基本变量:

    shareMemName:string; //共享内存名
    fileHandle : THandle;//内存映射文件句柄
    pUserInfoShareMem : PShareMem;//指向共享内存的指针

    a)写入程序

        1)创建“内存映射文件”

   //=CreateFileMapping($FFFFFFFF, , PAGE_READWRITE, , SizeOf(TShareMem), PChar(shareMemName));
 fileHandle <>  
   ;

        2)建立映射关系

  //将“内存映射文件”与“应用程序地址空间”建立映射关系
  pUserInfoShareMem:=MapViewOfFile(fileHandle,FILE_MAP_ALL_ACCESS,0,0,sizeof(TShareMem));  if pUserInfoShareMem <> nil then
  begin
     Self.Memo1.Lines.Add('已成功建立映射关系!');  end;

        3)写入信息

   pUserInfoShareMem.id:='8888';
   pUserInfoShareMem.name:='Terry';
   pUserInfoShareMem.age:=25;
   Self.Memo1.Lines.Add('已向共享内存中写入用户信息!');

        4)解除映射关系

  //解除“内存映射文件”与“应用程序地址空间”的映射关系  if pUserInfoShareMem<> nil then
     UnmapViewOfFile(pUserInfoShareMem);
  Self.Memo1.Lines.Add('已成功解除映射关系!');

        5)关闭“内存映射文件”

  //关闭内存映射文件  if fileHandle<> 0 then
     CloseHandle(fileHandle);
  Self.Memo1.Lines.Add('已成功关闭内存映射文件!');

 

    b)读取程序

        1)打开“内存映射文件”

 fileHandle:=OpenFileMapping(FILE_MAP_ALL_ACCESS,false,pchar(shareMemName));  if self.FileHandle <> 0 then
  begin
    Self.Memo1.Lines.Add('已成功打开内存映射文件!')  end;

        2)建立映射关系

   pUserInfoShareMem:= MapViewOfFile(self.FileHandle,windows.FILE_MAP_ALL_ACCESS,0,0,sizeof(TShareMem));   if pUserInfoShareMem <> nil then
   begin
     Self.Memo1.Lines.Add('已成功建立映射关系!');   end;

        3)读取信息

   if pUserInfoShareMem <> nil then
   begin
      userInfoStr:='共享内存中获取的用户信息如下:'+#13#10;
      userInfoStr:=userInfoStr+'用户Id号:'+pUserInfoShareMem.id+#13#10;
      userInfoStr:=userInfoStr+'用户姓名:'+pUserInfoShareMem.name+#13#10;
      userInfoStr:=userInfoStr+'用户年龄:'+IntToStr(pUserInfoShareMem.age);
      Self.Memo1.Lines.Add(userInfoStr);   end;

        4)解除映射关系

  if pUserInfoShareMem<> nil then
     UnmapViewOfFile(pUserInfoShareMem);
  Self.Memo1.Lines.Add('已成功解除映射关系!');

        5)关闭“内存映射文件”

  if fileHandle<> 0 then
     CloseHandle(fileHandle);
  Self.Memo1.Lines.Add('已成功关闭内存映射文件!');

 

    c)交互顺序

       1)“写入程序”创建共享内存,并写入信息

           

       2)“读取程序”从共享内存读取信息,并解除映射,关闭文件

           

       3) “写入程序”解除映射,关闭文件

          

 

     PS:“写入程序”解除映射关系,关闭内存映射文件对“读取程序”的影响。
          1) 写入程序解除映射关系,不影响读取程序的读取操作关闭内存映射文件,会

             影响读取程序的读取操作
          2) 解除映射关系与关闭内存映射文件无顺序要求,及时不解除映射关系也可直

             接关闭内存映射文件
          3) 两个程序通讯时,要使用sendmessage,同步操作,而不是postmessage,

             防止前者已关闭内存映射文件,而后者还没读取。


出自:http://www.cnblogs.com/python001/

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值