delphi内存映射与映射数据获取
1.定义数据结构
type
//外部接口结构
PBM_Interface = ^TBM_Interface;
TBM_Interface = record
UserID:Integer; //登陆用户ID
UserName: string; //登陆用户姓名
end;
================================================================
2.调用创建映射的函数
function BM_View(const IParam : TBM_Interface) : Integer;stdcall;
begin
try
MemShare(IParam); //IParam为需要放入内存的数据
finally
end;
end;
================================================================
3.开始创建
function MemShare (const IParem : TBM_Interface) : Integer;
MapHandle: THandle;
GlobalData: PBM_Interface;
Begin
Result := 1;
try
MapHandle := CreateFileMapping(dword(-1),nil,PAGE_READWRITE,0,32*1024,PChar(con_ShareMemName));
//注1
//con_ShareMemName:=‘HF_KKK‘
if MapHandle = 0 then
raise Exception.Create(‘创建内存映射失败‘);
GlobalData := MapViewOfFile(mapHandle, File_map_all_Access, 0, 0, 32*1024);
GlobalData^.UserID := IParem.UserID;
if GlobalData = nil then
begin
CloseHandle(MapHandle);
raise Exception.Create(‘初始化内存映射失败‘);
end;
Result := 0;
except
end;
end;
================================================================
4.从内存中获取数据
{-------------------------------------------------------------------------------
描述: 从内存影像中获取数据函数
参数: 无
返回值: PBM_Interface
-------------------------------------------------------------------------------}
function GetMem:PBM_Interface;
var
hShareMap:THandle;
cc:PBM_Interface;
begin
Result := nil;
hShareMap := OpenFileMapping(FILE_MAP_READ, FALSE, PChar(con_ShareMemName));
//con_ShareMemName:=‘HF_KKK‘
if hShareMap <> 0 then
begin
cc := MapViewOfFile(hShareMap, FILE_MAP_READ, 0, 0, 32 * 1024);
if cc <> nil then
Result := cc;
end;
end;
================================================================
5.取得userid
GetBMMem.UserID
================================================================
注1：
内存映射API函数CreateFileMapping创建一个有名的共享内存：
HANDLE CreateFileMapping(
HANDLE hFile, //映射文件句柄，设为0xFFFFFFFF以创建一个进程间共享的对象
LPSECURITY_ATTRIBUTES lpFileMappingAttributes, // 安全属性
DWORD flProtect, // 保护方式
DWORD dwMaximumSizeHigh, //对象的大小
DWORD dwMaximumSizeLow,
LPCTSTR lpName // 必须为映射文件命名
);
与虚拟内存类似，保护方式可以是PAGE_READONLY或是PAGE_READWRITE。如果多进程都对同一共享内存进行写访问，则必须保持相互间同步。映射文件还可以指定PAGE_WRITECOPY标志，可以保证其原始数据不会遭到破坏，同时允许其他进程在必要时自由的操作数据的拷贝。
注2：OpenFileMapping
声明：
Declare Function OpenFileMapping Lib "kernel32" Alias "OpenFileMappingA" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal lpName As String) As Long
说明：
打开一个现成的文件映射对象
返回值：
Long，指定文件映射对象的句柄。零表示出错。会设置GetLastError
参数表：
参数 类型及说明：
dwDesiredAccess Long，带有前缀FILE_MAP_???的一个常数。参考MapViewOfFile函数的dwDesiredAccess参数的说明：
bInheritHandle Long，如这个函数返回的句柄能由当前进程启动的新进程继承，则这个参数为TRUE
lpName String，指定要打开的文件映射对象名称
注3：MapViewOfFile, MapViewOfFileEx
VB声明
Declare Function MapViewOfFile& Lib "kernel32" (ByVal hFileMappingObject As Long, ByVal dwDesiredAccess As Long, ByVal dwFileOffsetHigh As Long, ByVal dwFileOffsetLow As Long, ByVal dwNumberOfBytesToMap As Long)
Declare Function MapViewOfFileEx& Lib "kernel32" (ByVal hFileMappingObject As Long, ByVal dwDesiredAccess As Long, ByVal dwFileOffsetHigh As Long, ByVal dwFileOffsetLow As Long, ByVal dwNumberOfBytesToMap As Long, lpBaseAddress As Any)
说明
将一个文件映射对象映射到当前应用程序的地址空间。MapViewOfFileEx允许我们指定一个基本地址来进行映射
返回值
Long，文件映射在内存中的起始地址。零表示出错。会设置GetLastError
参数表
参数 类型及说明
hFileMappingObject Long，文件映射对象的句柄
dwDesiredAccess Long，下述常数之一：
FILE_MAP_WRITE 映射可读可写。文件映射对象必须通过PAGE_READWRITE访问创建
FILE_MAP_READ 映射只读。文件映射对象必须通过PAGE_READ 或 PAGE_READWRITE访问创建
FILE_MAP_ALL_ACCESS 与FILE_MAP_WRITE相同
FILE_MAP_COPY 映射时保留写操作的副本。文件映射对象必须用PAGE_WRITECOPY访问在win95下创建
dwFileOffsetHigh Long，文件中映射起点的高32位地址
dwFileOffsetLow Long，文件中映射起点的低32位地址
dwNumberOfBytesToMap Long，文件中要映射的字节数。用零映射整个文件映射对象
lpBaseAddress Long，指定映射文件映射对象的地址。如这个地址处没有足够的内存空间，那么对MapViewOfFileEx的调用会失效。零表示允许windows寻找一个地址
