Главная страница | назад





Article #17095: making a Delphi DLL with as little in the uses clause as possible

 Question and Answer Database

FAQ2095D.txt   making a Delphi DLL with as little in the uses clause as possible
Category   :VCL
Platform    :All
Product    :All 32 bit  

Question:
I want to create a small dynamic link library that contains 
only a few small functions. I do not need any additional 
units, but Delphi insists that the uses clause is incorrect 
if I remove the standard uses clause. The code does compile 
to a very small dll if I do remove the uses clause. May I 
disregard the error when I load the project?

Answer:
While it is ok to disregard the error, it would be better to 
create a unit that would contain the code for your functions. 
This way the main project file can have a uses statement 
that will satisfy the IDE.

Example:

(* Main project file *)

library Project1;

uses
  Unit1;

exports
  AddLong index 1 name 'ADDLONG' resident;

begin
end.

(* unit1's code *)

unit Unit1;

interface

function AddLong(a : longint;
                 b : longint) :  longint
{$IFDEF Win32} stdcall; {$ELSE} ; export; {$ENDIF}

implementation

function AddLong(a : longint;
                 b : longint) :  longint;
begin
  AddLong := a + b;
end;

end.

7/16/98 4:31:28 PM
 

Last Modified: 01-SEP-99