内存加载模块 -- 飘云测试通过

飘云

经过测试，非常稳定，32/64bit通用   我封装了几个函数，大家可以直接使用！！
DLL：

1. 
   
2. #include <windows.h>
   
3. #include "MyDll.h"
   
4. 
   
5. int  _stdcall AddFun(int a, int b)
   
6. {
   
7.         return a + b;
   
8. }
   
9. 
   
10. void  _stdcall GotoPYG(char *url)
    
11. {
    
12.         ShellExecute(NULL,"open", url, "", "", SW_SHOW );
    
13. }
    
14. 
    
15. //MyDll.def
    
16. LIBRARY MyDll
    
17. EXPORTS
    
18. AddFun
    
19. GotoPYG
    

复制代码

EXE：

1. // 函数原型
   
2. type
   
3.   TAddFunc = function(a, b: Integer): Integer; stdcall;
   
4.   TGotoPYGFunc = function(url: PChar): Boolean; stdcall;
   
5. implementation
   
6. 
   
7. uses
   
8.   BTMemoryModule;
   
9. 
   
10. {$R *.dfm}
    
11. 
    
12. {$R MyDll.RES}
    
13. 
    
14. {-------------------------------------------------------------------------------
    
15.   过程名:    GetMemoryDllPointer
    
16.   作用:      获取内存DLL指针
    
17.   作者:      piaoyun
    
18.   日期:      2013.12.20
    
19.   参数:      const ResName: string;[资源名] ResType: PChar[资源类型]
    
20.   返回值:    Pointer[内存DLL指针]
    
21. -------------------------------------------------------------------------------}
    
22. function GetMemoryDllPointer(const ResName: string; ResType: PChar): Pointer;
    
23. var
    
24.   MemoryStream: TResourceStream;
    
25.   lpDllData: Pointer;  // 若要保险起见，请把此指针放到全局 最后释放
    
26.   dwDllDataSize: DWORD;
    
27. begin
    
28.   MemoryStream := TResourceStream.Create(HInstance, ResName, ResType);
    
29.   try
    
30.     dwDllDataSize := MemoryStream.Size;
    
31.     lpDllData := GetMemory(dwDllDataSize);
    
32.     MemoryStream.Read(lpDllData^, dwDllDataSize);
    
33.   finally
    
34.     MemoryStream.Free;
    
35.   end;
    
36.   Result := BTMemoryLoadLibary(lpDllData, dwDllDataSize);
    
37.   // 上面函数似乎已经完全拷贝了，可以释放
    
38.   FreeMemory(lpDllData);
    
39. end;
    
40. 
    
41. {-------------------------------------------------------------------------------
    
42.   过程名:    GetMemoryDllFunPointer
    
43.   作用:      获取内存DLL某导出函数指针
    
44.   作者:      piaoyun
    
45.   日期:      2013.12.20
    
46.   参数:      const ResName: string;[资源名] ResType: PChar[资源类型]
    
47.   返回值:    Pointer[内存DLL导出函数指针]
    
48. -------------------------------------------------------------------------------}
    
49. function GetMemoryDllFunPointer(lpMemoryPointer: Pointer; FunName: PChar): Pointer;
    
50. begin
    
51.   Result := BTMemoryGetProcAddress(PBTMemoryModule(lpMemoryPointer), FunName);
    
52. end;
    
53. 
    
54. {-------------------------------------------------------------------------------
    
55.   过程名:    FreeMemoryDll
    
56.   作用:      释放内存DLL
    
57.   作者:      piaoyun
    
58.   日期:      2013.12.20
    
59.   参数:      lpMemoryPointer: Pointer
    
60.   返回值:    无
    
61. -------------------------------------------------------------------------------}
    
62. procedure FreeMemoryDll(lpMemoryPointer: Pointer);
    
63. begin
    
64.   if lpMemoryPointer <> nil then
    
65.     BTMemoryFreeLibrary(PBTMemoryModule(lpMemoryPointer));
    
66. end;
    
67. 
    
68. procedure Test();
    
69. var
    
70.   lpMemoryPointer: Pointer;
    
71.   AddFun: TAddFunc;
    
72.   GotoPYGFun: TGotoPYGFunc;
    
73. begin
    
74.   lpMemoryPointer := GetMemoryDllPointer('MYDLL', 'DLL');
    
75.   AddFun := GetMemoryDllFunPointer(lpMemoryPointer, 'AddFun');
    
76.   GotoPYGFun := GetMemoryDllFunPointer(lpMemoryPointer, 'GotoPYG');
    
77.   if Assigned(AddFun) then
    
78.     ShowMessage(IntToStr(AddFun(10 ,20)));
    
79.   if Assigned(GotoPYGFun) then
    
80.     GotoPYGFun('https://www.chinapyg.com');
    
81.    
    
82.   FreeMemoryDll(lpMemoryPointer);
    
83. end;
    
84. 
    
85. procedure TForm1.btnTestClick(Sender: TObject);
    
86. begin
    
87.   Test;
    
88. end;

复制代码

BTMemoryModule.rar (5.13 KB, 下载次数: 29)

2014-2-5 00:34 上传

点击文件名下载附件

xingbing

学习一下，好资源。

hu251405204

研究一下 感谢！感谢！

82207007

支持一个，就是不知道能不呢公用啊！

ld0522

学习一下，好资源。

cd37ycs

学习一下，好资源。