Come restituire una stringa da una DLL a Inno Setup?

Question

Devo restituire un valore stringa allo script di chiamata inno setup. Il problema è che non riesco a trovare un modo per gestire la memoria allocata. Se alloco sul lato DLL, non ho nulla da deallocare sul lato script. Non riesco a utilizzare un parametro di output, perché non esiste alcuna funzione di allocazione in Pascal Script. Cosa dovrei fare?

Answer 1

Ecco un codice di esempio di come allocare una stringa che ritorna da una 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

L'unico modo pratico per eseguire questa operazione consiste nell'assegnare una stringa in Inno Setup e passare un puntatore a quello insieme alla lunghezza della DLL che quindi scrive fino al valore della lunghezza prima di tornare.

Ecco alcuni esempi di codice 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; 

vedono anche this thread per più aggiornate discussione.

Answer 3

una soluzione molto semplice per il caso in cui la funzione di DLL viene chiamato una sola volta nell'installazione - utilizzare un buffer globale nella DLL per la stringa.

lato 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; 
} 

lato Inno-Setup:

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