Как вернуть строку из DLL в Inno Setup?

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 и передать указатель на нее вместе с длиной в 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 сторона:

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';