end.
现在我们就可以实际的测试和使用这个服务器了，我们可以新建立一个工程，选择Project-->Import Type Library…可以发现这里已经有我们刚才建立的服务器信息了（当然前提是你已经运行过服务器程序），然后Create Unit将相应的类型文件所生成的pascal文件加入我们的工程中，一但我们启动了服务器我们就可以很轻松的使用接口中的属性和方法了：
function TForm1.GetDefaultInterface:ICustFormOLE;
begin
if not assigned(FInterface) then
FInterface:=CoCustFormOLE.Create;//注意这里，你可以在类型库文件产生的pascal文件中找到CoCustFormOLE的含义
result:=FInterface;
end;
由于篇幅原因，我们不能给出测试程序的全部代码（事实上有了服务器程序，我们的测试客户程序想要处理SQL Server中的相应数据就相当的简单了。），可以照后文的地址向我索取（说明一下，本文中的数据库用到SQL Server，所以我发给你们的程序中你们需要还原其中的数据库备份到你们的SQL Server，并修改相应的连接字符串，否则程序不能运行）。
在本文的最后，我们介绍一种更简单的使用我们刚才所开发的服务器的方法，那就是把它封装为delphi中的组件，选择Project-->Import Type Library…中我们开发的服务器，然后
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
