home *** CD-ROM | disk | FTP | other *** search
/ Supercompiler 1997 / SUPERCOMPILER97.iso / Delphi 3.0 / DATA.Z / stdvcl.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-01-29  |  3.8 KB  |  105 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Delphi Visual Component Library                 }
  5. {       Standard VCL Ole Interfaces                     }
  6. {                                                       }
  7. {       Copyright (c) 1997 Borland International        }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit StdVCL;
  12.  
  13. interface
  14.  
  15. const
  16.   LIBID_StdVCL: TGUID = '{EE05DFE0-5549-11D0-9EA9-0020AF3D82DA}';
  17.  
  18. type
  19.  
  20. { Forward declarations }
  21.  
  22.   IProvider = interface;
  23.   DProvider = dispinterface;
  24.   IStrings = interface;
  25.   DStrings = dispinterface;
  26.   IDataBroker = interface;
  27.   DDataBroker = dispinterface;
  28.  
  29. { Provider interface for TClientDataSet }
  30.  
  31.   IProvider = interface(IDispatch)
  32.     ['{6E644935-51F7-11D0-8D41-00A0248E4B9A}']
  33.     function Get_Data: OleVariant; safecall;
  34.     function ApplyUpdates(Delta: OleVariant; MaxErrors: Integer; out ErrorCount: Integer): OleVariant; safecall;
  35.     function GetMetaData: OleVariant; safecall;
  36.     function GetRecords(Count: Integer; out RecsOut: Integer): OleVariant; safecall;
  37.     function DataRequest(Input: OleVariant): OleVariant; safecall;
  38.     function Get_Constraints: WordBool; safecall;
  39.     procedure Set_Constraints(Value: WordBool); safecall;
  40.     procedure Reset; safecall;
  41.     property Data: OleVariant read Get_Data;
  42.     property Constraints: WordBool read Get_Constraints write Set_Constraints;
  43.   end;
  44.  
  45. { DispInterface declaration for Dual Inerface IProvider }
  46.  
  47.   DProvider = dispinterface
  48.     ['{6E644935-51F7-11D0-8D41-00A0248E4B9A}']
  49.     property Data: OleVariant readonly dispid 1;
  50.     function ApplyUpdates(Delta: OleVariant; MaxErrors: Integer; out ErrorCount: Integer): OleVariant; dispid 2;
  51.     function GetMetaData: OleVariant; dispid 3;
  52.     function GetRecords(Count: Integer; out RecsOut: Integer): OleVariant; dispid 4;
  53.     function DataRequest(Input: OleVariant): OleVariant; dispid 5;
  54.     property Constraints: WordBool dispid 6;
  55.     procedure Reset; dispid 7;
  56.   end;
  57.  
  58. { Collection Interface for TStrings }
  59.  
  60.   IStrings = interface(IDispatch)
  61.     ['{EE05DFE2-5549-11D0-9EA9-0020AF3D82DA}']
  62.     function Get_ControlDefault(Index: Integer): OleVariant; safecall;
  63.     procedure Set_ControlDefault(Index: Integer; Value: OleVariant); safecall;
  64.     function Count: Integer; safecall;
  65.     function Get_Item(Index: Integer): OleVariant; safecall;
  66.     procedure Set_Item(Index: Integer; Value: OleVariant); safecall;
  67.     procedure Remove(Index: Integer); safecall;
  68.     procedure Clear; safecall;
  69.     function Add(Item: OleVariant): Integer; safecall;
  70.     function _NewEnum: IUnknown; safecall;
  71.     property ControlDefault[Index: Integer]: OleVariant read Get_ControlDefault write Set_ControlDefault;
  72.     property Item[Index: Integer]: OleVariant read Get_Item write Set_Item;
  73.   end;
  74.  
  75. { DispInterface declaration for Dual Inerface IStrings }
  76.  
  77.   DStrings = dispinterface
  78.     ['{EE05DFE2-5549-11D0-9EA9-0020AF3D82DA}']
  79.     property ControlDefault[Index: Integer]: OleVariant dispid 0;
  80.     function Count: Integer; dispid 1;
  81.     property Item[Index: Integer]: OleVariant dispid 2;
  82.     procedure Remove(Index: Integer); dispid 3;
  83.     procedure Clear; dispid 4;
  84.     function Add(Item: OleVariant): Integer; dispid 5;
  85.     function _NewEnum: IUnknown; dispid -4;
  86.   end;
  87.  
  88. { Design-time interface for remote data modules }
  89.  
  90.   IDataBroker = interface(IDispatch)
  91.     ['{6539BF65-6FE7-11D0-9E8C-00A02457621F}']
  92.     function GetProviderNames: OleVariant; safecall;
  93.   end;
  94.  
  95. { DispInterface declaration for Dual Inerface IDataBroker }
  96.  
  97.   DDataBroker = dispinterface
  98.     ['{6539BF65-6FE7-11D0-9E8C-00A02457621F}']
  99.     function GetProviderNames: OleVariant; dispid 22929905;
  100.   end;
  101.  
  102. implementation
  103.  
  104. end.
  105.