标签：.class 共享数据 效率 efi 数据 rap 编程 info 速度
在win32中，通过使用映像文件在进程间实现共享文件或共享内存数据块,如果利用相同的映像名字或文件句柄，则不同的进程可以通过一个指针来读写一个文件或同一个内存数据块，并把它当做该进程内地址空间的一部分
在Windows9x/NT/200 向内存中装载文件时，使用了特殊的全局内存区。在该区域内，应用程序的虚拟内存地址和文件中的响应位置对应，由于所有进程恭喜了一个用于存储映像文件的全局内存区域，因而当两个进程装载相同模块(应用程序exe或dll文件)时，他们实际上是在内存中共享其执行代码
内存映像文件可以映射一个文件、一个文件中的指定区域或者指定的内存块，其中的数据就可以用内存读写指令直接访问，而不比频繁的调用ReadFile或WriteFIle这样的I/O系统函数，从而提高了文件存取速度和效率
发送数据端
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
const
WM_DATA = WM_USER + 1024;
type
PShareMem = ^TPShareMem;
TPShareMem = record
//共享数据
Data: array[0..255] of Char;
end;
TForm1 = class(TForm)
btn1: TButton;
procedure btn1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
PShare: PShareMem;
implementation
{$R *.dfm}
var
HMapping: THandle;
HMapMutex: THandle;
const
MAP_FILE_SIZE = 1000;
REQUEST_TIME_OUT = 1000;
{打开建立共享内存}
procedure OpenMap;
begin
{创建一个映像文件}
HMapping := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, SizeOf(TPShareMem), PChar('MapName'));
if HMapping = 0 then
begin
ShowMessage('不能创建内存映像文件');
Exit
end;
{将映像文件映射到进程的地址空间}
PShare := PShareMem(MapViewOfFile(HMapping, FILE_MAP_ALL_ACCESS, 0, 0, 0));
if PShare = nil then
begin
CloseHandle(HMapping);
ShowMessage('映像文件在内存中不存在');
Application.Terminate;
Exit
end;
end;
{关闭共享内存}
procedure CloseMap;
begin
if PShare <> nil then
begin
{从进程的地址空间中撤销映像文件}
UnmapViewOfFile(PShare);
end;
if HMapping <> 0 then
begin
{关闭映像文件}
CloseHandle(HMapping);
end;
end;
{建立互斥对象}
function LockMap: Boolean;
begin
Result := True;
HMapMutex := CreateMutex(nil, False, PChar('My MUTEX NAME COES HERE'));
if HMapMutex = 0 then
begin
ShowMessage('不能创建互斥对象');
Result := False;
end
else
begin
if WaitForSingleObject(HMapMutex, REQUEST_TIME_OUT) = WAIT_FAILED then
begin
ShowMessage('不能对互斥对象枷锁');
Result := False;
end;
end;
end;
procedure UnlockMAP();
begin
{释放、关闭互斥对象}
ReleaseMutex(HMapMutex);
CloseHandle(HMapMutex);
end;
procedure TForm1.btn1Click(Sender: TObject);
var
str: PChar;
begin
str := PChar('简单的共享内存示例');
//把数据拷贝到共享内存
CopyMemory(@(pshare^.Data), str, Length(str)*SizeOf(Char));
//发送消息表明有数据
PostMessage(FindWindowW(nil, 'Form2'), WM_DATA, 1, 2);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
OpenMap();
LockMap();
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnlockMAP();
CloseMap();
end;
end.Length(str)*SizeOf(Char)接收数据端
unit Unit2;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
const
//自定义消息
WM_DATA = WM_USER + 1024;
type
PShareMem = ^TPShareMem;
TPShareMem = record
//共享数据 注意要与发送数据段的定义相同
Data: array[0..255] of Char;
end;
type
TForm2 = class(TForm)
mmo1: TMemo;
btn1: TButton;
procedure FormCreate(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure getShareInfo(var Msg: TMessage); message WM_DATA;
end;
var
Form2: TForm2;
PShare: PShareMem;
MapHandle: THandle;
implementation
{$R *.dfm}
{ TForm2 }
{处理wm_data 自定义消息}
procedure TForm2.btn1Click(Sender: TObject);
begin
CloseHandle(MapHandle);
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
MapHandle := OpenFileMapping(FILE_MAP_WRITE, False, PChar('MapName'));
if MapHandle = 0 then
begin
ShowMessage('不能定位内存映像文件块');
end;
{将映像文件映射到进程的地址空间}
PShare := PShareMem(MapViewOfFile(MapHandle, FILE_MAP_ALL_ACCESS, 0, 0, 0));
if PShare = nil then
begin
CloseHandle(MapHandle);
ShowMessage('不能显示映像文件');
Application.Terminate;
Exit;
end;
FillChar(PShare^, SizeOf(TPShareMem), 0);
end;
procedure TForm2.getShareInfo(var Msg: TMessage);
begin
{如果是发送数据端发过来的参数是1}
if Msg.LParam = 2 then
begin
//显示共享内存中的数据
mmo1.Text := PShare^.Data;
end;
PShare := PShareMem(MapViewOfFile(MapHandle, FILE_MAP_ALL_ACCESS, 0, 0, 0));
if PShare = nil then
begin
CloseHandle(MapHandle);
ShowMessage('不能显示映像文件');
Application.Terminate;
Exit;
end;
FillChar(PShare^, SizeOf(TPShareMem), 0);
end;
end.标签：.class 共享数据 效率 efi 数据 rap 编程 info 速度
原文地址：https://www.cnblogs.com/coder163/p/9150598.html
