如何在delphi中直接从内存执行代码

Question

是否可以模拟loadlibrary函数？我想从BLOB字段加载一个库，而无需首先将其写入临时文件，我需要一个不依赖于特定版本的delphi编译器或windows的解决方案，并且不会触发防病毒软件。

Answer 1

是的，您可以，并且不需要loadlibrary从内存执行代码-您需要使用VirtualAlloc函数分配内存，并设置PAGE_execute标志

---

更新：这是一个从内存中为32位Delphi执行的代码的快速而肮脏的演示-我只测试了它的工作原理：

type
  TIncMe = procedure(var I: Integer);
var
  IncMeProc: TIncMe;
procedure IncMe(var I: Integer);
begin
  Inc(I);
end;
procedure CopyIncMe;
var
  Size: LongWord;
  Tmp: Pointer;
begin
  Size:= LongWord(@CopyIncMe) - LongWord(@IncMe);
  Tmp:= VirtualAlloc(nil, Size, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE);
  Move(Pointer(@IncMe)^, Tmp^, Size);
  IncMeProc:= Tmp;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  J: Integer;
begin
  J:= 0;
  CopyIncMe;
  while J < 10 do begin
    IncMeProc(J);
    ShowMessage(IntToStr(J));
  end;
  VirtualFree(@IncMeProc, 0, MEM_RELEASE);
end;

Answer 2

dzlib包含一个现成的对象，用于将dll从资源读取到内存中并在不将其保存到光盘的情况下使用它：

这是主文件。。。

http://sourceforge.net/p/dzlib/code/147/tree/dzlib/trunk/src/u_dzResourceDllLoader.pas

但它需要来自同一存储库的其他文件。

Answer 3

delphi.about.com上有一篇文章，介绍了如何从资源加载dll。

它首先将资源加载到内存中，然后使用内存模块从资源中加载dll

您可以使用数据库或任何要加载dll的源，而不是资源。一旦它在内存流中，您就可以使用以下代码加载并执行dll函数，这看起来很像调用dll的"正常"代码：

var
  btMM: PBTMemoryModule;
begin
  btMM := BTMemoryLoadLibary(mp_DllData, m_DllDataSize);
  try
    if btMM = nil then Abort;
    @m_TestCallstd := BTMemoryGetProcAddress(btMM, 'TestCallstd');
    if @m_TestCallstd = nil then Abort;
    m_TestCallstd('This is a Dll Memory call!');
  except
    Showmessage('An error occoured while loading the dll: ' + BTMemoryGetLastError);
  end;
  if Assigned(btMM) then BTMemoryFreeLibrary(btMM);
end;