iqtest_s.pas

Delphi 7组件与分布式应用开发源码,介绍了基础的组件应用实例

unit IQTest_s;

{This file was generated on 16 Nov 2002 13:58:26 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 Examination.idl.    }

{Delphi Pascal unit      : IQTest_s                                           }
{derived from IDL module : IQTest                                             }



interface

uses
  CORBA,
  IQTest_i,
  IQTest_c;

type
  TIIQTestSkeleton = class;
  TIQTestFactorySkeleton = class;

  TIIQTestSkeleton = class(CORBA.TCorbaObject, IQTest_i.IIQTest)
  private
    FImplementation : IIQTest;
  public
    constructor Create(const InstanceName: string; const Impl: IIQTest);
    destructor Destroy; override;
    function GetImplementation : IIQTest;
    function  Check ( const QuestionNo : Integer;
                      const QuestionAnswer : Integer): Boolean;
    function  Score : Integer;
  published
    procedure _Check(const _Input: CORBA.InputStream; _Cookie: Pointer);
    procedure _Score(const _Input: CORBA.InputStream; _Cookie: Pointer);
  end;

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


implementation

constructor TIIQTestSkeleton.Create(const InstanceName : string; const Impl : IQTest_i.IIQTest);
begin
  inherited;
  inherited CreateSkeleton(InstanceName, 'IIQTest', 'IDL:IQTest/IIQTest:1.0');
  FImplementation := Impl;
end;

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

function TIIQTestSkeleton.GetImplementation : IQTest_i.IIQTest;
begin
  result := FImplementation as IQTest_i.IIQTest;
end;

function  TIIQTestSkeleton.Check ( const QuestionNo : Integer;
                                   const QuestionAnswer : Integer): Boolean;
begin
  Result := FImplementation.Check( QuestionNo,
                                   QuestionAnswer);
end;

function  TIIQTestSkeleton.Score : Integer;
begin
  Result := FImplementation.Score;
end;

procedure TIIQTestSkeleton._Check(const _Input: CORBA.InputStream; _Cookie: Pointer);
var
  _Output : CORBA.OutputStream;
  _QuestionNo : Integer;
  _QuestionAnswer : Integer;
  _Result : Boolean;
begin
  _Input.ReadLong(_QuestionNo);
  _Input.ReadLong(_QuestionAnswer);
  _Result := Check( _QuestionNo,
                    _QuestionAnswer);
  GetReplyBuffer(_Cookie, _Output);
  _Output.WriteBoolean(_Result);
end;

procedure TIIQTestSkeleton._Score(const _Input: CORBA.InputStream; _Cookie: Pointer);
var
  _Output : CORBA.OutputStream;
  _Result : Integer;
begin
  _Result := Score;
  GetReplyBuffer(_Cookie, _Output);
  _Output.WriteLong(_Result);
end;

constructor TIQTestFactorySkeleton.Create(const InstanceName : string; const Impl : IQTest_i.IQTestFactory);
begin
  inherited;
  inherited CreateSkeleton(InstanceName, 'IQTestFactory', 'IDL:IQTest/IQTestFactory:1.0');
  FImplementation := Impl;
end;

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

function TIQTestFactorySkeleton.GetImplementation : IQTest_i.IQTestFactory;
begin
  result := FImplementation as IQTest_i.IQTestFactory;
end;

function  TIQTestFactorySkeleton.CreateInstance ( const InstanceName : AnsiString): IQTest_i.IIQTest;
begin
  Result := FImplementation.CreateInstance( InstanceName);
end;

procedure TIQTestFactorySkeleton._CreateInstance(const _Input: CORBA.InputStream; _Cookie: Pointer);
var
  _Output : CORBA.OutputStream;
  _InstanceName : AnsiString;
  _Result : IQTest_i.IIQTest;
begin
  _Input.ReadString(_InstanceName);
  _Result := CreateInstance( _InstanceName);
  GetReplyBuffer(_Cookie, _Output);
  IQTest_c.TIIQTestHelper.Write(_Output, _Result);
end;


initialization


end.