inno에서 dll로 문자열을 전달할 때 dll 함수에서 값을 가져올 수 없습니까?

Question

문자열을 내 dll funcfion에 전달하려고하지만 함수에서 값을 가져올 수 없습니다. 먼저 GetMyParam 함수를 사용하여 cmd 줄에서 문자열을 가져옵니다. 그렇습니다. 그렇다면, innotest 함수를 사용하여 내 dll 값을 으로 전달합니다.

function innotest(PName:string):Integer; 
external 'innotest@E:\client\branch\maintain\1.4\bin\sdostate-debug\update.dll stdcall setuponly'; 

function GetMyParam(PName:string):string; 
var 
    CmdLine : String; 
    CmdLineLen : Integer; 
    i : Integer; 
begin 
    Result := ''; 
    CmdLineLen:=ParamCount(); 
    for i:=0 to CmdLineLen do 
    begin 
    CmdLine:=ParamStr(i); 
    if CmdLine = PName then 
     begin 
      CmdLine:=ParamStr(i+1); 
      Result := CmdLine; 
      Exit; 
     end; 
    end; 
end; 

procedure CurStepChanged(CurStep: TSetupStep); 
var 
res: String; 

begin 
if (CurStep = ssPostInstall) and (Pos('setup', WizardSelectedTasks(false)) > 0)then 
begin 
res := GetMyParam('-myParam'); 
MsgBox(res, mbInformation, mb_Ok); 
innotest(res); 
end; 
end; 

Msgbox의 res 값이 있습니다. 여기 내 DLL 코드입니다 : 당신은 InnoSetup 직접 도달 할 수없는 메모리에 일련의 문자 어떤 함수 매개 변수 string 유형을 사용하고 1

DWORD Update::innotest(string str) 
{ 
    LPCWSTR s = StringHelper::ANSIToUnicode(str).c_str(); 
    MessageBox(0,s,0,0); 
    return 0; 
} 

Answer 1

문자열의 길이입니다. 문자열 유형에 대한 포인터를 사용해야 작동합니다. 그래서 유니 코드 InnoSetup을 사용할 때 라이브러리 함수 매개 변수를 유니 코드 문자열 포인터 유형으로 변경하여 다음과 같이하십시오. 그렇다면 InnoSetup 스크립트를 다음과 같이 유지할 수 있습니다 :

DWORD Update::innotest(LPCWSTR str) 
{ 
    MessageBox(0,s,0,0); 
    return 0; 
}