信息发布软件,b2b软件,广告发布软件
标题:
Delphi程序调用电脑DLL的全过程解读
[打印本页]
作者:
群发软件
时间:
2017-7-31 19:36
标题:
Delphi程序调用电脑DLL的全过程解读
本帖最后由 群发软件 于 2017-7-31 19:39 编辑
DLL是创建Windows应用程序，实现代码重用的重要手段。那么当我们需要在进程间共享数据时，怎样做才能快捷方便地实现呢？在32位应用系统中，每个应用程序会将DLL映射到自己的地址空间，同时DLL中的数据也就随之被映射了。这样，每个应用程序都有自己的数据实例，在一个应用程序中修改DLL中的全局变量，不会影响其它的应用程序。DLL的使用似乎与我们的目的相背离，那么如何才能实现我们想要的东东呢？这里给大家介绍一种特殊的技术，那就是内存映射文件。
内存映射文件提供了一种方法，就是在WIN32系统的地址空间保留一块内存区域，物理存储可以向其中提交。并且内存映射文件不只是磁盘文件，也可以是WIN32的页面文件，而且后者比前者要好，因为这意味着可以像访问一个磁盘文件那样访问内存中的一个区域，而不用创建临时文件，用完后还得删除它。WIN32有自己的管理页面调度文件，当不需要页面调度文件时，系统会自动将有关区域释放。以下是具体的实现代码：
library Project1;
uses
shareMem,
windows,
SysUtils,
Classes;
const
MFileName: Pchar = ’ShareData’;
//定义一个记录类型，你所需要共享的数据就保存在这里。
//当在进程中调用GetDllData时，进程中也应该定义一个与这个一样的记录类型。
type
PGlobalDllData = ^TGlobalDllData;
TGlobalDllData = record
s: string[50];
i: integer;
end;
var
GlobalData: PGlobalDllData; //这是一个全局变量，指向创建的内存映射文件。
MapHandle: THandle;
//给外部进程调用的过程，当外部进程调用这个过程后，形参AGlobalData就指向了我//们创建的内存映射文件. 我们可以创建两个进程, 同时调用这个过程, 那么在其中一个进 //程中修改数据后, 在另外一个进程中既可反应出来, 实现了我们需要的共享.
procedure GetDllData(var AGlobalData: PGlobalDllData);stdcall; begin
AGlobalData := GlobalData;
end;
procedure OpenThisData;
var
size: integer;
begin
size := sizeof(TGlobalDllData);
//创建一个内存文件映射对象，MfileName保存的值就是该对象的名字。
mapHandle := CreateFileMapping(Dword(-1), nil, page_readWrite, 0, size, MFileName);
if mapHandle = 0 then
RaiseLastWin32Error;
//把文件的视图映射到调用进程的地址空间，该函数的返回值就是该对象的首地址。注//意，这是调用进程的地址，两个应用程序调用该DLL，返回值是不一样的。
GlobalData := MapViewOfFile(mapHandle, File_map_all_Access, 0, 0, size);
Globaldata^.s := ’TEST’;
GlobalData^.i := 5;
if GlobalData = nil then
begin
CloseHandle(MapHandle);
RaiseLastWin32Error;
end;
end;
//DLL从进程中分离出来时，应该释放相应的空间
procedure CloseThisData;
begin
unmapViewOfFile(GlobalData);
closeHandle(MapHandle);
end;
procedure DllEntryPoint(dwReason: DWord);
begin
case dwReason of
Dll_Process_Attach: OpenThisData; //调用DLL时传入的参数，由系统自动传入
Dll_Process_Detach: CloseThisData; //释放DLL时传入的参数，系统自动传入。
end;
end;
{$R *.res}
exports
GetDllData; //外部应用程序调用的就是这个过程。
begin
DllProc := @DllEntryPoint; //该变量是一个全局变量，由它来指定DLL的入口及出 //口函数。
DllEntryPoint(Dll_Process_Attach);
end.
//以上代码在DELPHI6中编译通过。
Delphi中DLL数据共享
二月 13th, 2011
在16位Windows时代,DLL内存的处理和32位Win32的处理时不同的。在16位的DLL中，可以在不同应用程序之间共享全局内存。换句话说，如果在16为DLL中声明了一个全局变量，任何调用该DLL的引用程序都可以修改这个变量，这种修改回反映到其他应用程序中。
在Win32中不存在这种DLL的全局数据共享。由于每个应用程序进程把DLL映射到自己的地址空间中，DLL的数据也映射到了应用程序进程空间中。所以每个应用程序具有自己的DLL数据实例。一个应用程序对DLL中全局数据的修改不会影响到其他应用程序。
那如何实现在Win32下DLL数据共享呢，这是可以用内存映射文件来储存共享数据。内存映像文件可以映射一个文件，一个文件中的指定区域或者指定的内存块，其中的数据就可以用内存读写指令来直接访问，而不必频繁的调用I/O系统函数，从而提高了文件存取速度和效率。
映像文件的另一个重要应用就是用来支持永久命名的共享内存。要在两个应用程序之间共享内存，可以在一个应用程序中创建一个文件并映射之，然后另一个程序可以通过打开和映射该文件，并把它作为自己进程的内存来使用。
创建映像文件
CreateFileMapping( hFile: THandle; lpFileMappingAttributes: PSecurityAttributes; flProtect, dwMaximumSizeHigh, dwMaximumSizeLow: DWORD; lpName: PChar): THandle;
hFile:是调用FileOpen或FileCreate函数后返回的文件句柄。如果不是共享文件而是共享内存区域，在这里需要设为$FFFFFFFF(DWord(-1)).
lpFileMappingAttributes参数是文件映像的安全属性结构（一般设为nil）。
flProtect 参数是文件的保护类型（PAGE_READ为可读 PAGE_WRITE为可写 PAGE_READWRITE为可读写)
dwMaximumSizeHigh 参数用于指定文件映像的大小的高32位。
dwMaximumSizeLow 参数用于指定文件映像的大小的低32位。
lpName 参数用于指定映像名。
如果函数调用成功，将返回文件映像的句柄。
打开映像文件
OpenFileMapping( dwDesiredAccess: DWORD; bInheritHandle: BOOL; lpName: PChar): THandle;
dwDesiredAccess 用于指定访问数据的模式（FILE_MAP_READ为可读 FILE_MAP_WRITE为可写 FILE_MAP_ALL_ACCESS为可读写）
bInheritHandle 参数指定OpenFileMapping 函数返回的句柄在以后新建的子进程中是否得到继承。
lpName 参数用于指定映像名。
如果函数调用成功，将返回文件映像的句柄。
映射到本地进程
MapViewOfFile( hFileMappingObject: THandle; dwDesiredAccess: DWORD; dwFileOffsetHigh,dwFileOffsetLow,dwNumberOfBytesToMap
WORD): Pointer;
hFileMappingObject 参数通过CreateFileMapping 或 OpenFileMapping返回的文件映像句柄。
dwDesiredAccess 用于指定访问数据的模式（FILE_MAP_READ为可读 FILE_MAP_WRITE为可写 FILE_MAP_ALL_ACCESS为可读写）
dwFileOffsetHigh 参数用于指定数据在映像文件中的起始位置的高32为
dwFileOffsetLow 参数用于指定数据在映像文件中的起始位置的低32位。
dwNumberOfBytesToMap 参数用于指定需要映射的字节数，设为0表示文件或内存区域的全部。
如果函数调用成功将返回数据映射的起始地址，这是本进程中可以直接访问的内存地址指针。
关闭内存映射
UnmapViewOfFile( lpBaseAddress: Pointer): BOOL;
lpBaseAddress为MapViewoffFile返回的内存指针
作者:
yirenzhuang
时间:
2017-8-1 07:51
错，服务也非常到位，后面有朋友都会介绍过来的，加油加油！
作者:
89260881
时间:
2017-8-2 23:02
号和35号的热情服务，谢谢，下次还会找你们哦
作者:
cjagl520
时间:
2017-8-3 06:05
真的很好
作者:
ziyang701
时间:
2017-8-3 12:10
的用心，有耐心，下次再合作咯。
作者:
zzjiuzi008
时间:
2017-8-4 19:41
好，页面设计很满意，而且也很快，非常有效率，第一次买，遇到这么好的卖家，这么高效的服务，真的太幸运了，太谢
作者:
脱颖而出
时间:
2017-8-4 21:19
，一般般
作者:
pxynmi018
时间:
2017-8-7 03:29
错服务也好尤其是模版老师我是必须得夸一夸了服务态度都是10颗星一开始我不太懂那个模版怎么安装把我给急的都快撞电脑了是模版老师不厌其烦一步一步指导的现在我的店铺好漂亮啊真心感谢店家和模版老师哦!
作者:
阿拉丁
时间:
2017-8-11 03:18
.耐心。负责
作者:
mmgg520
时间:
2017-8-12 03:53
是不错，是超级赞的，但后续的服务希一如以前。
作者:
694012770
时间:
2017-8-12 06:31
，就是客服回复速度太慢，有时候问个信息竟然没人回
作者:
我爱苏苏
时间:
2017-8-13 21:34
，大爱，喜欢，是我想要的，不错，值得购买，
作者:
a001hao
时间:
2017-8-16 00:52
要求比较高的人，在合作的过程中客服一次又一次耐心的和我沟通，这种态度真的很让人感动，希望生意兴隆
作者:
阿拉丁
时间:
2017-8-17 04:11
和设计直接沟通外其他都还可以，图片做的质量还不错，就是服务的客服月亮下午2点才上班，有时候还不在线！服务态
作者:
nble002
时间:
2017-8-19 10:05
及时做出评价,系统默认好评!
作者:
123
时间:
2017-8-22 21:59
挺好的，很耐心的解答，做的很不错的设计，挺漂亮的，满意。
作者:
mmgg
时间:
2017-8-22 22:01
使用了，很好很稳定！客服和技术人员服务耐心细致，赞一个！这个价格也特别实在，性价比很高
作者:
asz111
时间:
2017-8-22 22:40
很好，我很喜欢，谢谢
作者:
kevin3898
时间:
2017-8-22 23:51
，问了很多问题，都耐心回答，效果很好，不信自己看，名字叫宿迁德乃福，内容后期自己添加有点难，慢慢学吧，不多说了开发好不好你看看我公众号不就行了
作者:
wangliuh11
时间:
2017-8-25 14:57
，虽然不是我想要的效果，但是也在努力去做了。
作者:
z2340868
时间:
2017-8-25 15:02
计的非常棒。。。服务态度很好。。。。非常满意，值得购买。
作者:
xubaojin
时间:
2017-8-26 16:17
老板很认真！很负责！
作者:
阿拉丁
时间:
2017-8-28 21:57
店家售后服务很好！
作者:
脱颖而出
时间:
2017-8-30 11:23
雷，雷雷雷，亲很好，买了好多模板，不痛苦我就换模板
欢迎光临 信息发布软件,b2b软件,广告发布软件 (http://postbbs.com/)
Powered by Discuz! X3.2
WORD): Pointer;