delphi内存映射与映射数据获取
2013-10-21 16:33
183 查看
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寻找一个地址
View Code
相关文章推荐
- delphi内存映射与映射数据获取
- 使用Delphi获取Word文件中的数据
- ORM框架通过映射(反射)获取数据库的数据
- delphi获取其他外部程序中TDBGridEh控件中的数据
- SSH框架之Hibernate的Map集合映射、Map集合数据的保存、集合数据的获取
- iOS 获取类的全部属性和全部方法 +(用例拓展:MVC的数据解析==数据映射)
- Delphi图像处理 -- 获取窗口或设备的图像数据
- Delphi Websocket组件获取数据
- Mybatis 获取resultMap的数据映射信息
- Delphi获取Android下GPS的NMEA 0183数据
- delphi中更新表字段update BLOB型数据(image)/获取图片转成BLOB型存入数据库
- delphi内存映射与映射数据获取
- Delphi 中ADO使用SQLOLEDB数据驱动时,无法获取存储过程RAISERROR返回的字符串描述
- 数据库中时间字段为null,获取数据库数据映射到类,类中相应的属性的值是null还是时间默认值
- 第二百六十四节,Tornado框架-基于正则的动态路由映射分页数据获取计算
- Hibernate学习-6-集合映射保存和集合数据获取案例
- MyBatis映射文件(集合数据的添加与获取,条件查询,模糊查询)
- highcharts在J2EE中绘制柱状图实例(从后台获取动态数据)
- hebernate获取数据的方式(find,load,get)区别
- PHP模拟登录并获取数据