进程间共享内存资源的问题~

a67975176 2010-02-06 03:02:03
代码如下,功能是,当运行两个程序时,第二个程序的Edit1,Edut2 得到文件映射对象的句柄和记录在共享内存里面的数据。不明白的地方时,当记录程序的句柄有效,而当想记录字符串类型,运行第2个程序不能得到记录的字符串,请前辈们指点。谢谢~
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

const
MapFileName = '{CAF49BBB-AF40-4FDE-8757-51D5AEB5BBBF}';

type
TForm1 = class(TForm)
edt1: TEdit;
edt2: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

type
//共享内存
PShareMem = ^TShareMem;
TShareMem = record AppHandle: THandle; //保存程序的句柄
//str:string ;
end;

var
Form1: TForm1;
hMapFile: THandle;
PSMem: PShareMem;

implementation

{$R *.dfm}
procedure CreateMapFile;
begin
hMapFile := OpenFileMapping(FILE_MAP_ALL_ACCESS, False, PChar(MapFileName));
if hMapFile = 0 then
begin
hMapFile := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0,SizeOf(TShareMem), MapFileName);
PSMem := MapViewOfFile(hMapFile, FILE_MAP_WRITE or FILE_MAP_READ, 0, 0, 0);
//PSMem^.str := 'ni hao' ;
PSMem^.AppHandle := Application.Handle ;
end
else
begin
PSMem := MapViewOfFile(hMapFile,FILE_MAP_ALL_ACCESS, 0, 0, 0);
end;
Form1.edt1.Text := IntToStr(hMapFile );
//Form1.edt2.Text := PSMem^.str ;
Form1.edt2.Text := IntToStr(PSMem^.AppHandle );
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
CreateMapFile ;
end;


procedure FreeMapFile;
begin
UnMapViewOfFile(PSMem);
CloseHandle(hMapFile );
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
FreeMapFile ;
end;

end.
...全文
167 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
Mashuwei 2010-09-02
  • 打赏
  • 举报
回复
dddddddddddddddd
a67975176 2010-02-06
  • 打赏
  • 举报
回复
谢谢楼上的前辈赐教~非常感谢~
kfcoffe 2010-02-06
  • 打赏
  • 举报
回复
[Quote=引用楼主 a67975176 的回复:]
代码如下,功能是,当运行两个程序时,第二个程序的Edit1,Edut2 得到文件映射对象的句柄和记录在共享内存里面的数据。不明白的地方时,当记录程序的句柄有效,而当想记录字符串类型,运行第2个程序不能得到记录的字符串,请前辈们指点。谢谢~
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

const
    MapFileName = '{CAF49BBB-AF40-4FDE-8757-51D5AEB5BBBF}';

type
  TForm1 = class(TForm)
    edt1: TEdit;
    edt2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  //共享内存
    PShareMem = ^TShareMem;
    TShareMem = record AppHandle: THandle;  //保存程序的句柄
    //str:string ;
  end;

var
  Form1: TForm1;
  hMapFile: THandle;
  PSMem: PShareMem;

implementation

{$R *.dfm}
procedure CreateMapFile;
begin
  hMapFile := OpenFileMapping(FILE_MAP_ALL_ACCESS, False, PChar(MapFileName));
  if hMapFile = 0 then
  begin
    hMapFile := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0,SizeOf(TShareMem), MapFileName);
    PSMem := MapViewOfFile(hMapFile, FILE_MAP_WRITE or FILE_MAP_READ, 0, 0, 0);
SetLength(PSMem^.str,20);// 加上这句........
    //PSMem^.str := 'ni hao' ;
    PSMem^.AppHandle := Application.Handle ;
  end
  else
  begin
    PSMem := MapViewOfFile(hMapFile,FILE_MAP_ALL_ACCESS, 0, 0, 0);
  end;
  Form1.edt1.Text := IntToStr(hMapFile );
  //Form1.edt2.Text := PSMem^.str ;
  Form1.edt2.Text := IntToStr(PSMem^.AppHandle );
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  CreateMapFile ;
end;


procedure FreeMapFile;
begin
    UnMapViewOfFile(PSMem);
    CloseHandle(hMapFile );
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FreeMapFile ;
end;

end.
[/Quote]

或者

PShareMem = ^TShareMem;
TShareMem = record AppHandle: THandle; //保存程序的句柄
str:string[20] ; //指定大小
end;


lz试试2种方法,应该有可行的。
Linux系统提供了各种系统调用API用于进程的通信:    无名管道PIPE    命名管道FIFO    消息队列    共享内存    信号量    文件锁    信号signal....其中还包括system V和POSIX 两种接口标准,除此之外,Linux系统自身还扩展了自己的一套API接口用于进程通信,比如signalfd、timerfd、eventfd等。本视频教程为《Linux系统编程》第05期,本期课程将会带领大家学习Linux下将近15种进程通信IPC工具的使用,了解它们的通信机制、编程实例、使用场景、内核中的实现以及各自的优缺点。本课程会提供PDF版本的PPT课件和代码,学员购买课程后可到课程主页自行下载嵌入式自学路线指导图:------------------------------------------------------------------------------------------------------                   《嵌入式工程师自我修养》嵌入式自学系列教程                                          作者:王利涛------------------------------------------------------------------------------------------------------一线嵌入式工程师精心打造,嵌入式学习路线六步走: 第 1 步:Linux三剑客零基础玩转Linux+UbuntuGit零基础实战:Linux开发技能标配vim从入门到精通基础篇:零基础学习vim基本命令vim从入门到精通定制篇:使用插件打造嵌入式开发IDEmakefile工程实践基础篇:从零开始一步一步写项目的Makefilemakefile工程实践第2季:使用Autotools自动生成Makefile软件调试基础理论printf打印技巧Linux内核日志与打印使用QEMU搭建u-boot+Linux+NFS嵌入式开发环境第 2 步:C语言嵌入式Linux高级编程第1期:C语言进阶学习路线指南第2期:计算机架构与ARM汇编程序设计第3期:程序的编译、链接和运行原理第4期:堆栈内存管理第6期:数据存储与指针第7期:嵌入式数据结构与Linux内核的OOP思想第8期:C语言的模块化编程第9期:CPU和操作系统入门      搞内核驱动开发、光会C语言是不行的!      你还需要学习的有很多,包括:计算机体系架构、ARM汇编、程序的编译链接运行原理、CPU和操作系统原理、堆栈内存管理、指针、linux内核中的面向对象思想、嵌入式系统架构、C语言的模块化编程.....第 3 步:Linux系统编程第00期:Linux系统编程入门第01期:揭开文件系统的神秘面纱第02期:文件I/O编程实战第03期:I/O缓存与内存映射第04期:打通进程与终端的任督二脉第05期:进程通信-------------------we are here!‍    第 4 步:Linux内核编程‍    练乾坤大挪移,会不会九阳神功,是一道坎。搞驱动内核开发,懂不懂内核也是一道坎。第 5 步:嵌入式驱动开发    芯片原理、datasheet、硬件电路、调试手段、总线协议、内核机制、框架流程....第 6 步:项目实战    嵌入式、嵌入式人工智能、物联网、智能家居...

1,184

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧