Delphi에서 포인터로 DLL 호출

Question

Delphi를 처음 사용합니다.

bool __stdcall MyFunction(char * name, int * index) 

C++에서이 DLL 함수를 호출이 코드는 완벽하게 작동합니다 : 난에서 다음 내 보낸 된 함수가있는 DLL을

typedef void (WINAPI * MyFunction_t)(char *, int *); 
void main() 
{ 
    HMODULE mydll = LoadLibrary(L"C:\\mydll.dll"); 
    MyFunction_t MyFunction = (MyFunction_t)GetProcAddress(mydll, "MyFunction"); 

    int index = 0; 

    MyFunction("MyString", &index); 
} 

내가 델파이에서 동일한 작업을 수행해야합니다. 다음은 작동하지 않는 코드입니다 (MyFunction은 호출되지만 인덱스 변수는 적절한 값을받지 못합니다). 이것은 코드 발췌이므로 무질서를 무시하십시오. 모든 입력은 매우 감사하겠습니다!

type 
    TMyFunction= function(name: PChar; var index_ptr: Integer): Boolean; stdcall; 

var 
    fMyFunction : TMyFunction; 
    i : Integer; 
    h: THandle; 

begin 
    Result := 0; 
    h := LoadLibrary('c:\\mydll.dll'); 
    fMyFunction := GetProcAddress(h, 'MyFunction'); 
    if @fMyFunction <> nil then 
    begin 
    fMyFunction('MyString', i); 
    Result := i; 
    end; 
    FreeLibrary(h); 
end; 

Answer 1

TMyFunction 유형에 STDCALL을 사용하지 마십시오.

Answer 2

우선이 함수가 C++ 변환 단위로 정의 된 경우 extern "C"과 함께 C 링키지를 사용한다고 가정합니다.

Delphi 2009 이상을 사용하는 경우 PChar는 null로 끝나는 문자열 문자열에 대한 포인터임을 알고 있어야합니다.

type 
    TMyFunction= function(name: PAnsiChar; var index: Integer): LongBool; stdcall; 

: 그것은 델파이 Boolean으로 완전히 동일하지 이후

이

type 
    TMyFunction= function(name: PAnsiChar; var index: Integer): Boolean; stdcall; 

는 C bool 유형이 아마 가장 LongBool에 매핑 :

은 사용하셔야합니다 ANSI C 형 기능을 상호 운용성하려면

\을 문자열로 이스케이프 할 필요가 없으므로 다음과 같이 쓸 수 있습니다.

h := LoadLibrary('c:\mydll.dll'); 

LoadLibrary 호출시 오류를 확인해야하며 기술적으로 h은 THandle이 아닌 HMODULE이됩니다. 아무런 문제가 발생하지는 않지만 기술적으로는 h입니다.

개성있는 델파이 작성하는 것입니다 :

if Assigned(fMyFunction) then 
    fMyFunction('MyString', Result); 

하는 것은 기본적으로 나에게 합리적인 보이지만 나는 문자 너비의 가장 의심스러운입니다.

희망이 있습니다.