iqtest_i.pas

来自「Delphi 7组件与分布式应用开发源码,介绍了基础的组件应用实例」· PAS 代码 · 共 42 行

unit IQTest_i;

{This file was generated on 16 Nov 2002 13:58:25 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_i                                           }
{derived from IDL module : IQTest                                             }



interface

uses
  CORBA;

type
  IIQTest = interface;
  IQTestFactory = interface;

  IIQTest = interface
    ['{4DFF78E6-9F16-EA62-397C-441625AD4DA0}']
    function  Check (const QuestionNo : Integer;
                     const QuestionAnswer : Integer): Boolean;
    function  Score : Integer;
  end;

  IQTestFactory = interface
    ['{B11FD7BC-89B6-3E7E-35BC-8A09F5444C6C}']
    function  CreateInstance (const InstanceName : AnsiString): IQTest_i.IIQTest;
  end;


implementation


initialization


end.