home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 March / Chip_2002-03_cd1.bin / zkuste / delphi / kompon / d5 / ADO.ZIP / src / Ado21Int.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-12-23  |  88.7 KB  |  1,907 lines
  1. unit Ado21Int;
  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  $
  15. // File generated on 01-12-23 00:52:09 from Type Library described below.
  16.  
  17. // *************************************************************************//
  18. // NOTE:                                                                      
  19. // Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties  
  20. // which return objects that may need to be explicitly created via a function 
  21. // call prior to any access via the property. These items have been disabled  
  22. // in order to prevent accidental use from within the object inspector. You   
  23. // may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively   
  24. // removing them from the $IFDEF blocks. However, such items must still be    
  25. // programmatically created via a method of the appropriate CoClass before    
  26. // they can be used.                                                          
  27. // ************************************************************************ //
  28. // Type Lib: D:\Program Files\Common Files\System\ADO\msado21.tlb (1)
  29. // IID\LCID: {00000201-0000-0010-8000-00AA006D2EA4}\0
  30. // Helpfile: D:\WINNT\HELP\ado210.chm
  31. // DepndLst: 
  32. //   (1) v2.0 stdole, (D:\WINNT\System32\STDOLE2.TLB)
  33. //   (2) v4.0 StdVCL, (D:\WINNT\System32\STDVCL40.DLL)
  34. // Errors:
  35. //   Hint: TypeInfo 'Property' changed to 'Property_'
  36. //   Hint: Parameter 'Object' of _DynaCollection.Append changed to 'Object_'
  37. //   Hint: Member 'Type' of 'Property' changed to 'Type_'
  38. //   Hint: Parameter 'Type' of Command15.CreateParameter changed to 'Type_'
  39. //   Hint: Parameter 'Type' of Fields.Append changed to 'Type_'
  40. //   Hint: Member 'Type' of 'Field' changed to 'Type_'
  41. //   Hint: Member 'Type' of '_Parameter' changed to 'Type_'
  42. //   Hint: Member 'Type' of 'Field15' changed to 'Type_'
  43. //   Error creating palette bitmap of (TConnection) : Server D:\Program Files\Common Files\System\ADO\msado15.dll contains no icons
  44. //   Error creating palette bitmap of (TCommand) : Server D:\Program Files\Common Files\System\ADO\msado15.dll contains no icons
  45. //   Error creating palette bitmap of (TRecordset) : Server D:\Program Files\Common Files\System\ADO\msado15.dll contains no icons
  46. //   Error creating palette bitmap of (TParameter) : Server D:\Program Files\Common Files\System\ADO\msado15.dll contains no icons
  47. // ************************************************************************ //
  48. {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
  49. interface
  50.  
  51. uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL;
  52.  
  53. // *********************************************************************//
  54. // GUIDS declared in the TypeLibrary. Following prefixes are used:        
  55. //   Type Libraries     : LIBID_xxxx                                      
  56. //   CoClasses          : CLASS_xxxx                                      
  57. //   DISPInterfaces     : DIID_xxxx                                       
  58. //   Non-DISP interfaces: IID_xxxx                                        
  59. // *********************************************************************//
  60. const
  61.   // TypeLibrary Major and minor versions
  62.   ADODBMajorVersion = 2;
  63.   ADODBMinorVersion = 1;
  64.  
  65.   LIBID_ADODB: TGUID = '{00000201-0000-0010-8000-00AA006D2EA4}';
  66.  
  67.   IID__Collection: TGUID = '{00000512-0000-0010-8000-00AA006D2EA4}';
  68.   IID__DynaCollection: TGUID = '{00000513-0000-0010-8000-00AA006D2EA4}';
  69.   IID__ADO: TGUID = '{00000534-0000-0010-8000-00AA006D2EA4}';
  70.   IID_Properties: TGUID = '{00000504-0000-0010-8000-00AA006D2EA4}';
  71.   IID_Property_: TGUID = '{00000503-0000-0010-8000-00AA006D2EA4}';
  72.   IID_Error: TGUID = '{00000500-0000-0010-8000-00AA006D2EA4}';
  73.   IID_Errors: TGUID = '{00000501-0000-0010-8000-00AA006D2EA4}';
  74.   IID_Command15: TGUID = '{00000508-0000-0010-8000-00AA006D2EA4}';
  75.   IID_Connection15: TGUID = '{00000515-0000-0010-8000-00AA006D2EA4}';
  76.   IID__Connection: TGUID = '{00000550-0000-0010-8000-00AA006D2EA4}';
  77.   IID_Recordset15: TGUID = '{0000050E-0000-0010-8000-00AA006D2EA4}';
  78.   IID_Recordset20: TGUID = '{0000054F-0000-0010-8000-00AA006D2EA4}';
  79.   IID__Recordset: TGUID = '{00000555-0000-0010-8000-00AA006D2EA4}';
  80.   IID_Fields15: TGUID = '{00000506-0000-0010-8000-00AA006D2EA4}';
  81.   IID_Fields: TGUID = '{0000054D-0000-0010-8000-00AA006D2EA4}';
  82.   IID_Field: TGUID = '{0000054C-0000-0010-8000-00AA006D2EA4}';
  83.   IID__Parameter: TGUID = '{0000050C-0000-0010-8000-00AA006D2EA4}';
  84.   IID_Parameters: TGUID = '{0000050D-0000-0010-8000-00AA006D2EA4}';
  85.   IID__Command: TGUID = '{0000054E-0000-0010-8000-00AA006D2EA4}';
  86.   IID_ConnectionEventsVt: TGUID = '{00000402-0000-0010-8000-00AA006D2EA4}';
  87.   IID_RecordsetEventsVt: TGUID = '{00000403-0000-0010-8000-00AA006D2EA4}';
  88.   DIID_ConnectionEvents: TGUID = '{00000400-0000-0010-8000-00AA006D2EA4}';
  89.   DIID_RecordsetEvents: TGUID = '{00000266-0000-0010-8000-00AA006D2EA4}';
  90.   IID_ADOConnectionConstruction15: TGUID = '{00000516-0000-0010-8000-00AA006D2EA4}';
  91.   IID_ADOConnectionConstruction: TGUID = '{00000551-0000-0010-8000-00AA006D2EA4}';
  92.   CLASS_Connection: TGUID = '{00000514-0000-0010-8000-00AA006D2EA4}';
  93.   IID_ADOCommandConstruction: TGUID = '{00000517-0000-0010-8000-00AA006D2EA4}';
  94.   CLASS_Command: TGUID = '{00000507-0000-0010-8000-00AA006D2EA4}';
  95.   CLASS_Recordset: TGUID = '{00000535-0000-0010-8000-00AA006D2EA4}';
  96.   IID_ADORecordsetConstruction: TGUID = '{00000283-0000-0010-8000-00AA006D2EA4}';
  97.   IID_Field15: TGUID = '{00000505-0000-0010-8000-00AA006D2EA4}';
  98.   CLASS_Parameter: TGUID = '{0000050B-0000-0010-8000-00AA006D2EA4}';
  99.  
  100. // *********************************************************************//
  101. // Declaration of Enumerations defined in Type Library                    
  102. // *********************************************************************//
  103. // Constants for enum CursorTypeEnum
  104. type
  105.   CursorTypeEnum = TOleEnum;
  106. const
  107.   adOpenUnspecified = $FFFFFFFF;
  108.   adOpenForwardOnly = $00000000;
  109.   adOpenKeyset = $00000001;
  110.   adOpenDynamic = $00000002;
  111.   adOpenStatic = $00000003;
  112.  
  113. // Constants for enum CursorOptionEnum
  114. type
  115.   CursorOptionEnum = TOleEnum;
  116. const
  117.   adHoldRecords = $00000100;
  118.   adMovePrevious = $00000200;
  119.   adAddNew = $01000400;
  120.   adDelete = $01000800;
  121.   adUpdate = $01008000;
  122.   adBookmark = $00002000;
  123.   adApproxPosition = $00004000;
  124.   adUpdateBatch = $00010000;
  125.   adResync = $00020000;
  126.   adNotify = $00040000;
  127.   adFind = $00080000;
  128.   adSeek = $00400000;
  129.   adIndex = $00800000;
  130.  
  131. // Constants for enum LockTypeEnum
  132. type
  133.   LockTypeEnum = TOleEnum;
  134. const
  135.   adLockUnspecified = $FFFFFFFF;
  136.   adLockReadOnly = $00000001;
  137.   adLockPessimistic = $00000002;
  138.   adLockOptimistic = $00000003;
  139.   adLockBatchOptimistic = $00000004;
  140.  
  141. // Constants for enum ExecuteOptionEnum
  142. type
  143.   ExecuteOptionEnum = TOleEnum;
  144. const
  145.   adOptionUnspecified = $FFFFFFFF;
  146.   adAsyncExecute = $00000010;
  147.   adAsyncFetch = $00000020;
  148.   adAsyncFetchNonBlocking = $00000040;
  149.   adExecuteNoRecords = $00000080;
  150.  
  151. // Constants for enum ConnectOptionEnum
  152. type
  153.   ConnectOptionEnum = TOleEnum;
  154. const
  155.   adConnectUnspecified = $FFFFFFFF;
  156.   adAsyncConnect = $00000010;
  157.  
  158. // Constants for enum ObjectStateEnum
  159. type
  160.   ObjectStateEnum = TOleEnum;
  161. const
  162.   adStateClosed = $00000000;
  163.   adStateOpen = $00000001;
  164.   adStateConnecting = $00000002;
  165.   adStateExecuting = $00000004;
  166.   adStateFetching = $00000008;
  167.  
  168. // Constants for enum CursorLocationEnum
  169. type
  170.   CursorLocationEnum = TOleEnum;
  171. const
  172.   adUseNone = $00000001;
  173.   adUseServer = $00000002;
  174.   adUseClient = $00000003;
  175.   adUseClientBatch = $00000003;
  176.  
  177. // Constants for enum DataTypeEnum
  178. type
  179.   DataTypeEnum = TOleEnum;
  180. const
  181.   adEmpty = $00000000;
  182.   adTinyInt = $00000010;
  183.   adSmallInt = $00000002;
  184.   adInteger = $00000003;
  185.   adBigInt = $00000014;
  186.   adUnsignedTinyInt = $00000011;
  187.   adUnsignedSmallInt = $00000012;
  188.   adUnsignedInt = $00000013;
  189.   adUnsignedBigInt = $00000015;
  190.   adSingle = $00000004;
  191.   adDouble = $00000005;
  192.   adCurrency = $00000006;
  193.   adDecimal = $0000000E;
  194.   adNumeric = $00000083;
  195.   adBoolean = $0000000B;
  196.   adError = $0000000A;
  197.   adUserDefined = $00000084;
  198.   adVariant = $0000000C;
  199.   adIDispatch = $00000009;
  200.   adIUnknown = $0000000D;
  201.   adGUID = $00000048;
  202.   adDate = $00000007;
  203.   adDBDate = $00000085;
  204.   adDBTime = $00000086;
  205.   adDBTimeStamp = $00000087;
  206.   adBSTR = $00000008;
  207.   adChar = $00000081;
  208.   adVarChar = $000000C8;
  209.   adLongVarChar = $000000C9;
  210.   adWChar = $00000082;
  211.   adVarWChar = $000000CA;
  212.   adLongVarWChar = $000000CB;
  213.   adBinary = $00000080;
  214.   adVarBinary = $000000CC;
  215.   adLongVarBinary = $000000CD;
  216.   adChapter = $00000088;
  217.   adFileTime = $00000040;
  218.   adDBFileTime = $00000089;
  219.   adPropVariant = $0000008A;
  220.   adVarNumeric = $0000008B;
  221.  
  222. // Constants for enum FieldAttributeEnum
  223. type
  224.   FieldAttributeEnum = TOleEnum;
  225. const
  226.   adFldUnspecified = $FFFFFFFF;
  227.   adFldMayDefer = $00000002;
  228.   adFldUpdatable = $00000004;
  229.   adFldUnknownUpdatable = $00000008;
  230.   adFldFixed = $00000010;
  231.   adFldIsNullable = $00000020;
  232.   adFldMayBeNull = $00000040;
  233.   adFldLong = $00000080;
  234.   adFldRowID = $00000100;
  235.   adFldRowVersion = $00000200;
  236.   adFldCacheDeferred = $00001000;
  237.   adFldNegativeScale = $00004000;
  238.   adFldKeyColumn = $00008000;
  239.  
  240. // Constants for enum EditModeEnum
  241. type
  242.   EditModeEnum = TOleEnum;
  243. const
  244.   adEditNone = $00000000;
  245.   adEditInProgress = $00000001;
  246.   adEditAdd = $00000002;
  247.   adEditDelete = $00000004;
  248.  
  249. // Constants for enum RecordStatusEnum
  250. type
  251.   RecordStatusEnum = TOleEnum;
  252. const
  253.   adRecOK = $00000000;
  254.   adRecNew = $00000001;
  255.   adRecModified = $00000002;
  256.   adRecDeleted = $00000004;
  257.   adRecUnmodified = $00000008;
  258.   adRecInvalid = $00000010;
  259.   adRecMultipleChanges = $00000040;
  260.   adRecPendingChanges = $00000080;
  261.   adRecCanceled = $00000100;
  262.   adRecCantRelease = $00000400;
  263.   adRecConcurrencyViolation = $00000800;
  264.   adRecIntegrityViolation = $00001000;
  265.   adRecMaxChangesExceeded = $00002000;
  266.   adRecObjectOpen = $00004000;
  267.   adRecOutOfMemory = $00008000;
  268.   adRecPermissionDenied = $00010000;
  269.   adRecSchemaViolation = $00020000;
  270.   adRecDBDeleted = $00040000;
  271.  
  272. // Constants for enum GetRowsOptionEnum
  273. type
  274.   GetRowsOptionEnum = TOleEnum;
  275. const
  276.   adGetRowsRest = $FFFFFFFF;
  277.  
  278. // Constants for enum PositionEnum
  279. type
  280.   PositionEnum = TOleEnum;
  281. const
  282.   adPosUnknown = $FFFFFFFF;
  283.   adPosBOF = $FFFFFFFE;
  284.   adPosEOF = $FFFFFFFD;
  285.  
  286. // Constants for enum BookmarkEnum
  287. type
  288.   BookmarkEnum = TOleEnum;
  289. const
  290.   adBookmarkCurrent = $00000000;
  291.   adBookmarkFirst = $00000001;
  292.   adBookmarkLast = $00000002;
  293.  
  294. // Constants for enum MarshalOptionsEnum
  295. type
  296.   MarshalOptionsEnum = TOleEnum;
  297. const
  298.   adMarshalAll = $00000000;
  299.   adMarshalModifiedOnly = $00000001;
  300.  
  301. // Constants for enum AffectEnum
  302. type
  303.   AffectEnum = TOleEnum;
  304. const
  305.   adAffectCurrent = $00000001;
  306.   adAffectGroup = $00000002;
  307.   adAffectAll = $00000003;
  308.   adAffectAllChapters = $00000004;
  309.  
  310. // Constants for enum ResyncEnum
  311. type
  312.   ResyncEnum = TOleEnum;
  313. const
  314.   adResyncUnderlyingValues = $00000001;
  315.   adResyncAllValues = $00000002;
  316.  
  317. // Constants for enum CompareEnum
  318. type
  319.   CompareEnum = TOleEnum;
  320. const
  321.   adCompareLessThan = $00000000;
  322.   adCompareEqual = $00000001;
  323.   adCompareGreaterThan = $00000002;
  324.   adCompareNotEqual = $00000003;
  325.   adCompareNotComparable = $00000004;
  326.  
  327. // Constants for enum FilterGroupEnum
  328. type
  329.   FilterGroupEnum = TOleEnum;
  330. const
  331.   adFilterNone = $00000000;
  332.   adFilterPendingRecords = $00000001;
  333.   adFilterAffectedRecords = $00000002;
  334.   adFilterFetchedRecords = $00000003;
  335.   adFilterPredicate = $00000004;
  336.   adFilterConflictingRecords = $00000005;
  337.  
  338. // Constants for enum SearchDirectionEnum
  339. type
  340.   SearchDirectionEnum = TOleEnum;
  341. const
  342.   adSearchForward = $00000001;
  343.   adSearchBackward = $FFFFFFFF;
  344.  
  345. // Constants for enum PersistFormatEnum
  346. type
  347.   PersistFormatEnum = TOleEnum;
  348. const
  349.   adPersistADTG = $00000000;
  350.   adPersistXML = $00000001;
  351.  
  352. // Constants for enum StringFormatEnum
  353. type
  354.   StringFormatEnum = TOleEnum;
  355. const
  356.   adClipString = $00000002;
  357.  
  358. // Constants for enum ConnectPromptEnum
  359. type
  360.   ConnectPromptEnum = TOleEnum;
  361. const
  362.   adPromptAlways = $00000001;
  363.   adPromptComplete = $00000002;
  364.   adPromptCompleteRequired = $00000003;
  365.   adPromptNever = $00000004;
  366.  
  367. // Constants for enum ConnectModeEnum
  368. type
  369.   ConnectModeEnum = TOleEnum;
  370. const
  371.   adModeUnknown = $00000000;
  372.   adModeRead = $00000001;
  373.   adModeWrite = $00000002;
  374.   adModeReadWrite = $00000003;
  375.   adModeShareDenyRead = $00000004;
  376.   adModeShareDenyWrite = $00000008;
  377.   adModeShareExclusive = $0000000C;
  378.   adModeShareDenyNone = $00000010;
  379.  
  380. // Constants for enum IsolationLevelEnum
  381. type
  382.   IsolationLevelEnum = TOleEnum;
  383. const
  384.   adXactUnspecified = $FFFFFFFF;
  385.   adXactChaos = $00000010;
  386.   adXactReadUncommitted = $00000100;
  387.   adXactBrowse = $00000100;
  388.   adXactCursorStability = $00001000;
  389.   adXactReadCommitted = $00001000;
  390.   adXactRepeatableRead = $00010000;
  391.   adXactSerializable = $00100000;
  392.   adXactIsolated = $00100000;
  393.  
  394. // Constants for enum XactAttributeEnum
  395. type
  396.   XactAttributeEnum = TOleEnum;
  397. const
  398.   adXactCommitRetaining = $00020000;
  399.   adXactAbortRetaining = $00040000;
  400.   adXactAsyncPhaseOne = $00080000;
  401.   adXactSyncPhaseOne = $00100000;
  402.  
  403. // Constants for enum PropertyAttributesEnum
  404. type
  405.   PropertyAttributesEnum = TOleEnum;
  406. const
  407.   adPropNotSupported = $00000000;
  408.   adPropRequired = $00000001;
  409.   adPropOptional = $00000002;
  410.   adPropRead = $00000200;
  411.   adPropWrite = $00000400;
  412.  
  413. // Constants for enum ErrorValueEnum
  414. type
  415.   ErrorValueEnum = TOleEnum;
  416. const
  417.   adErrInvalidArgument = $00000BB9;
  418.   adErrNoCurrentRecord = $00000BCD;
  419.   adErrIllegalOperation = $00000C93;
  420.   adErrInTransaction = $00000CAE;
  421.   adErrFeatureNotAvailable = $00000CB3;
  422.   adErrItemNotFound = $00000CC1;
  423.   adErrObjectInCollection = $00000D27;
  424.   adErrObjectNotSet = $00000D5C;
  425.   adErrDataConversion = $00000D5D;
  426.   adErrObjectClosed = $00000E78;
  427.   adErrObjectOpen = $00000E79;
  428.   adErrProviderNotFound = $00000E7A;
  429.   adErrBoundToCommand = $00000E7B;
  430.   adErrInvalidParamInfo = $00000E7C;
  431.   adErrInvalidConnection = $00000E7D;
  432.   adErrNotReentrant = $00000E7E;
  433.   adErrStillExecuting = $00000E7F;
  434.   adErrOperationCancelled = $00000E80;
  435.   adErrStillConnecting = $00000E81;
  436.   adErrNotExecuting = $00000E83;
  437.   adErrUnsafeOperation = $00000E84;
  438.  
  439. // Constants for enum ParameterAttributesEnum
  440. type
  441.   ParameterAttributesEnum = TOleEnum;
  442. const
  443.   adParamSigned = $00000010;
  444.   adParamNullable = $00000040;
  445.   adParamLong = $00000080;
  446.  
  447. // Constants for enum ParameterDirectionEnum
  448. type
  449.   ParameterDirectionEnum = TOleEnum;
  450. const
  451.   adParamUnknown = $00000000;
  452.   adParamInput = $00000001;
  453.   adParamOutput = $00000002;
  454.   adParamInputOutput = $00000003;
  455.   adParamReturnValue = $00000004;
  456.  
  457. // Constants for enum CommandTypeEnum
  458. type
  459.   CommandTypeEnum = TOleEnum;
  460. const
  461.   adCmdUnspecified = $FFFFFFFF;
  462.   adCmdUnknown = $00000008;
  463.   adCmdText = $00000001;
  464.   adCmdTable = $00000002;
  465.   adCmdStoredProc = $00000004;
  466.   adCmdFile = $00000100;
  467.   adCmdTableDirect = $00000200;
  468.  
  469. // Constants for enum EventStatusEnum
  470. type
  471.   EventStatusEnum = TOleEnum;
  472. const
  473.   adStatusOK = $00000001;
  474.   adStatusErrorsOccurred = $00000002;
  475.   adStatusCantDeny = $00000003;
  476.   adStatusCancel = $00000004;
  477.   adStatusUnwantedEvent = $00000005;
  478.  
  479. // Constants for enum EventReasonEnum
  480. type
  481.   EventReasonEnum = TOleEnum;
  482. const
  483.   adRsnAddNew = $00000001;
  484.   adRsnDelete = $00000002;
  485.   adRsnUpdate = $00000003;
  486.   adRsnUndoUpdate = $00000004;
  487.   adRsnUndoAddNew = $00000005;
  488.   adRsnUndoDelete = $00000006;
  489.   adRsnRequery = $00000007;
  490.   adRsnResynch = $00000008;
  491.   adRsnClose = $00000009;
  492.   adRsnMove = $0000000A;
  493.   adRsnFirstChange = $0000000B;
  494.   adRsnMoveFirst = $0000000C;
  495.   adRsnMoveNext = $0000000D;
  496.   adRsnMovePrevious = $0000000E;
  497.   adRsnMoveLast = $0000000F;
  498.  
  499. // Constants for enum SchemaEnum
  500. type
  501.   SchemaEnum = TOleEnum;
  502. const
  503.   adSchemaProviderSpecific = $FFFFFFFF;
  504.   adSchemaAsserts = $00000000;
  505.   adSchemaCatalogs = $00000001;
  506.   adSchemaCharacterSets = $00000002;
  507.   adSchemaCollations = $00000003;
  508.   adSchemaColumns = $00000004;
  509.   adSchemaCheckConstraints = $00000005;
  510.   adSchemaConstraintColumnUsage = $00000006;
  511.   adSchemaConstraintTableUsage = $00000007;
  512.   adSchemaKeyColumnUsage = $00000008;
  513.   adSchemaReferentialContraints = $00000009;
  514.   adSchemaReferentialConstraints = $00000009;
  515.   adSchemaTableConstraints = $0000000A;
  516.   adSchemaColumnsDomainUsage = $0000000B;
  517.   adSchemaIndexes = $0000000C;
  518.   adSchemaColumnPrivileges = $0000000D;
  519.   adSchemaTablePrivileges = $0000000E;
  520.   adSchemaUsagePrivileges = $0000000F;
  521.   adSchemaProcedures = $00000010;
  522.   adSchemaSchemata = $00000011;
  523.   adSchemaSQLLanguages = $00000012;
  524.   adSchemaStatistics = $00000013;
  525.   adSchemaTables = $00000014;
  526.   adSchemaTranslations = $00000015;
  527.   adSchemaProviderTypes = $00000016;
  528.   adSchemaViews = $00000017;
  529.   adSchemaViewColumnUsage = $00000018;
  530.   adSchemaViewTableUsage = $00000019;
  531.   adSchemaProcedureParameters = $0000001A;
  532.   adSchemaForeignKeys = $0000001B;
  533.   adSchemaPrimaryKeys = $0000001C;
  534.   adSchemaProcedureColumns = $0000001D;
  535.   adSchemaDBInfoKeywords = $0000001E;
  536.   adSchemaDBInfoLiterals = $0000001F;
  537.   adSchemaCubes = $00000020;
  538.   adSchemaDimensions = $00000021;
  539.   adSchemaHierarchies = $00000022;
  540.   adSchemaLevels = $00000023;
  541.   adSchemaMeasures = $00000024;
  542.   adSchemaProperties = $00000025;
  543.   adSchemaMembers = $00000026;
  544.   adSchemaTrustees = $00000027;
  545.  
  546. // Constants for enum SeekEnum
  547. type
  548.   SeekEnum = TOleEnum;
  549. const
  550.   adSeekFirstEQ = $00000001;
  551.   adSeekLastEQ = $00000002;
  552.   adSeekAfterEQ = $00000004;
  553.   adSeekAfter = $00000008;
  554.   adSeekBeforeEQ = $00000010;
  555.   adSeekBefore = $00000020;
  556.  
  557. // Constants for enum ADCPROP_UPDATECRITERIA_ENUM
  558. type
  559.   ADCPROP_UPDATECRITERIA_ENUM = TOleEnum;
  560. const
  561.   adCriteriaKey = $00000000;
  562.   adCriteriaAllCols = $00000001;
  563.   adCriteriaUpdCols = $00000002;
  564.   adCriteriaTimeStamp = $00000003;
  565.  
  566. // Constants for enum ADCPROP_ASYNCTHREADPRIORITY_ENUM
  567. type
  568.   ADCPROP_ASYNCTHREADPRIORITY_ENUM = TOleEnum;
  569. const
  570.   adPriorityLowest = $00000001;
  571.   adPriorityBelowNormal = $00000002;
  572.   adPriorityNormal = $00000003;
  573.   adPriorityAboveNormal = $00000004;
  574.   adPriorityHighest = $00000005;
  575.  
  576. // Constants for enum CEResyncEnum
  577. type
  578.   CEResyncEnum = TOleEnum;
  579. const
  580.   adResyncNone = $00000000;
  581.   adResyncAutoIncrement = $00000001;
  582.   adResyncConflicts = $00000002;
  583.   adResyncUpdates = $00000004;
  584.   adResyncInserts = $00000008;
  585.   adResyncAll = $0000000F;
  586.  
  587. // Constants for enum ADCPROP_AUTORECALC_ENUM
  588. type
  589.   ADCPROP_AUTORECALC_ENUM = TOleEnum;
  590. const
  591.   adRecalcUpFront = $00000000;
  592.   adRecalcAlways = $00000001;
  593.  
  594. type
  595.  
  596. // *********************************************************************//
  597. // Forward declaration of types defined in TypeLibrary                    
  598. // *********************************************************************//
  599.   _Collection = interface;
  600.   _CollectionDisp = dispinterface;
  601.   _DynaCollection = interface;
  602.   _DynaCollectionDisp = dispinterface;
  603.   _ADO = interface;
  604.   _ADODisp = dispinterface;
  605.   Properties = interface;
  606.   PropertiesDisp = dispinterface;
  607.   Property_ = interface;
  608.   Property_Disp = dispinterface;
  609.   Error = interface;
  610.   ErrorDisp = dispinterface;
  611.   Errors = interface;
  612.   ErrorsDisp = dispinterface;
  613.   Command15 = interface;
  614.   Command15Disp = dispinterface;
  615.   Connection15 = interface;
  616.   Connection15Disp = dispinterface;
  617.   _Connection = interface;
  618.   _ConnectionDisp = dispinterface;
  619.   Recordset15 = interface;
  620.   Recordset15Disp = dispinterface;
  621.   Recordset20 = interface;
  622.   Recordset20Disp = dispinterface;
  623.   _Recordset = interface;
  624.   _RecordsetDisp = dispinterface;
  625.   Fields15 = interface;
  626.   Fields15Disp = dispinterface;
  627.   Fields = interface;
  628.   FieldsDisp = dispinterface;
  629.   Field = interface;
  630.   FieldDisp = dispinterface;
  631.   _Parameter = interface;
  632.   _ParameterDisp = dispinterface;
  633.   Parameters = interface;
  634.   ParametersDisp = dispinterface;
  635.   _Command = interface;
  636.   _CommandDisp = dispinterface;
  637.   ConnectionEventsVt = interface;
  638.   RecordsetEventsVt = interface;
  639.   ConnectionEvents = dispinterface;
  640.   RecordsetEvents = dispinterface;
  641.   ADOConnectionConstruction15 = interface;
  642.   ADOConnectionConstruction = interface;
  643.   ADOCommandConstruction = interface;
  644.   ADORecordsetConstruction = interface;
  645.   Field15 = interface;
  646.   Field15Disp = dispinterface;
  647.  
  648. // *********************************************************************//
  649. // Declaration of CoClasses defined in Type Library                       
  650. // (NOTE: Here we map each CoClass to its Default Interface)              
  651. // *********************************************************************//
  652.   Connection = _Connection;
  653.   Command = _Command;
  654.   Recordset = _Recordset;
  655.   Parameter = _Parameter;
  656.  
  657.  
  658. // *********************************************************************//
  659. // Declaration of structures, unions and aliases.                         
  660. // *********************************************************************//
  661.   POleVariant1 = ^OleVariant; {*}
  662.  
  663.   SearchDirection = SearchDirectionEnum; 
  664.  
  665. // *********************************************************************//
  666. // Interface: _Collection
  667. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  668. // GUID:      {00000512-0000-0010-8000-00AA006D2EA4}
  669. // *********************************************************************//
  670.   _Collection = interface(IDispatch)
  671.     ['{00000512-0000-0010-8000-00AA006D2EA4}']
  672.     function  Get_Count: Integer; safecall;
  673.     function  _NewEnum: IUnknown; safecall;
  674.     procedure Refresh; safecall;
  675.     property Count: Integer read Get_Count;
  676.   end;
  677.  
  678. // *********************************************************************//
  679. // DispIntf:  _CollectionDisp
  680. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  681. // GUID:      {00000512-0000-0010-8000-00AA006D2EA4}
  682. // *********************************************************************//
  683.   _CollectionDisp = dispinterface
  684.     ['{00000512-0000-0010-8000-00AA006D2EA4}']
  685.     property Count: Integer readonly dispid 1610743808;
  686.     function  _NewEnum: IUnknown; dispid -4;
  687.     procedure Refresh; dispid 1610743810;
  688.   end;
  689.  
  690. // *********************************************************************//
  691. // Interface: _DynaCollection
  692. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  693. // GUID:      {00000513-0000-0010-8000-00AA006D2EA4}
  694. // *********************************************************************//
  695.   _DynaCollection = interface(_Collection)
  696.     ['{00000513-0000-0010-8000-00AA006D2EA4}']
  697.     procedure Append(const Object_: IDispatch); safecall;
  698.     procedure Delete(Index: OleVariant); safecall;
  699.   end;
  700.  
  701. // *********************************************************************//
  702. // DispIntf:  _DynaCollectionDisp
  703. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  704. // GUID:      {00000513-0000-0010-8000-00AA006D2EA4}
  705. // *********************************************************************//
  706.   _DynaCollectionDisp = dispinterface
  707.     ['{00000513-0000-0010-8000-00AA006D2EA4}']
  708.     procedure Append(const Object_: IDispatch); dispid 1610809344;
  709.     procedure Delete(Index: OleVariant); dispid 1610809345;
  710.     property Count: Integer readonly dispid 1610743808;
  711.     function  _NewEnum: IUnknown; dispid -4;
  712.     procedure Refresh; dispid 1610743810;
  713.   end;
  714.  
  715. // *********************************************************************//
  716. // Interface: _ADO
  717. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  718. // GUID:      {00000534-0000-0010-8000-00AA006D2EA4}
  719. // *********************************************************************//
  720.   _ADO = interface(IDispatch)
  721.     ['{00000534-0000-0010-8000-00AA006D2EA4}']
  722.     function  Get_Properties: Properties; safecall;
  723.     property Properties: Properties read Get_Properties;
  724.   end;
  725.  
  726. // *********************************************************************//
  727. // DispIntf:  _ADODisp
  728. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  729. // GUID:      {00000534-0000-0010-8000-00AA006D2EA4}
  730. // *********************************************************************//
  731.   _ADODisp = dispinterface
  732.     ['{00000534-0000-0010-8000-00AA006D2EA4}']
  733.     property Properties: Properties readonly dispid 500;
  734.   end;
  735.  
  736. // *********************************************************************//
  737. // Interface: Properties
  738. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  739. // GUID:      {00000504-0000-0010-8000-00AA006D2EA4}
  740. // *********************************************************************//
  741.   Properties = interface(_Collection)
  742.     ['{00000504-0000-0010-8000-00AA006D2EA4}']
  743.     function  Get_Item(Index: OleVariant): Property_; safecall;
  744.     property Item[Index: OleVariant]: Property_ read Get_Item; default;
  745.   end;
  746.  
  747. // *********************************************************************//
  748. // DispIntf:  PropertiesDisp
  749. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  750. // GUID:      {00000504-0000-0010-8000-00AA006D2EA4}
  751. // *********************************************************************//
  752.   PropertiesDisp = dispinterface
  753.     ['{00000504-0000-0010-8000-00AA006D2EA4}']
  754.     property Item[Index: OleVariant]: Property_ readonly dispid 0; default;
  755.     property Count: Integer readonly dispid 1610743808;
  756.     function  _NewEnum: IUnknown; dispid -4;
  757.     procedure Refresh; dispid 1610743810;
  758.   end;
  759.  
  760. // *********************************************************************//
  761. // Interface: Property_
  762. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  763. // GUID:      {00000503-0000-0010-8000-00AA006D2EA4}
  764. // *********************************************************************//
  765.   Property_ = interface(IDispatch)
  766.     ['{00000503-0000-0010-8000-00AA006D2EA4}']
  767.     function  Get_Value: OleVariant; safecall;
  768.     procedure Set_Value(pval: OleVariant); safecall;
  769.     function  Get_Name: WideString; safecall;
  770.     function  Get_Type_: DataTypeEnum; safecall;
  771.     function  Get_Attributes: Integer; safecall;
  772.     procedure Set_Attributes(plAttributes: Integer); safecall;
  773.     property Value: OleVariant read Get_Value write Set_Value;
  774.     property Name: WideString read Get_Name;
  775.     property Type_: DataTypeEnum read Get_Type_;
  776.     property Attributes: Integer read Get_Attributes;
  777.   end;
  778.  
  779. // *********************************************************************//
  780. // DispIntf:  Property_Disp
  781. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  782. // GUID:      {00000503-0000-0010-8000-00AA006D2EA4}
  783. // *********************************************************************//
  784.   Property_Disp = dispinterface
  785.     ['{00000503-0000-0010-8000-00AA006D2EA4}']
  786.     property Value: OleVariant dispid 0;
  787.     property Name: WideString readonly dispid 1610743810;
  788.     property Type_: DataTypeEnum readonly dispid 1610743811;
  789.     property Attributes: Integer readonly dispid 1610743812;
  790.   end;
  791.  
  792. // *********************************************************************//
  793. // Interface: Error
  794. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  795. // GUID:      {00000500-0000-0010-8000-00AA006D2EA4}
  796. // *********************************************************************//
  797.   Error = interface(IDispatch)
  798.     ['{00000500-0000-0010-8000-00AA006D2EA4}']
  799.     function  Get_Number: Integer; safecall;
  800.     function  Get_Source: WideString; safecall;
  801.     function  Get_Description: WideString; safecall;
  802.     function  Get_HelpFile: WideString; safecall;
  803.     function  Get_HelpContext: Integer; safecall;
  804.     function  Get_SQLState: WideString; safecall;
  805.     function  Get_NativeError: Integer; safecall;
  806.     property Number: Integer read Get_Number;
  807.     property Source: WideString read Get_Source;
  808.     property Description: WideString read Get_Description;
  809.     property HelpFile: WideString read Get_HelpFile;
  810.     property HelpContext: Integer read Get_HelpContext;
  811.     property SQLState: WideString read Get_SQLState;
  812.     property NativeError: Integer read Get_NativeError;
  813.   end;
  814.  
  815. // *********************************************************************//
  816. // DispIntf:  ErrorDisp
  817. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  818. // GUID:      {00000500-0000-0010-8000-00AA006D2EA4}
  819. // *********************************************************************//
  820.   ErrorDisp = dispinterface
  821.     ['{00000500-0000-0010-8000-00AA006D2EA4}']
  822.     property Number: Integer readonly dispid 1610743808;
  823.     property Source: WideString readonly dispid 1610743809;
  824.     property Description: WideString readonly dispid 0;
  825.     property HelpFile: WideString readonly dispid 1610743811;
  826.     property HelpContext: Integer readonly dispid 1610743812;
  827.     property SQLState: WideString readonly dispid 1610743813;
  828.     property NativeError: Integer readonly dispid 1610743814;
  829.   end;
  830.  
  831. // *********************************************************************//
  832. // Interface: Errors
  833. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  834. // GUID:      {00000501-0000-0010-8000-00AA006D2EA4}
  835. // *********************************************************************//
  836.   Errors = interface(_Collection)
  837.     ['{00000501-0000-0010-8000-00AA006D2EA4}']
  838.     function  Get_Item(Index: OleVariant): Error; safecall;
  839.     procedure Clear; safecall;
  840.     property Item[Index: OleVariant]: Error read Get_Item; default;
  841.   end;
  842.  
  843. // *********************************************************************//
  844. // DispIntf:  ErrorsDisp
  845. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  846. // GUID:      {00000501-0000-0010-8000-00AA006D2EA4}
  847. // *********************************************************************//
  848.   ErrorsDisp = dispinterface
  849.     ['{00000501-0000-0010-8000-00AA006D2EA4}']
  850.     property Item[Index: OleVariant]: Error readonly dispid 0; default;
  851.     procedure Clear; dispid 1610809345;
  852.     property Count: Integer readonly dispid 1610743808;
  853.     function  _NewEnum: IUnknown; dispid -4;
  854.     procedure Refresh; dispid 1610743810;
  855.   end;
  856.  
  857. // *********************************************************************//
  858. // Interface: Command15
  859. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  860. // GUID:      {00000508-0000-0010-8000-00AA006D2EA4}
  861. // *********************************************************************//
  862.   Command15 = interface(_ADO)
  863.     ['{00000508-0000-0010-8000-00AA006D2EA4}']
  864.     function  Get_ActiveConnection: _Connection; safecall;
  865.     procedure Set_ActiveConnection(const ppvObject: _Connection); safecall;
  866.     procedure _Set_ActiveConnection(ppvObject: OleVariant); safecall;
  867.     function  Get_CommandText: WideString; safecall;
  868.     procedure Set_CommandText(const pbstr: WideString); safecall;
  869.     function  Get_CommandTimeout: Integer; safecall;
  870.     procedure Set_CommandTimeout(pl: Integer); safecall;
  871.     function  Get_Prepared: WordBool; safecall;
  872.     procedure Set_Prepared(pfPrepared: WordBool); safecall;
  873.     function  Execute(out RecordsAffected: OleVariant; var Parameters: OleVariant; Options: Integer): _Recordset; safecall;
  874.     function  CreateParameter(const Name: WideString; Type_: DataTypeEnum; 
  875.                               Direction: ParameterDirectionEnum; Size: Integer; Value: OleVariant): _Parameter; safecall;
  876.     function  Get_Parameters: Parameters; safecall;
  877.     procedure Set_CommandType(plCmdType: CommandTypeEnum); safecall;
  878.     function  Get_CommandType: CommandTypeEnum; safecall;
  879.     function  Get_Name: WideString; safecall;
  880.     procedure Set_Name(const pbstrName: WideString); safecall;
  881.     property ActiveConnection: _Connection read Get_ActiveConnection;
  882.     property CommandText: WideString read Get_CommandText;
  883.     property CommandTimeout: Integer read Get_CommandTimeout;
  884.     property Prepared: WordBool read Get_Prepared;
  885.     property Parameters: Parameters read Get_Parameters;
  886.     property CommandType: CommandTypeEnum write Set_CommandType;
  887.     property Name: WideString read Get_Name;
  888.   end;
  889.  
  890. // *********************************************************************//
  891. // DispIntf:  Command15Disp
  892. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  893. // GUID:      {00000508-0000-0010-8000-00AA006D2EA4}
  894. // *********************************************************************//
  895.   Command15Disp = dispinterface
  896.     ['{00000508-0000-0010-8000-00AA006D2EA4}']
  897.     property ActiveConnection: _Connection readonly dispid 1610809344;
  898.     property CommandText: WideString readonly dispid 1610809347;
  899.     property CommandTimeout: Integer readonly dispid 1610809349;
  900.     property Prepared: WordBool readonly dispid 1610809351;
  901.     function  Execute(out RecordsAffected: OleVariant; var Parameters: OleVariant; Options: Integer): _Recordset; dispid 1610809353;
  902.     function  CreateParameter(const Name: WideString; Type_: DataTypeEnum; 
  903.                               Direction: ParameterDirectionEnum; Size: Integer; Value: OleVariant): _Parameter; dispid 1610809354;
  904.     property Parameters: Parameters readonly dispid 0;
  905.     property CommandType: CommandTypeEnum writeonly dispid 1610809356;
  906.     property Name: WideString readonly dispid 1610809358;
  907.     property Properties: Properties readonly dispid 500;
  908.   end;
  909.  
  910. // *********************************************************************//
  911. // Interface: Connection15
  912. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  913. // GUID:      {00000515-0000-0010-8000-00AA006D2EA4}
  914. // *********************************************************************//
  915.   Connection15 = interface(_ADO)
  916.     ['{00000515-0000-0010-8000-00AA006D2EA4}']
  917.     function  Get_ConnectionString: WideString; safecall;
  918.     procedure Set_ConnectionString(const pbstr: WideString); safecall;
  919.     function  Get_CommandTimeout: Integer; safecall;
  920.     procedure Set_CommandTimeout(plTimeout: Integer); safecall;
  921.     function  Get_ConnectionTimeout: Integer; safecall;
  922.     procedure Set_ConnectionTimeout(plTimeout: Integer); safecall;
  923.     function  Get_Version: WideString; safecall;
  924.     procedure Close; safecall;
  925.     function  Execute(const CommandText: WideString; out RecordsAffected: OleVariant; 
  926.                       Options: Integer): _Recordset; safecall;
  927.     function  BeginTrans: Integer; safecall;
  928.     procedure CommitTrans; safecall;
  929.     procedure RollbackTrans; safecall;
  930.     procedure Open(const ConnectionString: WideString; const UserID: WideString; 
  931.                    const Password: WideString; Options: Integer); safecall;
  932.     function  Get_Errors: Errors; safecall;
  933.     function  Get_DefaultDatabase: WideString; safecall;
  934.     procedure Set_DefaultDatabase(const pbstr: WideString); safecall;
  935.     function  Get_IsolationLevel: IsolationLevelEnum; safecall;
  936.     procedure Set_IsolationLevel(Level: IsolationLevelEnum); safecall;
  937.     function  Get_Attributes: Integer; safecall;
  938.     procedure Set_Attributes(plAttr: Integer); safecall;
  939.     function  Get_CursorLocation: CursorLocationEnum; safecall;
  940.     procedure Set_CursorLocation(plCursorLoc: CursorLocationEnum); safecall;
  941.     function  Get_Mode: ConnectModeEnum; safecall;
  942.     procedure Set_Mode(plMode: ConnectModeEnum); safecall;
  943.     function  Get_Provider: WideString; safecall;
  944.     procedure Set_Provider(const pbstr: WideString); safecall;
  945.     function  Get_State: Integer; safecall;
  946.     function  OpenSchema(Schema: SchemaEnum; Restrictions: OleVariant; SchemaID: OleVariant): _Recordset; safecall;
  947.     property ConnectionString: WideString read Get_ConnectionString write Set_ConnectionString;
  948.     property CommandTimeout: Integer read Get_CommandTimeout write Set_CommandTimeout;
  949.     property ConnectionTimeout: Integer read Get_ConnectionTimeout write Set_ConnectionTimeout;
  950.     property Version: WideString read Get_Version;
  951.     property Errors: Errors read Get_Errors;
  952.     property DefaultDatabase: WideString read Get_DefaultDatabase write Set_DefaultDatabase;
  953.     property IsolationLevel: IsolationLevelEnum read Get_IsolationLevel write Set_IsolationLevel;
  954.     property Attributes: Integer read Get_Attributes write Set_Attributes;
  955.     property CursorLocation: CursorLocationEnum read Get_CursorLocation write Set_CursorLocation;
  956.     property Mode: ConnectModeEnum read Get_Mode write Set_Mode;
  957.     property Provider: WideString read Get_Provider write Set_Provider;
  958.     property State: Integer read Get_State;
  959.   end;
  960.  
  961. // *********************************************************************//
  962. // DispIntf:  Connection15Disp
  963. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  964. // GUID:      {00000515-0000-0010-8000-00AA006D2EA4}
  965. // *********************************************************************//
  966.   Connection15Disp = dispinterface
  967.     ['{00000515-0000-0010-8000-00AA006D2EA4}']
  968.     property ConnectionString: WideString dispid 0;
  969.     property CommandTimeout: Integer dispid 2;
  970.     property ConnectionTimeout: Integer dispid 3;
  971.     property Version: WideString readonly dispid 4;
  972.     procedure Close; dispid 5;
  973.     function  Execute(const CommandText: WideString; out RecordsAffected: OleVariant; 
  974.                       Options: Integer): _Recordset; dispid 6;
  975.     function  BeginTrans: Integer; dispid 7;
  976.     procedure CommitTrans; dispid 8;
  977.     procedure RollbackTrans; dispid 9;
  978.     procedure Open(const ConnectionString: WideString; const UserID: WideString; 
  979.                    const Password: WideString; Options: Integer); dispid 10;
  980.     property Errors: Errors readonly dispid 11;
  981.     property DefaultDatabase: WideString dispid 12;
  982.     property IsolationLevel: IsolationLevelEnum dispid 13;
  983.     property Attributes: Integer dispid 14;
  984.     property CursorLocation: CursorLocationEnum dispid 15;
  985.     property Mode: ConnectModeEnum dispid 16;
  986.     property Provider: WideString dispid 17;
  987.     property State: Integer readonly dispid 18;
  988.     function  OpenSchema(Schema: SchemaEnum; Restrictions: OleVariant; SchemaID: OleVariant): _Recordset; dispid 19;
  989.     property Properties: Properties readonly dispid 500;
  990.   end;
  991.  
  992. // *********************************************************************//
  993. // Interface: _Connection
  994. // Flags:     (4416) Dual OleAutomation Dispatchable
  995. // GUID:      {00000550-0000-0010-8000-00AA006D2EA4}
  996. // *********************************************************************//
  997.   _Connection = interface(Connection15)
  998.     ['{00000550-0000-0010-8000-00AA006D2EA4}']
  999.     procedure Cancel; safecall;
  1000.   end;
  1001.  
  1002. // *********************************************************************//
  1003. // DispIntf:  _ConnectionDisp
  1004. // Flags:     (4416) Dual OleAutomation Dispatchable
  1005. // GUID:      {00000550-0000-0010-8000-00AA006D2EA4}
  1006. // *********************************************************************//
  1007.   _ConnectionDisp = dispinterface
  1008.     ['{00000550-0000-0010-8000-00AA006D2EA4}']
  1009.     procedure Cancel; dispid 21;
  1010.     property ConnectionString: WideString dispid 0;
  1011.     property CommandTimeout: Integer dispid 2;
  1012.     property ConnectionTimeout: Integer dispid 3;
  1013.     property Version: WideString readonly dispid 4;
  1014.     procedure Close; dispid 5;
  1015.     function  Execute(const CommandText: WideString; out RecordsAffected: OleVariant; 
  1016.                       Options: Integer): _Recordset; dispid 6;
  1017.     function  BeginTrans: Integer; dispid 7;
  1018.     procedure CommitTrans; dispid 8;
  1019.     procedure RollbackTrans; dispid 9;
  1020.     procedure Open(const ConnectionString: WideString; const UserID: WideString; 
  1021.                    const Password: WideString; Options: Integer); dispid 10;
  1022.     property Errors: Errors readonly dispid 11;
  1023.     property DefaultDatabase: WideString dispid 12;
  1024.     property IsolationLevel: IsolationLevelEnum dispid 13;
  1025.     property Attributes: Integer dispid 14;
  1026.     property CursorLocation: CursorLocationEnum dispid 15;
  1027.     property Mode: ConnectModeEnum dispid 16;
  1028.     property Provider: WideString dispid 17;
  1029.     property State: Integer readonly dispid 18;
  1030.     function  OpenSchema(Schema: SchemaEnum; Restrictions: OleVariant; SchemaID: OleVariant): _Recordset; dispid 19;
  1031.     property Properties: Properties readonly dispid 500;
  1032.   end;
  1033.  
  1034. // *********************************************************************//
  1035. // Interface: Recordset15
  1036. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1037. // GUID:      {0000050E-0000-0010-8000-00AA006D2EA4}
  1038. // *********************************************************************//
  1039.   Recordset15 = interface(_ADO)
  1040.     ['{0000050E-0000-0010-8000-00AA006D2EA4}']
  1041.     function  Get_AbsolutePosition: PositionEnum; safecall;
  1042.     procedure Set_AbsolutePosition(pl: PositionEnum); safecall;
  1043.     procedure Set_ActiveConnection(const pvar: IDispatch); safecall;
  1044.     procedure _Set_ActiveConnection(pvar: OleVariant); safecall;
  1045.     function  Get_ActiveConnection: OleVariant; safecall;
  1046.     function  Get_BOF: WordBool; safecall;
  1047.     function  Get_Bookmark: OleVariant; safecall;
  1048.     procedure Set_Bookmark(pvBookmark: OleVariant); safecall;
  1049.     function  Get_CacheSize: Integer; safecall;
  1050.     procedure Set_CacheSize(pl: Integer); safecall;
  1051.     function  Get_CursorType: CursorTypeEnum; safecall;
  1052.     procedure Set_CursorType(plCursorType: CursorTypeEnum); safecall;
  1053.     function  Get_EOF: WordBool; safecall;
  1054.     function  Get_Fields: Fields; safecall;
  1055.     function  Get_LockType: LockTypeEnum; safecall;
  1056.     procedure Set_LockType(plLockType: LockTypeEnum); safecall;
  1057.     function  Get_MaxRecords: Integer; safecall;
  1058.     procedure Set_MaxRecords(plMaxRecords: Integer); safecall;
  1059.     function  Get_RecordCount: Integer; safecall;
  1060.     procedure Set_Source(const pvSource: IDispatch); safecall;
  1061.     procedure _Set_Source(const pvSource: WideString); safecall;
  1062.     function  Get_Source: OleVariant; safecall;
  1063.     procedure AddNew(FieldList: OleVariant; Values: OleVariant); safecall;
  1064.     procedure CancelUpdate; safecall;
  1065.     procedure Close; safecall;
  1066.     procedure Delete(AffectRecords: AffectEnum); safecall;
  1067.     function  GetRows(Rows: Integer; Start: OleVariant; Fields: OleVariant): OleVariant; safecall;
  1068.     procedure Move(NumRecords: Integer; Start: OleVariant); safecall;
  1069.     procedure MoveNext; safecall;
  1070.     procedure MovePrevious; safecall;
  1071.     procedure MoveFirst; safecall;
  1072.     procedure MoveLast; safecall;
  1073.     procedure Open(Source: OleVariant; ActiveConnection: OleVariant; CursorType: CursorTypeEnum; 
  1074.                    LockType: LockTypeEnum; Options: Integer); safecall;
  1075.     procedure Requery(Options: Integer); safecall;
  1076.     procedure _xResync(AffectRecords: AffectEnum); safecall;
  1077.     procedure Update(Fields: OleVariant; Values: OleVariant); safecall;
  1078.     function  Get_AbsolutePage: PositionEnum; safecall;
  1079.     procedure Set_AbsolutePage(pl: PositionEnum); safecall;
  1080.     function  Get_EditMode: EditModeEnum; safecall;
  1081.     function  Get_Filter: OleVariant; safecall;
  1082.     procedure Set_Filter(Criteria: OleVariant); safecall;
  1083.     function  Get_PageCount: Integer; safecall;
  1084.     function  Get_PageSize: Integer; safecall;
  1085.     procedure Set_PageSize(pl: Integer); safecall;
  1086.     function  Get_Sort: WideString; safecall;
  1087.     procedure Set_Sort(const Criteria: WideString); safecall;
  1088.     function  Get_Status: Integer; safecall;
  1089.     function  Get_State: Integer; safecall;
  1090.     function  _xClone: _Recordset; safecall;
  1091.     procedure UpdateBatch(AffectRecords: AffectEnum); safecall;
  1092.     procedure CancelBatch(AffectRecords: AffectEnum); safecall;
  1093.     function  Get_CursorLocation: CursorLocationEnum; safecall;
  1094.     procedure Set_CursorLocation(plCursorLoc: CursorLocationEnum); safecall;
  1095.     function  NextRecordset(out RecordsAffected: OleVariant): _Recordset; safecall;
  1096.     function  Supports(CursorOptions: CursorOptionEnum): WordBool; safecall;
  1097.     function  Get_Collect(Index: OleVariant): OleVariant; safecall;
  1098.     procedure Set_Collect(Index: OleVariant; pvar: OleVariant); safecall;
  1099.     function  Get_MarshalOptions: MarshalOptionsEnum; safecall;
  1100.     procedure Set_MarshalOptions(peMarshal: MarshalOptionsEnum); safecall;
  1101.     procedure Find(const Criteria: WideString; SkipRecords: Integer; 
  1102.                    SearchDirection: SearchDirectionEnum; Start: OleVariant); safecall;
  1103.     property AbsolutePosition: PositionEnum read Get_AbsolutePosition write Set_AbsolutePosition;
  1104.     property BOF: WordBool read Get_BOF;
  1105.     property Bookmark: OleVariant read Get_Bookmark write Set_Bookmark;
  1106.     property CacheSize: Integer read Get_CacheSize write Set_CacheSize;
  1107.     property CursorType: CursorTypeEnum read Get_CursorType write Set_CursorType;
  1108.     property EOF: WordBool read Get_EOF;
  1109.     property Fields: Fields read Get_Fields;
  1110.     property LockType: LockTypeEnum read Get_LockType write Set_LockType;
  1111.     property MaxRecords: Integer read Get_MaxRecords write Set_MaxRecords;
  1112.     property RecordCount: Integer read Get_RecordCount;
  1113.     property AbsolutePage: PositionEnum read Get_AbsolutePage write Set_AbsolutePage;
  1114.     property EditMode: EditModeEnum read Get_EditMode;
  1115.     property Filter: OleVariant read Get_Filter write Set_Filter;
  1116.     property PageCount: Integer read Get_PageCount;
  1117.     property PageSize: Integer read Get_PageSize write Set_PageSize;
  1118.     property Sort: WideString read Get_Sort write Set_Sort;
  1119.     property Status: Integer read Get_Status;
  1120.     property State: Integer read Get_State;
  1121.     property CursorLocation: CursorLocationEnum read Get_CursorLocation write Set_CursorLocation;
  1122.     property Collect[Index: OleVariant]: OleVariant read Get_Collect write Set_Collect;
  1123.     property MarshalOptions: MarshalOptionsEnum read Get_MarshalOptions write Set_MarshalOptions;
  1124.   end;
  1125.  
  1126. // *********************************************************************//
  1127. // DispIntf:  Recordset15Disp
  1128. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1129. // GUID:      {0000050E-0000-0010-8000-00AA006D2EA4}
  1130. // *********************************************************************//
  1131.   Recordset15Disp = dispinterface
  1132.     ['{0000050E-0000-0010-8000-00AA006D2EA4}']
  1133.     property AbsolutePosition: PositionEnum dispid 1000;
  1134.     function  ActiveConnection: IDispatch; dispid 1001;
  1135.     property BOF: WordBool readonly dispid 1002;
  1136.     property Bookmark: OleVariant dispid 1003;
  1137.     property CacheSize: Integer dispid 1004;
  1138.     property CursorType: CursorTypeEnum dispid 1005;
  1139.     property EOF: WordBool readonly dispid 1006;
  1140.     property Fields: Fields readonly dispid 0;
  1141.     property LockType: LockTypeEnum dispid 1008;
  1142.     property MaxRecords: Integer dispid 1009;
  1143.     property RecordCount: Integer readonly dispid 1010;
  1144.     function  Source: IDispatch; dispid 1011;
  1145.     procedure AddNew(FieldList: OleVariant; Values: OleVariant); dispid 1012;
  1146.     procedure CancelUpdate; dispid 1013;
  1147.     procedure Close; dispid 1014;
  1148.     procedure Delete(AffectRecords: AffectEnum); dispid 1015;
  1149.     function  GetRows(Rows: Integer; Start: OleVariant; Fields: OleVariant): OleVariant; dispid 1016;
  1150.     procedure Move(NumRecords: Integer; Start: OleVariant); dispid 1017;
  1151.     procedure MoveNext; dispid 1018;
  1152.     procedure MovePrevious; dispid 1019;
  1153.     procedure MoveFirst; dispid 1020;
  1154.     procedure MoveLast; dispid 1021;
  1155.     procedure Open(Source: OleVariant; ActiveConnection: OleVariant; CursorType: CursorTypeEnum; 
  1156.                    LockType: LockTypeEnum; Options: Integer); dispid 1022;
  1157.     procedure Requery(Options: Integer); dispid 1023;
  1158.     procedure _xResync(AffectRecords: AffectEnum); dispid 1610809378;
  1159.     procedure Update(Fields: OleVariant; Values: OleVariant); dispid 1025;
  1160.     property AbsolutePage: PositionEnum dispid 1047;
  1161.     property EditMode: EditModeEnum readonly dispid 1026;
  1162.     property Filter: OleVariant dispid 1030;
  1163.     property PageCount: Integer readonly dispid 1050;
  1164.     property PageSize: Integer dispid 1048;
  1165.     property Sort: WideString dispid 1031;
  1166.     property Status: Integer readonly dispid 1029;
  1167.     property State: Integer readonly dispid 1054;
  1168.     function  _xClone: _Recordset; dispid 1610809392;
  1169.     procedure UpdateBatch(AffectRecords: AffectEnum); dispid 1035;
  1170.     procedure CancelBatch(AffectRecords: AffectEnum); dispid 1049;
  1171.     property CursorLocation: CursorLocationEnum dispid 1051;
  1172.     function  NextRecordset(out RecordsAffected: OleVariant): _Recordset; dispid 1052;
  1173.     function  Supports(CursorOptions: CursorOptionEnum): WordBool; dispid 1036;
  1174.     property Collect[Index: OleVariant]: OleVariant dispid -8;
  1175.     property MarshalOptions: MarshalOptionsEnum dispid 1053;
  1176.     procedure Find(const Criteria: WideString; SkipRecords: Integer; 
  1177.                    SearchDirection: SearchDirectionEnum; Start: OleVariant); dispid 1058;
  1178.     property Properties: Properties readonly dispid 500;
  1179.   end;
  1180.  
  1181. // *********************************************************************//
  1182. // Interface: Recordset20
  1183. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1184. // GUID:      {0000054F-0000-0010-8000-00AA006D2EA4}
  1185. // *********************************************************************//
  1186.   Recordset20 = interface(Recordset15)
  1187.     ['{0000054F-0000-0010-8000-00AA006D2EA4}']
  1188.     procedure Cancel; safecall;
  1189.     function  Get_DataSource: IUnknown; safecall;
  1190.     procedure Set_DataSource(const ppunkDataSource: IUnknown); safecall;
  1191.     procedure Save(const FileName: WideString; PersistFormat: PersistFormatEnum); safecall;
  1192.     function  Get_ActiveCommand: IDispatch; safecall;
  1193.     procedure Set_StayInSync(pbStayInSync: WordBool); safecall;
  1194.     function  Get_StayInSync: WordBool; safecall;
  1195.     function  GetString(StringFormat: StringFormatEnum; NumRows: Integer; 
  1196.                         const ColumnDelimeter: WideString; const RowDelimeter: WideString; 
  1197.                         const NullExpr: WideString): WideString; safecall;
  1198.     function  Get_DataMember: WideString; safecall;
  1199.     procedure Set_DataMember(const pbstrDataMember: WideString); safecall;
  1200.     function  CompareBookmarks(Bookmark1: OleVariant; Bookmark2: OleVariant): CompareEnum; safecall;
  1201.     function  Clone(LockType: LockTypeEnum): _Recordset; safecall;
  1202.     procedure Resync(AffectRecords: AffectEnum; ResyncValues: ResyncEnum); safecall;
  1203.     property DataSource: IUnknown read Get_DataSource write Set_DataSource;
  1204.     property ActiveCommand: IDispatch read Get_ActiveCommand;
  1205.     property StayInSync: WordBool read Get_StayInSync write Set_StayInSync;
  1206.     property DataMember: WideString read Get_DataMember write Set_DataMember;
  1207.   end;
  1208.  
  1209. // *********************************************************************//
  1210. // DispIntf:  Recordset20Disp
  1211. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1212. // GUID:      {0000054F-0000-0010-8000-00AA006D2EA4}
  1213. // *********************************************************************//
  1214.   Recordset20Disp = dispinterface
  1215.     ['{0000054F-0000-0010-8000-00AA006D2EA4}']
  1216.     procedure Cancel; dispid 1055;
  1217.     property DataSource: IUnknown dispid 1056;
  1218.     procedure Save(const FileName: WideString; PersistFormat: PersistFormatEnum); dispid 1057;
  1219.     property ActiveCommand: IDispatch readonly dispid 1061;
  1220.     property StayInSync: WordBool dispid 1063;
  1221.     function  GetString(StringFormat: StringFormatEnum; NumRows: Integer; 
  1222.                         const ColumnDelimeter: WideString; const RowDelimeter: WideString; 
  1223.                         const NullExpr: WideString): WideString; dispid 1062;
  1224.     property DataMember: WideString dispid 1064;
  1225.     function  CompareBookmarks(Bookmark1: OleVariant; Bookmark2: OleVariant): CompareEnum; dispid 1065;
  1226.     function  Clone(LockType: LockTypeEnum): _Recordset; dispid 1034;
  1227.     procedure Resync(AffectRecords: AffectEnum; ResyncValues: ResyncEnum); dispid 1024;
  1228.     property AbsolutePosition: PositionEnum dispid 1000;
  1229.     function  ActiveConnection: IDispatch; dispid 1001;
  1230.     property BOF: WordBool readonly dispid 1002;
  1231.     property Bookmark: OleVariant dispid 1003;
  1232.     property CacheSize: Integer dispid 1004;
  1233.     property CursorType: CursorTypeEnum dispid 1005;
  1234.     property EOF: WordBool readonly dispid 1006;
  1235.     property Fields: Fields readonly dispid 0;
  1236.     property LockType: LockTypeEnum dispid 1008;
  1237.     property MaxRecords: Integer dispid 1009;
  1238.     property RecordCount: Integer readonly dispid 1010;
  1239.     function  Source: IDispatch; dispid 1011;
  1240.     procedure AddNew(FieldList: OleVariant; Values: OleVariant); dispid 1012;
  1241.     procedure CancelUpdate; dispid 1013;
  1242.     procedure Close; dispid 1014;
  1243.     procedure Delete(AffectRecords: AffectEnum); dispid 1015;
  1244.     function  GetRows(Rows: Integer; Start: OleVariant; Fields: OleVariant): OleVariant; dispid 1016;
  1245.     procedure Move(NumRecords: Integer; Start: OleVariant); dispid 1017;
  1246.     procedure MoveNext; dispid 1018;
  1247.     procedure MovePrevious; dispid 1019;
  1248.     procedure MoveFirst; dispid 1020;
  1249.     procedure MoveLast; dispid 1021;
  1250.     procedure Open(Source: OleVariant; ActiveConnection: OleVariant; CursorType: CursorTypeEnum; 
  1251.                    LockType: LockTypeEnum; Options: Integer); dispid 1022;
  1252.     procedure Requery(Options: Integer); dispid 1023;
  1253.     procedure _xResync(AffectRecords: AffectEnum); dispid 1610809378;
  1254.     procedure Update(Fields: OleVariant; Values: OleVariant); dispid 1025;
  1255.     property AbsolutePage: PositionEnum dispid 1047;
  1256.     property EditMode: EditModeEnum readonly dispid 1026;
  1257.     property Filter: OleVariant dispid 1030;
  1258.     property PageCount: Integer readonly dispid 1050;
  1259.     property PageSize: Integer dispid 1048;
  1260.     property Sort: WideString dispid 1031;
  1261.     property Status: Integer readonly dispid 1029;
  1262.     property State: Integer readonly dispid 1054;
  1263.     function  _xClone: _Recordset; dispid 1610809392;
  1264.     procedure UpdateBatch(AffectRecords: AffectEnum); dispid 1035;
  1265.     procedure CancelBatch(AffectRecords: AffectEnum); dispid 1049;
  1266.     property CursorLocation: CursorLocationEnum dispid 1051;
  1267.     function  NextRecordset(out RecordsAffected: OleVariant): _Recordset; dispid 1052;
  1268.     function  Supports(CursorOptions: CursorOptionEnum): WordBool; dispid 1036;
  1269.     property Collect[Index: OleVariant]: OleVariant dispid -8;
  1270.     property MarshalOptions: MarshalOptionsEnum dispid 1053;
  1271.     procedure Find(const Criteria: WideString; SkipRecords: Integer; 
  1272.                    SearchDirection: SearchDirectionEnum; Start: OleVariant); dispid 1058;
  1273.     property Properties: Properties readonly dispid 500;
  1274.   end;
  1275.  
  1276. // *********************************************************************//
  1277. // Interface: _Recordset
  1278. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1279. // GUID:      {00000555-0000-0010-8000-00AA006D2EA4}
  1280. // *********************************************************************//
  1281.   _Recordset = interface(Recordset20)
  1282.     ['{00000555-0000-0010-8000-00AA006D2EA4}']
  1283.     procedure Seek(KeyValues: OleVariant; SeekOption: SeekEnum); safecall;
  1284.     procedure Set_Index(const pbstrIndex: WideString); safecall;
  1285.     function  Get_Index: WideString; safecall;
  1286.     property Index: WideString read Get_Index write Set_Index;
  1287.   end;
  1288.  
  1289. // *********************************************************************//
  1290. // DispIntf:  _RecordsetDisp
  1291. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1292. // GUID:      {00000555-0000-0010-8000-00AA006D2EA4}
  1293. // *********************************************************************//
  1294.   _RecordsetDisp = dispinterface
  1295.     ['{00000555-0000-0010-8000-00AA006D2EA4}']
  1296.     procedure Seek(KeyValues: OleVariant; SeekOption: SeekEnum); dispid 1066;
  1297.     property Index: WideString dispid 1067;
  1298.     procedure Cancel; dispid 1055;
  1299.     property DataSource: IUnknown dispid 1056;
  1300.     procedure Save(const FileName: WideString; PersistFormat: PersistFormatEnum); dispid 1057;
  1301.     property ActiveCommand: IDispatch readonly dispid 1061;
  1302.     property StayInSync: WordBool dispid 1063;
  1303.     function  GetString(StringFormat: StringFormatEnum; NumRows: Integer; 
  1304.                         const ColumnDelimeter: WideString; const RowDelimeter: WideString; 
  1305.                         const NullExpr: WideString): WideString; dispid 1062;
  1306.     property DataMember: WideString dispid 1064;
  1307.     function  CompareBookmarks(Bookmark1: OleVariant; Bookmark2: OleVariant): CompareEnum; dispid 1065;
  1308.     function  Clone(LockType: LockTypeEnum): _Recordset; dispid 1034;
  1309.     procedure Resync(AffectRecords: AffectEnum; ResyncValues: ResyncEnum); dispid 1024;
  1310.     property AbsolutePosition: PositionEnum dispid 1000;
  1311.     function  ActiveConnection: IDispatch; dispid 1001;
  1312.     property BOF: WordBool readonly dispid 1002;
  1313.     property Bookmark: OleVariant dispid 1003;
  1314.     property CacheSize: Integer dispid 1004;
  1315.     property CursorType: CursorTypeEnum dispid 1005;
  1316.     property EOF: WordBool readonly dispid 1006;
  1317.     property Fields: Fields readonly dispid 0;
  1318.     property LockType: LockTypeEnum dispid 1008;
  1319.     property MaxRecords: Integer dispid 1009;
  1320.     property RecordCount: Integer readonly dispid 1010;
  1321.     function  Source: IDispatch; dispid 1011;
  1322.     procedure AddNew(FieldList: OleVariant; Values: OleVariant); dispid 1012;
  1323.     procedure CancelUpdate; dispid 1013;
  1324.     procedure Close; dispid 1014;
  1325.     procedure Delete(AffectRecords: AffectEnum); dispid 1015;
  1326.     function  GetRows(Rows: Integer; Start: OleVariant; Fields: OleVariant): OleVariant; dispid 1016;
  1327.     procedure Move(NumRecords: Integer; Start: OleVariant); dispid 1017;
  1328.     procedure MoveNext; dispid 1018;
  1329.     procedure MovePrevious; dispid 1019;
  1330.     procedure MoveFirst; dispid 1020;
  1331.     procedure MoveLast; dispid 1021;
  1332.     procedure Open(Source: OleVariant; ActiveConnection: OleVariant; CursorType: CursorTypeEnum; 
  1333.                    LockType: LockTypeEnum; Options: Integer); dispid 1022;
  1334.     procedure Requery(Options: Integer); dispid 1023;
  1335.     procedure _xResync(AffectRecords: AffectEnum); dispid 1610809378;
  1336.     procedure Update(Fields: OleVariant; Values: OleVariant); dispid 1025;
  1337.     property AbsolutePage: PositionEnum dispid 1047;
  1338.     property EditMode: EditModeEnum readonly dispid 1026;
  1339.     property Filter: OleVariant dispid 1030;
  1340.     property PageCount: Integer readonly dispid 1050;
  1341.     property PageSize: Integer dispid 1048;
  1342.     property Sort: WideString dispid 1031;
  1343.     property Status: Integer readonly dispid 1029;
  1344.     property State: Integer readonly dispid 1054;
  1345.     function  _xClone: _Recordset; dispid 1610809392;
  1346.     procedure UpdateBatch(AffectRecords: AffectEnum); dispid 1035;
  1347.     procedure CancelBatch(AffectRecords: AffectEnum); dispid 1049;
  1348.     property CursorLocation: CursorLocationEnum dispid 1051;
  1349.     function  NextRecordset(out RecordsAffected: OleVariant): _Recordset; dispid 1052;
  1350.     function  Supports(CursorOptions: CursorOptionEnum): WordBool; dispid 1036;
  1351.     property Collect[Index: OleVariant]: OleVariant dispid -8;
  1352.     property MarshalOptions: MarshalOptionsEnum dispid 1053;
  1353.     procedure Find(const Criteria: WideString; SkipRecords: Integer; 
  1354.                    SearchDirection: SearchDirectionEnum; Start: OleVariant); dispid 1058;
  1355.     property Properties: Properties readonly dispid 500;
  1356.   end;
  1357.  
  1358. // *********************************************************************//
  1359. // Interface: Fields15
  1360. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1361. // GUID:      {00000506-0000-0010-8000-00AA006D2EA4}
  1362. // *********************************************************************//
  1363.   Fields15 = interface(_Collection)
  1364.     ['{00000506-0000-0010-8000-00AA006D2EA4}']
  1365.     function  Get_Item(Index: OleVariant): Field; safecall;
  1366.     property Item[Index: OleVariant]: Field read Get_Item; default;
  1367.   end;
  1368.  
  1369. // *********************************************************************//
  1370. // DispIntf:  Fields15Disp
  1371. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1372. // GUID:      {00000506-0000-0010-8000-00AA006D2EA4}
  1373. // *********************************************************************//
  1374.   Fields15Disp = dispinterface
  1375.     ['{00000506-0000-0010-8000-00AA006D2EA4}']
  1376.     property Item[Index: OleVariant]: Field readonly dispid 0; default;
  1377.     property Count: Integer readonly dispid 1610743808;
  1378.     function  _NewEnum: IUnknown; dispid -4;
  1379.     procedure Refresh; dispid 1610743810;
  1380.   end;
  1381.  
  1382. // *********************************************************************//
  1383. // Interface: Fields
  1384. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1385. // GUID:      {0000054D-0000-0010-8000-00AA006D2EA4}
  1386. // *********************************************************************//
  1387.   Fields = interface(Fields15)
  1388.     ['{0000054D-0000-0010-8000-00AA006D2EA4}']
  1389.     procedure Append(const Name: WideString; Type_: DataTypeEnum; DefinedSize: Integer; 
  1390.                      Attrib: FieldAttributeEnum); safecall;
  1391.     procedure Delete(Index: OleVariant); safecall;
  1392.   end;
  1393.  
  1394. // *********************************************************************//
  1395. // DispIntf:  FieldsDisp
  1396. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1397. // GUID:      {0000054D-0000-0010-8000-00AA006D2EA4}
  1398. // *********************************************************************//
  1399.   FieldsDisp = dispinterface
  1400.     ['{0000054D-0000-0010-8000-00AA006D2EA4}']
  1401.     procedure Append(const Name: WideString; Type_: DataTypeEnum; DefinedSize: Integer; 
  1402.                      Attrib: FieldAttributeEnum); dispid 1610874880;
  1403.     procedure Delete(Index: OleVariant); dispid 1610874881;
  1404.     property Item[Index: OleVariant]: Field readonly dispid 0; default;
  1405.     property Count: Integer readonly dispid 1610743808;
  1406.     function  _NewEnum: IUnknown; dispid -4;
  1407.     procedure Refresh; dispid 1610743810;
  1408.   end;
  1409.  
  1410. // *********************************************************************//
  1411. // Interface: Field
  1412. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1413. // GUID:      {0000054C-0000-0010-8000-00AA006D2EA4}
  1414. // *********************************************************************//
  1415.   Field = interface(_ADO)
  1416.     ['{0000054C-0000-0010-8000-00AA006D2EA4}']
  1417.     function  Get_ActualSize: Integer; safecall;
  1418.     function  Get_Attributes: Integer; safecall;
  1419.     function  Get_DefinedSize: Integer; safecall;
  1420.     function  Get_Name: WideString; safecall;
  1421.     function  Get_Type_: DataTypeEnum; safecall;
  1422.     function  Get_Value: OleVariant; safecall;
  1423.     procedure Set_Value(pvar: OleVariant); safecall;
  1424.     function  Get_Precision: Byte; safecall;
  1425.     function  Get_NumericScale: Byte; safecall;
  1426.     procedure AppendChunk(Data: OleVariant); safecall;
  1427.     function  GetChunk(Length: Integer): OleVariant; safecall;
  1428.     function  Get_OriginalValue: OleVariant; safecall;
  1429.     function  Get_UnderlyingValue: OleVariant; safecall;
  1430.     function  Get_DataFormat: IUnknown; safecall;
  1431.     procedure Set_DataFormat(const ppiDF: IUnknown); safecall;
  1432.     procedure Set_Precision(pbPrecision: Byte); safecall;
  1433.     procedure Set_NumericScale(pbNumericScale: Byte); safecall;
  1434.     procedure Set_Type_(pDataType: DataTypeEnum); safecall;
  1435.     procedure Set_DefinedSize(pl: Integer); safecall;
  1436.     procedure Set_Attributes(pl: Integer); safecall;
  1437.     property ActualSize: Integer read Get_ActualSize;
  1438.     property Attributes: Integer read Get_Attributes write Set_Attributes;
  1439.     property DefinedSize: Integer read Get_DefinedSize write Set_DefinedSize;
  1440.     property Name: WideString read Get_Name;
  1441.     property Type_: DataTypeEnum read Get_Type_ write Set_Type_;
  1442.     property Value: OleVariant read Get_Value write Set_Value;
  1443.     property Precision: Byte read Get_Precision;
  1444.     property NumericScale: Byte read Get_NumericScale;
  1445.     property OriginalValue: OleVariant read Get_OriginalValue;
  1446.     property UnderlyingValue: OleVariant read Get_UnderlyingValue;
  1447.     property DataFormat: IUnknown read Get_DataFormat;
  1448.   end;
  1449.  
  1450. // *********************************************************************//
  1451. // DispIntf:  FieldDisp
  1452. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1453. // GUID:      {0000054C-0000-0010-8000-00AA006D2EA4}
  1454. // *********************************************************************//
  1455.   FieldDisp = dispinterface
  1456.     ['{0000054C-0000-0010-8000-00AA006D2EA4}']
  1457.     property ActualSize: Integer readonly dispid 1109;
  1458.     property Attributes: Integer dispid 1036;
  1459.     property DefinedSize: Integer dispid 1103;
  1460.     property Name: WideString readonly dispid 1100;
  1461.     property Type_: DataTypeEnum dispid 1102;
  1462.     property Value: OleVariant dispid 0;
  1463.     property Precision: Byte readonly dispid 1610809351;
  1464.     property NumericScale: Byte readonly dispid 1610809352;
  1465.     procedure AppendChunk(Data: OleVariant); dispid 1107;
  1466.     function  GetChunk(Length: Integer): OleVariant; dispid 1108;
  1467.     property OriginalValue: OleVariant readonly dispid 1104;
  1468.     property UnderlyingValue: OleVariant readonly dispid 1105;
  1469.     property DataFormat: IUnknown readonly dispid 1610809357;
  1470.     property Properties: Properties readonly dispid 500;
  1471.   end;
  1472.  
  1473. // *********************************************************************//
  1474. // Interface: _Parameter
  1475. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1476. // GUID:      {0000050C-0000-0010-8000-00AA006D2EA4}
  1477. // *********************************************************************//
  1478.   _Parameter = interface(_ADO)
  1479.     ['{0000050C-0000-0010-8000-00AA006D2EA4}']
  1480.     function  Get_Name: WideString; safecall;
  1481.     procedure Set_Name(const pbstr: WideString); safecall;
  1482.     function  Get_Value: OleVariant; safecall;
  1483.     procedure Set_Value(pvar: OleVariant); safecall;
  1484.     function  Get_Type_: DataTypeEnum; safecall;
  1485.     procedure Set_Type_(psDataType: DataTypeEnum); safecall;
  1486.     procedure Set_Direction(plParmDirection: ParameterDirectionEnum); safecall;
  1487.     function  Get_Direction: ParameterDirectionEnum; safecall;
  1488.     procedure Set_Precision(pbPrecision: Byte); safecall;
  1489.     function  Get_Precision: Byte; safecall;
  1490.     procedure Set_NumericScale(pbScale: Byte); safecall;
  1491.     function  Get_NumericScale: Byte; safecall;
  1492.     procedure Set_Size(pl: Integer); safecall;
  1493.     function  Get_Size: Integer; safecall;
  1494.     procedure AppendChunk(Val: OleVariant); safecall;
  1495.     function  Get_Attributes: Integer; safecall;
  1496.     procedure Set_Attributes(plParmAttribs: Integer); safecall;
  1497.     property Name: WideString read Get_Name;
  1498.     property Value: OleVariant read Get_Value write Set_Value;
  1499.     property Type_: DataTypeEnum read Get_Type_;
  1500.     property Direction: ParameterDirectionEnum write Set_Direction;
  1501.     property Precision: Byte write Set_Precision;
  1502.     property NumericScale: Byte write Set_NumericScale;
  1503.     property Size: Integer write Set_Size;
  1504.     property Attributes: Integer read Get_Attributes;
  1505.   end;
  1506.  
  1507. // *********************************************************************//
  1508. // DispIntf:  _ParameterDisp
  1509. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1510. // GUID:      {0000050C-0000-0010-8000-00AA006D2EA4}
  1511. // *********************************************************************//
  1512.   _ParameterDisp = dispinterface
  1513.     ['{0000050C-0000-0010-8000-00AA006D2EA4}']
  1514.     property Name: WideString readonly dispid 1610809344;
  1515.     property Value: OleVariant dispid 0;
  1516.     property Type_: DataTypeEnum readonly dispid 1610809348;
  1517.     property Direction: ParameterDirectionEnum writeonly dispid 1610809350;
  1518.     property Precision: Byte writeonly dispid 1610809352;
  1519.     property NumericScale: Byte writeonly dispid 1610809354;
  1520.     property Size: Integer writeonly dispid 1610809356;
  1521.     procedure AppendChunk(Val: OleVariant); dispid 1610809358;
  1522.     property Attributes: Integer readonly dispid 1610809359;
  1523.     property Properties: Properties readonly dispid 500;
  1524.   end;
  1525.  
  1526. // *********************************************************************//
  1527. // Interface: Parameters
  1528. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1529. // GUID:      {0000050D-0000-0010-8000-00AA006D2EA4}
  1530. // *********************************************************************//
  1531.   Parameters = interface(_DynaCollection)
  1532.     ['{0000050D-0000-0010-8000-00AA006D2EA4}']
  1533.     function  Get_Item(Index: OleVariant): _Parameter; safecall;
  1534.     property Item[Index: OleVariant]: _Parameter read Get_Item; default;
  1535.   end;
  1536.  
  1537. // *********************************************************************//
  1538. // DispIntf:  ParametersDisp
  1539. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1540. // GUID:      {0000050D-0000-0010-8000-00AA006D2EA4}
  1541. // *********************************************************************//
  1542.   ParametersDisp = dispinterface
  1543.     ['{0000050D-0000-0010-8000-00AA006D2EA4}']
  1544.     property Item[Index: OleVariant]: _Parameter readonly dispid 0; default;
  1545.     procedure Append(const Object_: IDispatch); dispid 1610809344;
  1546.     procedure Delete(Index: OleVariant); dispid 1610809345;
  1547.     property Count: Integer readonly dispid 1610743808;
  1548.     function  _NewEnum: IUnknown; dispid -4;
  1549.     procedure Refresh; dispid 1610743810;
  1550.   end;
  1551.  
  1552. // *********************************************************************//
  1553. // Interface: _Command
  1554. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1555. // GUID:      {0000054E-0000-0010-8000-00AA006D2EA4}
  1556. // *********************************************************************//
  1557.   _Command = interface(Command15)
  1558.     ['{0000054E-0000-0010-8000-00AA006D2EA4}']
  1559.     function  Get_State: Integer; safecall;
  1560.     procedure Cancel; safecall;
  1561.     property State: Integer read Get_State;
  1562.   end;
  1563.  
  1564. // *********************************************************************//
  1565. // DispIntf:  _CommandDisp
  1566. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  1567. // GUID:      {0000054E-0000-0010-8000-00AA006D2EA4}
  1568. // *********************************************************************//
  1569.   _CommandDisp = dispinterface
  1570.     ['{0000054E-0000-0010-8000-00AA006D2EA4}']
  1571.     property State: Integer readonly dispid 1610874880;
  1572.     procedure Cancel; dispid 1610874881;
  1573.     property ActiveConnection: _Connection readonly dispid 1610809344;
  1574.     property CommandText: WideString readonly dispid 1610809347;
  1575.     property CommandTimeout: Integer readonly dispid 1610809349;
  1576.     property Prepared: WordBool readonly dispid 1610809351;
  1577.     function  Execute(out RecordsAffected: OleVariant; var Parameters: OleVariant; Options: Integer): _Recordset; dispid 1610809353;
  1578.     function  CreateParameter(const Name: WideString; Type_: DataTypeEnum; 
  1579.                               Direction: ParameterDirectionEnum; Size: Integer; Value: OleVariant): _Parameter; dispid 1610809354;
  1580.     property Parameters: Parameters readonly dispid 0;
  1581.     property CommandType: CommandTypeEnum writeonly dispid 1610809356;
  1582.     property Name: WideString readonly dispid 1610809358;
  1583.     property Properties: Properties readonly dispid 500;
  1584.   end;
  1585.  
  1586. // *********************************************************************//
  1587. // Interface: ConnectionEventsVt
  1588. // Flags:     (16) Hidden
  1589. // GUID:      {00000402-0000-0010-8000-00AA006D2EA4}
  1590. // *********************************************************************//
  1591.   ConnectionEventsVt = interface(IUnknown)
  1592.     ['{00000402-0000-0010-8000-00AA006D2EA4}']
  1593.     function  InfoMessage(const pError: Error; var adStatus: EventStatusEnum; 
  1594.                           const pConnection: _Connection): HResult; stdcall;
  1595.     function  BeginTransComplete(TransactionLevel: Integer; const pError: Error; 
  1596.                                  var adStatus: EventStatusEnum; const pConnection: _Connection): HResult; stdcall;
  1597.     function  CommitTransComplete(const pError: Error; var adStatus: EventStatusEnum; 
  1598.                                   const pConnection: _Connection): HResult; stdcall;
  1599.     function  RollbackTransComplete(const pError: Error; var adStatus: EventStatusEnum; 
  1600.                                     const pConnection: _Connection): HResult; stdcall;
  1601.     function  WillExecute(var Source: WideString; var CursorType: CursorTypeEnum; 
  1602.                           var LockType: LockTypeEnum; var Options: Integer; 
  1603.                           var adStatus: EventStatusEnum; const pCommand: _Command; 
  1604.                           const pRecordset: _Recordset; const pConnection: _Connection): HResult; stdcall;
  1605.     function  ExecuteComplete(RecordsAffected: Integer; const pError: Error; 
  1606.                               var adStatus: EventStatusEnum; const pCommand: _Command; 
  1607.                               const pRecordset: _Recordset; const pConnection: _Connection): HResult; stdcall;
  1608.     function  WillConnect(var ConnectionString: WideString; var UserID: WideString; 
  1609.                           var Password: WideString; var Options: Integer; 
  1610.                           var adStatus: EventStatusEnum; const pConnection: _Connection): HResult; stdcall;
  1611.     function  ConnectComplete(const pError: Error; var adStatus: EventStatusEnum; 
  1612.                               const pConnection: _Connection): HResult; stdcall;
  1613.     function  Disconnect(var adStatus: EventStatusEnum; const pConnection: _Connection): HResult; stdcall;
  1614.   end;
  1615.  
  1616. // *********************************************************************//
  1617. // Interface: RecordsetEventsVt
  1618. // Flags:     (16) Hidden
  1619. // GUID:      {00000403-0000-0010-8000-00AA006D2EA4}
  1620. // *********************************************************************//
  1621.   RecordsetEventsVt = interface(IUnknown)
  1622.     ['{00000403-0000-0010-8000-00AA006D2EA4}']
  1623.     function  WillChangeField(cFields: Integer; Fields: OleVariant; var adStatus: EventStatusEnum; 
  1624.                               const pRecordset: _Recordset): HResult; stdcall;
  1625.     function  FieldChangeComplete(cFields: Integer; Fields: OleVariant; const pError: Error; 
  1626.                                   var adStatus: EventStatusEnum; const pRecordset: _Recordset): HResult; stdcall;
  1627.     function  WillChangeRecord(adReason: EventReasonEnum; cRecords: Integer; 
  1628.                                var adStatus: EventStatusEnum; const pRecordset: _Recordset): HResult; stdcall;
  1629.     function  RecordChangeComplete(adReason: EventReasonEnum; cRecords: Integer; 
  1630.                                    const pError: Error; var adStatus: EventStatusEnum; 
  1631.                                    const pRecordset: _Recordset): HResult; stdcall;
  1632.     function  WillChangeRecordset(adReason: EventReasonEnum; var adStatus: EventStatusEnum; 
  1633.                                   const pRecordset: _Recordset): HResult; stdcall;
  1634.     function  RecordsetChangeComplete(adReason: EventReasonEnum; const pError: Error; 
  1635.                                       var adStatus: EventStatusEnum; const pRecordset: _Recordset): HResult; stdcall;
  1636.     function  WillMove(adReason: EventReasonEnum; var adStatus: EventStatusEnum; 
  1637.                        const pRecordset: _Recordset): HResult; stdcall;
  1638.     function  MoveComplete(adReason: EventReasonEnum; const pError: Error; 
  1639.                            var adStatus: EventStatusEnum; const pRecordset: _Recordset): HResult; stdcall;
  1640.     function  EndOfRecordset(var fMoreData: WordBool; var adStatus: EventStatusEnum; 
  1641.                              const pRecordset: _Recordset): HResult; stdcall;
  1642.     function  FetchProgress(Progress: Integer; MaxProgress: Integer; var adStatus: EventStatusEnum; 
  1643.                             const pRecordset: _Recordset): HResult; stdcall;
  1644.     function  FetchComplete(const pError: Error; var adStatus: EventStatusEnum; 
  1645.                             const pRecordset: _Recordset): HResult; stdcall;
  1646.   end;
  1647.  
  1648. // *********************************************************************//
  1649. // DispIntf:  ConnectionEvents
  1650. // Flags:     (4096) Dispatchable
  1651. // GUID:      {00000400-0000-0010-8000-00AA006D2EA4}
  1652. // *********************************************************************//
  1653.   ConnectionEvents = dispinterface
  1654.     ['{00000400-0000-0010-8000-00AA006D2EA4}']
  1655.     procedure InfoMessage(const pError: Error; var adStatus: EventStatusEnum; 
  1656.                           const pConnection: _Connection); dispid 0;
  1657.     procedure BeginTransComplete(TransactionLevel: Integer; const pError: Error; 
  1658.                                  var adStatus: EventStatusEnum; const pConnection: _Connection); dispid 1;
  1659.     procedure CommitTransComplete(const pError: Error; var adStatus: EventStatusEnum; 
  1660.                                   const pConnection: _Connection); dispid 3;
  1661.     procedure RollbackTransComplete(const pError: Error; var adStatus: EventStatusEnum; 
  1662.                                     const pConnection: _Connection); dispid 2;
  1663.     procedure WillExecute(var Source: WideString; var CursorType: CursorTypeEnum; 
  1664.                           var LockType: LockTypeEnum; var Options: Integer; 
  1665.                           var adStatus: EventStatusEnum; const pCommand: _Command; 
  1666.                           const pRecordset: _Recordset; const pConnection: _Connection); dispid 4;
  1667.     procedure ExecuteComplete(RecordsAffected: Integer; const pError: Error; 
  1668.                               var adStatus: EventStatusEnum; const pCommand: _Command; 
  1669.                               const pRecordset: _Recordset; const pConnection: _Connection); dispid 5;
  1670.     procedure WillConnect(var ConnectionString: WideString; var UserID: WideString; 
  1671.                           var Password: WideString; var Options: Integer; 
  1672.                           var adStatus: EventStatusEnum; const pConnection: _Connection); dispid 6;
  1673.     procedure ConnectComplete(const pError: Error; var adStatus: EventStatusEnum; 
  1674.                               const pConnection: _Connection); dispid 7;
  1675.     procedure Disconnect(var adStatus: EventStatusEnum; const pConnection: _Connection); dispid 8;
  1676.   end;
  1677.  
  1678. // *********************************************************************//
  1679. // DispIntf:  RecordsetEvents
  1680. // Flags:     (4096) Dispatchable
  1681. // GUID:      {00000266-0000-0010-8000-00AA006D2EA4}
  1682. // *********************************************************************//
  1683.   RecordsetEvents = dispinterface
  1684.     ['{00000266-0000-0010-8000-00AA006D2EA4}']
  1685.     procedure WillChangeField(cFields: Integer; Fields: OleVariant; var adStatus: EventStatusEnum; 
  1686.                               const pRecordset: _Recordset); dispid 9;
  1687.     procedure FieldChangeComplete(cFields: Integer; Fields: OleVariant; const pError: Error; 
  1688.                                   var adStatus: EventStatusEnum; const pRecordset: _Recordset); dispid 10;
  1689.     procedure WillChangeRecord(adReason: EventReasonEnum; cRecords: Integer; 
  1690.                                var adStatus: EventStatusEnum; const pRecordset: _Recordset); dispid 11;
  1691.     procedure RecordChangeComplete(adReason: EventReasonEnum; cRecords: Integer; 
  1692.                                    const pError: Error; var adStatus: EventStatusEnum; 
  1693.                                    const pRecordset: _Recordset); dispid 12;
  1694.     procedure WillChangeRecordset(adReason: EventReasonEnum; var adStatus: EventStatusEnum; 
  1695.                                   const pRecordset: _Recordset); dispid 13;
  1696.     procedure RecordsetChangeComplete(adReason: EventReasonEnum; const pError: Error; 
  1697.                                       var adStatus: EventStatusEnum; const pRecordset: _Recordset); dispid 14;
  1698.     procedure WillMove(adReason: EventReasonEnum; var adStatus: EventStatusEnum; 
  1699.                        const pRecordset: _Recordset); dispid 15;
  1700.     procedure MoveComplete(adReason: EventReasonEnum; const pError: Error; 
  1701.                            var adStatus: EventStatusEnum; const pRecordset: _Recordset); dispid 16;
  1702.     procedure EndOfRecordset(var fMoreData: WordBool; var adStatus: EventStatusEnum; 
  1703.                              const pRecordset: _Recordset); dispid 17;
  1704.     procedure FetchProgress(Progress: Integer; MaxProgress: Integer; var adStatus: EventStatusEnum; 
  1705.                             const pRecordset: _Recordset); dispid 18;
  1706.     procedure FetchComplete(const pError: Error; var adStatus: EventStatusEnum; 
  1707.                             const pRecordset: _Recordset); dispid 19;
  1708.   end;
  1709.  
  1710. // *********************************************************************//
  1711. // Interface: ADOConnectionConstruction15
  1712. // Flags:     (512) Restricted
  1713. // GUID:      {00000516-0000-0010-8000-00AA006D2EA4}
  1714. // *********************************************************************//
  1715.   ADOConnectionConstruction15 = interface(IUnknown)
  1716.     ['{00000516-0000-0010-8000-00AA006D2EA4}']
  1717.     function  Get_DSO(out ppDSO: IUnknown): HResult; stdcall;
  1718.     function  Get_Session(out ppSession: IUnknown): HResult; stdcall;
  1719.     function  WrapDSOandSession(const pDSO: IUnknown; const pSession: IUnknown): HResult; stdcall;
  1720.   end;
  1721.  
  1722. // *********************************************************************//
  1723. // Interface: ADOConnectionConstruction
  1724. // Flags:     (512) Restricted
  1725. // GUID:      {00000551-0000-0010-8000-00AA006D2EA4}
  1726. // *********************************************************************//
  1727.   ADOConnectionConstruction = interface(ADOConnectionConstruction15)
  1728.     ['{00000551-0000-0010-8000-00AA006D2EA4}']
  1729.   end;
  1730.  
  1731. // *********************************************************************//
  1732. // Interface: ADOCommandConstruction
  1733. // Flags:     (512) Restricted
  1734. // GUID:      {00000517-0000-0010-8000-00AA006D2EA4}
  1735. // *********************************************************************//
  1736.   ADOCommandConstruction = interface(IUnknown)
  1737.     ['{00000517-0000-0010-8000-00AA006D2EA4}']
  1738.     function  Get_OLEDBCommand(out ppOLEDBCommand: IUnknown): HResult; stdcall;
  1739.     function  Set_OLEDBCommand(const ppOLEDBCommand: IUnknown): HResult; stdcall;
  1740.   end;
  1741.  
  1742. // *********************************************************************//
  1743. // Interface: ADORecordsetConstruction
  1744. // Flags:     (4608) Restricted Dispatchable
  1745. // GUID:      {00000283-0000-0010-8000-00AA006D2EA4}
  1746. // *********************************************************************//
  1747.   ADORecordsetConstruction = interface(IDispatch)
  1748.     ['{00000283-0000-0010-8000-00AA006D2EA4}']
  1749.     function  Get_Rowset(out ppRowset: IUnknown): HResult; stdcall;
  1750.     function  Set_Rowset(const ppRowset: IUnknown): HResult; stdcall;
  1751.     function  Get_Chapter(out plChapter: Integer): HResult; stdcall;
  1752.     function  Set_Chapter(plChapter: Integer): HResult; stdcall;
  1753.     function  Get_RowPosition(out ppRowPos: IUnknown): HResult; stdcall;
  1754.     function  Set_RowPosition(const ppRowPos: IUnknown): HResult; stdcall;
  1755.   end;
  1756.  
  1757. // *********************************************************************//
  1758. // Interface: Field15
  1759. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1760. // GUID:      {00000505-0000-0010-8000-00AA006D2EA4}
  1761. // *********************************************************************//
  1762.   Field15 = interface(_ADO)
  1763.     ['{00000505-0000-0010-8000-00AA006D2EA4}']
  1764.     function  Get_ActualSize: Integer; safecall;
  1765.     function  Get_Attributes: Integer; safecall;
  1766.     function  Get_DefinedSize: Integer; safecall;
  1767.     function  Get_Name: WideString; safecall;
  1768.     function  Get_Type_: DataTypeEnum; safecall;
  1769.     function  Get_Value: OleVariant; safecall;
  1770.     procedure Set_Value(pvar: OleVariant); safecall;
  1771.     function  Get_Precision: Byte; safecall;
  1772.     function  Get_NumericScale: Byte; safecall;
  1773.     procedure AppendChunk(Data: OleVariant); safecall;
  1774.     function  GetChunk(Length: Integer): OleVariant; safecall;
  1775.     function  Get_OriginalValue: OleVariant; safecall;
  1776.     function  Get_UnderlyingValue: OleVariant; safecall;
  1777.     property ActualSize: Integer read Get_ActualSize;
  1778.     property Attributes: Integer read Get_Attributes;
  1779.     property DefinedSize: Integer read Get_DefinedSize;
  1780.     property Name: WideString read Get_Name;
  1781.     property Type_: DataTypeEnum read Get_Type_;
  1782.     property Value: OleVariant read Get_Value write Set_Value;
  1783.     property Precision: Byte read Get_Precision;
  1784.     property NumericScale: Byte read Get_NumericScale;
  1785.     property OriginalValue: OleVariant read Get_OriginalValue;
  1786.     property UnderlyingValue: OleVariant read Get_UnderlyingValue;
  1787.   end;
  1788.  
  1789. // *********************************************************************//
  1790. // DispIntf:  Field15Disp
  1791. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1792. // GUID:      {00000505-0000-0010-8000-00AA006D2EA4}
  1793. // *********************************************************************//
  1794.   Field15Disp = dispinterface
  1795.     ['{00000505-0000-0010-8000-00AA006D2EA4}']
  1796.     property ActualSize: Integer readonly dispid 1109;
  1797.     property Attributes: Integer readonly dispid 1036;
  1798.     property DefinedSize: Integer readonly dispid 1103;
  1799.     property Name: WideString readonly dispid 1100;
  1800.     property Type_: DataTypeEnum readonly dispid 1102;
  1801.     property Value: OleVariant dispid 0;
  1802.     property Precision: Byte readonly dispid 1610809351;
  1803.     property NumericScale: Byte readonly dispid 1610809352;
  1804.     procedure AppendChunk(Data: OleVariant); dispid 1107;
  1805.     function  GetChunk(Length: Integer): OleVariant; dispid 1108;
  1806.     property OriginalValue: OleVariant readonly dispid 1104;
  1807.     property UnderlyingValue: OleVariant readonly dispid 1105;
  1808.     property Properties: Properties readonly dispid 500;
  1809.   end;
  1810.  
  1811. // *********************************************************************//
  1812. // The Class CoConnection provides a Create and CreateRemote method to          
  1813. // create instances of the default interface _Connection exposed by              
  1814. // the CoClass Connection. The functions are intended to be used by             
  1815. // clients wishing to automate the CoClass objects exposed by the         
  1816. // server of this typelibrary.                                            
  1817. // *********************************************************************//
  1818.   CoConnection = class
  1819.     class function Create: _Connection;
  1820.     class function CreateRemote(const MachineName: string): _Connection;
  1821.   end;
  1822.  
  1823. // *********************************************************************//
  1824. // The Class CoCommand provides a Create and CreateRemote method to
  1825. // create instances of the default interface _Command exposed by
  1826. // the CoClass Command. The functions are intended to be used by
  1827. // clients wishing to automate the CoClass objects exposed by the         
  1828. // server of this typelibrary.
  1829. // *********************************************************************//
  1830.   CoCommand = class
  1831.     class function Create: _Command;
  1832.     class function CreateRemote(const MachineName: string): _Command;
  1833.   end;
  1834.  
  1835.  
  1836. // *********************************************************************//
  1837. // The Class CoRecordset provides a Create and CreateRemote method to
  1838. // create instances of the default interface _Recordset exposed by
  1839. // the CoClass Recordset. The functions are intended to be used by
  1840. // clients wishing to automate the CoClass objects exposed by the
  1841. // server of this typelibrary.
  1842. // *********************************************************************//
  1843.   CoRecordset = class
  1844.     class function Create: _Recordset;
  1845.     class function CreateRemote(const MachineName: string): _Recordset;
  1846.   end;
  1847.  
  1848.  
  1849. // *********************************************************************//
  1850. // The Class CoParameter provides a Create and CreateRemote method to
  1851. // create instances of the default interface _Parameter exposed by
  1852. // the CoClass Parameter. The functions are intended to be used by
  1853. // clients wishing to automate the CoClass objects exposed by the
  1854. // server of this typelibrary.                                            
  1855. // *********************************************************************//
  1856.   CoParameter = class
  1857.     class function Create: _Parameter;
  1858.     class function CreateRemote(const MachineName: string): _Parameter;
  1859.   end;
  1860.  
  1861. implementation
  1862.  
  1863. uses ComObj;
  1864. //------------------------------------------------------------------------------
  1865. class function CoConnection.Create: _Connection;
  1866. begin
  1867.   Result := CreateComObject(CLASS_Connection) as _Connection;
  1868. end;
  1869.  
  1870. class function CoConnection.CreateRemote(const MachineName: string): _Connection;
  1871. begin
  1872.   Result := CreateRemoteComObject(MachineName, CLASS_Connection) as _Connection;
  1873. end;
  1874. //------------------------------------------------------------------------------
  1875. class function CoCommand.Create: _Command;
  1876. begin
  1877.   Result := CreateComObject(CLASS_Command) as _Command;
  1878. end;
  1879.  
  1880. class function CoCommand.CreateRemote(const MachineName: string): _Command;
  1881. begin
  1882.   Result := CreateRemoteComObject(MachineName, CLASS_Command) as _Command;
  1883. end;
  1884. //------------------------------------------------------------------------------
  1885. class function CoRecordset.Create: _Recordset;
  1886. begin
  1887.   Result := CreateComObject(CLASS_Recordset) as _Recordset;
  1888. end;
  1889.  
  1890. class function CoRecordset.CreateRemote(const MachineName: string): _Recordset;
  1891. begin
  1892.   Result := CreateRemoteComObject(MachineName, CLASS_Recordset) as _Recordset;
  1893. end;
  1894. //------------------------------------------------------------------------------
  1895. class function CoParameter.Create: _Parameter;
  1896. begin
  1897.   Result := CreateComObject(CLASS_Parameter) as _Parameter;
  1898. end;
  1899.  
  1900. class function CoParameter.CreateRemote(const MachineName: string): _Parameter;
  1901. begin
  1902.   Result := CreateRemoteComObject(MachineName, CLASS_Parameter) as _Parameter;
  1903. end;
  1904. //------------------------------------------------------------------------------
  1905.  
  1906. end.
  1907.