동적으로 링크하는 방법도 있습니다.



LoadLibrary함수를 DLL을 적재하시면 됩니다. 성공적으로 적재되었다면 NULL을 리턴

하죠. 이미 적재되어 있다면 적재된 DLL의 핸들을 돌려줍니다. 에러코드는 GetLastError

함수를 써서 알아볼수 있습니다. LoadLibrary는 DLL의 레퍼런스카운트를 하나

증가시킵니다.



일단 적재한 뒤에 GetProcAddress를 사용하여 DLL의 export절에 선언된 모듈들을

네임맵핑합니다. (숫자에 의한 맵핑은 지원하지 않은것 같더군요.)



그런뒤에는 메인 프로그램에서 자유롭게 사용하실 수 있겠죠...



다 사용하신 뒤에는 FreeLibrary함수를 사용하여 DLL을 풀어주시면 됩니다.

FreeLibrary는 참조계수를 하나 감소시키고 참조계수가 0이 된다면 메모리에서

완전히 프리시킵니다.



윤정선 wrote:

> 음~~ 또 질문이 있는데요, 포트란에서 만든 DLL을 델파이로 짠 프로그램에서 호출해서 사용하고 있습니다.

> 그런데 프로그램을 실행하는 내내 DLL이 필요한 것이 아니라, 어떤 기능을 요하는 작업을 할 때만 쓰면 되거든요. 프로그램 실행할 때 호출해서 끝날때까지 연결되어 있는것이

> 낭비인거 같아서...

> 그래서 알아보니 나와있지가 않네요.-_-;

> 방법이 없다면 그냥 이렇게 연결해서 쓸 수 밖에 없지만 혹시 있나해서요...

> 아시는 분 가르쳐 주세용.

자세한 설명을 부탁드려도 되는지요.



저는 LoadLibrary와 FreeLibrary를 이용해서 해볼려고 했는데 안되서 질문드린 거였거든요... 책에는 자세하지가 않아서 그런지 안되더라구요.

원래 그냥 기존 DLL을 호출할 때는 interface부분에서 프로시저 선언하고, implementation에서 프로시저가 위치한 DLL을 호출하잖아요. 예를들어서 이렇게요.

procedure AAA; external 'aaa.dll' name 'AAA';

이 부분이 LoadLibrary에서 GetProcAddress까지 과정에서 처리해 주는거 같긴한데,

잘 모르겠네요. 델파이 Help에 GetProcAddress가 안 나와있어서요..ㅠ.ㅠ



가르쳐 주시면 정말정말 감사드리겠습니당!!! ^^

참! 아래 가르쳐 주신 내용도 정말 감사드려요~ 꾸벅





최용일 wrote:

> 동적으로 링크하는 방법도 있습니다.

>

> LoadLibrary함수를 DLL을 적재하시면 됩니다. 성공적으로 적재되었다면 NULL을 리턴

> 하죠. 이미 적재되어 있다면 적재된 DLL의 핸들을 돌려줍니다. 에러코드는 GetLastError

> 함수를 써서 알아볼수 있습니다. LoadLibrary는 DLL의 레퍼런스카운트를 하나

> 증가시킵니다.

>

> 일단 적재한 뒤에 GetProcAddress를 사용하여 DLL의 export절에 선언된 모듈들을

> 네임맵핑합니다. (숫자에 의한 맵핑은 지원하지 않은것 같더군요.)

>

> 그런뒤에는 메인 프로그램에서 자유롭게 사용하실 수 있겠죠...

>

> 다 사용하신 뒤에는 FreeLibrary함수를 사용하여 DLL을 풀어주시면 됩니다.

> FreeLibrary는 참조계수를 하나 감소시키고 참조계수가 0이 된다면 메모리에서

> 완전히 프리시킵니다.

안녕하세요. 최용일입니다.



먼저 헬프를 사용하는 방법부터 알려드리지요. GetProcAddress과 같은 Windows

API함수의 헬프를 보시려면 시작메뉴에서 델파이를 보시면 Help라는 하위 메뉴가

있습니다. 거기에서 MS SDK Help Files에서 Win32 Programmer's Reference헬프를

사용하시면 API함수들에 관한 헬프를 사용하실 수 있습니다. 델파이 IDE에서

API헬프를 사용하려면 완전한 함수 이름을 알아야 합니다. API함수이름을 에디터에

쓴 후 커서를 API함수 이름에다 놓고 Ctrl키와 함께 F1키를 누르시면 API헬프

파일을 열지 않고도 헬프를 사용하실 수 있습니다.



예제를 들어 설명하죠. 다음과 같은 DLL이 있다고 합니다.

library MyDLL;



function GetMax(Value1, Value2: Integer): Integer; stdcall;

begin

Result := Value1;

if Value1 < Value2 then

Result := Value2;

end;



function GetMin(Value1, Value2: Integer): Integer; stdcall;

begin

Result := Value1;

if Value1 > Value2 then

Result := Value2;

end;



exports

GetMax index 1;

GetMin index 2;



begin

end.



메인 함수내에서 다음과 같이 호출할 함수포인터변수를 선언합니다.

type

TGetValue: procedure (Value1, Value2: Integer): Integer;

var

GetValue: TGetValue;

혹은

var

GetValue: procedure (Value1, Value2: Integer): Integer;

인자는 DLL에 선언된 형태와 똑같이 써줄 필요는 없습니다. 단지 형만

같으면 됩니다.



DLL을 초기화 하고 함수를 동적으로 링킹합니다.

이미 설명해드렸던 함수들을 쓰니까 이해하기 어렵지 않으리라 생각됩니다.



procedure InitDLL;

var

DLLHandle: Integer;

begin

DLLHandle := LoadLibrary('MyDLL.DLL');

if DLLHandle <> 0 then

begin

// 함수포인터를 설정합니다. 동적으로

@GetValue := GetProcAddress(DLLHandle, 'GetMax');

if @GetValue <> nil then

begin

...

// 함수포인터는 일반함수와 똑같이 사용합니다. (프로시져도...)

ShowMessage('Max Value is ' + IntToStr(GetValue(10, 100));

...

end;

else

ShowMessage('Cant link DLL module');

...



// 파라매터형만 같으면 얼마든지 다른 함수로 바꾸어서 사용 가능합니다.

@GetValue := GetProcAddress(DLLHandle, 'GetMin');

if @GetValue <> nil then

begin

...

// 함수포인터는 일반함수와 똑같이 사용합니다. (프로시져도...)

ShowMessage('Min Value is ' + IntToStr(GetMin(10, 100));

...

end;

else

ShowMessage('Cant link DLL module');

...

FreeLibrary(DLLHandle);

end;



윤정선 wrote:

> 자세한 설명을 부탁드려도 되는지요.

>

> 저는 LoadLibrary와 FreeLibrary를 이용해서 해볼려고 했는데 안되서 질문드린 거였거든요... 책에는 자세하지가 않아서 그런지 안되더라구요.

> 원래 그냥 기존 DLL을 호출할 때는 interface부분에서 프로시저 선언하고, implementation에서 프로시저가 위치한 DLL을 호출하잖아요. 예를들어서 이렇게요.

> procedure AAA; external 'aaa.dll' name 'AAA';

> 이 부분이 LoadLibrary에서 GetProcAddress까지 과정에서 처리해 주는거 같긴한데,

> 잘 모르겠네요. 델파이 Help에 GetProcAddress가 안 나와있어서요..ㅠ.ㅠ

>

> 가르쳐 주시면 정말정말 감사드리겠습니당!!! ^^

> 참! 아래 가르쳐 주신 내용도 정말 감사드려요~ 꾸벅

>

>

> 최용일 wrote:

> > 동적으로 링크하는 방법도 있습니다.

> >

> > LoadLibrary함수를 DLL을 적재하시면 됩니다. 성공적으로 적재되었다면 NULL을 리턴

> > 하죠. 이미 적재되어 있다면 적재된 DLL의 핸들을 돌려줍니다. 에러코드는 GetLastError

> > 함수를 써서 알아볼수 있습니다. LoadLibrary는 DLL의 레퍼런스카운트를 하나

> > 증가시킵니다.

> >

> > 일단 적재한 뒤에 GetProcAddress를 사용하여 DLL의 export절에 선언된 모듈들을

> > 네임맵핑합니다. (숫자에 의한 맵핑은 지원하지 않은것 같더군요.)

> >

> > 그런뒤에는 메인 프로그램에서 자유롭게 사용하실 수 있겠죠...

> >

> > 다 사용하신 뒤에는 FreeLibrary함수를 사용하여 DLL을 풀어주시면 됩니다.

> > FreeLibrary는 참조계수를 하나 감소시키고 참조계수가 0이 된다면 메모리에서

> > 완전히 프리시킵니다.

>