unit testi_s;

{This file was generated on 27 Aug 2004 22:54:53 GMT by version 03.03.03.C1.A2}
{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                     }
{D:\gko\local\simplecorba\delphiclient\laskuri.idl.                           }

{Delphi Pascal unit      : testi_s                                            }
{derived from IDL module : testi                                              }



interface

uses
  CORBA,
  testi_i,
  testi_c;

type
  TiCarCounterSkeleton = class;

  TiCarCounterSkeleton = class(CORBA.TCorbaObject, testi_i.iCarCounter)
  private
    FImplementation : iCarCounter;
  public
    constructor Create(const InstanceName: string; const Impl: iCarCounter);
    destructor Destroy; override;
    function GetImplementation : iCarCounter;
    procedure Inc ;
    function  Count : Integer;
    procedure Clear ;
  published
    procedure _Inc(const _Input: CORBA.InputStream; _Cookie: Pointer);
    procedure _Count(const _Input: CORBA.InputStream; _Cookie: Pointer);
    procedure _Clear(const _Input: CORBA.InputStream; _Cookie: Pointer);
  end;


implementation

constructor TiCarCounterSkeleton.Create(const InstanceName : string; const Impl : testi_i.iCarCounter);
begin
  inherited;
  inherited CreateSkeleton(InstanceName, 'iCarCounter', 'IDL:testi/iCarCounter:1.0');
  FImplementation := Impl;
end;

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

function TiCarCounterSkeleton.GetImplementation : testi_i.iCarCounter;
begin
  result := FImplementation as testi_i.iCarCounter;
end;

procedure TiCarCounterSkeleton.Inc ;
begin
  FImplementation.Inc;
end;

function  TiCarCounterSkeleton.Count : Integer;
begin
  Result := FImplementation.Count;
end;

procedure TiCarCounterSkeleton.Clear ;
begin
  FImplementation.Clear;
end;

procedure TiCarCounterSkeleton._Inc(const _Input: CORBA.InputStream; _Cookie: Pointer);
var
  _Output : CORBA.OutputStream;
begin
  Inc;
  GetReplyBuffer(_Cookie, _Output);
end;

procedure TiCarCounterSkeleton._Count(const _Input: CORBA.InputStream; _Cookie: Pointer);
var
  _Output : CORBA.OutputStream;
  _Result : Integer;
begin
  _Result := Count;
  GetReplyBuffer(_Cookie, _Output);
  _Output.WriteLong(_Result);
end;

procedure TiCarCounterSkeleton._Clear(const _Input: CORBA.InputStream; _Cookie: Pointer);
var
  _Output : CORBA.OutputStream;
begin
  Clear;
  GetReplyBuffer(_Cookie, _Output);
end;


initialization


end.