vtable/pascalunit.pas at master · darkprof83/vtable · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
library pascalunit;
{$MODE OBJFPC}
{$include ApiEntry.inc}

uses
  ctypes;

type
  IBasePlugin = interface
    procedure _release (); APIENTRY;
  end;
  IPlugin = interface (IBasePlugin)
    procedure print (); APIENTRY;
  end;
  TPlugin = class (TInterfacedObject, IPlugin)
  public
    procedure _release (); APIENTRY;
    procedure print (); APIENTRY;
    constructor Create ();
    destructor Free ();
  end;
  PPlugin = ^TPlugin;

procedure TPlugin._release (); APIENTRY;
begin
  Free;
end;

procedure TPlugin.print (); APIENTRY;
begin
  writeln ('Hello World');
end;

procedure _release (this: PPlugin); APIENTRY;
begin
  this^._release ();
end;

procedure print (this: PPlugin); APIENTRY;
begin
  this^.print ();
end;

constructor TPlugin.Create ();
begin
  inherited;
  writeln ('TPlugin.Create');
end;

destructor TPlugin.Free ();
begin
  writeln ('TPlugin.Free');
end;

function  getNewPlugin (): PPlugin; APIENTRY;
var
  plugin: PPlugin;
begin
  New (plugin);
  plugin^ := TPlugin.Create ();
  result := plugin;
end;

exports
  getNewPlugin name 'IPlugin_getNewPlugin', print name 'IPlugin_print', _release name 'IPlugin_release';

begin
end.