home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Database / ejemplos / controlusu / Pserver1_TLB.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-04-10  |  5.5 KB  |  135 lines
  1. unit Pserver1_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 10/04/99 9:31:09 from Type Library described below.
  16.  
  17. // ************************************************************************ //
  18. // Type Lib: D:\conferen\controlusu\Pserver1.tlb
  19. // IID\LCID: {DBD49CA0-0399-11D3-9629-0000E85E7443}\0
  20. // Helpfile: 
  21. // HelpString: Pserver1 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_Pserver1: TGUID = '{DBD49CA0-0399-11D3-9629-0000E85E7443}';
  38.   IID_Icontrolusu: TGUID = '{DBD49CA1-0399-11D3-9629-0000E85E7443}';
  39.   CLASS_controlusu: TGUID = '{DBD49CA3-0399-11D3-9629-0000E85E7443}';
  40.   IID_Iddd: TGUID = '{DBD49CCE-0399-11D3-9629-0000E85E7443}';
  41.   CLASS_ddd: TGUID = '{DBD49CD0-0399-11D3-9629-0000E85E7443}';
  42. type
  43.  
  44. // *********************************************************************//
  45. // Forward declaration of interfaces defined in Type Library            //
  46. // *********************************************************************//
  47.   Icontrolusu = interface;
  48.   IcontrolusuDisp = dispinterface;
  49.   Iddd = interface;
  50.   IdddDisp = dispinterface;
  51.  
  52. // *********************************************************************//
  53. // Declaration of CoClasses defined in Type Library                     //
  54. // (NOTE: Here we map each CoClass to its Default Interface)            //
  55. // *********************************************************************//
  56.   controlusu = Icontrolusu;
  57.   ddd = Iddd;
  58.  
  59.  
  60. // *********************************************************************//
  61. // Interface: Icontrolusu
  62. // Flags:     (4416) Dual OleAutomation Dispatchable
  63. // GUID:      {DBD49CA1-0399-11D3-9629-0000E85E7443}
  64. // *********************************************************************//
  65.   Icontrolusu = interface(IDispatch)
  66.     ['{DBD49CA1-0399-11D3-9629-0000E85E7443}']
  67.     function busqueda(const cadena: WideString): Integer; safecall;
  68.     function sololectura(const cadena: WideString): Integer; safecall;
  69.   end;
  70.  
  71. // *********************************************************************//
  72. // DispIntf:  IcontrolusuDisp
  73. // Flags:     (4416) Dual OleAutomation Dispatchable
  74. // GUID:      {DBD49CA1-0399-11D3-9629-0000E85E7443}
  75. // *********************************************************************//
  76.   IcontrolusuDisp = dispinterface
  77.     ['{DBD49CA1-0399-11D3-9629-0000E85E7443}']
  78.     function busqueda(const cadena: WideString): Integer; dispid 1;
  79.     function sololectura(const cadena: WideString): Integer; dispid 2;
  80.   end;
  81.  
  82. // *********************************************************************//
  83. // Interface: Iddd
  84. // Flags:     (4416) Dual OleAutomation Dispatchable
  85. // GUID:      {DBD49CCE-0399-11D3-9629-0000E85E7443}
  86. // *********************************************************************//
  87.   Iddd = interface(IDispatch)
  88.     ['{DBD49CCE-0399-11D3-9629-0000E85E7443}']
  89.   end;
  90.  
  91. // *********************************************************************//
  92. // DispIntf:  IdddDisp
  93. // Flags:     (4416) Dual OleAutomation Dispatchable
  94. // GUID:      {DBD49CCE-0399-11D3-9629-0000E85E7443}
  95. // *********************************************************************//
  96.   IdddDisp = dispinterface
  97.     ['{DBD49CCE-0399-11D3-9629-0000E85E7443}']
  98.   end;
  99.  
  100.   Cocontrolusu = class
  101.     class function Create: Icontrolusu;
  102.     class function CreateRemote(const MachineName: string): Icontrolusu;
  103.   end;
  104.  
  105.   Coddd = class
  106.     class function Create: Iddd;
  107.     class function CreateRemote(const MachineName: string): Iddd;
  108.   end;
  109.  
  110. implementation
  111.  
  112. uses ComObj;
  113.  
  114. class function Cocontrolusu.Create: Icontrolusu;
  115. begin
  116.   Result := CreateComObject(CLASS_controlusu) as Icontrolusu;
  117. end;
  118.  
  119. class function Cocontrolusu.CreateRemote(const MachineName: string): Icontrolusu;
  120. begin
  121.   Result := CreateRemoteComObject(MachineName, CLASS_controlusu) as Icontrolusu;
  122. end;
  123.  
  124. class function Coddd.Create: Iddd;
  125. begin
  126.   Result := CreateComObject(CLASS_ddd) as Iddd;
  127. end;
  128.  
  129. class function Coddd.CreateRemote(const MachineName: string): Iddd;
  130. begin
  131.   Result := CreateRemoteComObject(MachineName, CLASS_ddd) as Iddd;
  132. end;
  133.  
  134. end.
  135.