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

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.
...全文
146 3 打赏 收藏 举报
写回复
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种方法,应该有可行的。
相关推荐
发帖
Windows SDK/API

1177

社区成员

Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
帖子事件
创建了帖子
2010-02-06 03:02
社区公告
暂无公告