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

对于在安装中只调用一次的DLL函数的情况，一个非常简单的解决方案 - 在你的dll中使用全局缓冲区作为字符串。

DLL方面：

char g_myFuncResult[256]; extern "C" __declspec(dllexport) const char* MyFunc() { doSomeStuff(g_myFuncResult); // This part varies depending on myFunc's purpose return g_myFuncResult; }

Inno-Setup方面：

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

Answer 3

唯一可行的方法是在Inno设置中分配一个字符串，并将指向它的长度连同DLL一起传递给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了解更多最新讨论。

如何将字符串从DLL返回到Inno Setup？

3 个答案: