procedure TCustFormOLE.Set_ProductNum(Value: Integer);

begin

 CustForm.ProNumEdit.Value:=Value;

end;

procedure TCustFormOLE.Set_Remark(const Value: WideString);

begin

 CustForm.Memo1.Lines.Text:=Value;

end;

initialization

  TAutoObjectFactory.Create(ComServer, TCustFormOLE, Class_CustFormOLE,

    ciMultiInstance, tmApartment);

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…中我们开发的服务器，然后Install将它安装到一个已经存在的包或你新建的组件包中，delphi将为我们做很多工作，最后你可以从你指定的面板找到安装的新的组件，现在你就可以象使用普通VCL组件一样使用我们开发的服务器了。（注意，delphi为我们定义了一个继承自ToleContol的类，这一切复杂的工作都是由delphi在背后为我们完成的，如果你有兴趣，建议研究一下这个组件中delphi自动为我们生成的大量代码）。

索取地址：hk.barton@sohu.com

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