안녕하세요. 한원희입니다.

동일한 함수로 정의하고, 각 DLL을 어떻게 사이트별로 구별하느냐가 문제군요..
음... 각 DLL 마다 자신의 정보를 알려주는 함수를 동일한 이름으로 추가해 놓고, 새로 추가되는 DLL에 대해서는 추가한 함수를 이용해서 정보를 읽어서 어느 사이트인지 구별할 수 있지 않을까요?
또는 함수로 만드는 것이 좀 그렇다면, 각 DLL마다 동일한 형태로 리소스를 추가해 주는 겁니다. 사이트 이름, 버전 번호 등을 리소스로 추가해 놓고, 위 함수와 비슷하게, 각 DLL의 리소스를 읽어서 구별을 하는 것이지요...

그럼, 즐푸~

답변 고맙습니다. ^^

근데여.....

각 DLL 마다 자신의 정보를 알려주는 함수를 동일한 이름으로 추가해 놓고, 새로 추가되는 DLL에 대해서는 추가한 함수를 이용해서 정보를 읽어서 어느 사이트인지 구별할 수 있지 않을까요?  <-- 무슨 뜻인지 잘 모르겠어요.. ㅠ.ㅠ

DLL을 각각 만든다면 그 파일명은 어느 사이트꺼인건지 등은 미리 알고 있는거구요,

프로그램 실행시 어느 DLL을 쓰게 될지 모르는데 선언부에 DLL의 함수를 선언할 때

procedure AAA(a,b:String);StdCall;Externa. ?????? ;

위 물음표 부분에 어떤 파일명이 올지 모르는데 어떻게 선언하는지를 모르겠거든요.

물음표 부분에 변수를 쓸 수 있으면 모를까 상수(Const 포함) 밖에 올 수가 없던데 사이트에 따라 저 부분에 파일명을 어떻게 넣어줄 수 있을지...

흑흑..... 다시한번만 알려주시면 안될까요??
고맙습니다..

안녕하세요. 한원희입니다.

음... 아래와 같이 정적으로 하게되면, 추가되는 DLL을 적용할 수가 없게 되죠. DLL을 동적 로딩해야 합니다. LoadLibrary 함수를 이용해서요...
아래는 어느 책에 있는 간단한 예제입니다.

procedure TForm1.Button1Click(Sender: TObject);
type
TFunc = function(str : string) : boolean;  stdcall;
var
  H : THandle;
  MyFunc : TFunc;
  s : string;
begin
   H := LoadLibrary('seconddll.dll');
   if H<32 then begin
      ShowMessage('No Dll');
      exit;
   end;
   @MyFunc := GetProcAddress(H, 'JuminValid');
   if not (@MyFunc = nil) then begin
     if (not MyFunc((Edit1.text))) then
        ShowMessage('주민번호가 잘못되었습니다.')
     else
        ShowMessage('주민번호가 맞습니다.');
   end;
   FreeLibrary(H);
end;



만든사람은 각 DLL이 어느 사이트것인지 알고 있지만, DLL을 호출하는 프로그램은 해당 DLL을 적용할 수 있도록 수정하지 않는 이상 일반적으로 그 DLL이 어느 사이트에 사용될 것인지 미리 알 수는 업죠. 그래서, DLL에 어느 사이트의 정보인지 알 수 있도록 해당 정보를 얻는 과정이 필요하다는 것이죠.
DLL의 정보를 프로그램이 알 수 있도록 하기 위해서, DLL 자신의 정보(사이트명)을 넘겨주는 함수를 각 DLL에 추가하거나, 리소스로 사이트의 이름을 DLL마다 넣어서 그 정보를 읽어서 각 DLL을 구별할 수 있겠죠.

정말 고맙습니다.

책에 있는 줄 알았으면 책을 더 찾아보았을텐데.... ㅡㅡ;

덕분에 고민고민 했던게 한가지 해결되었어요.

헤헷... 그럼.. 즐코~

정말 고맙습니다.

책에 있는 줄 알았으면 책을 더 찾아보았을텐데.... ㅡㅡ;

덕분에 고민고민 했던게 한가지 해결되었어요.

헤헷... 그럼.. 즐코~