home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue56 / Construc / BobNotes_C.pas next >
Encoding:
Pascal/Delphi Source File  |  2000-03-02  |  18.0 KB  |  463 lines
  1. unit BobNotes_c;
  2.  
  3. { This file was generated on 2 Mar 2000 06:32:20 GMT by version 03.03.02.C3.03    }
  4. { of the Inprise VisiBroker idl2pas CORBA IDL compiler.                             }
  5.  
  6. { Please do not edit the contents of this file. If you wish to modify them you      }
  7. { should do so by editing and recompiling the original IDL which was located in the }
  8. { fileBobNotes.idl. }
  9.  
  10. { Delphi Pascal unit BobNotes_c for the BobNotes IDL module. }
  11. { The purpose of this file is to implement the client-side classes (stubs) required  }
  12. { by the associated Interface unit (BobNotes_i). }
  13. { This unit must be matched with the associated skeleton unit on the server side. }
  14.  
  15. { This unit contains the stub code for IDL module BobNotes. }
  16. {** IDL Source     : "BobNotes.idl", line 1
  17.  ** IDL Name       : module
  18.  ** Repository Id  : IDL:BobNotes:1.0
  19.  **}
  20.  
  21.  
  22. interface
  23.  
  24. uses
  25.   CORBA,
  26.   BobNotes_i;
  27.  
  28.  
  29. type
  30.   TICorBobNotesHelper = class;
  31.   TICorBobNotesStub = class;
  32.   EICorBobNotes_PermissionDenied = class;
  33.   TCorBobNotesFactoryHelper = class;
  34.   TCorBobNotesFactoryStub = class;
  35.  
  36.  
  37.   { Pascal helper class "BobNotes_c.TICorBobNotesHelper" for the Pascal interface "BobNotes_i.ICorBobNotes". }
  38.   {** IDL Source     : "BobNotes.idl", line 3
  39.    ** IDL Name       : interface
  40.    ** Repository Id  : IDL:BobNotes/ICorBobNotes:1.0
  41.    **}
  42.   TICorBobNotesHelper = class
  43.     class procedure Insert (var _A: CORBA.Any; const _Value : BobNotes_i.ICorBobNotes);
  44.     class function  Extract(var _A: CORBA.Any) : BobNotes_i.ICorBobNotes;
  45.     class function  TypeCode     : CORBA.TypeCode;
  46.     class function  RepositoryId : string;
  47.     class function  Read (const _Input  : CORBA.InputStream) : BobNotes_i.ICorBobNotes;
  48.     class procedure Write(const _Output : CORBA.OutputStream; const _Value : BobNotes_i.ICorBobNotes);
  49.     class function  Narrow(const _Obj   : CORBA.CORBAObject; _IsA : Boolean = False) : BobNotes_i.ICorBobNotes;
  50.     class function  Bind(const _InstanceName : string = ''; _HostName : string = '') : BobNotes_i.ICorBobNotes; overload;
  51.     class function  Bind(_Options : BindOptions; const _InstanceName : string = ''; _HostName: string = '') : BobNotes_i.ICorBobNotes; overload;
  52.   end;
  53.  
  54.  
  55.   { Pascal stub class "BobNotes_c.TICorBobNotesStub supporting the Pascal interface "BobNotes_i.ICorBobNotes". }
  56.   {** IDL Source     : "BobNotes.idl", line 3
  57.    ** IDL Name       : interface
  58.    ** Repository Id  : IDL:BobNotes/ICorBobNotes:1.0
  59.    **}
  60.  
  61.   TICorBobNotesStub = class(CORBA.TCORBAObject, BobNotes_i.ICorBobNotes)
  62.   public
  63.     {** IDL Source     : "BobNotes.idl", line 10
  64.      ** IDL Name       : operation
  65.      ** Repository Id  : IDL:BobNotes/ICorBobNotes/GetLines:1.0
  66.      **}
  67.     procedure  GetLines ( const User : WideString;
  68.                           const Password : WideString;
  69.                           out   Lines : WideString); virtual;
  70.     {** IDL Source     : "BobNotes.idl", line 12
  71.      ** IDL Name       : operation
  72.      ** Repository Id  : IDL:BobNotes/ICorBobNotes/SetLines:1.0
  73.      **}
  74.     procedure  SetLines ( const User : WideString;
  75.                           const Password : WideString;
  76.                           const Lines : WideString); virtual;
  77.     {** IDL Source     : "BobNotes.idl", line 14
  78.      ** IDL Name       : operation
  79.      ** Repository Id  : IDL:BobNotes/ICorBobNotes/Answer:1.0
  80.      **}
  81.     procedure  Answer ( out   Answer : Integer); virtual;
  82.     {** IDL Source     : "BobNotes.idl", line 15
  83.      ** IDL Name       : operation
  84.      ** Repository Id  : IDL:BobNotes/ICorBobNotes/StringAnswer:1.0
  85.      **}
  86.     procedure  StringAnswer ( const Question : Integer;
  87.                               out   Answer : WideString); virtual;
  88.     {** IDL Source     : "BobNotes.idl", line 16
  89.      ** IDL Name       : operation
  90.      ** Repository Id  : IDL:BobNotes/ICorBobNotes/StringAnswer2:1.0
  91.      **}
  92.     procedure  StringAnswer2 ( const Question : WideString;
  93.                                out   Answer : WideString); virtual;
  94.  
  95.   end;
  96.  
  97.  
  98.   { Signature for the Pascal stub class "BobNotes_c.EICorBobNotes_PermissionDenied" supporting the IDL exception "PermissionDenied". }
  99.   {** IDL Source     : "BobNotes.idl", line 5
  100.    ** IDL Name       : exception
  101.    ** Repository Id  : IDL:BobNotes/ICorBobNotes/PermissionDenied:1.0
  102.    **}
  103.   EICorBobNotes_PermissionDenied = class(UserException)
  104.   private
  105.     FReason : AnsiString;
  106.   protected
  107.     function  _get_Reason : AnsiString; virtual;
  108.  
  109.   public
  110.     property  Reason : AnsiString read _get_Reason;
  111.     procedure Copy(const _Input : InputStream); override;
  112.  
  113.   end;
  114.  
  115.  
  116.   { Pascal helper class "BobNotes_c.TCorBobNotesFactoryHelper" for the Pascal interface "BobNotes_i.CorBobNotesFactory". }
  117.   {** IDL Source     : "BobNotes.idl", line 19
  118.    ** IDL Name       : interface
  119.    ** Repository Id  : IDL:BobNotes/CorBobNotesFactory:1.0
  120.    **}
  121.   TCorBobNotesFactoryHelper = class
  122.     class procedure Insert (var _A: CORBA.Any; const _Value : BobNotes_i.CorBobNotesFactory);
  123.     class function  Extract(var _A: CORBA.Any) : BobNotes_i.CorBobNotesFactory;
  124.     class function  TypeCode     : CORBA.TypeCode;
  125.     class function  RepositoryId : string;
  126.     class function  Read (const _Input  : CORBA.InputStream) : BobNotes_i.CorBobNotesFactory;
  127.     class procedure Write(const _Output : CORBA.OutputStream; const _Value : BobNotes_i.CorBobNotesFactory);
  128.     class function  Narrow(const _Obj   : CORBA.CORBAObject; _IsA : Boolean = False) : BobNotes_i.CorBobNotesFactory;
  129.     class function  Bind(const _InstanceName : string = ''; _HostName : string = '') : BobNotes_i.CorBobNotesFactory; overload;
  130.     class function  Bind(_Options : BindOptions; const _InstanceName : string = ''; _HostName: string = '') : BobNotes_i.CorBobNotesFactory; overload;
  131.   end;
  132.  
  133.  
  134.   { Pascal stub class "BobNotes_c.TCorBobNotesFactoryStub supporting the Pascal interface "BobNotes_i.CorBobNotesFactory". }
  135.   {** IDL Source     : "BobNotes.idl", line 19
  136.    ** IDL Name       : interface
  137.    ** Repository Id  : IDL:BobNotes/CorBobNotesFactory:1.0
  138.    **}
  139.  
  140.   TCorBobNotesFactoryStub = class(CORBA.TCORBAObject, BobNotes_i.CorBobNotesFactory)
  141.   public
  142.     {** IDL Source     : "BobNotes.idl", line 21
  143.      ** IDL Name       : operation
  144.      ** Repository Id  : IDL:BobNotes/CorBobNotesFactory/CreateInstance:1.0
  145.      **}
  146.     function   CreateInstance ( const InstanceName : AnsiString): BobNotes_i.ICorBobNotes; virtual;
  147.  
  148.   end;
  149.  
  150.  
  151. implementation
  152.  
  153.  
  154. var
  155.  
  156.  
  157.   { Pascal proxy "BobNotes_c.ICorBobNotes_PermissionDeniedDesc" for the IDL exception PermissionDenied. }
  158.   {** IDL Source     : "BobNotes.idl", line 5
  159.    ** IDL Name       : exception
  160.    ** Repository Id  : IDL:BobNotes/ICorBobNotes/PermissionDenied:1.0
  161.    **}
  162.   ICorBobNotes_PermissionDeniedDesc : PExceptionDescription;
  163.  
  164.  
  165. { Implementation of the Pascal helper class "BobNotes_c.TICorBobNotesHelper" supporting the Pascal interface "BobNotes_i.ICorBobNotes. }
  166. {** IDL Source     : "BobNotes.idl", line 3
  167.  ** IDL Name       : interface
  168.  ** Repository Id  : IDL:BobNotes/ICorBobNotes:1.0
  169.  **}
  170. class procedure TICorBobNotesHelper.Insert(var _A : CORBA.Any; const _Value : BobNotes_i.ICorBobNotes);
  171. begin
  172.   _A := Orb.MakeObjectRef( TICorBobNotesHelper.TypeCode, _Value as CORBA.CORBAObject);
  173. end;
  174.  
  175. class function TICorBobNotesHelper.Extract(var _A : CORBA.Any): BobNotes_i.ICorBobNotes;
  176. var
  177.   _obj : Corba.CorbaObject;
  178. begin
  179.   _obj := Orb.GetObjectRef(_A);
  180.   Result := TICorBobNotesHelper.Narrow(_obj, True);
  181. end;
  182.  
  183. class function TICorBobNotesHelper.TypeCode : CORBA.TypeCode;
  184. begin
  185.   Result := ORB.CreateInterfaceTC(RepositoryId, 'ICorBobNotes');
  186. end;
  187.  
  188. class function TICorBobNotesHelper.RepositoryId : string;
  189. begin
  190.   Result := 'IDL:BobNotes/ICorBobNotes:1.0';
  191. end;
  192.  
  193. class function TICorBobNotesHelper.Read(const _Input : CORBA.InputStream) : BobNotes_i.ICorBobNotes;
  194. var
  195.   _Obj : CORBA.CORBAObject;
  196. begin
  197.   _Input.ReadObject(_Obj);
  198.   Result := Narrow(_Obj, True)
  199. end;
  200.  
  201. class procedure TICorBobNotesHelper.Write(const _Output : CORBA.OutputStream; const _Value : BobNotes_i.ICorBobNotes);
  202. begin
  203.   _Output.WriteObject(_Value as CORBA.CORBAObject);
  204. end;
  205.  
  206. class function TICorBobNotesHelper.Narrow(const _Obj : CORBA.CORBAObject; _IsA : Boolean) : BobNotes_i.ICorBobNotes;
  207. begin
  208.   Result := nil;
  209.   if (_Obj = nil) or (_Obj.QueryInterface(BobNotes_i.ICorBobNotes, Result) = 0)
  210.     then Exit;
  211.   if _IsA and _Obj._IsA(RepositoryId) then
  212.     Result := TICorBobNotesStub.Create(_Obj);
  213. end;
  214.  
  215. class function TICorBobNotesHelper.Bind(const _InstanceName : string = ''; _HostName: string = '') : BobNotes_i.ICorBobNotes;
  216. begin
  217.   Result := Narrow(ORB.bind(RepositoryId, _InstanceName, _HostName), True);
  218. end;
  219.  
  220. class function TICorBobNotesHelper.Bind(_Options : BindOptions; const _InstanceName : string = ''; _HostName : string = '') : BobNotes_i.ICorBobNotes;
  221. begin
  222.   Result := Narrow(ORB.bind(RepositoryId, _Options, _InstanceName, _HostName), True);
  223. end;
  224.  
  225. { Implementation of the Pascal stub class "BobNotes_c.TICorBobNotesStub" supporting the Pascal "BobNotes_i.ICorBobNotes" interface. }
  226.  
  227. { Implementation of Interface methods representing IDL operations. }
  228.   {** IDL Source     : "BobNotes.idl", line 10
  229.    ** IDL Name       : operation
  230.    ** Repository Id  : IDL:BobNotes/ICorBobNotes/GetLines:1.0
  231.    **}
  232.   procedure  TICorBobNotesStub.GetLines ( const User : WideString;
  233.                                           const Password : WideString;
  234.                                           out   Lines : WideString);
  235.   var
  236.     _Output: CORBA.OutputStream;
  237.     _Input : CORBA.InputStream;
  238.   begin
  239.     inherited _CreateRequest('GetLines',True, _Output);
  240.     _Output.WriteWstring(User);
  241.     _Output.WriteWstring(Password);
  242.     inherited _Invoke(_Output, _Input);
  243.     _Input.ReadWstring(Lines);
  244.   end;
  245.  
  246.   {** IDL Source     : "BobNotes.idl", line 12
  247.    ** IDL Name       : operation
  248.    ** Repository Id  : IDL:BobNotes/ICorBobNotes/SetLines:1.0
  249.    **}
  250.   procedure  TICorBobNotesStub.SetLines ( const User : WideString;
  251.                                           const Password : WideString;
  252.                                           const Lines : WideString);
  253.   var
  254.     _Output: CORBA.OutputStream;
  255.     _Input : CORBA.InputStream;
  256.   begin
  257.     inherited _CreateRequest('SetLines',True, _Output);
  258.     _Output.WriteWstring(User);
  259.     _Output.WriteWstring(Password);
  260.     _Output.WriteWstring(Lines);
  261.     inherited _Invoke(_Output, _Input);
  262.   end;
  263.  
  264.   {** IDL Source     : "BobNotes.idl", line 14
  265.    ** IDL Name       : operation
  266.    ** Repository Id  : IDL:BobNotes/ICorBobNotes/Answer:1.0
  267.    **}
  268.   procedure  TICorBobNotesStub.Answer ( out   Answer : Integer);
  269.   var
  270.     _Output: CORBA.OutputStream;
  271.     _Input : CORBA.InputStream;
  272.   begin
  273.     inherited _CreateRequest('Answer',True, _Output);
  274.     inherited _Invoke(_Output, _Input);
  275.     _Input.ReadLong(Answer);
  276.   end;
  277.  
  278.   {** IDL Source     : "BobNotes.idl", line 15
  279.    ** IDL Name       : operation
  280.    ** Repository Id  : IDL:BobNotes/ICorBobNotes/StringAnswer:1.0
  281.    **}
  282.   procedure  TICorBobNotesStub.StringAnswer ( const Question : Integer;
  283.                                               out   Answer : WideString);
  284.   var
  285.     _Output: CORBA.OutputStream;
  286.     _Input : CORBA.InputStream;
  287.   begin
  288.     inherited _CreateRequest('StringAnswer',True, _Output);
  289.     _Output.WriteLong(Question);
  290.     inherited _Invoke(_Output, _Input);
  291.     _Input.ReadWstring(Answer);
  292.   end;
  293.  
  294.   {** IDL Source     : "BobNotes.idl", line 16
  295.    ** IDL Name       : operation
  296.    ** Repository Id  : IDL:BobNotes/ICorBobNotes/StringAnswer2:1.0
  297.    **}
  298.   procedure  TICorBobNotesStub.StringAnswer2 ( const Question : WideString;
  299.                                                out   Answer : WideString);
  300.   var
  301.     _Output: CORBA.OutputStream;
  302.     _Input : CORBA.InputStream;
  303.   begin
  304.     inherited _CreateRequest('StringAnswer2',True, _Output);
  305.     _Output.WriteWstring(Question);
  306.     inherited _Invoke(_Output, _Input);
  307.     _Input.ReadWstring(Answer);
  308.   end;
  309.  
  310.  
  311.  
  312. { Implementation of the Pascal stub class "BobNotes_c.EICorBobNotes_PermissionDenied" supporting the Pascal "BobNotes_c.EICorBobNotes_PermissionDenied" interface. }
  313. {** IDL Source     : "BobNotes.idl", line 5
  314.  ** IDL Name       : exception
  315.  ** Repository Id  : IDL:BobNotes/ICorBobNotes/PermissionDenied:1.0
  316.  **}
  317.  
  318.  
  319.   function EICorBobNotes_PermissionDenied._get_Reason : AnsiString;
  320.   begin
  321.     Result := FReason;
  322.   end;
  323.  
  324.  
  325.   procedure EICorBobNotes_PermissionDenied.Copy(const _Input: InputStream);
  326.   begin
  327.     _Input.ReadString(FReason);
  328.   end;
  329. function ICorBobNotes_PermissionDenied_Factory: PExceptionProxy; cdecl;
  330. begin
  331.   with BobNotes_c.EICorBobNotes_PermissionDenied.Create() do Result := Proxy;
  332. end;
  333.  
  334.  
  335. { Implementation of the Pascal helper class "BobNotes_c.TCorBobNotesFactoryHelper" supporting the Pascal interface "BobNotes_i.CorBobNotesFactory. }
  336. {** IDL Source     : "BobNotes.idl", line 19
  337.  ** IDL Name       : interface
  338.  ** Repository Id  : IDL:BobNotes/CorBobNotesFactory:1.0
  339.  **}
  340. class procedure TCorBobNotesFactoryHelper.Insert(var _A : CORBA.Any; const _Value : BobNotes_i.CorBobNotesFactory);
  341. begin
  342.   _A := Orb.MakeObjectRef( TCorBobNotesFactoryHelper.TypeCode, _Value as CORBA.CORBAObject);
  343. end;
  344.  
  345. class function TCorBobNotesFactoryHelper.Extract(var _A : CORBA.Any): BobNotes_i.CorBobNotesFactory;
  346. var
  347.   _obj : Corba.CorbaObject;
  348. begin
  349.   _obj := Orb.GetObjectRef(_A);
  350.   Result := TCorBobNotesFactoryHelper.Narrow(_obj, True);
  351. end;
  352.  
  353. class function TCorBobNotesFactoryHelper.TypeCode : CORBA.TypeCode;
  354. begin
  355.   Result := ORB.CreateInterfaceTC(RepositoryId, 'CorBobNotesFactory');
  356. end;
  357.  
  358. class function TCorBobNotesFactoryHelper.RepositoryId : string;
  359. begin
  360.   Result := 'IDL:BobNotes/CorBobNotesFactory:1.0';
  361. end;
  362.  
  363. class function TCorBobNotesFactoryHelper.Read(const _Input : CORBA.InputStream) : BobNotes_i.CorBobNotesFactory;
  364. var
  365.   _Obj : CORBA.CORBAObject;
  366. begin
  367.   _Input.ReadObject(_Obj);
  368.   Result := Narrow(_Obj, True)
  369. end;
  370.  
  371. class procedure TCorBobNotesFactoryHelper.Write(const _Output : CORBA.OutputStream; const _Value : BobNotes_i.CorBobNotesFactory);
  372. begin
  373.   _Output.WriteObject(_Value as CORBA.CORBAObject);
  374. end;
  375.  
  376. class function TCorBobNotesFactoryHelper.Narrow(const _Obj : CORBA.CORBAObject; _IsA : Boolean) : BobNotes_i.CorBobNotesFactory;
  377. begin
  378.   Result := nil;
  379.   if (_Obj = nil) or (_Obj.QueryInterface(BobNotes_i.CorBobNotesFactory, Result) = 0)
  380.     then Exit;
  381.   if _IsA and _Obj._IsA(RepositoryId) then
  382.     Result := TCorBobNotesFactoryStub.Create(_Obj);
  383. end;
  384.  
  385. class function TCorBobNotesFactoryHelper.Bind(const _InstanceName : string = ''; _HostName: string = '') : BobNotes_i.CorBobNotesFactory;
  386. begin
  387.   Result := Narrow(ORB.bind(RepositoryId, _InstanceName, _HostName), True);
  388. end;
  389.  
  390. class function TCorBobNotesFactoryHelper.Bind(_Options : BindOptions; const _InstanceName : string = ''; _HostName : string = '') : BobNotes_i.CorBobNotesFactory;
  391. begin
  392.   Result := Narrow(ORB.bind(RepositoryId, _Options, _InstanceName, _HostName), True);
  393. end;
  394.  
  395. { Implementation of the Pascal stub class "BobNotes_c.TCorBobNotesFactoryStub" supporting the Pascal "BobNotes_i.CorBobNotesFactory" interface. }
  396.  
  397. { Implementation of Interface methods representing IDL operations. }
  398.   {** IDL Source     : "BobNotes.idl", line 21
  399.    ** IDL Name       : operation
  400.    ** Repository Id  : IDL:BobNotes/CorBobNotesFactory/CreateInstance:1.0
  401.    **}
  402.   function   TCorBobNotesFactoryStub.CreateInstance ( const InstanceName : AnsiString): BobNotes_i.ICorBobNotes;
  403.   var
  404.     _Output: CORBA.OutputStream;
  405.     _Input : CORBA.InputStream;
  406.   begin
  407.     inherited _CreateRequest('CreateInstance',True, _Output);
  408.     _Output.WriteString(InstanceName);
  409.     inherited _Invoke(_Output, _Input);
  410.     Result := BobNotes_c.TICorBobNotesHelper.Read(_Input);
  411.   end;
  412.  
  413.  
  414.  
  415. initialization
  416.  
  417.   { Initialization of the Pascal helper class "BobNotes_c.TICorBobNotesStub". }
  418.   {** IDL Source     : "BobNotes.idl", line 3
  419.    ** IDL Name       : interface
  420.    ** Repository Id  : IDL:BobNotes/ICorBobNotes:1.0
  421.    **}
  422.   CORBA.InterfaceIDManager.RegisterInterface(BobNotes_i.ICorBobNotes, BobNotes_c.TICorBobNotesHelper.RepositoryId);
  423.  
  424.   { Initialization of the BobNotes_c.TICorBobNotesStub interface stub for the BobNotes_i.ICorBobNotesInterface. }
  425.   {** IDL Source     : "BobNotes.idl", line 3
  426.    ** IDL Name       : interface
  427.    ** Repository Id  : IDL:BobNotes/ICorBobNotes:1.0
  428.    **}
  429.   CORBA.StubManager.RegisterStub(BobNotes_i.ICorBobNotes, BobNotes_c.TICorBobNotesStub);
  430.  
  431.   { Initialization of the Pascal helper class "BobNotes_c.TCorBobNotesFactoryStub". }
  432.   {** IDL Source     : "BobNotes.idl", line 19
  433.    ** IDL Name       : interface
  434.    ** Repository Id  : IDL:BobNotes/CorBobNotesFactory:1.0
  435.    **}
  436.   CORBA.InterfaceIDManager.RegisterInterface(BobNotes_i.CorBobNotesFactory, BobNotes_c.TCorBobNotesFactoryHelper.RepositoryId);
  437.  
  438.   { Initialization of the BobNotes_c.TCorBobNotesFactoryStub interface stub for the BobNotes_i.CorBobNotesFactoryInterface. }
  439.   {** IDL Source     : "BobNotes.idl", line 19
  440.    ** IDL Name       : interface
  441.    ** Repository Id  : IDL:BobNotes/CorBobNotesFactory:1.0
  442.    **}
  443.   CORBA.StubManager.RegisterStub(BobNotes_i.CorBobNotesFactory, BobNotes_c.TCorBobNotesFactoryStub);
  444.  
  445.   { Initalization of the Pascal stub class "BobNotes_c.EICorBobNotes_PermissionDenied" supporting the Pascal exception "BobNotes_c.EICorBobNotes_PermissionDenied" (IDL exception PermissionDenied). }
  446.   {** IDL Source     : "BobNotes.idl", line 5
  447.    ** IDL Name       : exception
  448.    ** Repository Id  : IDL:BobNotes/ICorBobNotes/PermissionDenied:1.0
  449.    **}
  450.   BobNotes_c.ICorBobNotes_PermissionDeniedDesc := RegisterUserException('PermissionDenied', 'IDL:BobNotes/ICorBobNotes/PermissionDenied:1.0', @BobNotes_c.ICorBobNotes_PermissionDenied_Factory);
  451.  
  452.  
  453. finalization
  454.  
  455.   { Finalization of the Pascal exception "BobNotes_c.EICorBobNotes_PermissionDenied". }
  456.   {** IDL Source     : "BobNotes.idl", line 5
  457.    ** IDL Name       : exception
  458.    ** Repository Id  : IDL:BobNotes/ICorBobNotes/PermissionDenied:1.0
  459.    **}
  460.   UnRegisterUserException(BobNotes_c.ICorBobNotes_PermissionDeniedDesc);
  461.  
  462.  
  463. end.