两个程序 通过共享内存 传递数据 CreateFileMapping

QmyShareMem=record
    name:array[0..20] of Char;
    birthday:TDateTime;
    note:array[0..50] of Char;
end;

{程序一 创建 共享内存}
procedure TForm1.Button2Click(Sender: TObject);
var
  hFileMapping:THandle;
begin
  hFileMapping:=openfilemapping(File_MAP_ALL_ACCESS,False,PChar('ftwsnow'));
if hFileMapping=0 then
begin
    hFileMapping:=CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,SizeOf(QmyShareMem), PChar('ftwsnow'));
{内存映射的话,第一个参数必须是$FFFFFFFF,文件映射的话就是文件句柄
      第二个参数:安全,一般为nil
     第三个参数:映射文件的属性,我们要可读可写
      第四个参数:要映射数据大小的高4个字节
      第五个参数:要映射数据大小的低4个字节
      第六个参数:唯一的名字}
if hFileMapping = 0 then
raise Exception.Create('CreateFileMapping failed with error code '+ IntToStr(GetLastError));
end;
end;

{程序1 读 共享内存 并赋值 }
procedure TForm1.Button1Click(Sender: TObject);
var
  hFileMapping:THandle;
  cc:QmyShareMem;
  DataPointer:Pointer;
begin
  DataPointer:=nil;
  hFileMapping:=openfilemapping(File_MAP_ALL_ACCESS,False,PChar('ftwsnow'));
if hFileMapping<>0 then
begin
    DataPointer:=MapViewOfFile(hFileMapping,FILE_MAP_ALL_ACCESS,0,0,SizeOf(QmyShareMem));
if DataPointer = nil then
raise Exception.Create('MapViewOfFile failed with error code ' +IntToStr(GetLastError));
    FillChar(cc,SizeOf(cc),#0);
    cc.name:='安南秀';
    cc.birthday:=Now;
    cc.note:='Have a nice day~!;
    copymemory(DataPointer,@cc,SizeOf(cc)); {给共享内存赋值}
end;
end;

{程序二  读 共享内存}
procedure TForm1.Button1Click(Sender: TObject);
var
  datapointer:Pointer;
  hFileMapping:THandle;
begin
  hFileMapping:=openfilemapping(File_MAP_ALL_ACCESS,False,PChar('ftwsnow'));
if hFileMapping<>0 then
begin
    datapointer:=nil;
    DataPointer:=MapViewOfFile(hFileMapping,FILE_MAP_ALL_ACCESS,0,0,SizeOf(qmysharemem));
if datapointer<>nil then
      ShowMessage(qmysharemem(DataPointer^).name+DateTimeToStr(qmysharemem(DataPointer^).birthday));
end;
end;

{程序二 写 共享内存}
procedure TForm1.Button2Click(Sender: TObject);
var
  datapointer:Pointer;
  hFileMapping:THandle;
begin
  hFileMapping:=openfilemapping(File_MAP_ALL_ACCESS,False,PChar('ftwsnow'));
if hFileMapping<>0 then
begin
    datapointer:=nil;
    DataPointer:=MapViewOfFile(hFileMapping,FILE_MAP_ALL_ACCESS,0,0,SizeOf(qmysharemem));
if datapointer<>nil then
begin
      qmysharemem(DataPointer^).name:='李半妆';
      ShowMessage(qmysharemem(DataPointer^).name+DateTimeToStr(qmysharemem(DataPointer^).birthday));
end;
end;
end;

 

转载于:https://www.cnblogs.com/tk-del/archive/2012/03/31/2427420.html