1:
2:
3:
4:
5:
6:
7:

  IPluginFrame = interface
  ['{5A3D518B-76B8-4867-B7AC-3233AE9DF2FD}']
    function igettext: String;
    procedure IcbsetParent(AParent: THandle);
    function igetself:TFrame;
    procedure isettext(Atext: String);
  end;                    

1:
2:
3:
4:
5:

procedure TFrame1.isettext(Atext: String);
begin
  application.MessageBox(PChar(AText), 'hilfe');
  //edit1.Text := AText;
end;                    

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:

//subunit code
function getPluginFrame(AApplication: TApplication): TFrame;

implementation

uses SysUtils;

var
  vFrame: TFrame1;

function getPluginFrame(AApplication: TApplication): TFrame;
begin
  Application := AApplication;
  if not assigned(vFrame) then
    vFrame := TFrame1.Create(Application);
  result := vFrame;
end;

//dll code

library pluginFrame;

{ Wichtiger Hinweis zur DLL-Speicherverwaltung: ShareMem muss sich in der
  ersten Unit der unit-Klausel der Bibliothek und des Projekts befinden (Projekt-
  Quelltext anzeigen), falls die DLL Prozeduren oder Funktionen exportiert, die
  Strings als Parameter oder Funktionsergebnisse übergeben. Das gilt für alle
  Strings, die von oder an die DLL übergeben werden -- sogar für diejenigen, die
  sich in Records und Klassen befinden. Sharemem ist die Schnittstellen-Unit zur
  Verwaltungs-DLL für gemeinsame Speicherzugriffe, BORLNDMM.DLL.
  Um die Verwendung von BORLNDMM.DLL zu vermeiden, können Sie String-
  Informationen als PChar- oder ShortString-Parameter übergeben. }
  

uses
  Sharemem,
  SysUtils,
  Classes,
  frameplugintest in 'frameplugintest.pas' {Frame1: TFrame},
  dllexport in 'units\dllexport.pas';

{$R *.res}

exports
  getPluginFrame;

begin
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

function getPluginFrame(AApplication: TApplication): TFrame; external 'pluginFrame.dll';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  LIntf: IPluginFrame;
begin
  FPluginFrame := getPluginFrame(Application);
  Panel1.Caption := FPluginFrame.ClassName;
  FPluginFrame.Parent := Panel2;
  if supports(FPluginFrame, IPluginFrame, LIntf) then
    LIntf.isettext('HALLO WELTENBUMMLER EREWRW RWER WERWERW RWE RWE R WER');
end;                    

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:

  TObject = class
    constructor Create;
    procedure Free;
    class function InitInstance(Instance: Pointer): TObject;
    procedure CleanupInstance;
    function ClassType: TClass;
    class function ClassName: ShortString;
    class function ClassNameIs(const Name: string): Boolean;
    class function ClassParent: TClass;
    class function ClassInfo: Pointer;
    class function InstanceSize: Longint;
    class function InheritsFrom(AClass: TClass): Boolean;
    procedure Dispatch(var Message);
    class function MethodAddress(const Name: ShortString): Pointer;
    class function MethodName(Address: Pointer): ShortString;
    function FieldAddress(const Name: ShortString): Pointer;
    function GetInterface(const IID: TGUID; out Obj): Boolean;
    class function GetInterfaceEntry(const IID: TGUID): PInterfaceEntry;
    class function GetInterfaceTable: PInterfaceTable;
    function SafeCallException(ExceptObject: TObject;
      ExceptAddr: Pointer): Integer; virtual;
    procedure DefaultHandler(var Message); virtual;
    class function NewInstance: TObject; virtual;
    procedure FreeInstance; virtual;
    destructor Destroy; virtual;
  end;                    

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:

  TObject = class
    constructor Create;
    procedure Free;
    class function InitInstance(Instance: Pointer): TObject;
    procedure CleanupInstance;
    function ClassType: TClass;
    class function ClassName: ShortString;
    class function ClassNameIs(const Name: string): Boolean;
    class function ClassParent: TClass;
    class function ClassInfo: Pointer;
    class function InstanceSize: Longint;
    class function InheritsFrom(AClass: TClass): Boolean;
    class function MethodAddress(const Name: ShortString): Pointer;
    class function MethodName(Address: Pointer): ShortString;
    function FieldAddress(const Name: ShortString): Pointer;
    function GetInterface(const IID: TGUID; out Obj): Boolean;
    class function GetInterfaceEntry(const IID: TGUID): PInterfaceEntry;
    class function GetInterfaceTable: PInterfaceTable;
    function SafeCallException(ExceptObject: TObject;
      ExceptAddr: Pointer): HResult; virtual;
    procedure AfterConstruction; virtual;
    procedure BeforeDestruction; virtual;
    procedure Dispatch(var Message); virtual;
    procedure DefaultHandler(var Message); virtual;
    class function NewInstance: TObject; virtual;
    procedure FreeInstance; virtual;
    destructor Destroy; virtual;
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

 // V3
    procedure Dispatch(var Message);
 // V7
    procedure Dispatch(var Message); virtual;


 // V3
    function SafeCallException(ExceptObject: TObject;
      ExceptAddr: Pointer): Integer; virtual;
 // V7
    function SafeCallException(ExceptObject: TObject;
      ExceptAddr: Pointer): HResult; virtual;


 // V3
 // gabs nicht ;-)
 // V7
    procedure AfterConstruction; virtual;
    procedure BeforeDestruction; virtual;                    

1:
2:

    if clSuccessor.ClassParent = nil then 
      raise Exception.Create('Successor Class has no parent to be replaced.');