Delphi 接口托管实现

 1 unit Unit1;
 2
 3 interface
 4
 5 uses
 6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 7   Dialogs, StdCtrls;
 8
 9 type
10   TForm1 = class(TForm)
11     Button1: TButton;
12     procedure Button1Click(Sender: TObject);
13   private
14     { Private declarations }
15   public
16     { Public declarations }
17   end;
18
19   IMyInterface = interface(IUnknown)
20    procedure ShowString(s: string);
21   end;
22
23   TMyClass = class(TInterfacedObject, IMyInterface)
24   public
25     procedure ShowString(s: string);
26   end;
27
28   TSecondClass = class(TInterfacedObject, IMyInterface)
29   protected
30     myInterface: IMyInterface;
31   protected
32     property my: IMyInterface read myInterface implements IMyInterface;
33   public
34     constructor Create(AOwner: TObject); overload;
35   end;
36
37
38 var
39   Form1: TForm1;
40
41 implementation
42
43 {$R *.dfm}
44
45 procedure TForm1.Button1Click(Sender: TObject);
46 var
47   myclass: TMyClass;
48   mySecondclass: TSecondClass;
49 begin
50   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 begin
62   ShowMessage(s);
63 end;
64
65 { TSecondClass }
66
67 constructor TSecondClass.Create(AOwner: TObject);
68 begin
69   myInterface := TMyClass.Create;
70 end;
71
72 end.
时间: 2024-11-05 14:45:08

Delphi 接口托管实现的相关文章

zw版_Halcon图像库delphi接口文件

Halcon图像库delphi接口文件,根据安装时用户设置的文件目录不同,会有所差异,笔者一般安装在delphi的import目录下.     参见:<zw版·全程图解Halcon控件安装(delphi版)>,http://www.cnblogs.com/ziwang/p/4850958.html      安装成功后,import目录下,会有一个文件:HALCONXLib_TLB.pas,大约3900k,     这个文件,就是Halcon图像库的delphi接口文件,纯delphi源码,7

Delphi 接口机制真相

Delphi 接口机制真相 分类: DELPHI2012-03-29 14:41 2161人阅读 评论(0) 收藏 举报 delphiinterfaceintegerstringclassfunction 接口(interface)在Delphi中是一个很有意思的东西.Delphi 3开始支持接口,从而形成了COM编程的基础:然而,Delphi中的接口也可用在非COM开发中,实现类似抽象类(含有抽象方法的类)的功能,从而弥补了Delphi中不能多继承(子类有多个同级父类)的不足.这里所讲的int

delphi 接口Interface

学习 delphi 接口 一切都是纸老虎!!! 第四章          接口 前不久,有位搞软件的朋友给我出了个谜语.谜面是“相亲”,让我猜一软件术语.我大约想了一分钟,猜 出谜底是“面向对象”.我觉得挺有趣,灵机一动想了一个谜语回敬他.谜面是“吻”,也让他猜一软件术 语.一分钟之后,他风趣地说:“你在面向你美丽的对象时,当然忍不住要和她接口!”.我们同时哈哈大 笑起来.谈笑间,似乎我们与自己的程序之间的感情又深了一层.对我们来说,软件就是生活. 第一节  接口的概念 “接口”一词的含义太广泛

Delphi接口

program Demo1; { Create Date: 2014-06-29 Author: P.S.M 1.接口Demo1 } {$APPTYPE CONSOLE} uses SysUtils; {定义接口} type ITestInterface = interface {GUID通过CTRL+G自动产生} ['{15EAD871-2B5E-4F51-A14E-7D518A2371EF}'] procedure Test; end; {TInterfacedObject 实现了_AddR

Delphi接口的底层实现(接口在内存中仍然有其布局,它依附在对象的内存空间中,有汇编解释)——接口的内存结构图,简单清楚,深刻 good

引言 接口是面向对象程序语言中一个很重要的元素,它被描述为一组服务的集合,对于客户端来说,我们关心的只是提供的服务,而不必关心服务是如何实现的:对于服务端的类来说,如果它想实现某种服务,实现与该服务相关的接口即可,它也不必与使用服务的客户端进行过多的交互.这种良好的设计方式已经受到很广泛的应用. 早在Delphi 3的时候就引入了接口的概念,当时完全是因为COM的出现而诞生的,但经过这么多版本的进化,Delphi的接口已经成为Object Pascal语言的一部分,我们完全可以用接口来完成我们的

Delphi 接口定义

Delphi Interface接口的定义 2011-04-20 14:54:11|  分类: Delphi|举报|字号 订阅 type  InterfaceName = interface(ancestorInterface)    ['{GUID}']    memberList  end;这里,ancestorInterface 和 GUID是可选的.在大多数方面,接口声明和类声明相似,但有以下限制:  1.memberList只能包含方法和属性,而不能包含数据成员(field).  2.

delphi 接口

第四章          接口 前不久,有位搞软件的朋友给我出了个谜语.谜面是“相亲”,让我猜一软件术语.我大约想了一分钟,猜 出谜底是“面向对象”.我觉得挺有趣,灵机一动想了一个谜语回敬他.谜面是“吻”,也让他猜一软件术 语.一分钟之后,他风趣地说:“你在面向你美丽的对象时,当然忍不住要和她接口!”.我们同时哈哈大 笑起来.谈笑间,似乎我们与自己的程序之间的感情又深了一层.对我们来说,软件就是生活. 第一节  接口的概念 “接口”一词的含义太广泛,容易引起误解.我们在这里所说的接口,不是讨论程

Delphi 接口(3)

type IGreetable = interface end; IMan = interface(IGreetable) function SayHello():string; end; TChinese = class(TinterfacedObject,IMan) procedure SetChinese(name: string); function SayHello():string; end; procedure MyProcedure() var AMan: IMan; Greet

Delphi 接口(1)

代码如下: unit Unit2; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Unit1, Vcl.StdCtrls; type TForm2 = class(TForm) edt_Name: TEdit; edt_language: TEd