|
다 잘하셨는데...
한군데 좀...
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&);
|
