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