home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Source / Vcl / midas.pas < prev    next >
Pascal/Delphi Source File  |  1999-08-11  |  3KB  |  55 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {       Borland Delphi Visual Component Library         }
  4. {                                                       }
  5. {       Copyright (c) 1995,99 Inprise Corporation       }
  6. {                                                       }
  7. {*******************************************************}
  8.  
  9. unit Midas;
  10.  
  11. interface
  12.  
  13. uses ActiveX;
  14.  
  15. const
  16.   LIBID_Midas: TGUID = '{83F57D68-CA9A-11D2-9088-00C04FA35CFA}';
  17.   IID_IAppServer: TGUID = '{1AEFCC20-7A24-11D2-98B0-C69BEB4B5B6D}';
  18. type
  19.  
  20.   IAppServer = interface(IDispatch)
  21.     ['{1AEFCC20-7A24-11D2-98B0-C69BEB4B5B6D}']
  22.     function  AS_ApplyUpdates(const ProviderName: WideString; Delta: OleVariant;
  23.                               MaxErrors: Integer; out ErrorCount: Integer; var OwnerData: OleVariant): OleVariant; safecall;
  24.     function  AS_GetRecords(const ProviderName: WideString; Count: Integer; out RecsOut: Integer;
  25.                             Options: Integer; const CommandText: WideString;
  26.                             var Params: OleVariant; var OwnerData: OleVariant): OleVariant; safecall;
  27.     function  AS_DataRequest(const ProviderName: WideString; Data: OleVariant): OleVariant; safecall;
  28.     function  AS_GetProviderNames: OleVariant; safecall;
  29.     function  AS_GetParams(const ProviderName: WideString; var OwnerData: OleVariant): OleVariant; safecall;
  30.     function  AS_RowRequest(const ProviderName: WideString; Row: OleVariant; RequestType: Integer;
  31.                             var OwnerData: OleVariant): OleVariant; safecall;
  32.     procedure AS_Execute(const ProviderName: WideString; const CommandText: WideString;
  33.                          var Params: OleVariant; var OwnerData: OleVariant); safecall;
  34.   end;
  35.  
  36.   IAppServerDisp = dispinterface
  37.     ['{1AEFCC20-7A24-11D2-98B0-C69BEB4B5B6D}']
  38.     function  AS_ApplyUpdates(const ProviderName: WideString; Delta: OleVariant; 
  39.                               MaxErrors: Integer; out ErrorCount: Integer; var OwnerData: OleVariant): OleVariant; dispid 20000000;
  40.     function  AS_GetRecords(const ProviderName: WideString; Count: Integer; out RecsOut: Integer; 
  41.                             Options: Integer; const CommandText: WideString; 
  42.                             var Params: OleVariant; var OwnerData: OleVariant): OleVariant; dispid 20000001;
  43.     function  AS_DataRequest(const ProviderName: WideString; Data: OleVariant): OleVariant; dispid 20000002;
  44.     function  AS_GetProviderNames: OleVariant; dispid 20000003;
  45.     function  AS_GetParams(const ProviderName: WideString; var OwnerData: OleVariant): OleVariant; dispid 20000004;
  46.     function  AS_RowRequest(const ProviderName: WideString; Row: OleVariant; RequestType: Integer; 
  47.                             var OwnerData: OleVariant): OleVariant; dispid 20000005;
  48.     procedure AS_Execute(const ProviderName: WideString; const CommandText: WideString; 
  49.                          var Params: OleVariant; var OwnerData: OleVariant); dispid 20000006;
  50.   end;
  51.  
  52. implementation
  53.  
  54. end.
  55.