home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue60 / Construc / Midas_TLB.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-07-03  |  5.6 KB  |  101 lines
  1. unit Midas_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.88.1.0.1.0  $
  15. // File generated on 2000/07/03 12:19:05 from Type Library described below.
  16.  
  17. // ************************************************************************ //
  18. // Type Lib: C:\WINNT\System32\midas.dll (1)
  19. // IID\LCID: {83F57D68-CA9A-11D2-9088-00C04FA35CFA}\0
  20. // Helpfile: 
  21. // DepndLst: 
  22. //   (1) v2.0 stdole, (C:\WINNT\System32\STDOLE2.TLB)
  23. // Parent TypeLibrary:
  24. //   (0) v1.0 TDM60, (D:\usr\bob\magazine\DELPHI.MAG\#60\src\TDM60.tlb)
  25. // ************************************************************************ //
  26. {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
  27. interface
  28.  
  29. uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL;
  30.  
  31. // *********************************************************************//
  32. // GUIDS declared in the TypeLibrary. Following prefixes are used:        
  33. //   Type Libraries     : LIBID_xxxx                                      
  34. //   CoClasses          : CLASS_xxxx                                      
  35. //   DISPInterfaces     : DIID_xxxx                                       
  36. //   Non-DISP interfaces: IID_xxxx                                        
  37. // *********************************************************************//
  38. const
  39.   // TypeLibrary Major and minor versions
  40.   MidasMajorVersion = 1;
  41.   MidasMinorVersion = 0;
  42.  
  43.   LIBID_Midas: TGUID = '{83F57D68-CA9A-11D2-9088-00C04FA35CFA}';
  44.  
  45.   IID_IAppServer: TGUID = '{1AEFCC20-7A24-11D2-98B0-C69BEB4B5B6D}';
  46. type
  47.  
  48. // *********************************************************************//
  49. // Forward declaration of types defined in TypeLibrary                    
  50. // *********************************************************************//
  51.   IAppServer = interface;
  52.   IAppServerDisp = dispinterface;
  53.  
  54. // *********************************************************************//
  55. // Interface: IAppServer
  56. // Flags:     (4416) Dual OleAutomation Dispatchable
  57. // GUID:      {1AEFCC20-7A24-11D2-98B0-C69BEB4B5B6D}
  58. // *********************************************************************//
  59.   IAppServer = interface(IDispatch)
  60.     ['{1AEFCC20-7A24-11D2-98B0-C69BEB4B5B6D}']
  61.     function  AS_ApplyUpdates(const ProviderName: WideString; Delta: OleVariant; 
  62.                               MaxErrors: Integer; out ErrorCount: Integer; var OwnerData: OleVariant): OleVariant; safecall;
  63.     function  AS_GetRecords(const ProviderName: WideString; Count: Integer; out RecsOut: Integer; 
  64.                             Options: Integer; const CommandText: WideString; 
  65.                             var Params: OleVariant; var OwnerData: OleVariant): OleVariant; safecall;
  66.     function  AS_DataRequest(const ProviderName: WideString; Data: OleVariant): OleVariant; safecall;
  67.     function  AS_GetProviderNames: OleVariant; safecall;
  68.     function  AS_GetParams(const ProviderName: WideString; var OwnerData: OleVariant): OleVariant; safecall;
  69.     function  AS_RowRequest(const ProviderName: WideString; Row: OleVariant; RequestType: Integer; 
  70.                             var OwnerData: OleVariant): OleVariant; safecall;
  71.     procedure AS_Execute(const ProviderName: WideString; const CommandText: WideString; 
  72.                          var Params: OleVariant; var OwnerData: OleVariant); safecall;
  73.   end;
  74.  
  75. // *********************************************************************//
  76. // DispIntf:  IAppServerDisp
  77. // Flags:     (4416) Dual OleAutomation Dispatchable
  78. // GUID:      {1AEFCC20-7A24-11D2-98B0-C69BEB4B5B6D}
  79. // *********************************************************************//
  80.   IAppServerDisp = dispinterface
  81.     ['{1AEFCC20-7A24-11D2-98B0-C69BEB4B5B6D}']
  82.     function  AS_ApplyUpdates(const ProviderName: WideString; Delta: OleVariant; 
  83.                               MaxErrors: Integer; out ErrorCount: Integer; var OwnerData: OleVariant): OleVariant; dispid 20000000;
  84.     function  AS_GetRecords(const ProviderName: WideString; Count: Integer; out RecsOut: Integer; 
  85.                             Options: Integer; const CommandText: WideString; 
  86.                             var Params: OleVariant; var OwnerData: OleVariant): OleVariant; dispid 20000001;
  87.     function  AS_DataRequest(const ProviderName: WideString; Data: OleVariant): OleVariant; dispid 20000002;
  88.     function  AS_GetProviderNames: OleVariant; dispid 20000003;
  89.     function  AS_GetParams(const ProviderName: WideString; var OwnerData: OleVariant): OleVariant; dispid 20000004;
  90.     function  AS_RowRequest(const ProviderName: WideString; Row: OleVariant; RequestType: Integer; 
  91.                             var OwnerData: OleVariant): OleVariant; dispid 20000005;
  92.     procedure AS_Execute(const ProviderName: WideString; const CommandText: WideString; 
  93.                          var Params: OleVariant; var OwnerData: OleVariant); dispid 20000006;
  94.   end;
  95.  
  96. implementation
  97.  
  98. uses ComObj;
  99.  
  100. end.
  101.