|
답변 감사합니다.
장성호 님이 쓰신 글 :
: 다 잘하셨는데...
: 한군데 좀...
:
: hDLL = LoadLibraryEx("DelphiDLL.dll", NULL, LOAD_LIBRARY_AS_DATAFILE);
: 이부분에 문제가 좀 있는것 같네요
:
: 그냥
: hDLL = LoadLibrary("DelphiDLL.dll"); 이렇게 하시던지
:
: 아니면 LoadLibraryEx 옵션중에 LOAD_LIBRARY_AS_DATAFILE 빼고 다른것으로 하면 다 됩니다.
:
: hDLL = LoadLibraryEx("DelphiDLL.dll", NULL,DONT_RESOLVE_DLL_REFERENCES); // 이런식으로...
:
: #define DONT_RESOLVE_DLL_REFERENCES 0x00000001
: #define LOAD_LIBRARY_AS_DATAFILE 0x00000002
: #define LOAD_WITH_ALTERED_SEARCH_PATH 0x00000008
: #define LOAD_IGNORE_CODE_AUTHZ_LEVEL 0x00000010
:
:
: 참고
: •DONT_RESOLVE_DLL_REFERENCES :
: 이 옵션은 윈도우 NT에서만 사용할 수 있으며 DllEntryPoint를 부르지 않을 때 사용한다.
: DllEntry와 DllExit 코드는 Dll Main을 설명할 때 함께 하기로 하고,
: 지금은 Dll의 Entry Point에서 명시된 코드를 실행하지 않을 때 이 옵션을 사용한다
:
: •LOAD_LIBRARY_AS_DATAFILE :
: 이 옵션은 DLL 파일을 하나의 단순한 데이터 파일로 이해하고 적재하도록 하는데 그 목적이 있다.
: 실행 코드가 전혀 없는 DLL들은 시스템에서 DLL의 실행을 위한 특별한 준비가 필요하지 않으므로
: 실행 시간을 절약할 수 있다.
:
: •LOAD_WITH_ALTERED_SEARCH_PATH :
: 이 옵션을 사용하면 위에서 언급한 DLL을 탐색하는 경로를 LoadLibraryex(LPTCSTR)에 명시된 대로 바꿀 수 있다
:
:
: 그럼..
:
:
: 안명호.ASURADA 님이 쓰신 글 :
: : Delphi 로 작성된 DLL 을 C++ Builder 에서 동적으로 불러와 사용하려 합니다.
: :
: : Delphi 에서 export; stdcall; 로 export를 했고 Builder 에서 LoadLibraryEx 로
: :
: : DLL 로딩까지는 되었는데 함수를 호출하기위해 GetProcAddress 를 수행하면 NULL이 넘어오더군요.
: :
: : 그래서 implib 프로그램으로 .lib 파일을 만들어 정적으로 DLL 을 올리고 함수를 호출 하였는데
: :
: : 함수 호출이 정상적으로 호출이 되고 동적로딩을 시도했던 코드도 동작을 하는데 결과가 이상하게 나오더군요.
: :
: : 뭐가 문제인 거죠?
: :
: : 어떻게 하면 델파이 에서 만든 Dll 을 Builder 에서 동적으로 사용할 수 있나요?
: :
: : 다음은 제가 테스트한 소스 중 일부 입니다.
: : ---------------------------------------------------------------------------------------
: : Delphi DLL
: : ---------------------------------------------------------------------------------------
: : :
: : uses SysUtils, Classes, uDelphiDLL in 'uDelphiDLL.pas';
: :
: : {$R *.res}
: :
: : exports
: : DelphiDLLFunc_01 name 'DelphiDLLFunc_01'
: : , DelphiDLLFunc_Sum name 'DelphiDLLFunc_Sum'
: : ;
: : :
: :
: : ---------------------------------------------------------------------------------------
: : uDelphiDLL.pas
: : ---------------------------------------------------------------------------------------
: : unit uDelphiDLL;
: :
: : interface
: :
: : uses
: : windows, dialogs;
: :
: : procedure DelphiDLLFunc_01(); export; stdcall;
: : function DelphiDLLFunc_Sum(a:integer; b:integer; var c:integer):integer; export; stdcall;
: :
: :
: :
: : implementation
: :
: : procedure DelphiDLLFunc_01();
: : begin
: : ShowMessage('Delhpi DLL');
: : end;
: :
: : function DelphiDLLFunc_Sum(a:integer; b:integer; var c:integer):integer;
: : begin
: : c := a + b;
: :
: : Result:= a + b;
: : end;
: :
: : end.
: :
: : ---------------------------------------------------------------------------------------
: : BuilderCaller
: : ---------------------------------------------------------------------------------------
: : typedef void (*TDelphiDLLFunc_01)();
: : typedef int (*TDelphiDLLFunc_Sum)(int, int, int&);
: :
: : void __fastcall TForm1::btnDynamicCallClick(TObject *Sender)
: : {
: : // Dynamic call
: : HINSTANCE hDLL = NULL;
: :
: : hDLL = LoadLibraryEx("DelphiDLL.dll", NULL, LOAD_LIBRARY_AS_DATAFILE);
: :
: : if (hDLL)
: : {
: : TDelphiDLLFunc_01 DLLFunc_01;
: : DLLFunc_01 = (TDelphiDLLFunc_01)GetProcAddress(hDLL, "DelphiDLLFunc_01");
: : if (DLLFunc_01)
: : {
: : DLLFunc_01();
: : }
: : else
: : ShowMessage("Can't find function 1");
: :
: : TDelphiDLLFunc_Sum DLLFunc_Sum;
: : DLLFunc_Sum = (TDelphiDLLFunc_Sum)GetProcAddress(hDLL, "DelphiDLLFunc_Sum");
: : if (DLLFunc_Sum)
: : {
: : int sum1, sum2;
: : sum2 = DLLFunc_Sum(10, 20, sum1);
: :
: : ShowMessage("Sum = " + IntToStr(sum1) + ", " + IntToStr(sum2));
: : }
: : else
: : ShowMessage("Can't find function 2");
: : }
: : else
: : ShowMessage("Can't load library");
: : }
: : //---------------------------------------------------------------------------
: :
: : extern "C" __declspec(dllimport) void __stdcall DelphiDLLFunc_01();
: : extern "C" __declspec(dllimport) int __stdcall DelphiDLLFunc_Sum(int, int, int&);
: :
: : void __fastcall TForm1::btnStaticCallClick(TObject *Sender)
: : {
: : // Static call
: : DelphiDLLFunc_01();
: :
: : int sum1, sum2;
: : sum2 = DelphiDLLFunc_Sum(10, 20, sum1);
: :
: : ShowMessage("Sum = " + IntToStr(sum1) + ", " + IntToStr(sum2));
: :
: : // 위 두 함수(DelphiDLLFunc_01, DelphiDLLFunc_Sum)를 활성화 하면
: : // 위 함수의 동적 호출이 이루어 지지만 계산 결과가 이상하게 나오고
: : // 두 함수를 주석처리하여 수행하지 않으면
: : // 위 함수의 동적 호출시 함수를 찾을 수 없다는 메세지가 나옵니다.
: : }
: : //---------------------------------------------------------------------------
: :
: : (추가내용)
: : 값이 이상하게 나오는 문제는 동적 호출의 함수포인터 선언에 __stdcall 을 지정해 주니 해결되네요..
: : typedef void (__stdcall *TDelphiDLLFunc_01)();
: : typedef int (__stdcall *TDelphiDLLFunc_Sum)(int, int, int&);
|
