Article #15938: Basic Delphi DLL template

 Technical Information Database

TI938D.txt   Basic Delphi DLL template
Category   :General Programming
Platform    :All
Product    :Delphi  1.0

Description:
DLL sample

Without units

First the DLL "framework" that you wanted, save as DLLFRAME.DPR:

{---------------------DLLFRAME.DPR--------------------------}
library Dllframe;

uses WinTypes;

function  GetString : string ; export ;
begin
  Result := 'Hello from the DLL!' ;
end;

exports
  GetString;

begin
end.
{-----------------------------------------------------------}

Now here's the calling program, save it as DLLCALL.DPR:


{---------------------DLLCALL.DPR---------------------------}
program Dllcall;

uses
  Dialogs;

{$R *.RES}

function GetString : string ; far ; external 'DLLFRAME' ;

begin
  MessageDlg( GetString, mtInformation, [ mbOK ], 0 ) ;
end.

With units

Here's the calling program, save it as DLLCALL.DPR:

{---------------------DLLCALL.DPR---------------------------}
program Dllcall;

uses
  Dialogs;

{$R *.RES}

function GetString : string ; far ; external 'MyDLL' ;


begin
  MessageDlg( GetString, mtInformation, [ mbOK ], 0 ) ;
end.
{-----------------------------------------------------------}

The DLL "framework" that you wanted, save as DLLFRAME.DPR:

{---------------------DLLFRAME.DPR--------------------------}
library Dllframe;

uses DLLUnit;

exports
  GetString;

begin
end.
{-----------------------------------------------------------}

The unit we will save as dllunit.pas:

{---------------------dllunit.pas--------------------------}

unit DLLUnit;
interface

uses WinTypes;

function GetString: string; export;

implementation

function GetString: string;
begin
  GetString := 'Hello from the DLL!' ;
end ;

begin
end.



Reference:


7/16/98 4:33:57 PM
 

Last Modified: 01-SEP-99