如何從DLL返回一個字符串到Inno安裝程序？

Question

我需要返回一個字符串值到調用inno安裝腳本。問題是我找不到管理分配內存的方法。如果我在DLL端分配，我沒有任何東西可以在腳本端解除分配。我不能使用輸出參數，因爲在Pascal腳本中也沒有分配函數。我該怎麼辦？

Answer 1

下面是如何分配是從DLL返回字符串的示例代碼：

[code] 
Function GetClassNameA(hWnd: Integer; lpClassName: PChar; nMaxCount: Integer): Integer; 
External 'GetClassNameA@User32.dll StdCall'; 

function GetClassName(hWnd: Integer): string; 
var 
    ClassName: String; 
    Ret: Integer; 
begin 
    // allocate enough memory (pascal script will deallocate the string) 
    SetLength(ClassName, 256); 
    // the DLL returns the number of characters copied to the buffer 
    Ret := GetClassNameA(hWnd, PChar(ClassName), 256); 
    // adjust new size 
    Result := Copy(ClassName, 1 , Ret); 
end; 

Answer 2

做到這一點的唯一可行的方法是在Inno setup中分配一個字符串，並將指針和長度傳遞給您的DLL，然後在返回之前將其寫入長度值。

下面是一些示例代碼taken from the newsgroup。

function GetWindowsDirectoryA(Buffer: AnsiString; Size: Cardinal): Cardinal; 
external 'GetWindowsDirectoryA@kernel32.dll stdcall'; 
function GetWindowsDirectoryW(Buffer: String; Size: Cardinal): Cardinal; 
external 'GetWindowsDirectoryW@kernel32.dll stdcall'; 

function NextButtonClick(CurPage: Integer): Boolean; 
var 
    BufferA: AnsiString; 
    BufferW: String; 
begin 
    SetLength(BufferA, 256); 
    SetLength(BufferA, GetWindowsDirectoryA(BufferA, 256)); 
    MsgBox(BufferA, mbInformation, mb_Ok); 
    SetLength(BufferW, 256); 
    SetLength(BufferW, GetWindowsDirectoryW(BufferW, 256)); 
    MsgBox(BufferW, mbInformation, mb_Ok); 
end; 

另見this thread更多最新討論。

Answer 3

一個非常簡單的解決方案的情況下DLL函數被調用一次在安裝 - 在你的dll中使用全局緩衝區作爲字符串。

DLL的一面：

​​

的Inno-安裝側：

function MyFunc: PChar; 
external 'MyFunc@files:mydll.dll cdecl';