Marco Cantù 1998, Mastering Delphi 4
Project: DLLOBJ.DPR
Project Structure
DLLOBJ.DPR
library DllObj;
uses
DllClass in 'DllClass.pas';
exports
NewObject;
end.
DLLCLASS.PAS
unit DllClass;
interface
uses
Base;
type
TDllNumberImpl = class (TDllNumber)
private
Value: Integer;
public
constructor Create;
function GetValue: Integer; override;
procedure SetValue (New: Integer); override;
procedure Increase; override;
end;
function NewObject: TDllNumber; stdcall;
implementation
function NewObject: TDllNumber;
begin
Result := TDllNumberImpl.Create;
end;
constructor TDllNumberImpl.Create;
begin
Value := 0;
inherited Create;
end;
function TDllNumberImpl.GetValue: Integer;
begin
Result := Value;
end;
procedure TDllNumberImpl.SetValue (New: Integer);
begin
Value := New;
end;
procedure TDllNumberImpl.Increase;
begin
Inc (Value);
end;
end.
Copyright Marco Cantù 1998