home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Database / ejemplos / multiquery / servidor1_TLB.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-03-04  |  4.6 KB  |  106 lines
  1. unit servidor1_TLB;
  2.  
  3. // ************************************************************************ //
  4. // WARNING                                                                  //
  5. // -------                                                                  //
  6. // The types declared in this file were generated from data read from a     //
  7. // Type Library. If this type library is explicitly or indirectly (via      //
  8. // another type library referring to this type library) re-imported, or the //
  9. // 'Refresh' command of the Type Library Editor activated while editing the //
  10. // Type Library, the contents of this file will be regenerated and all      //
  11. // manual modifications will be lost.                                       //
  12. // ************************************************************************ //
  13.  
  14. // PASTLWTR : $Revision:   1.11.1.63  $
  15. // File generated on 4/03/99 13:00:31 from Type Library described below.
  16.  
  17. // ************************************************************************ //
  18. // Type Lib: D:\conferen\multiquery\servidor1.tlb
  19. // IID\LCID: {08E981C0-D216-11D2-9629-0000E85E7443}\0
  20. // Helpfile: 
  21. // HelpString: Project1 Library
  22. // Version:    1.0
  23. // ************************************************************************ //
  24.  
  25. interface
  26.  
  27. uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;
  28.  
  29. // *********************************************************************//
  30. // GUIDS declared in the TypeLibrary. Following prefixes are used:      //
  31. //   Type Libraries     : LIBID_xxxx                                    //
  32. //   CoClasses          : CLASS_xxxx                                    //
  33. //   DISPInterfaces     : DIID_xxxx                                     //
  34. //   Non-DISP interfaces: IID_xxxx                                      //
  35. // *********************************************************************//
  36. const
  37.   LIBID_servidor1: TGUID = '{08E981C0-D216-11D2-9629-0000E85E7443}';
  38.   IID_Iprobanquery: TGUID = '{08E981C1-D216-11D2-9629-0000E85E7443}';
  39.   CLASS_probanquery: TGUID = '{08E981C3-D216-11D2-9629-0000E85E7443}';
  40. type
  41.  
  42. // *********************************************************************//
  43. // Forward declaration of interfaces defined in Type Library            //
  44. // *********************************************************************//
  45.   Iprobanquery = interface;
  46.   IprobanqueryDisp = dispinterface;
  47.  
  48. // *********************************************************************//
  49. // Declaration of CoClasses defined in Type Library                     //
  50. // (NOTE: Here we map each CoClass to its Default Interface)            //
  51. // *********************************************************************//
  52.   probanquery = Iprobanquery;
  53.  
  54.  
  55. // *********************************************************************//
  56. // Interface: Iprobanquery
  57. // Flags:     (4416) Dual OleAutomation Dispatchable
  58. // GUID:      {08E981C1-D216-11D2-9629-0000E85E7443}
  59. // *********************************************************************//
  60.   Iprobanquery = interface(IDataBroker)
  61.     ['{08E981C1-D216-11D2-9629-0000E85E7443}']
  62.     function Get_Provider1: IProvider; safecall;
  63.     function Get_Provider2: IProvider; safecall;
  64.     function Get_Provider3: IProvider; safecall;
  65.     function Get_DataSetProvider1: IProvider; safecall;
  66.     property Provider1: IProvider read Get_Provider1;
  67.     property Provider2: IProvider read Get_Provider2;
  68.     property Provider3: IProvider read Get_Provider3;
  69.     property DataSetProvider1: IProvider read Get_DataSetProvider1;
  70.   end;
  71.  
  72. // *********************************************************************//
  73. // DispIntf:  IprobanqueryDisp
  74. // Flags:     (4416) Dual OleAutomation Dispatchable
  75. // GUID:      {08E981C1-D216-11D2-9629-0000E85E7443}
  76. // *********************************************************************//
  77.   IprobanqueryDisp = dispinterface
  78.     ['{08E981C1-D216-11D2-9629-0000E85E7443}']
  79.     property Provider1: IProvider readonly dispid 1;
  80.     property Provider2: IProvider readonly dispid 2;
  81.     property Provider3: IProvider readonly dispid 3;
  82.     property DataSetProvider1: IProvider readonly dispid 4;
  83.     function GetProviderNames: OleVariant; dispid 22929905;
  84.   end;
  85.  
  86.   Coprobanquery = class
  87.     class function Create: Iprobanquery;
  88.     class function CreateRemote(const MachineName: string): Iprobanquery;
  89.   end;
  90.  
  91. implementation
  92.  
  93. uses ComObj;
  94.  
  95. class function Coprobanquery.Create: Iprobanquery;
  96. begin
  97.   Result := CreateComObject(CLASS_probanquery) as Iprobanquery;
  98. end;
  99.  
  100. class function Coprobanquery.CreateRemote(const MachineName: string): Iprobanquery;
  101. begin
  102.   Result := CreateRemoteComObject(MachineName, CLASS_probanquery) as Iprobanquery;
  103. end;
  104.  
  105. end.
  106.