home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Demos / Midas / InternetExpress / CustomerList / midas_tlb.pas < prev    next >
Pascal/Delphi Source File  |  1999-08-11  |  9KB  |  126 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.79  $
  15. // File generated on 6/30/99 3:49:26 PM from Type Library described below.
  16.  
  17. // ************************************************************************ //
  18. // Type Lib: E:\tp\bin\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 rdmCustomerData, (E:\ngdemo\rdmCustomerData.tlb)
  25. // ************************************************************************ //
  26. interface
  27.  
  28. uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL;
  29.  
  30. // *********************************************************************//
  31. // GUIDS declared in the TypeLibrary. Following prefixes are used:        
  32. //   Type Libraries     : LIBID_xxxx                                      
  33. //   CoClasses          : CLASS_xxxx                                      
  34. //   DISPInterfaces     : DIID_xxxx                                       
  35. //   Non-DISP interfaces: IID_xxxx                                        
  36. // *********************************************************************//
  37. const
  38.   // TypeLibrary Major and minor versions
  39.   MidasMajorVersion = 1;
  40.   MidasMinorVersion = 0;
  41.  
  42.   LIBID_Midas: TGUID = '{83F57D68-CA9A-11D2-9088-00C04FA35CFA}';
  43.  
  44.   IID_IAppServer: TGUID = '{1AEFCC20-7A24-11D2-98B0-C69BEB4B5B6D}';
  45. type
  46.  
  47. // *********************************************************************//
  48. // Forward declaration of types defined in TypeLibrary                    
  49. // *********************************************************************//
  50.   IAppServer = interface;
  51.   IAppServerDisp = dispinterface;
  52.  
  53. // *********************************************************************//
  54. // Interface: IAppServer
  55. // Flags:     (4416) Dual OleAutomation Dispatchable
  56. // GUID:      {1AEFCC20-7A24-11D2-98B0-C69BEB4B5B6D}
  57. // *********************************************************************//
  58.   IAppServer = interface(IDispatch)
  59.     ['{1AEFCC20-7A24-11D2-98B0-C69BEB4B5B6D}']
  60.     function  AS_ApplyUpdates {Flags(1), (6/5) CC:0, INV:1, DBG:6}(const ProviderName: {VT_8:0}WideString; 
  61.                                                                    Delta: {VT_12:0}OleVariant; 
  62.                                                                    MaxErrors: {VT_3:0}Integer; 
  63.                                                                    out ErrorCount: {VT_3:1}Integer; 
  64.                                                                    var OwnerData: {VT_12:1}OleVariant): OleVariant; safecall;
  65.     function  AS_GetRecords {Flags(1), (8/7) CC:0, INV:1, DBG:6}(const ProviderName: {VT_8:0}WideString; 
  66.                                                                  Count: {VT_3:0}Integer; 
  67.                                                                  out RecsOut: {VT_3:1}Integer; 
  68.                                                                  Options: {VT_3:0}Integer; 
  69.                                                                  const CommandText: {VT_8:0}WideString; 
  70.                                                                  var Params: {VT_12:1}OleVariant; 
  71.                                                                  var OwnerData: {VT_12:1}OleVariant): OleVariant; safecall;
  72.     function  AS_DataRequest {Flags(1), (3/2) CC:0, INV:1, DBG:6}(const ProviderName: {VT_8:0}WideString; 
  73.                                                                   Data: {VT_12:0}OleVariant): OleVariant; safecall;
  74.     function  AS_GetProviderNames {Flags(1), (1/0) CC:0, INV:1, DBG:6}: OleVariant; safecall;
  75.     function  AS_GetParams {Flags(1), (3/2) CC:0, INV:1, DBG:6}(const ProviderName: {VT_8:0}WideString; 
  76.                                                                 var OwnerData: {VT_12:1}OleVariant): OleVariant; safecall;
  77.     function  AS_RowRequest {Flags(1), (5/4) CC:0, INV:1, DBG:6}(const ProviderName: {VT_8:0}WideString; 
  78.                                                                  Row: {VT_12:0}OleVariant; 
  79.                                                                  RequestType: {VT_3:0}Integer; 
  80.                                                                  var OwnerData: {VT_12:1}OleVariant): OleVariant; safecall;
  81.     procedure AS_Execute {Flags(1), (4/4) CC:0, INV:1, DBG:6}(const ProviderName: {VT_8:0}WideString; 
  82.                                                               const CommandText: {VT_8:0}WideString; 
  83.                                                               var Params: {VT_12:1}OleVariant; 
  84.                                                               var OwnerData: {VT_12:1}OleVariant); safecall;
  85.   end;
  86.  
  87. // *********************************************************************//
  88. // DispIntf:  IAppServerDisp
  89. // Flags:     (4416) Dual OleAutomation Dispatchable
  90. // GUID:      {1AEFCC20-7A24-11D2-98B0-C69BEB4B5B6D}
  91. // *********************************************************************//
  92.   IAppServerDisp = dispinterface
  93.     ['{1AEFCC20-7A24-11D2-98B0-C69BEB4B5B6D}']
  94.     function  AS_ApplyUpdates {Flags(2), (6/5) CC:0, INV:1, DBG:4}(const ProviderName: {VT_8:0}WideString; 
  95.                                                                    Delta: {VT_12:0}OleVariant; 
  96.                                                                    MaxErrors: {VT_3:0}Integer; 
  97.                                                                    out ErrorCount: {VT_3:1}Integer; 
  98.                                                                    var OwnerData: {VT_12:1}OleVariant): OleVariant; dispid 20000000;
  99.     function  AS_GetRecords {Flags(2), (8/7) CC:0, INV:1, DBG:4}(const ProviderName: {VT_8:0}WideString; 
  100.                                                                  Count: {VT_3:0}Integer; 
  101.                                                                  out RecsOut: {VT_3:1}Integer; 
  102.                                                                  Options: {VT_3:0}Integer; 
  103.                                                                  const CommandText: {VT_8:0}WideString; 
  104.                                                                  var Params: {VT_12:1}OleVariant; 
  105.                                                                  var OwnerData: {VT_12:1}OleVariant): OleVariant; dispid 20000001;
  106.     function  AS_DataRequest {Flags(2), (3/2) CC:0, INV:1, DBG:4}(const ProviderName: {VT_8:0}WideString; 
  107.                                                                   Data: {VT_12:0}OleVariant): OleVariant; dispid 20000002;
  108.     function  AS_GetProviderNames {Flags(2), (1/0) CC:0, INV:1, DBG:4}: OleVariant; dispid 20000003;
  109.     function  AS_GetParams {Flags(2), (3/2) CC:0, INV:1, DBG:4}(const ProviderName: {VT_8:0}WideString; 
  110.                                                                 var OwnerData: {VT_12:1}OleVariant): OleVariant; dispid 20000004;
  111.     function  AS_RowRequest {Flags(2), (5/4) CC:0, INV:1, DBG:4}(const ProviderName: {VT_8:0}WideString; 
  112.                                                                  Row: {VT_12:0}OleVariant; 
  113.                                                                  RequestType: {VT_3:0}Integer; 
  114.                                                                  var OwnerData: {VT_12:1}OleVariant): OleVariant; dispid 20000005;
  115.     procedure AS_Execute {Flags(2), (4/4) CC:0, INV:1, DBG:4}(const ProviderName: {VT_8:0}WideString; 
  116.                                                               const CommandText: {VT_8:0}WideString; 
  117.                                                               var Params: {VT_12:1}OleVariant; 
  118.                                                               var OwnerData: {VT_12:1}OleVariant); dispid 20000006;
  119.   end;
  120.  
  121. implementation
  122.  
  123. uses ComObj;
  124.  
  125. end.
  126.