salary_s.pas

Delphi6分布式开发例程7 )

unit salary_s;

{This file was generated on 16 Sep 2001 10:46:29 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                     }
{E:\corba\Salary.idl.                                                         }

{Delphi Pascal unit      : salary_s                                         }
{derived from IDL module : salary                                           }



interface

uses
  CORBA,
  salary_i,
  salary_c;

type
  TITaxCalSkeleton = class;
  TTaxCalFactorySkeleton = class;

  TITaxCalSkeleton = class(CORBA.TCorbaObject, salary_i.ITaxCal)
  private
    FImplementation : ITaxCal;
  public
    constructor Create(const InstanceName: string; const Impl: ITaxCal);
    destructor Destroy; override;
    function GetImplementation : ITaxCal;
    procedure SetSalary ( const x : Single);
    function  GetTax : Single;
    function  GetMySalary : Single;
  published
    procedure _SetSalary(const _Input: CORBA.InputStream; _Cookie: Pointer);
    procedure _GetTax(const _Input: CORBA.InputStream; _Cookie: Pointer);
    procedure _GetMySalary(const _Input: CORBA.InputStream; _Cookie: Pointer);
  end;

  TTaxCalFactorySkeleton = class(CORBA.TCorbaObject, salary_i.TaxCalFactory)
  private
    FImplementation : TaxCalFactory;
  public
    constructor Create(const InstanceName: string; const Impl: TaxCalFactory);
    destructor Destroy; override;
    function GetImplementation : TaxCalFactory;
    function  CreateInstance ( const InstanceName : AnsiString): salary_i.ITaxCal;
  published
    procedure _CreateInstance(const _Input: CORBA.InputStream; _Cookie: Pointer);
  end;


implementation

constructor TITaxCalSkeleton.Create(const InstanceName : string; const Impl : salary_i.ITaxCal);
begin
  inherited;
  inherited CreateSkeleton(InstanceName, 'ITaxCal', 'IDL:salary/ITaxCal:1.0');
  FImplementation := Impl;
end;

destructor TITaxCalSkeleton.Destroy;
begin
  FImplementation := nil;
  inherited;
end;

function TITaxCalSkeleton.GetImplementation : salary_i.ITaxCal;
begin
  result := FImplementation as salary_i.ITaxCal;
end;

procedure TITaxCalSkeleton.SetSalary ( const x : Single);
begin
  FImplementation.SetSalary( x);
end;

function  TITaxCalSkeleton.GetTax : Single;
begin
  Result := FImplementation.GetTax;
end;

function  TITaxCalSkeleton.GetMySalary : Single;
begin
  Result := FImplementation.GetMySalary;
end;

procedure TITaxCalSkeleton._SetSalary(const _Input: CORBA.InputStream; _Cookie: Pointer);
var
  _Output : CORBA.OutputStream;
  _x : Single;
begin
  _Input.ReadFloat(_x);
  SetSalary( _x);
  GetReplyBuffer(_Cookie, _Output);
end;

procedure TITaxCalSkeleton._GetTax(const _Input: CORBA.InputStream; _Cookie: Pointer);
var
  _Output : CORBA.OutputStream;
  _Result : Single;
begin
  _Result := GetTax;
  GetReplyBuffer(_Cookie, _Output);
  _Output.WriteFloat(_Result);
end;

procedure TITaxCalSkeleton._GetMySalary(const _Input: CORBA.InputStream; _Cookie: Pointer);
var
  _Output : CORBA.OutputStream;
  _Result : Single;
begin
  _Result := GetMySalary;
  GetReplyBuffer(_Cookie, _Output);
  _Output.WriteFloat(_Result);
end;

constructor TTaxCalFactorySkeleton.Create(const InstanceName : string; const Impl : salary_i.TaxCalFactory);
begin
  inherited;
  inherited CreateSkeleton(InstanceName, 'TaxCalFactory', 'IDL:salary/TaxCalFactory:1.0');
  FImplementation := Impl;
end;

destructor TTaxCalFactorySkeleton.Destroy;
begin
  FImplementation := nil;
  inherited;
end;

function TTaxCalFactorySkeleton.GetImplementation : salary_i.TaxCalFactory;
begin
  result := FImplementation as salary_i.TaxCalFactory;
end;

function  TTaxCalFactorySkeleton.CreateInstance ( const InstanceName : AnsiString): salary_i.ITaxCal;
begin
  Result := FImplementation.CreateInstance( InstanceName);
end;

procedure TTaxCalFactorySkeleton._CreateInstance(const _Input: CORBA.InputStream; _Cookie: Pointer);
var
  _Output : CORBA.OutputStream;
  _InstanceName : AnsiString;
  _Result : salary_i.ITaxCal;
begin
  _Input.ReadString(_InstanceName);
  _Result := CreateInstance( _InstanceName);
  GetReplyBuffer(_Cookie, _Output);
  salary_c.TITaxCalHelper.Write(_Output, _Result);
end;


initialization


end.