home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue56 / Construc / BobNotes_i.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-03-02  |  3.8 KB  |  107 lines
  1. unit BobNotes_i;
  2.  
  3. { This file was generated on 2 Mar 2000 06:32:18 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_i for the BobNotes IDL module. }
  11. { The purpose of this file is to declare the interfaces and variables used in the }
  12. { associated client (BobNotes_c) }
  13. { and/or server     (BobNotes_s) units. }
  14. { This unit must be matched with the associated stub unit on the client side }
  15. { and/or the associated skeleton unit on the server side. }
  16.  
  17. { This unit contains the pascal interface code for IDL module BobNotes. }
  18. {** IDL Source     : "BobNotes.idl", line 1
  19.  ** IDL Name       : module
  20.  ** Repository Id  : IDL:BobNotes:1.0
  21.  **}
  22.  
  23.  
  24. interface
  25.  
  26. uses
  27.   CORBA;
  28.  
  29.  
  30. type
  31.   ICorBobNotes = interface;
  32.   CorBobNotesFactory = interface;
  33.  
  34.  
  35.   { Signature for the "BobNotes_i.ICorBobNotes" interface derived from the IDL interface "ICorBobNotes". }
  36.   {** IDL Source     : "BobNotes.idl", line 3
  37.    ** IDL Name       : interface
  38.    ** Repository Id  : IDL:BobNotes/ICorBobNotes:1.0
  39.    **}
  40.   ICorBobNotes = interface
  41.     ['{36D00EB7-B4A7-9797-A084-1EC88FFFDB68}']
  42.  
  43.     { Interface methods representing IDL operations. }
  44.     {** IDL Source     : "BobNotes.idl", line 10
  45.      ** IDL Name       : operation
  46.      ** Repository Id  : IDL:BobNotes/ICorBobNotes/GetLines:1.0
  47.      **}
  48.     procedure  GetLines (const User : WideString;
  49.                          const Password : WideString;
  50.                          out   Lines : WideString);
  51.     {** IDL Source     : "BobNotes.idl", line 12
  52.      ** IDL Name       : operation
  53.      ** Repository Id  : IDL:BobNotes/ICorBobNotes/SetLines:1.0
  54.      **}
  55.     procedure  SetLines (const User : WideString;
  56.                          const Password : WideString;
  57.                          const Lines : WideString);
  58.     {** IDL Source     : "BobNotes.idl", line 14
  59.      ** IDL Name       : operation
  60.      ** Repository Id  : IDL:BobNotes/ICorBobNotes/Answer:1.0
  61.      **}
  62.     procedure  Answer (out   Answer : Integer);
  63.     {** IDL Source     : "BobNotes.idl", line 15
  64.      ** IDL Name       : operation
  65.      ** Repository Id  : IDL:BobNotes/ICorBobNotes/StringAnswer:1.0
  66.      **}
  67.     procedure  StringAnswer (const Question : Integer;
  68.                              out   Answer : WideString);
  69.     {** IDL Source     : "BobNotes.idl", line 16
  70.      ** IDL Name       : operation
  71.      ** Repository Id  : IDL:BobNotes/ICorBobNotes/StringAnswer2:1.0
  72.      **}
  73.     procedure  StringAnswer2 (const Question : WideString;
  74.                               out   Answer : WideString);
  75.   end;
  76.  
  77.  
  78.   { Signature for the "BobNotes_i.CorBobNotesFactory" interface derived from the IDL interface "CorBobNotesFactory". }
  79.   {** IDL Source     : "BobNotes.idl", line 19
  80.    ** IDL Name       : interface
  81.    ** Repository Id  : IDL:BobNotes/CorBobNotesFactory:1.0
  82.    **}
  83.   CorBobNotesFactory = interface
  84.     ['{F3CB924E-C689-CE98-5EA8-0300A72E88E3}']
  85.  
  86.     { Interface methods representing IDL operations. }
  87.     {** IDL Source     : "BobNotes.idl", line 21
  88.      ** IDL Name       : operation
  89.      ** Repository Id  : IDL:BobNotes/CorBobNotesFactory/CreateInstance:1.0
  90.      **}
  91.     function   CreateInstance (const InstanceName : AnsiString): BobNotes_i.ICorBobNotes;
  92.   end;
  93.  
  94.  
  95. implementation
  96.   { The stub implementation code (if any) is located in the associated _C file. }
  97.  
  98.  
  99. initialization
  100.   { The initialization code (if any) is located in the associated _C file. }
  101.  
  102.  
  103. finalization
  104.   { The finalization code (if any) is located in the associated _C file. }
  105.  
  106.  
  107. end.