类似横山少佐的男主:利用内存映射文件在两个进程间共享数据

来源：百度文库 编辑：中财网 时间：2024/05/05 08:52:19

利用内存映射文件在两个进程间共享数据

分类： Delphi 2008-10-03 13:04 366人阅读 评论(0) 收藏 举报
  1.   private
  2.     hMapFile: THandle;
  3.     MapFilePointer: Pointer;
  4.   public
  5.     { Public declarations }
  6.   end;
  7. var
  8.   Form1: TForm1;
  9. implementation
  10. {$R *.DFM}
  11. procedure TForm1.FormCreate(Sender: TObject);
  12. begin
  13.   hMapFile := CreateFileMapping (
  14.     $FFFFFFFF, // 特殊内存映射句柄
  15.     nil, page_ReadWrite, 0,10000,
  16.     'DdhDemoMappedFile'); // 文件名
  17.   if hMapFile <> 0 then
  18.     MapFilePointer := MapViewOfFile (
  19.       hMapFile, // 上面映象文件的句柄
  20.       File_Map_All_Access,
  21.       0, 0, 0) // 访问整个映象文件
  22.   else
  23.     ShowMessage ('hMapFile = 0');
  24.   if MapFilePointer = nil then
  25.     ShowMessage ('MapFilePointer = nil');
  26. end;
  28. procedure TForm1.BtnWriteClick(Sender: TObject);
  29. begin
  30.   StrCopy (PChar (MapFilePointer),
  31.     PChar (EditWrite.Text));//把内容写入共享内存
  32. end;
  34. procedure TForm1.BtnReadClick(Sender: TObject);
  35. var
  36.   S: string;
  37. begin
  38.   S := PChar (MapFilePointer);//从共享内存读出内容
  39.   EditRead.Text := S;
  40. end;

用这种方法，不但可以在不同的程序之间共享数据，还可以
在同一程序的不同实例间共享数据。为了及时通知其它进程
共享数据的变化，可以自定义一条用户消息，通过发消息来
实现。

如何在Hibernate映射文件中，写两个字段数据都可以自动生成？（其中一个是主键）） TAO进程间的共享内存通信如何进行？ 在vb中怎样在两个exe文件间传递参数与接收数据 如何在两个EXCEL文件中找出同样的数据？ 在机房里,怎样在主机里映射共享 ? 怎么在DOS下 打开映射文件 在TCP/IP协议簇中，一台计算机的两个用户进程间传递数据，报所使用的是哪种协议？ 两个lsass.exe在进程里,其中一个特别"吃"内存 怎样利用共享蠕虫在网吧里打开共享~~~ 关于两个机器共享文件的问题。 劲乐团的文件 删不掉老在 进程里有两个 结素不了！ 关于内存映射 什么是内存映射？ 请教各位映射网格驱动器和直接打开其共享文件有何不同? 利用FOUND.000文件恢复丢失的数据 如何利用DES算法实现文件数据的加密 在任务管理器里发现两个gkjeku.exe进程,占用了大量内存,怎么也结束不了,是怎么回事啊 在电脑任务管理器的进程中出现两个rundll．exe 进程，其中有一个占了95％以上的内存（512的），该怎么办？ 文件的映射是什么意思！ 在居域网内如何共享文件 文件怎么在网上邻居共享？ 怎样用在电骡上共享文件? 如何在两个文件间建立超链接 如何在两个文件间建立超链接