如何在delphi中直接從內存中執行代碼？

Question

是否可以模仿loadlibrary函數？我想從BLOB字段中加載一個庫，而不先寫入臨時文件，而且我需要一個不依賴於特定版本的delphi編譯器或Windows的解決方案，並且不會觸發防病毒軟件。

Answer 1

dzlib包含一個現成的對象從資源到內存中讀取一個DLL，並使用它，沒有它永遠保存到光盤：

這是主要的文件...

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

..但它從同一個倉庫需要其他文件。

Answer 2

是的，你可以，你不需要loadlibrary從內存中執行代碼 - 你需要使用VirtualAlloc功能與PAGE_EXECUTE標誌設置

---

更新來分配內存：這裏是一個快速和骯髒演示從內存的32位德爾福執行的代碼 - 我只測試了它的工作原理：

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 3

有上delphi.about.com的文章，顯示瞭如何從資源加載DLL。

它首先加載資源到內存中，然後加載使用Memory Module

取而代之的是資源，你可以使用一個數據庫或任何源要加載從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;