Delphi 介面託管實現

標籤：

 1 unit Unit1; 2  3 interface 4  5 uses 6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7   Dialogs, StdCtrls; 8  9 type10   TForm1 = class(TForm)11     Button1: TButton;12     procedure Button1Click(Sender: TObject);13   private14     { Private declarations }15   public16     { Public declarations }17   end;18 19   IMyInterface = interface(IUnknown)20    procedure ShowString(s: string);21   end;22 23   TMyClass = class(TInterfacedObject, IMyInterface)24   public25     procedure ShowString(s: string);26   end;27 28   TSecondClass = class(TInterfacedObject, IMyInterface)29   protected30     myInterface: IMyInterface;31   protected32     property my: IMyInterface read myInterface implements IMyInterface;33   public34     constructor Create(AOwner: TObject); overload;35   end;36 37 38 var39   Form1: TForm1;40 41 implementation42 43 {$R *.dfm}44 45 procedure TForm1.Button1Click(Sender: TObject);46 var47   myclass: TMyClass;48   mySecondclass: TSecondClass;49 begin50   myclass := TMyClass.Create;51   mySecondclass := TSecondClass.Create(nil);52   myclass.ShowString(‘sss‘);53   mySecondclass.my.ShowString(‘aaa‘);54   myclass.Free;55   mySecondclass.Free;56 end;57 58 { TMyClass }59 60 procedure TMyClass.ShowString(s: string);61 begin62   ShowMessage(s);63 end;64 65 { TSecondClass }66 67 constructor TSecondClass.Create(AOwner: TObject);68 begin69   myInterface := TMyClass.Create;70 end;71 72 end.

 

Delphi 介面託管實現