UniDAC 8.4.1源码+官方编译

// CodeGear C++Builder // Copyright (c) 1995, 2021 by Embarcadero Technologies, Inc. // All rights reserved // (DO NOT EDIT: machine generated header) 'DBAccess.pas' rev: 34.00 (Windows) #ifndef DbaccessHPP #define DbaccessHPP #pragma delphiheader begin #pragma option push #pragma option -w- // All warnings off #pragma option -Vx // Zero-length empty class member #pragma pack(push,8) #include <System.hpp> #include <SysInit.hpp> #include <Winapi.Windows.hpp> #include <System.Win.Registry.hpp> #include <System.Classes.hpp> #include <System.Types.hpp> #include <System.SysUtils.hpp> #include <System.StrUtils.hpp> #include <System.TypInfo.hpp> #include <System.SyncObjs.hpp> #include <System.Variants.hpp> #include <Data.FmtBcd.hpp> #include <Data.SqlTimSt.hpp> #include <Data.DB.hpp> #include <CLRClasses.hpp> #include <CRXml.hpp> #include <Data.DBCommon.hpp> #include <Data.DBConsts.hpp> #include <System.Generics.Collections.hpp> #include <MemData.hpp> #include <MemUtils.hpp> #include <MemDS.hpp> #include <CRTypes.hpp> #include <CRAccess.hpp> #include <CRParser.hpp> #include <CRVio.hpp> #include <CRDataTypeMap.hpp> #include <CREncryption.hpp> #include <CRConnectionString.hpp> #include <CRServerEnumerator.hpp> #include <CRConnectionPool.hpp> #include <DASQLGenerator.hpp> #include <DAConsts.hpp> #include <System.Generics.Defaults.hpp> //-- user supplied ----------------------------------------------------------- namespace Dbaccess { //-- forward type declarations ----------------------------------------------- class DELPHICLASS EDAError; class DELPHICLASS TFieldTypeInfo; class DELPHICLASS TFieldTypeInfos; class DELPHICLASS TDAFieldTypeMap; struct TFailOverOperation; class DELPHICLASS TDAConnectionOptions; class DELPHICLASS TPoolingOptions; class DELPHICLASS TDAConnectionSSLOptions; class DELPHICLASS TDAMapRule; class DELPHICLASS TDAMapRules; class DELPHICLASS TDAConnectionMapRules; class DELPHICLASS TDADataSetMapRules; class DELPHICLASS TCustomDAConnection; class DELPHICLASS TDAConnections; class DELPHICLASS TDATransactions; class DELPHICLASS TDATransaction; class DELPHICLASS TDAParamValue; class DELPHICLASS TDAParam; class DELPHICLASS TDAParams; class DELPHICLASS TDACursorField; class DELPHICLASS TDADataSetUpdater; class DELPHICLASS TDADataSetService; class DELPHICLASS TDASQLGeneratorService; struct TQuickOpenInfo; class DELPHICLASS TDACondition; class DELPHICLASS TDAConditions; class DELPHICLASS TDAEncryption; class DELPHICLASS TDADataSetOptions; class DELPHICLASS TSmartFetchOptions; class DELPHICLASS TCustomDADataSet; class DELPHICLASS TCustomDASQL; class DELPHICLASS TDAMetaData; class DELPHICLASS TCustomDAUpdateSQL; class DELPHICLASS TMacro; class DELPHICLASS TMacros; class DELPHICLASS TConnectDialogOption; class DELPHICLASS TCustomConnectDialog; struct TTableInfo; class DELPHICLASS TCRDataSource; class DELPHICLASS TDBAccessUtils; //-- type declarations ------------------------------------------------------- enum DECLSPEC_DENUM TCheckMode : unsigned char { cmNone, cmException, cmRefresh }; typedef System::TMetaClass* TDAFieldTypeMapClass; typedef System::TMetaClass* TCustomDASQLClass; typedef System::TMetaClass* TCustomDADataSetClass; typedef System::TMetaClass* TDADataSetServiceClass; typedef System::TMetaClass* TDADataSetUpdaterClass; typedef System::TMetaClass* TConnectDialogClass; #pragma pack(push,4) class PASCALIMPLEMENTATION EDAError : public Data::Db::EDatabaseError { typedef Data::Db::EDatabaseError inherited; protected: int FErrorCode; System::TObject* FComponent; public: __fastcall EDAError(int ErrorCode, const System::UnicodeString Msg); virtual bool __fastcall IsFatalError(); virtual bool __fastcall IsKeyViolation(); __property int ErrorCode = {read=FErrorCode, nodefault}; __property System::TObject* Component = {read=FComponent, write=FComponent}; public: /* Exception.CreateFmt */ inline __fastcall EDAError(const System::UnicodeString Msg, const System::TVarRec *Args, const int Args_High) : Data::Db::EDatabaseError(Msg, Args, Args_High) { } /* Exception.CreateRes */ inline __fastcall EDAError(NativeUInt Ident)/* overload */ : Data::Db::EDatabaseError(Ident) { } /* Exception.CreateRes */ inline __fastcall EDAError(System::PResStringRec ResStringRec)/* overload */ : Data::Db::EDatabaseError(ResStringRec) { } /* Exception.CreateResFmt */ inline __fastcall EDAError(NativeUInt Ident, const System::TVarRec *Args, const int Args_High)/* overload */ : Data::Db::EDatabaseError(Ident, Args, Args_High) { } /* Exception.CreateResFmt */ inline __fastcall EDAError(System::PResStringRec ResStringRec, const System::TVarRec *Args, const int Args_High)/* overload */ : Data::Db::EDatabaseError(ResStringRec, Args, Args_High) { } /* Exception.CreateHelp */ inline __fastcall EDAError(const System::UnicodeString Msg, int AHelpContext) : Data::Db::EDatabaseError(Msg, AHelpContext) { } /* Exception.CreateFmtHelp */ inline __fastcall EDAError(const System::UnicodeString Msg, const System::TVarRec *Args, const int Args_High, int AHelpContext) : Data::Db::EDatabaseError(Msg, Args, Args_High, AHelpContext) { } /* Exception.CreateResHelp */ inline __fastcall EDAError(NativeUInt Ident, int AHelpContext)/* overload */ : Data::Db::EDatabaseError(Ident, AHelpContext) { } /* Exception.CreateResHelp */ inline __fastcall EDAError(System::PResStringRec ResStringRec, int AHelpContext)/* overload */ : Data::Db::EDatabaseError(ResStringRec, AHelpContext) { } /* Exception.CreateResFmtHelp */ inline __fastcall EDAError(System::PResStringRec ResStringRec, const System::TVarRec *Args, const int Args_High, int AHelpContext)/* overload */ : Data::Db::EDatabaseError(ResStringRec, Args, Args_High, AHelpContext) { } /* Exception.CreateResFmtHelp */ inline __fastcall EDAError(NativeUInt Ident, const System::TVarRec *Args, const int Args_High, int AHelpContext)/* overload */ : Data::Db::EDatabaseError(Ident, Args, Args_High, AHelpContext) { } /* Exception.Destroy */ inline __fastcall virtual ~EDAError() { } }; #pragma pack(pop) #pragma pack(push,4) class PASCALIMPLEMENTATION TFieldTypeInfo : public System::TObject { typedef System::TObject inherited; private: Data::Db::TFieldType FFieldType; System::UnicodeString FName; bool FLength; bool FScale; public: __fastcall TFieldTypeInfo(Data::Db::TFieldType FieldType, const System::UnicodeString Name, bool Length, bool Scale); __property Data::Db::TFieldType FieldType = {read=FFieldType, nodefault}; __property System::UnicodeString Name = {read=FName}; __property bool Length = {read=FLength, nodefault}; __property bool Scale = {read=FScale, nodefault}; public: /* TObject.Destroy */ inline __fastcall virtual ~TFieldTypeInfo() { } }; #pragma pack(pop) #pragma pack(push,4) class PASCALIMPLEMENTATION TFieldTypeInfos : public System::TObject { typedef System::TObject inherited; private: Crtypes::TCRObjectList* FTypeInfos; int __fastcall GetCount(); TFieldTypeInfo* __fastcall GetTypeInfo(int Index); public: __fastcall TFieldTypeInfos(); __fastcall virtual ~TFieldTypeInfos(); void __fastcall Add(Data::Db::TFieldType FieldType, const System::UnicodeString Name, bool Length, bool Scale); void __fastcall Delete(int Index); void __fastcall Clear(); System::Sysutils::Exception* __fastcall Check(Data::Db::TFieldType FieldType, int Length, int Scale); TFieldTypeInfo* __fastcall FindTypeInfo(Data::Db::TFieldType FieldType)/* overload */; TFieldTypeInfo* __fastcall FindTypeInfo(const System::UnicodeString Name)/* overload */; __property TFieldTypeInfo* TypeInfos[int Index] = {read=GetTypeInfo}; __property int Count = {read=GetCount, nodefault}; }; #pragma pack(pop) #pragma pack(push,4) class PASCALIMPLEMENTATION TDAFieldTypeMap : public Memds::TFieldTypeMap { typedef Memds::TFieldTy