组件技术的本质COM实例分析一_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

组件技术的本质COM实例分析一

作者：闵涛文章来源：闵涛的学习笔记点击数：2734 更新时间：2009/4/23 18:38:00

实现算法的接口现在我们要吧只仅仅定义一个功能实现；这儿有一个问题，为了求得时间间隔，我们需不需要再次的再这个接口中添加一个求时间间隔过程呢？这就设计到系统分析的一些细节问题。如果是读者在自己写工程的时候，我建议，这个时间间隔写在客户端，即使是客户时间与服务器时间不相同也无妨，因为我们仅仅为的是取时间间隔，当然，如果是为了取得服务器的时间，也应该再在这个接口中填写一项功能实现。当然，我们可以调用其它的接口中的此功能，然而，为了一个很容易实现的功能进行接口分离或是转化，没有多大必要。本例是利用接口分离来获取其它接口中的取系统时间功能，此处是为了向读者朋友说明一些问题而这样设计的。此接口实现如下：

IAccSum = Interface

[''''{1D2F7597-6FCF-4706-810F-90A501953FFB}'''']

Function AccSum(AValue : Integer) : Integer;

end;

接口声明完成之后，需要写接口的实现过程。

在单元AccUnt中，可以看如下的代码：

……

Type

TAccemp = class(TComObject)

……

实现类TAccEmp并没有对接口实现，此处我们只需要将刚刚声明的两个接口让其实现就可以了。服务器端代码如下：

上一页 [1] [2] [3] [4]