用Delphi编写CORBA程序.pptVIP

用Delphi编写CORBA程序 首先，要用文字编辑器来编写一个IDL文件，例如为：Hello.idl。然后逐次操作Delphi来CORBA程序进行编写。（要用Delphi来编写CORBA，则Delphi必须是6.0以上，或者在以下地版本中装入visibroker fo Delphi组件。） 启动Delphi6.0，再选择File-----New----------Other 弹出一个项目选择框，在此选择框中选择Corba 再在其中先选择CORBA Server Application 点击确定后，进入添加IDL文件对话框，通过Add按钮添加已经编写好的IDL文件(Hello.idl)。 选择好后，点击ok 然后存储此工程，这样一个简单的服务器代码框架就产生了。 然后存储，例如单元存为server.pas，工程文件存为servermain。存好后就可对其进行全部关闭。 再以同样的方法来完成在Delphi中客户端代码框架的产生。 同服务器端不一样的，只是在选择时选择CORBA Client Application选项而已。 其存储的单元存为client.pas，工程文件存为clientmain。 编写服务器端代码 首先要编写服务器端代码。 打开刚存储的工程文件servermian。 然后再在工程(Project)菜单中选择添加到工程中(Add to Project)子菜单。 在文件选择对话框中选择刚才保存的单元。在此选择hello_impl、hello_s和hello_i三个单元。 然后对其进行程序的编写。 服务器端代码框架 其中server单元的代码框架如下： unit server; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Corba, hello_i, hello_impl, hello_s; type TForm1 = class(TForm) private { private declarations } protected { protected declarations } // Add Corba interface variables here like this // Acct : Account; // skeleton object server单元 procedure InitCorba; public { public declarations } end; var Form1: TForm1; implementation {$R *.DFM} server单元 procedure TForm1.InitCorba; begin CorbaInitialize; // Add CORBA server code here like this // Acct := TAccountSkeleton.Create(Jack B Quick, TAccount.Create); // BOA.ObjIsReady(Acct as _Object); end; end. Hello_impl单元 其中Hello_impl单元的代码框架如下： unit hello_impl; {This file was generated on 28 Oct 2005 12:10:37 GMT by version 03.03.03.C1.A1} {of the Inprise VisiBroker idl2pas CORBA IDL compiler. } {Please do not edit the contents of this file. You should instead edit and } {recompile the original IDL which was located in the file } {F:\delidl\hello.idl. } {Delphi Pascal unit : hello_impl } {derived from IDL module : default