serverunit1.pas

Delphi6分布式开发例程7 )

unit ServerUnit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Corba, StdCtrls, salary_c, salary_impl, salary_i, salary_s;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
  { private declarations }
  protected
  { protected declarations }
    //声明CORBA接口变量
    ServerVar : ITaxCal; // skeleton对象
    procedure InitCorba;
  public
  { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.InitCorba;
begin
  CorbaInitialize;
  //添加CORBA服务器代码
  ServerVar := TITaxCalSkeleton.Create('Jack B Quick', TITaxCal.Create);
  BOA.ObjIsReady(ServerVar as _Object);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //CORBA初始化
  InitCorba;
end;

end.