Dll의 구현 및 인터페이스

1046 단어 dll
Delphi6 개발자 가이드북에서 dll 개발의 한 모델을 설명했는데 매우 이익을 느꼈고 특별히 dll을 써서 연습했다.
기능을 구현하는 dll 소스:
library DllWithInterfaceExample;

{$DEFINE DWILIB}

uses

  SysUtils,

  Classes,

  DllInterface in 'DllInterface.pas';



//  dll     



{$R *.res}



//       

function GetMax(NumRec:TNumRec):Integer;stdcall;

begin

  if NumRec.NumA>NumRec.NumB then

    Result:=NumRec.NumA

  else

    Result:=NumRec.NumB

end;



//      ,        

exports

  GetMax;

begin

end.

dll 인터페이스의 원본 코드 구현:
unit DllInterface;

//DllWithInterfaceExaple.dll   



interface

type   //               

  TNumRec=record

  NumA,

  NumB:Integer

end;



{$IFNDEF DWILIB}  //              

function GetMax(NumRec:TNumRec):Integer;stdcall;

{$ENDIF}



implementation



{$IFNDEF DWILIB}  //        dll     

 function GetMax(NumRec:TNumRec):Integer;external 'DllWithInterfaceExample.dll' name 'GetMax';

{$ENDIF}



end.

dll 발표 후 dll 인터페이스의 원본 코드를 동시에 제공하여 다른 사람이 호출할 수 있고 스스로 수정할 수 있습니다.

좋은 웹페이지 즐겨찾기