一个实际的OLE服务器的开发和使用

我们不过多的讨论这个程序的代码（因为这和开发一般的程序没有任何不同，你可以按照最后的地址给我来信索取这篇文章的全部代码）。然后我们来把它变为一个服务器。选择FileàNewàOthersàActiveXàAutomation Object。接下来delphi为我们定义了类型库和实现文件，我们要做的只是在类型库中添加相应的我们要用到的服务器属性和事件。我们简单的给出定义这个OLE Automation功能的接口（来自类型库所产生的Object Pascal代码）：

ICustFormOLE = interface(IDispatch)

[''''{D7AE75F9-F838-4702-A8EB-EAD0EED242DE}'''']

function Get_CustName: WideString; safecall;

procedure Set_CustName(const Value: WideString); safecall;

function Get_ProductName: WideString; safecall;

procedure Set_ProductName(const Value: WideString); safecall;

function Get_ProductNum: Integer; safecall;

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!