DLL에서 외부 함수를 호출 할 때 "액세스 위반"오류가 발생합니다.

Question

.dll 파일을 사용하여 파일의 압축을 해제하려고하는데, 코드 섹션에서 추출 절차를 호출 할 때마다 온라인 상태가됩니다. 다음과 같은 오류 :

Exception:
Access violation at address 025DA648. Read of address 00000000.

절차 :

procedure unzip(src, target: AnsiString); 
external 'unzip@files:unzipper.dll cdecl delayload'; 

procedure ExtractMe(src, target : AnsiString); 
begin 
    unzip(ExpandConstant(src), ExpandConstant(target)); 
end; 

전화에서 Code 섹션 내 :

,

procedure UnzipFiles(); 
var 
    NSSMPath: string; 
    target: AnsiString; 
begin 
    NSSMPath := ExpandConstant('{src}\..\nssm-2.24.zip'); 
    target := 'C:\files'; 
    begin 
    //Unzips files Checks for presence of files before to save time. 
    //NSSM 
    if not (FileExists('C:\files\nssm-2.24'))then 
    begin 
     ExtractMe(NSSMPath, target) 
    end; 
    end; 
end; 

Answer 1

unzip은 cdecl이 아니라 stdcall으로 선언되어야합니다. UnzipExample.iss에서 선언문을 사용하십시오.

procedure unzip(src, target: AnsiString); 
external 'unzip@files:unzipper.dll stdcall delayload';