salary_i.~pas

Delphi6分布式开发例程7 )

unit Project1_i;

{This file was generated on 16 Sep 2001 10:46:28 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_i                                         }
{derived from IDL module : salary                                           }



interface

uses
  CORBA;

type
  ITaxCal = interface;
  TaxCalFactory = interface;

  ITaxCal = interface
    ['{FCAB09A6-4B67-720F-4527-04271170A918}']
    procedure SetSalary (const x : Single);
    function  GetTax : Single;
    function  GetMySalary : Single;
  end;

  TaxCalFactory = interface
    ['{5FB775A7-F434-1BBF-8AA8-8EF701A4B48A}']
    function  CreateInstance (const InstanceName : AnsiString): Project1_i.ITaxCal;
  end;


implementation


initialization


end.