델파이 DLL 사용하기.

* DLL에서 읽을 함수.(testMessage.dll)

  function MSG(s:string) : string; export;
  begin
      s := '[' + s + ']';
      Result := s;
  end;

 

1. 핸들러를 이용하여 동적으로 사용하기.

 

uses windows

 

procedure TForm1.Button1Click(Sender: TObject);
type
  TFunc = function(s:string) : string;
var
  Handle : THandle;
  MyFunc : TFunc;
begin
  Handle := LoadLibrary('testMessage.dll');
  if Handle <> 0 then
  begin
    @MyFunc := GetProcAddress(Handle, 'MSG');
    if @MyFunc <> nil then
    begin
      ShowMessage(MyFunc('hi'));
    end
    else
      ShowMessage('DLL에서 함수 사용하지 못함.');
  end
  else
    ShowMessage('DLL 찾을 수 없음');
end;

 

2. 정적으로 사용하기.

 

- 상단에 DLL 내 함수를 선언해준다.

  function MSGtest(s:string) : string; external 'testMessage.dll' name 'MSG';

 

- 사용한다.

  procedure TForm1.Button1Click(Sender: TObject);
  begin
    ShowMessage(MSGtest('hi'));
  end;