Why Gemfury?
Push, build, and install
RubyGems
npm packages
Python packages
Maven artifacts
PHP packages
Go Modules
Debian packages
RPM packages
NuGet packages
Repository URL to install this package:
|
Version:
3.2.0 ▾
|
unit googlebigquery;
{$MODE objfpc}
{$H+}
interface
uses sysutils, classes, googleservice, restbase, googlebase;
type
//Top-level schema types
TJsonValue = TJSONSchema;
TBigtableColumn = Class;
TBigtableColumnFamily = Class;
TBigtableOptions = Class;
TCsvOptions = Class;
TDataset = Class;
TDatasetList = Class;
TDatasetReference = Class;
TErrorProto = Class;
TExplainQueryStage = Class;
TExplainQueryStep = Class;
TExternalDataConfiguration = Class;
TGetQueryResultsResponse = Class;
TGoogleSheetsOptions = Class;
TJob = Class;
TJobCancelResponse = Class;
TJobConfiguration = Class;
TJobConfigurationExtract = Class;
TJobConfigurationLoad = Class;
TJobConfigurationQuery = Class;
TJobConfigurationTableCopy = Class;
TJobList = Class;
TJobReference = Class;
TJobStatistics = Class;
TJobStatistics2 = Class;
TJobStatistics3 = Class;
TJobStatistics4 = Class;
TJobStatus = Class;
TJsonObject = Class;
TProjectList = Class;
TProjectReference = Class;
TQueryRequest = Class;
TQueryResponse = Class;
TStreamingbuffer = Class;
TTable = Class;
TTableCell = Class;
TTableDataInsertAllRequest = Class;
TTableDataInsertAllResponse = Class;
TTableDataList = Class;
TTableFieldSchema = Class;
TTableList = Class;
TTableReference = Class;
TTableRow = Class;
TTableSchema = Class;
TTimePartitioning = Class;
TUserDefinedFunctionResource = Class;
TViewDefinition = Class;
TBigtableColumnArray = Array of TBigtableColumn;
TBigtableColumnFamilyArray = Array of TBigtableColumnFamily;
TBigtableOptionsArray = Array of TBigtableOptions;
TCsvOptionsArray = Array of TCsvOptions;
TDatasetArray = Array of TDataset;
TDatasetListArray = Array of TDatasetList;
TDatasetReferenceArray = Array of TDatasetReference;
TErrorProtoArray = Array of TErrorProto;
TExplainQueryStageArray = Array of TExplainQueryStage;
TExplainQueryStepArray = Array of TExplainQueryStep;
TExternalDataConfigurationArray = Array of TExternalDataConfiguration;
TGetQueryResultsResponseArray = Array of TGetQueryResultsResponse;
TGoogleSheetsOptionsArray = Array of TGoogleSheetsOptions;
TJobArray = Array of TJob;
TJobCancelResponseArray = Array of TJobCancelResponse;
TJobConfigurationArray = Array of TJobConfiguration;
TJobConfigurationExtractArray = Array of TJobConfigurationExtract;
TJobConfigurationLoadArray = Array of TJobConfigurationLoad;
TJobConfigurationQueryArray = Array of TJobConfigurationQuery;
TJobConfigurationTableCopyArray = Array of TJobConfigurationTableCopy;
TJobListArray = Array of TJobList;
TJobReferenceArray = Array of TJobReference;
TJobStatisticsArray = Array of TJobStatistics;
TJobStatistics2Array = Array of TJobStatistics2;
TJobStatistics3Array = Array of TJobStatistics3;
TJobStatistics4Array = Array of TJobStatistics4;
TJobStatusArray = Array of TJobStatus;
TJsonObjectArray = Array of TJsonObject;
TProjectListArray = Array of TProjectList;
TProjectReferenceArray = Array of TProjectReference;
TQueryRequestArray = Array of TQueryRequest;
TQueryResponseArray = Array of TQueryResponse;
TStreamingbufferArray = Array of TStreamingbuffer;
TTableArray = Array of TTable;
TTableCellArray = Array of TTableCell;
TTableDataInsertAllRequestArray = Array of TTableDataInsertAllRequest;
TTableDataInsertAllResponseArray = Array of TTableDataInsertAllResponse;
TTableDataListArray = Array of TTableDataList;
TTableFieldSchemaArray = Array of TTableFieldSchema;
TTableListArray = Array of TTableList;
TTableReferenceArray = Array of TTableReference;
TTableRowArray = Array of TTableRow;
TTableSchemaArray = Array of TTableSchema;
TTimePartitioningArray = Array of TTimePartitioning;
TUserDefinedFunctionResourceArray = Array of TUserDefinedFunctionResource;
TViewDefinitionArray = Array of TViewDefinition;
//Anonymous types, using auto-generated names
TDatasetTypeaccessItem = Class;
TDatasetListTypedatasetsItem = Class;
TJobConfigurationQueryTypetableDefinitions = Class;
TJobListTypejobsItem = Class;
TProjectListTypeprojectsItem = Class;
TTableDataInsertAllRequestTyperowsItem = Class;
TTableDataInsertAllResponseTypeinsertErrorsItem = Class;
TTableListTypetablesItem = Class;
TBigtableColumnFamilyTypecolumnsArray = Array of TBigtableColumn;
TBigtableOptionsTypecolumnFamiliesArray = Array of TBigtableColumnFamily;
TDatasetTypeaccessArray = Array of TDatasetTypeaccessItem;
TDatasetListTypedatasetsArray = Array of TDatasetListTypedatasetsItem;
TExplainQueryStageTypestepsArray = Array of TExplainQueryStep;
TGetQueryResultsResponseTypeerrorsArray = Array of TErrorProto;
TGetQueryResultsResponseTyperowsArray = Array of TTableRow;
TJobConfigurationQueryTypeuserDefinedFunctionResourcesArray = Array of TUserDefinedFunctionResource;
TJobConfigurationTableCopyTypesourceTablesArray = Array of TTableReference;
TJobListTypejobsArray = Array of TJobListTypejobsItem;
TJobStatistics2TypequeryPlanArray = Array of TExplainQueryStage;
TJobStatistics2TypereferencedTablesArray = Array of TTableReference;
TJobStatusTypeerrorsArray = Array of TErrorProto;
TProjectListTypeprojectsArray = Array of TProjectListTypeprojectsItem;
TQueryResponseTypeerrorsArray = Array of TErrorProto;
TQueryResponseTyperowsArray = Array of TTableRow;
TTableDataInsertAllRequestTyperowsArray = Array of TTableDataInsertAllRequestTyperowsItem;
TTableDataInsertAllResponseTypeinsertErrorsItemTypeerrorsArray = Array of TErrorProto;
TTableDataInsertAllResponseTypeinsertErrorsArray = Array of TTableDataInsertAllResponseTypeinsertErrorsItem;
TTableDataListTyperowsArray = Array of TTableRow;
TTableFieldSchemaTypefieldsArray = Array of TTableFieldSchema;
TTableListTypetablesArray = Array of TTableListTypetablesItem;
TTableRowTypefArray = Array of TTableCell;
TTableSchemaTypefieldsArray = Array of TTableFieldSchema;
TViewDefinitionTypeuserDefinedFunctionResourcesArray = Array of TUserDefinedFunctionResource;
{ --------------------------------------------------------------------
TBigtableColumn
--------------------------------------------------------------------}
TBigtableColumn = Class(TGoogleBaseObject)
Private
Fencoding : String;
FfieldName : String;
FonlyReadLatest : boolean;
FqualifierEncoded : String;
FqualifierString : String;
F_type : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure Setencoding(AIndex : Integer; const AValue : String); virtual;
Procedure SetfieldName(AIndex : Integer; const AValue : String); virtual;
Procedure SetonlyReadLatest(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetqualifierEncoded(AIndex : Integer; const AValue : String); virtual;
Procedure SetqualifierString(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property encoding : String Index 0 Read Fencoding Write Setencoding;
Property fieldName : String Index 8 Read FfieldName Write SetfieldName;
Property onlyReadLatest : boolean Index 16 Read FonlyReadLatest Write SetonlyReadLatest;
Property qualifierEncoded : String Index 24 Read FqualifierEncoded Write SetqualifierEncoded;
Property qualifierString : String Index 32 Read FqualifierString Write SetqualifierString;
Property _type : String Index 40 Read F_type Write Set_type;
end;
TBigtableColumnClass = Class of TBigtableColumn;
{ --------------------------------------------------------------------
TBigtableColumnFamily
--------------------------------------------------------------------}
TBigtableColumnFamily = Class(TGoogleBaseObject)
Private
Fcolumns : TBigtableColumnFamilyTypecolumnsArray;
Fencoding : String;
FfamilyId : String;
FonlyReadLatest : boolean;
F_type : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure Setcolumns(AIndex : Integer; const AValue : TBigtableColumnFamilyTypecolumnsArray); virtual;
Procedure Setencoding(AIndex : Integer; const AValue : String); virtual;
Procedure SetfamilyId(AIndex : Integer; const AValue : String); virtual;
Procedure SetonlyReadLatest(AIndex : Integer; const AValue : boolean); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property columns : TBigtableColumnFamilyTypecolumnsArray Index 0 Read Fcolumns Write Setcolumns;
Property encoding : String Index 8 Read Fencoding Write Setencoding;
Property familyId : String Index 16 Read FfamilyId Write SetfamilyId;
Property onlyReadLatest : boolean Index 24 Read FonlyReadLatest Write SetonlyReadLatest;
Property _type : String Index 32 Read F_type Write Set_type;
end;
TBigtableColumnFamilyClass = Class of TBigtableColumnFamily;
{ --------------------------------------------------------------------
TBigtableOptions
--------------------------------------------------------------------}
TBigtableOptions = Class(TGoogleBaseObject)
Private
FcolumnFamilies : TBigtableOptionsTypecolumnFamiliesArray;
FignoreUnspecifiedColumnFamilies : boolean;
Protected
//Property setters
Procedure SetcolumnFamilies(AIndex : Integer; const AValue : TBigtableOptionsTypecolumnFamiliesArray); virtual;
Procedure SetignoreUnspecifiedColumnFamilies(AIndex : Integer; const AValue : boolean); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property columnFamilies : TBigtableOptionsTypecolumnFamiliesArray Index 0 Read FcolumnFamilies Write SetcolumnFamilies;
Property ignoreUnspecifiedColumnFamilies : boolean Index 8 Read FignoreUnspecifiedColumnFamilies Write SetignoreUnspecifiedColumnFamilies;
end;
TBigtableOptionsClass = Class of TBigtableOptions;
{ --------------------------------------------------------------------
TCsvOptions
--------------------------------------------------------------------}
TCsvOptions = Class(TGoogleBaseObject)
Private
FallowJaggedRows : boolean;
FallowQuotedNewlines : boolean;
Fencoding : String;
FfieldDelimiter : String;
Fquote : String;
FskipLeadingRows : String;
Protected
//Property setters
Procedure SetallowJaggedRows(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetallowQuotedNewlines(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setencoding(AIndex : Integer; const AValue : String); virtual;
Procedure SetfieldDelimiter(AIndex : Integer; const AValue : String); virtual;
Procedure Setquote(AIndex : Integer; const AValue : String); virtual;
Procedure SetskipLeadingRows(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property allowJaggedRows : boolean Index 0 Read FallowJaggedRows Write SetallowJaggedRows;
Property allowQuotedNewlines : boolean Index 8 Read FallowQuotedNewlines Write SetallowQuotedNewlines;
Property encoding : String Index 16 Read Fencoding Write Setencoding;
Property fieldDelimiter : String Index 24 Read FfieldDelimiter Write SetfieldDelimiter;
Property quote : String Index 32 Read Fquote Write Setquote;
Property skipLeadingRows : String Index 40 Read FskipLeadingRows Write SetskipLeadingRows;
end;
TCsvOptionsClass = Class of TCsvOptions;
{ --------------------------------------------------------------------
TDatasetTypeaccessItem
--------------------------------------------------------------------}
TDatasetTypeaccessItem = Class(TGoogleBaseObject)
Private
Fdomain : String;
FgroupByEmail : String;
Frole : String;
FspecialGroup : String;
FuserByEmail : String;
Fview : TTableReference;
Protected
//Property setters
Procedure Setdomain(AIndex : Integer; const AValue : String); virtual;
Procedure SetgroupByEmail(AIndex : Integer; const AValue : String); virtual;
Procedure Setrole(AIndex : Integer; const AValue : String); virtual;
Procedure SetspecialGroup(AIndex : Integer; const AValue : String); virtual;
Procedure SetuserByEmail(AIndex : Integer; const AValue : String); virtual;
Procedure Setview(AIndex : Integer; const AValue : TTableReference); virtual;
Public
Published
Property domain : String Index 0 Read Fdomain Write Setdomain;
Property groupByEmail : String Index 8 Read FgroupByEmail Write SetgroupByEmail;
Property role : String Index 16 Read Frole Write Setrole;
Property specialGroup : String Index 24 Read FspecialGroup Write SetspecialGroup;
Property userByEmail : String Index 32 Read FuserByEmail Write SetuserByEmail;
Property view : TTableReference Index 40 Read Fview Write Setview;
end;
TDatasetTypeaccessItemClass = Class of TDatasetTypeaccessItem;
{ --------------------------------------------------------------------
TDataset
--------------------------------------------------------------------}
TDataset = Class(TGoogleBaseObject)
Private
Faccess : TDatasetTypeaccessArray;
FcreationTime : String;
FdatasetReference : TDatasetReference;
FdefaultTableExpirationMs : String;
Fdescription : String;
Fetag : String;
FfriendlyName : String;
Fid : String;
Fkind : String;
FlastModifiedTime : String;
Flocation : String;
FselfLink : String;
Protected
//Property setters
Procedure Setaccess(AIndex : Integer; const AValue : TDatasetTypeaccessArray); virtual;
Procedure SetcreationTime(AIndex : Integer; const AValue : String); virtual;
Procedure SetdatasetReference(AIndex : Integer; const AValue : TDatasetReference); virtual;
Procedure SetdefaultTableExpirationMs(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SetfriendlyName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetlastModifiedTime(AIndex : Integer; const AValue : String); virtual;
Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property access : TDatasetTypeaccessArray Index 0 Read Faccess Write Setaccess;
Property creationTime : String Index 8 Read FcreationTime Write SetcreationTime;
Property datasetReference : TDatasetReference Index 16 Read FdatasetReference Write SetdatasetReference;
Property defaultTableExpirationMs : String Index 24 Read FdefaultTableExpirationMs Write SetdefaultTableExpirationMs;
Property description : String Index 32 Read Fdescription Write Setdescription;
Property etag : String Index 40 Read Fetag Write Setetag;
Property friendlyName : String Index 48 Read FfriendlyName Write SetfriendlyName;
Property id : String Index 56 Read Fid Write Setid;
Property kind : String Index 64 Read Fkind Write Setkind;
Property lastModifiedTime : String Index 72 Read FlastModifiedTime Write SetlastModifiedTime;
Property location : String Index 80 Read Flocation Write Setlocation;
Property selfLink : String Index 88 Read FselfLink Write SetselfLink;
end;
TDatasetClass = Class of TDataset;
{ --------------------------------------------------------------------
TDatasetListTypedatasetsItem
--------------------------------------------------------------------}
TDatasetListTypedatasetsItem = Class(TGoogleBaseObject)
Private
FdatasetReference : TDatasetReference;
FfriendlyName : String;
Fid : String;
Fkind : String;
Protected
//Property setters
Procedure SetdatasetReference(AIndex : Integer; const AValue : TDatasetReference); virtual;
Procedure SetfriendlyName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property datasetReference : TDatasetReference Index 0 Read FdatasetReference Write SetdatasetReference;
Property friendlyName : String Index 8 Read FfriendlyName Write SetfriendlyName;
Property id : String Index 16 Read Fid Write Setid;
Property kind : String Index 24 Read Fkind Write Setkind;
end;
TDatasetListTypedatasetsItemClass = Class of TDatasetListTypedatasetsItem;
{ --------------------------------------------------------------------
TDatasetList
--------------------------------------------------------------------}
TDatasetList = Class(TGoogleBaseObject)
Private
Fdatasets : TDatasetListTypedatasetsArray;
Fetag : String;
Fkind : String;
FnextPageToken : String;
Protected
//Property setters
Procedure Setdatasets(AIndex : Integer; const AValue : TDatasetListTypedatasetsArray); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property datasets : TDatasetListTypedatasetsArray Index 0 Read Fdatasets Write Setdatasets;
Property etag : String Index 8 Read Fetag Write Setetag;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
end;
TDatasetListClass = Class of TDatasetList;
{ --------------------------------------------------------------------
TDatasetReference
--------------------------------------------------------------------}
TDatasetReference = Class(TGoogleBaseObject)
Private
FdatasetId : String;
FprojectId : String;
Protected
//Property setters
Procedure SetdatasetId(AIndex : Integer; const AValue : String); virtual;
Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property datasetId : String Index 0 Read FdatasetId Write SetdatasetId;
Property projectId : String Index 8 Read FprojectId Write SetprojectId;
end;
TDatasetReferenceClass = Class of TDatasetReference;
{ --------------------------------------------------------------------
TErrorProto
--------------------------------------------------------------------}
TErrorProto = Class(TGoogleBaseObject)
Private
FdebugInfo : String;
Flocation : String;
Fmessage : String;
Freason : String;
Protected
//Property setters
Procedure SetdebugInfo(AIndex : Integer; const AValue : String); virtual;
Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
Procedure Setreason(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property debugInfo : String Index 0 Read FdebugInfo Write SetdebugInfo;
Property location : String Index 8 Read Flocation Write Setlocation;
Property message : String Index 16 Read Fmessage Write Setmessage;
Property reason : String Index 24 Read Freason Write Setreason;
end;
TErrorProtoClass = Class of TErrorProto;
{ --------------------------------------------------------------------
TExplainQueryStage
--------------------------------------------------------------------}
TExplainQueryStage = Class(TGoogleBaseObject)
Private
FcomputeRatioAvg : double;
FcomputeRatioMax : double;
Fid : String;
Fname : String;
FreadRatioAvg : double;
FreadRatioMax : double;
FrecordsRead : String;
FrecordsWritten : String;
Fsteps : TExplainQueryStageTypestepsArray;
FwaitRatioAvg : double;
FwaitRatioMax : double;
FwriteRatioAvg : double;
FwriteRatioMax : double;
Protected
//Property setters
Procedure SetcomputeRatioAvg(AIndex : Integer; const AValue : double); virtual;
Procedure SetcomputeRatioMax(AIndex : Integer; const AValue : double); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetreadRatioAvg(AIndex : Integer; const AValue : double); virtual;
Procedure SetreadRatioMax(AIndex : Integer; const AValue : double); virtual;
Procedure SetrecordsRead(AIndex : Integer; const AValue : String); virtual;
Procedure SetrecordsWritten(AIndex : Integer; const AValue : String); virtual;
Procedure Setsteps(AIndex : Integer; const AValue : TExplainQueryStageTypestepsArray); virtual;
Procedure SetwaitRatioAvg(AIndex : Integer; const AValue : double); virtual;
Procedure SetwaitRatioMax(AIndex : Integer; const AValue : double); virtual;
Procedure SetwriteRatioAvg(AIndex : Integer; const AValue : double); virtual;
Procedure SetwriteRatioMax(AIndex : Integer; const AValue : double); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property computeRatioAvg : double Index 0 Read FcomputeRatioAvg Write SetcomputeRatioAvg;
Property computeRatioMax : double Index 8 Read FcomputeRatioMax Write SetcomputeRatioMax;
Property id : String Index 16 Read Fid Write Setid;
Property name : String Index 24 Read Fname Write Setname;
Property readRatioAvg : double Index 32 Read FreadRatioAvg Write SetreadRatioAvg;
Property readRatioMax : double Index 40 Read FreadRatioMax Write SetreadRatioMax;
Property recordsRead : String Index 48 Read FrecordsRead Write SetrecordsRead;
Property recordsWritten : String Index 56 Read FrecordsWritten Write SetrecordsWritten;
Property steps : TExplainQueryStageTypestepsArray Index 64 Read Fsteps Write Setsteps;
Property waitRatioAvg : double Index 72 Read FwaitRatioAvg Write SetwaitRatioAvg;
Property waitRatioMax : double Index 80 Read FwaitRatioMax Write SetwaitRatioMax;
Property writeRatioAvg : double Index 88 Read FwriteRatioAvg Write SetwriteRatioAvg;
Property writeRatioMax : double Index 96 Read FwriteRatioMax Write SetwriteRatioMax;
end;
TExplainQueryStageClass = Class of TExplainQueryStage;
{ --------------------------------------------------------------------
TExplainQueryStep
--------------------------------------------------------------------}
TExplainQueryStep = Class(TGoogleBaseObject)
Private
Fkind : String;
Fsubsteps : TStringArray;
Protected
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setsubsteps(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property kind : String Index 0 Read Fkind Write Setkind;
Property substeps : TStringArray Index 8 Read Fsubsteps Write Setsubsteps;
end;
TExplainQueryStepClass = Class of TExplainQueryStep;
{ --------------------------------------------------------------------
TExternalDataConfiguration
--------------------------------------------------------------------}
TExternalDataConfiguration = Class(TGoogleBaseObject)
Private
Fautodetect : boolean;
FbigtableOptions : TBigtableOptions;
Fcompression : String;
FcsvOptions : TCsvOptions;
FgoogleSheetsOptions : TGoogleSheetsOptions;
FignoreUnknownValues : boolean;
FmaxBadRecords : integer;
Fschema : TTableSchema;
FsourceFormat : String;
FsourceUris : TStringArray;
Protected
//Property setters
Procedure Setautodetect(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetbigtableOptions(AIndex : Integer; const AValue : TBigtableOptions); virtual;
Procedure Setcompression(AIndex : Integer; const AValue : String); virtual;
Procedure SetcsvOptions(AIndex : Integer; const AValue : TCsvOptions); virtual;
Procedure SetgoogleSheetsOptions(AIndex : Integer; const AValue : TGoogleSheetsOptions); virtual;
Procedure SetignoreUnknownValues(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetmaxBadRecords(AIndex : Integer; const AValue : integer); virtual;
Procedure Setschema(AIndex : Integer; const AValue : TTableSchema); virtual;
Procedure SetsourceFormat(AIndex : Integer; const AValue : String); virtual;
Procedure SetsourceUris(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property autodetect : boolean Index 0 Read Fautodetect Write Setautodetect;
Property bigtableOptions : TBigtableOptions Index 8 Read FbigtableOptions Write SetbigtableOptions;
Property compression : String Index 16 Read Fcompression Write Setcompression;
Property csvOptions : TCsvOptions Index 24 Read FcsvOptions Write SetcsvOptions;
Property googleSheetsOptions : TGoogleSheetsOptions Index 32 Read FgoogleSheetsOptions Write SetgoogleSheetsOptions;
Property ignoreUnknownValues : boolean Index 40 Read FignoreUnknownValues Write SetignoreUnknownValues;
Property maxBadRecords : integer Index 48 Read FmaxBadRecords Write SetmaxBadRecords;
Property schema : TTableSchema Index 56 Read Fschema Write Setschema;
Property sourceFormat : String Index 64 Read FsourceFormat Write SetsourceFormat;
Property sourceUris : TStringArray Index 72 Read FsourceUris Write SetsourceUris;
end;
TExternalDataConfigurationClass = Class of TExternalDataConfiguration;
{ --------------------------------------------------------------------
TGetQueryResultsResponse
--------------------------------------------------------------------}
TGetQueryResultsResponse = Class(TGoogleBaseObject)
Private
FcacheHit : boolean;
Ferrors : TGetQueryResultsResponseTypeerrorsArray;
Fetag : String;
FjobComplete : boolean;
FjobReference : TJobReference;
Fkind : String;
FpageToken : String;
Frows : TGetQueryResultsResponseTyperowsArray;
Fschema : TTableSchema;
FtotalBytesProcessed : String;
FtotalRows : String;
Protected
//Property setters
Procedure SetcacheHit(AIndex : Integer; const AValue : boolean); virtual;
Procedure Seterrors(AIndex : Integer; const AValue : TGetQueryResultsResponseTypeerrorsArray); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SetjobComplete(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetjobReference(AIndex : Integer; const AValue : TJobReference); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetpageToken(AIndex : Integer; const AValue : String); virtual;
Procedure Setrows(AIndex : Integer; const AValue : TGetQueryResultsResponseTyperowsArray); virtual;
Procedure Setschema(AIndex : Integer; const AValue : TTableSchema); virtual;
Procedure SettotalBytesProcessed(AIndex : Integer; const AValue : String); virtual;
Procedure SettotalRows(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property cacheHit : boolean Index 0 Read FcacheHit Write SetcacheHit;
Property errors : TGetQueryResultsResponseTypeerrorsArray Index 8 Read Ferrors Write Seterrors;
Property etag : String Index 16 Read Fetag Write Setetag;
Property jobComplete : boolean Index 24 Read FjobComplete Write SetjobComplete;
Property jobReference : TJobReference Index 32 Read FjobReference Write SetjobReference;
Property kind : String Index 40 Read Fkind Write Setkind;
Property pageToken : String Index 48 Read FpageToken Write SetpageToken;
Property rows : TGetQueryResultsResponseTyperowsArray Index 56 Read Frows Write Setrows;
Property schema : TTableSchema Index 64 Read Fschema Write Setschema;
Property totalBytesProcessed : String Index 72 Read FtotalBytesProcessed Write SettotalBytesProcessed;
Property totalRows : String Index 80 Read FtotalRows Write SettotalRows;
end;
TGetQueryResultsResponseClass = Class of TGetQueryResultsResponse;
{ --------------------------------------------------------------------
TGoogleSheetsOptions
--------------------------------------------------------------------}
TGoogleSheetsOptions = Class(TGoogleBaseObject)
Private
FskipLeadingRows : String;
Protected
//Property setters
Procedure SetskipLeadingRows(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property skipLeadingRows : String Index 0 Read FskipLeadingRows Write SetskipLeadingRows;
end;
TGoogleSheetsOptionsClass = Class of TGoogleSheetsOptions;
{ --------------------------------------------------------------------
TJob
--------------------------------------------------------------------}
TJob = Class(TGoogleBaseObject)
Private
Fconfiguration : TJobConfiguration;
Fetag : String;
Fid : String;
FjobReference : TJobReference;
Fkind : String;
FselfLink : String;
Fstatistics : TJobStatistics;
Fstatus : TJobStatus;
Fuser_email : String;
Protected
//Property setters
Procedure Setconfiguration(AIndex : Integer; const AValue : TJobConfiguration); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetjobReference(AIndex : Integer; const AValue : TJobReference); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatistics(AIndex : Integer; const AValue : TJobStatistics); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : TJobStatus); virtual;
Procedure Setuser_email(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property configuration : TJobConfiguration Index 0 Read Fconfiguration Write Setconfiguration;
Property etag : String Index 8 Read Fetag Write Setetag;
Property id : String Index 16 Read Fid Write Setid;
Property jobReference : TJobReference Index 24 Read FjobReference Write SetjobReference;
Property kind : String Index 32 Read Fkind Write Setkind;
Property selfLink : String Index 40 Read FselfLink Write SetselfLink;
Property statistics : TJobStatistics Index 48 Read Fstatistics Write Setstatistics;
Property status : TJobStatus Index 56 Read Fstatus Write Setstatus;
Property user_email : String Index 64 Read Fuser_email Write Setuser_email;
end;
TJobClass = Class of TJob;
{ --------------------------------------------------------------------
TJobCancelResponse
--------------------------------------------------------------------}
TJobCancelResponse = Class(TGoogleBaseObject)
Private
Fjob : TJob;
Fkind : String;
Protected
//Property setters
Procedure Setjob(AIndex : Integer; const AValue : TJob); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property job : TJob Index 0 Read Fjob Write Setjob;
Property kind : String Index 8 Read Fkind Write Setkind;
end;
TJobCancelResponseClass = Class of TJobCancelResponse;
{ --------------------------------------------------------------------
TJobConfiguration
--------------------------------------------------------------------}
TJobConfiguration = Class(TGoogleBaseObject)
Private
Fcopy : TJobConfigurationTableCopy;
FdryRun : boolean;
Fextract : TJobConfigurationExtract;
Fload : TJobConfigurationLoad;
Fquery : TJobConfigurationQuery;
Protected
//Property setters
Procedure Setcopy(AIndex : Integer; const AValue : TJobConfigurationTableCopy); virtual;
Procedure SetdryRun(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setextract(AIndex : Integer; const AValue : TJobConfigurationExtract); virtual;
Procedure Setload(AIndex : Integer; const AValue : TJobConfigurationLoad); virtual;
Procedure Setquery(AIndex : Integer; const AValue : TJobConfigurationQuery); virtual;
Public
Published
Property copy : TJobConfigurationTableCopy Index 0 Read Fcopy Write Setcopy;
Property dryRun : boolean Index 8 Read FdryRun Write SetdryRun;
Property extract : TJobConfigurationExtract Index 16 Read Fextract Write Setextract;
Property load : TJobConfigurationLoad Index 24 Read Fload Write Setload;
Property query : TJobConfigurationQuery Index 32 Read Fquery Write Setquery;
end;
TJobConfigurationClass = Class of TJobConfiguration;
{ --------------------------------------------------------------------
TJobConfigurationExtract
--------------------------------------------------------------------}
TJobConfigurationExtract = Class(TGoogleBaseObject)
Private
Fcompression : String;
FdestinationFormat : String;
FdestinationUri : String;
FdestinationUris : TStringArray;
FfieldDelimiter : String;
FprintHeader : boolean;
FsourceTable : TTableReference;
Protected
//Property setters
Procedure Setcompression(AIndex : Integer; const AValue : String); virtual;
Procedure SetdestinationFormat(AIndex : Integer; const AValue : String); virtual;
Procedure SetdestinationUri(AIndex : Integer; const AValue : String); virtual;
Procedure SetdestinationUris(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetfieldDelimiter(AIndex : Integer; const AValue : String); virtual;
Procedure SetprintHeader(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetsourceTable(AIndex : Integer; const AValue : TTableReference); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property compression : String Index 0 Read Fcompression Write Setcompression;
Property destinationFormat : String Index 8 Read FdestinationFormat Write SetdestinationFormat;
Property destinationUri : String Index 16 Read FdestinationUri Write SetdestinationUri;
Property destinationUris : TStringArray Index 24 Read FdestinationUris Write SetdestinationUris;
Property fieldDelimiter : String Index 32 Read FfieldDelimiter Write SetfieldDelimiter;
Property printHeader : boolean Index 40 Read FprintHeader Write SetprintHeader;
Property sourceTable : TTableReference Index 48 Read FsourceTable Write SetsourceTable;
end;
TJobConfigurationExtractClass = Class of TJobConfigurationExtract;
{ --------------------------------------------------------------------
TJobConfigurationLoad
--------------------------------------------------------------------}
TJobConfigurationLoad = Class(TGoogleBaseObject)
Private
FallowJaggedRows : boolean;
FallowQuotedNewlines : boolean;
Fautodetect : boolean;
FcreateDisposition : String;
FdestinationTable : TTableReference;
Fencoding : String;
FfieldDelimiter : String;
FignoreUnknownValues : boolean;
FmaxBadRecords : integer;
FprojectionFields : TStringArray;
Fquote : String;
Fschema : TTableSchema;
FschemaInline : String;
FschemaInlineFormat : String;
FskipLeadingRows : integer;
FsourceFormat : String;
FsourceUris : TStringArray;
FwriteDisposition : String;
Protected
//Property setters
Procedure SetallowJaggedRows(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetallowQuotedNewlines(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setautodetect(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetcreateDisposition(AIndex : Integer; const AValue : String); virtual;
Procedure SetdestinationTable(AIndex : Integer; const AValue : TTableReference); virtual;
Procedure Setencoding(AIndex : Integer; const AValue : String); virtual;
Procedure SetfieldDelimiter(AIndex : Integer; const AValue : String); virtual;
Procedure SetignoreUnknownValues(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetmaxBadRecords(AIndex : Integer; const AValue : integer); virtual;
Procedure SetprojectionFields(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setquote(AIndex : Integer; const AValue : String); virtual;
Procedure Setschema(AIndex : Integer; const AValue : TTableSchema); virtual;
Procedure SetschemaInline(AIndex : Integer; const AValue : String); virtual;
Procedure SetschemaInlineFormat(AIndex : Integer; const AValue : String); virtual;
Procedure SetskipLeadingRows(AIndex : Integer; const AValue : integer); virtual;
Procedure SetsourceFormat(AIndex : Integer; const AValue : String); virtual;
Procedure SetsourceUris(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetwriteDisposition(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property allowJaggedRows : boolean Index 0 Read FallowJaggedRows Write SetallowJaggedRows;
Property allowQuotedNewlines : boolean Index 8 Read FallowQuotedNewlines Write SetallowQuotedNewlines;
Property autodetect : boolean Index 16 Read Fautodetect Write Setautodetect;
Property createDisposition : String Index 24 Read FcreateDisposition Write SetcreateDisposition;
Property destinationTable : TTableReference Index 32 Read FdestinationTable Write SetdestinationTable;
Property encoding : String Index 40 Read Fencoding Write Setencoding;
Property fieldDelimiter : String Index 48 Read FfieldDelimiter Write SetfieldDelimiter;
Property ignoreUnknownValues : boolean Index 56 Read FignoreUnknownValues Write SetignoreUnknownValues;
Property maxBadRecords : integer Index 64 Read FmaxBadRecords Write SetmaxBadRecords;
Property projectionFields : TStringArray Index 72 Read FprojectionFields Write SetprojectionFields;
Property quote : String Index 80 Read Fquote Write Setquote;
Property schema : TTableSchema Index 88 Read Fschema Write Setschema;
Property schemaInline : String Index 96 Read FschemaInline Write SetschemaInline;
Property schemaInlineFormat : String Index 104 Read FschemaInlineFormat Write SetschemaInlineFormat;
Property skipLeadingRows : integer Index 112 Read FskipLeadingRows Write SetskipLeadingRows;
Property sourceFormat : String Index 120 Read FsourceFormat Write SetsourceFormat;
Property sourceUris : TStringArray Index 128 Read FsourceUris Write SetsourceUris;
Property writeDisposition : String Index 136 Read FwriteDisposition Write SetwriteDisposition;
end;
TJobConfigurationLoadClass = Class of TJobConfigurationLoad;
{ --------------------------------------------------------------------
TJobConfigurationQueryTypetableDefinitions
--------------------------------------------------------------------}
TJobConfigurationQueryTypetableDefinitions = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TJobConfigurationQueryTypetableDefinitionsClass = Class of TJobConfigurationQueryTypetableDefinitions;
{ --------------------------------------------------------------------
TJobConfigurationQuery
--------------------------------------------------------------------}
TJobConfigurationQuery = Class(TGoogleBaseObject)
Private
FallowLargeResults : boolean;
FcreateDisposition : String;
FdefaultDataset : TDatasetReference;
FdestinationTable : TTableReference;
FflattenResults : boolean;
FmaximumBillingTier : integer;
FpreserveNulls : boolean;
Fpriority : String;
Fquery : String;
FtableDefinitions : TJobConfigurationQueryTypetableDefinitions;
FuseLegacySql : boolean;
FuseQueryCache : boolean;
FuserDefinedFunctionResources : TJobConfigurationQueryTypeuserDefinedFunctionResourcesArray;
FwriteDisposition : String;
Protected
//Property setters
Procedure SetallowLargeResults(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetcreateDisposition(AIndex : Integer; const AValue : String); virtual;
Procedure SetdefaultDataset(AIndex : Integer; const AValue : TDatasetReference); virtual;
Procedure SetdestinationTable(AIndex : Integer; const AValue : TTableReference); virtual;
Procedure SetflattenResults(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetmaximumBillingTier(AIndex : Integer; const AValue : integer); virtual;
Procedure SetpreserveNulls(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setpriority(AIndex : Integer; const AValue : String); virtual;
Procedure Setquery(AIndex : Integer; const AValue : String); virtual;
Procedure SettableDefinitions(AIndex : Integer; const AValue : TJobConfigurationQueryTypetableDefinitions); virtual;
Procedure SetuseLegacySql(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetuseQueryCache(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetuserDefinedFunctionResources(AIndex : Integer; const AValue : TJobConfigurationQueryTypeuserDefinedFunctionResourcesArray); virtual;
Procedure SetwriteDisposition(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property allowLargeResults : boolean Index 0 Read FallowLargeResults Write SetallowLargeResults;
Property createDisposition : String Index 8 Read FcreateDisposition Write SetcreateDisposition;
Property defaultDataset : TDatasetReference Index 16 Read FdefaultDataset Write SetdefaultDataset;
Property destinationTable : TTableReference Index 24 Read FdestinationTable Write SetdestinationTable;
Property flattenResults : boolean Index 32 Read FflattenResults Write SetflattenResults;
Property maximumBillingTier : integer Index 40 Read FmaximumBillingTier Write SetmaximumBillingTier;
Property preserveNulls : boolean Index 48 Read FpreserveNulls Write SetpreserveNulls;
Property priority : String Index 56 Read Fpriority Write Setpriority;
Property query : String Index 64 Read Fquery Write Setquery;
Property tableDefinitions : TJobConfigurationQueryTypetableDefinitions Index 72 Read FtableDefinitions Write SettableDefinitions;
Property useLegacySql : boolean Index 80 Read FuseLegacySql Write SetuseLegacySql;
Property useQueryCache : boolean Index 88 Read FuseQueryCache Write SetuseQueryCache;
Property userDefinedFunctionResources : TJobConfigurationQueryTypeuserDefinedFunctionResourcesArray Index 96 Read FuserDefinedFunctionResources Write SetuserDefinedFunctionResources;
Property writeDisposition : String Index 104 Read FwriteDisposition Write SetwriteDisposition;
end;
TJobConfigurationQueryClass = Class of TJobConfigurationQuery;
{ --------------------------------------------------------------------
TJobConfigurationTableCopy
--------------------------------------------------------------------}
TJobConfigurationTableCopy = Class(TGoogleBaseObject)
Private
FcreateDisposition : String;
FdestinationTable : TTableReference;
FsourceTable : TTableReference;
FsourceTables : TJobConfigurationTableCopyTypesourceTablesArray;
FwriteDisposition : String;
Protected
//Property setters
Procedure SetcreateDisposition(AIndex : Integer; const AValue : String); virtual;
Procedure SetdestinationTable(AIndex : Integer; const AValue : TTableReference); virtual;
Procedure SetsourceTable(AIndex : Integer; const AValue : TTableReference); virtual;
Procedure SetsourceTables(AIndex : Integer; const AValue : TJobConfigurationTableCopyTypesourceTablesArray); virtual;
Procedure SetwriteDisposition(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property createDisposition : String Index 0 Read FcreateDisposition Write SetcreateDisposition;
Property destinationTable : TTableReference Index 8 Read FdestinationTable Write SetdestinationTable;
Property sourceTable : TTableReference Index 16 Read FsourceTable Write SetsourceTable;
Property sourceTables : TJobConfigurationTableCopyTypesourceTablesArray Index 24 Read FsourceTables Write SetsourceTables;
Property writeDisposition : String Index 32 Read FwriteDisposition Write SetwriteDisposition;
end;
TJobConfigurationTableCopyClass = Class of TJobConfigurationTableCopy;
{ --------------------------------------------------------------------
TJobListTypejobsItem
--------------------------------------------------------------------}
TJobListTypejobsItem = Class(TGoogleBaseObject)
Private
Fconfiguration : TJobConfiguration;
FerrorResult : TErrorProto;
Fid : String;
FjobReference : TJobReference;
Fkind : String;
Fstate : String;
Fstatistics : TJobStatistics;
Fstatus : TJobStatus;
Fuser_email : String;
Protected
//Property setters
Procedure Setconfiguration(AIndex : Integer; const AValue : TJobConfiguration); virtual;
Procedure SeterrorResult(AIndex : Integer; const AValue : TErrorProto); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetjobReference(AIndex : Integer; const AValue : TJobReference); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatistics(AIndex : Integer; const AValue : TJobStatistics); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : TJobStatus); virtual;
Procedure Setuser_email(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property configuration : TJobConfiguration Index 0 Read Fconfiguration Write Setconfiguration;
Property errorResult : TErrorProto Index 8 Read FerrorResult Write SeterrorResult;
Property id : String Index 16 Read Fid Write Setid;
Property jobReference : TJobReference Index 24 Read FjobReference Write SetjobReference;
Property kind : String Index 32 Read Fkind Write Setkind;
Property state : String Index 40 Read Fstate Write Setstate;
Property statistics : TJobStatistics Index 48 Read Fstatistics Write Setstatistics;
Property status : TJobStatus Index 56 Read Fstatus Write Setstatus;
Property user_email : String Index 64 Read Fuser_email Write Setuser_email;
end;
TJobListTypejobsItemClass = Class of TJobListTypejobsItem;
{ --------------------------------------------------------------------
TJobList
--------------------------------------------------------------------}
TJobList = Class(TGoogleBaseObject)
Private
Fetag : String;
Fjobs : TJobListTypejobsArray;
Fkind : String;
FnextPageToken : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setjobs(AIndex : Integer; const AValue : TJobListTypejobsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property jobs : TJobListTypejobsArray Index 8 Read Fjobs Write Setjobs;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
end;
TJobListClass = Class of TJobList;
{ --------------------------------------------------------------------
TJobReference
--------------------------------------------------------------------}
TJobReference = Class(TGoogleBaseObject)
Private
FjobId : String;
FprojectId : String;
Protected
//Property setters
Procedure SetjobId(AIndex : Integer; const AValue : String); virtual;
Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property jobId : String Index 0 Read FjobId Write SetjobId;
Property projectId : String Index 8 Read FprojectId Write SetprojectId;
end;
TJobReferenceClass = Class of TJobReference;
{ --------------------------------------------------------------------
TJobStatistics
--------------------------------------------------------------------}
TJobStatistics = Class(TGoogleBaseObject)
Private
FcreationTime : String;
FendTime : String;
Fextract : TJobStatistics4;
Fload : TJobStatistics3;
Fquery : TJobStatistics2;
FstartTime : String;
FtotalBytesProcessed : String;
Protected
//Property setters
Procedure SetcreationTime(AIndex : Integer; const AValue : String); virtual;
Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
Procedure Setextract(AIndex : Integer; const AValue : TJobStatistics4); virtual;
Procedure Setload(AIndex : Integer; const AValue : TJobStatistics3); virtual;
Procedure Setquery(AIndex : Integer; const AValue : TJobStatistics2); virtual;
Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
Procedure SettotalBytesProcessed(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property creationTime : String Index 0 Read FcreationTime Write SetcreationTime;
Property endTime : String Index 8 Read FendTime Write SetendTime;
Property extract : TJobStatistics4 Index 16 Read Fextract Write Setextract;
Property load : TJobStatistics3 Index 24 Read Fload Write Setload;
Property query : TJobStatistics2 Index 32 Read Fquery Write Setquery;
Property startTime : String Index 40 Read FstartTime Write SetstartTime;
Property totalBytesProcessed : String Index 48 Read FtotalBytesProcessed Write SettotalBytesProcessed;
end;
TJobStatisticsClass = Class of TJobStatistics;
{ --------------------------------------------------------------------
TJobStatistics2
--------------------------------------------------------------------}
TJobStatistics2 = Class(TGoogleBaseObject)
Private
FbillingTier : integer;
FcacheHit : boolean;
FqueryPlan : TJobStatistics2TypequeryPlanArray;
FreferencedTables : TJobStatistics2TypereferencedTablesArray;
Fschema : TTableSchema;
FtotalBytesBilled : String;
FtotalBytesProcessed : String;
Protected
//Property setters
Procedure SetbillingTier(AIndex : Integer; const AValue : integer); virtual;
Procedure SetcacheHit(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetqueryPlan(AIndex : Integer; const AValue : TJobStatistics2TypequeryPlanArray); virtual;
Procedure SetreferencedTables(AIndex : Integer; const AValue : TJobStatistics2TypereferencedTablesArray); virtual;
Procedure Setschema(AIndex : Integer; const AValue : TTableSchema); virtual;
Procedure SettotalBytesBilled(AIndex : Integer; const AValue : String); virtual;
Procedure SettotalBytesProcessed(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property billingTier : integer Index 0 Read FbillingTier Write SetbillingTier;
Property cacheHit : boolean Index 8 Read FcacheHit Write SetcacheHit;
Property queryPlan : TJobStatistics2TypequeryPlanArray Index 16 Read FqueryPlan Write SetqueryPlan;
Property referencedTables : TJobStatistics2TypereferencedTablesArray Index 24 Read FreferencedTables Write SetreferencedTables;
Property schema : TTableSchema Index 32 Read Fschema Write Setschema;
Property totalBytesBilled : String Index 40 Read FtotalBytesBilled Write SettotalBytesBilled;
Property totalBytesProcessed : String Index 48 Read FtotalBytesProcessed Write SettotalBytesProcessed;
end;
TJobStatistics2Class = Class of TJobStatistics2;
{ --------------------------------------------------------------------
TJobStatistics3
--------------------------------------------------------------------}
TJobStatistics3 = Class(TGoogleBaseObject)
Private
FinputFileBytes : String;
FinputFiles : String;
FoutputBytes : String;
FoutputRows : String;
Protected
//Property setters
Procedure SetinputFileBytes(AIndex : Integer; const AValue : String); virtual;
Procedure SetinputFiles(AIndex : Integer; const AValue : String); virtual;
Procedure SetoutputBytes(AIndex : Integer; const AValue : String); virtual;
Procedure SetoutputRows(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property inputFileBytes : String Index 0 Read FinputFileBytes Write SetinputFileBytes;
Property inputFiles : String Index 8 Read FinputFiles Write SetinputFiles;
Property outputBytes : String Index 16 Read FoutputBytes Write SetoutputBytes;
Property outputRows : String Index 24 Read FoutputRows Write SetoutputRows;
end;
TJobStatistics3Class = Class of TJobStatistics3;
{ --------------------------------------------------------------------
TJobStatistics4
--------------------------------------------------------------------}
TJobStatistics4 = Class(TGoogleBaseObject)
Private
FdestinationUriFileCounts : TStringArray;
Protected
//Property setters
Procedure SetdestinationUriFileCounts(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property destinationUriFileCounts : TStringArray Index 0 Read FdestinationUriFileCounts Write SetdestinationUriFileCounts;
end;
TJobStatistics4Class = Class of TJobStatistics4;
{ --------------------------------------------------------------------
TJobStatus
--------------------------------------------------------------------}
TJobStatus = Class(TGoogleBaseObject)
Private
FerrorResult : TErrorProto;
Ferrors : TJobStatusTypeerrorsArray;
Fstate : String;
Protected
//Property setters
Procedure SeterrorResult(AIndex : Integer; const AValue : TErrorProto); virtual;
Procedure Seterrors(AIndex : Integer; const AValue : TJobStatusTypeerrorsArray); virtual;
Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property errorResult : TErrorProto Index 0 Read FerrorResult Write SeterrorResult;
Property errors : TJobStatusTypeerrorsArray Index 8 Read Ferrors Write Seterrors;
Property state : String Index 16 Read Fstate Write Setstate;
end;
TJobStatusClass = Class of TJobStatus;
{ --------------------------------------------------------------------
TJsonObject
--------------------------------------------------------------------}
TJsonObject = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TJsonObjectClass = Class of TJsonObject;
{ --------------------------------------------------------------------
TProjectListTypeprojectsItem
--------------------------------------------------------------------}
TProjectListTypeprojectsItem = Class(TGoogleBaseObject)
Private
FfriendlyName : String;
Fid : String;
Fkind : String;
FnumericId : String;
FprojectReference : TProjectReference;
Protected
//Property setters
Procedure SetfriendlyName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnumericId(AIndex : Integer; const AValue : String); virtual;
Procedure SetprojectReference(AIndex : Integer; const AValue : TProjectReference); virtual;
Public
Published
Property friendlyName : String Index 0 Read FfriendlyName Write SetfriendlyName;
Property id : String Index 8 Read Fid Write Setid;
Property kind : String Index 16 Read Fkind Write Setkind;
Property numericId : String Index 24 Read FnumericId Write SetnumericId;
Property projectReference : TProjectReference Index 32 Read FprojectReference Write SetprojectReference;
end;
TProjectListTypeprojectsItemClass = Class of TProjectListTypeprojectsItem;
{ --------------------------------------------------------------------
TProjectList
--------------------------------------------------------------------}
TProjectList = Class(TGoogleBaseObject)
Private
Fetag : String;
Fkind : String;
FnextPageToken : String;
Fprojects : TProjectListTypeprojectsArray;
FtotalItems : integer;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure Setprojects(AIndex : Integer; const AValue : TProjectListTypeprojectsArray); virtual;
Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property kind : String Index 8 Read Fkind Write Setkind;
Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
Property projects : TProjectListTypeprojectsArray Index 24 Read Fprojects Write Setprojects;
Property totalItems : integer Index 32 Read FtotalItems Write SettotalItems;
end;
TProjectListClass = Class of TProjectList;
{ --------------------------------------------------------------------
TProjectReference
--------------------------------------------------------------------}
TProjectReference = Class(TGoogleBaseObject)
Private
FprojectId : String;
Protected
//Property setters
Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property projectId : String Index 0 Read FprojectId Write SetprojectId;
end;
TProjectReferenceClass = Class of TProjectReference;
{ --------------------------------------------------------------------
TQueryRequest
--------------------------------------------------------------------}
TQueryRequest = Class(TGoogleBaseObject)
Private
FdefaultDataset : TDatasetReference;
FdryRun : boolean;
Fkind : String;
FmaxResults : integer;
FpreserveNulls : boolean;
Fquery : String;
FtimeoutMs : integer;
FuseLegacySql : boolean;
FuseQueryCache : boolean;
Protected
//Property setters
Procedure SetdefaultDataset(AIndex : Integer; const AValue : TDatasetReference); virtual;
Procedure SetdryRun(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetmaxResults(AIndex : Integer; const AValue : integer); virtual;
Procedure SetpreserveNulls(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setquery(AIndex : Integer; const AValue : String); virtual;
Procedure SettimeoutMs(AIndex : Integer; const AValue : integer); virtual;
Procedure SetuseLegacySql(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetuseQueryCache(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property defaultDataset : TDatasetReference Index 0 Read FdefaultDataset Write SetdefaultDataset;
Property dryRun : boolean Index 8 Read FdryRun Write SetdryRun;
Property kind : String Index 16 Read Fkind Write Setkind;
Property maxResults : integer Index 24 Read FmaxResults Write SetmaxResults;
Property preserveNulls : boolean Index 32 Read FpreserveNulls Write SetpreserveNulls;
Property query : String Index 40 Read Fquery Write Setquery;
Property timeoutMs : integer Index 48 Read FtimeoutMs Write SettimeoutMs;
Property useLegacySql : boolean Index 56 Read FuseLegacySql Write SetuseLegacySql;
Property useQueryCache : boolean Index 64 Read FuseQueryCache Write SetuseQueryCache;
end;
TQueryRequestClass = Class of TQueryRequest;
{ --------------------------------------------------------------------
TQueryResponse
--------------------------------------------------------------------}
TQueryResponse = Class(TGoogleBaseObject)
Private
FcacheHit : boolean;
Ferrors : TQueryResponseTypeerrorsArray;
FjobComplete : boolean;
FjobReference : TJobReference;
Fkind : String;
FpageToken : String;
Frows : TQueryResponseTyperowsArray;
Fschema : TTableSchema;
FtotalBytesProcessed : String;
FtotalRows : String;
Protected
//Property setters
Procedure SetcacheHit(AIndex : Integer; const AValue : boolean); virtual;
Procedure Seterrors(AIndex : Integer; const AValue : TQueryResponseTypeerrorsArray); virtual;
Procedure SetjobComplete(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetjobReference(AIndex : Integer; const AValue : TJobReference); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetpageToken(AIndex : Integer; const AValue : String); virtual;
Procedure Setrows(AIndex : Integer; const AValue : TQueryResponseTyperowsArray); virtual;
Procedure Setschema(AIndex : Integer; const AValue : TTableSchema); virtual;
Procedure SettotalBytesProcessed(AIndex : Integer; const AValue : String); virtual;
Procedure SettotalRows(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property cacheHit : boolean Index 0 Read FcacheHit Write SetcacheHit;
Property errors : TQueryResponseTypeerrorsArray Index 8 Read Ferrors Write Seterrors;
Property jobComplete : boolean Index 16 Read FjobComplete Write SetjobComplete;
Property jobReference : TJobReference Index 24 Read FjobReference Write SetjobReference;
Property kind : String Index 32 Read Fkind Write Setkind;
Property pageToken : String Index 40 Read FpageToken Write SetpageToken;
Property rows : TQueryResponseTyperowsArray Index 48 Read Frows Write Setrows;
Property schema : TTableSchema Index 56 Read Fschema Write Setschema;
Property totalBytesProcessed : String Index 64 Read FtotalBytesProcessed Write SettotalBytesProcessed;
Property totalRows : String Index 72 Read FtotalRows Write SettotalRows;
end;
TQueryResponseClass = Class of TQueryResponse;
{ --------------------------------------------------------------------
TStreamingbuffer
--------------------------------------------------------------------}
TStreamingbuffer = Class(TGoogleBaseObject)
Private
FestimatedBytes : String;
FestimatedRows : String;
FoldestEntryTime : String;
Protected
//Property setters
Procedure SetestimatedBytes(AIndex : Integer; const AValue : String); virtual;
Procedure SetestimatedRows(AIndex : Integer; const AValue : String); virtual;
Procedure SetoldestEntryTime(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property estimatedBytes : String Index 0 Read FestimatedBytes Write SetestimatedBytes;
Property estimatedRows : String Index 8 Read FestimatedRows Write SetestimatedRows;
Property oldestEntryTime : String Index 16 Read FoldestEntryTime Write SetoldestEntryTime;
end;
TStreamingbufferClass = Class of TStreamingbuffer;
{ --------------------------------------------------------------------
TTable
--------------------------------------------------------------------}
TTable = Class(TGoogleBaseObject)
Private
FcreationTime : String;
Fdescription : String;
Fetag : String;
FexpirationTime : String;
FexternalDataConfiguration : TExternalDataConfiguration;
FfriendlyName : String;
Fid : String;
Fkind : String;
FlastModifiedTime : String;
Flocation : String;
FnumBytes : String;
FnumLongTermBytes : String;
FnumRows : String;
Fschema : TTableSchema;
FselfLink : String;
FstreamingBuffer : TStreamingbuffer;
FtableReference : TTableReference;
FtimePartitioning : TTimePartitioning;
F_type : String;
Fview : TViewDefinition;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetcreationTime(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure SetexpirationTime(AIndex : Integer; const AValue : String); virtual;
Procedure SetexternalDataConfiguration(AIndex : Integer; const AValue : TExternalDataConfiguration); virtual;
Procedure SetfriendlyName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetlastModifiedTime(AIndex : Integer; const AValue : String); virtual;
Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
Procedure SetnumBytes(AIndex : Integer; const AValue : String); virtual;
Procedure SetnumLongTermBytes(AIndex : Integer; const AValue : String); virtual;
Procedure SetnumRows(AIndex : Integer; const AValue : String); virtual;
Procedure Setschema(AIndex : Integer; const AValue : TTableSchema); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetstreamingBuffer(AIndex : Integer; const AValue : TStreamingbuffer); virtual;
Procedure SettableReference(AIndex : Integer; const AValue : TTableReference); virtual;
Procedure SettimePartitioning(AIndex : Integer; const AValue : TTimePartitioning); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure Setview(AIndex : Integer; const AValue : TViewDefinition); virtual;
Public
Published
Property creationTime : String Index 0 Read FcreationTime Write SetcreationTime;
Property description : String Index 8 Read Fdescription Write Setdescription;
Property etag : String Index 16 Read Fetag Write Setetag;
Property expirationTime : String Index 24 Read FexpirationTime Write SetexpirationTime;
Property externalDataConfiguration : TExternalDataConfiguration Index 32 Read FexternalDataConfiguration Write SetexternalDataConfiguration;
Property friendlyName : String Index 40 Read FfriendlyName Write SetfriendlyName;
Property id : String Index 48 Read Fid Write Setid;
Property kind : String Index 56 Read Fkind Write Setkind;
Property lastModifiedTime : String Index 64 Read FlastModifiedTime Write SetlastModifiedTime;
Property location : String Index 72 Read Flocation Write Setlocation;
Property numBytes : String Index 80 Read FnumBytes Write SetnumBytes;
Property numLongTermBytes : String Index 88 Read FnumLongTermBytes Write SetnumLongTermBytes;
Property numRows : String Index 96 Read FnumRows Write SetnumRows;
Property schema : TTableSchema Index 104 Read Fschema Write Setschema;
Property selfLink : String Index 112 Read FselfLink Write SetselfLink;
Property streamingBuffer : TStreamingbuffer Index 120 Read FstreamingBuffer Write SetstreamingBuffer;
Property tableReference : TTableReference Index 128 Read FtableReference Write SettableReference;
Property timePartitioning : TTimePartitioning Index 136 Read FtimePartitioning Write SettimePartitioning;
Property _type : String Index 144 Read F_type Write Set_type;
Property view : TViewDefinition Index 152 Read Fview Write Setview;
end;
TTableClass = Class of TTable;
{ --------------------------------------------------------------------
TTableCell
--------------------------------------------------------------------}
TTableCell = Class(TGoogleBaseObject)
Private
Fv : TJSONSchema;
Protected
//Property setters
Procedure Setv(AIndex : Integer; const AValue : TJSONSchema); virtual;
Public
Published
Property v : TJSONSchema Index 0 Read Fv Write Setv;
end;
TTableCellClass = Class of TTableCell;
{ --------------------------------------------------------------------
TTableDataInsertAllRequestTyperowsItem
--------------------------------------------------------------------}
TTableDataInsertAllRequestTyperowsItem = Class(TGoogleBaseObject)
Private
FinsertId : String;
Fjson : TJsonObject;
Protected
//Property setters
Procedure SetinsertId(AIndex : Integer; const AValue : String); virtual;
Procedure Setjson(AIndex : Integer; const AValue : TJsonObject); virtual;
Public
Published
Property insertId : String Index 0 Read FinsertId Write SetinsertId;
Property json : TJsonObject Index 8 Read Fjson Write Setjson;
end;
TTableDataInsertAllRequestTyperowsItemClass = Class of TTableDataInsertAllRequestTyperowsItem;
{ --------------------------------------------------------------------
TTableDataInsertAllRequest
--------------------------------------------------------------------}
TTableDataInsertAllRequest = Class(TGoogleBaseObject)
Private
FignoreUnknownValues : boolean;
Fkind : String;
Frows : TTableDataInsertAllRequestTyperowsArray;
FskipInvalidRows : boolean;
FtemplateSuffix : String;
Protected
//Property setters
Procedure SetignoreUnknownValues(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setrows(AIndex : Integer; const AValue : TTableDataInsertAllRequestTyperowsArray); virtual;
Procedure SetskipInvalidRows(AIndex : Integer; const AValue : boolean); virtual;
Procedure SettemplateSuffix(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property ignoreUnknownValues : boolean Index 0 Read FignoreUnknownValues Write SetignoreUnknownValues;
Property kind : String Index 8 Read Fkind Write Setkind;
Property rows : TTableDataInsertAllRequestTyperowsArray Index 16 Read Frows Write Setrows;
Property skipInvalidRows : boolean Index 24 Read FskipInvalidRows Write SetskipInvalidRows;
Property templateSuffix : String Index 32 Read FtemplateSuffix Write SettemplateSuffix;
end;
TTableDataInsertAllRequestClass = Class of TTableDataInsertAllRequest;
{ --------------------------------------------------------------------
TTableDataInsertAllResponseTypeinsertErrorsItem
--------------------------------------------------------------------}
TTableDataInsertAllResponseTypeinsertErrorsItem = Class(TGoogleBaseObject)
Private
Ferrors : TTableDataInsertAllResponseTypeinsertErrorsItemTypeerrorsArray;
Findex : integer;
Protected
//Property setters
Procedure Seterrors(AIndex : Integer; const AValue : TTableDataInsertAllResponseTypeinsertErrorsItemTypeerrorsArray); virtual;
Procedure Setindex(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property errors : TTableDataInsertAllResponseTypeinsertErrorsItemTypeerrorsArray Index 0 Read Ferrors Write Seterrors;
Property index : integer Index 8 Read Findex Write Setindex;
end;
TTableDataInsertAllResponseTypeinsertErrorsItemClass = Class of TTableDataInsertAllResponseTypeinsertErrorsItem;
{ --------------------------------------------------------------------
TTableDataInsertAllResponse
--------------------------------------------------------------------}
TTableDataInsertAllResponse = Class(TGoogleBaseObject)
Private
FinsertErrors : TTableDataInsertAllResponseTypeinsertErrorsArray;
Fkind : String;
Protected
//Property setters
Procedure SetinsertErrors(AIndex : Integer; const AValue : TTableDataInsertAllResponseTypeinsertErrorsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property insertErrors : TTableDataInsertAllResponseTypeinsertErrorsArray Index 0 Read FinsertErrors Write SetinsertErrors;
Property kind : String Index 8 Read Fkind Write Setkind;
end;
TTableDataInsertAllResponseClass = Class of TTableDataInsertAllResponse;
{ --------------------------------------------------------------------
TTableDataList
--------------------------------------------------------------------}
TTableDataList = Class(TGoogleBaseObject)
Private
Fetag : String;
Fkind : String;
FpageToken : String;
Frows : TTableDataListTyperowsArray;
FtotalRows : String;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetpageToken(AIndex : Integer; const AValue : String); virtual;
Procedure Setrows(AIndex : Integer; const AValue : TTableDataListTyperowsArray); virtual;
Procedure SettotalRows(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property kind : String Index 8 Read Fkind Write Setkind;
Property pageToken : String Index 16 Read FpageToken Write SetpageToken;
Property rows : TTableDataListTyperowsArray Index 24 Read Frows Write Setrows;
Property totalRows : String Index 32 Read FtotalRows Write SettotalRows;
end;
TTableDataListClass = Class of TTableDataList;
{ --------------------------------------------------------------------
TTableFieldSchema
--------------------------------------------------------------------}
TTableFieldSchema = Class(TGoogleBaseObject)
Private
Fdescription : String;
Ffields : TTableFieldSchemaTypefieldsArray;
Fmode : String;
Fname : String;
F_type : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setfields(AIndex : Integer; const AValue : TTableFieldSchemaTypefieldsArray); virtual;
Procedure Setmode(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property description : String Index 0 Read Fdescription Write Setdescription;
Property fields : TTableFieldSchemaTypefieldsArray Index 8 Read Ffields Write Setfields;
Property mode : String Index 16 Read Fmode Write Setmode;
Property name : String Index 24 Read Fname Write Setname;
Property _type : String Index 32 Read F_type Write Set_type;
end;
TTableFieldSchemaClass = Class of TTableFieldSchema;
{ --------------------------------------------------------------------
TTableListTypetablesItem
--------------------------------------------------------------------}
TTableListTypetablesItem = Class(TGoogleBaseObject)
Private
FfriendlyName : String;
Fid : String;
Fkind : String;
FtableReference : TTableReference;
F_type : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetfriendlyName(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SettableReference(AIndex : Integer; const AValue : TTableReference); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property friendlyName : String Index 0 Read FfriendlyName Write SetfriendlyName;
Property id : String Index 8 Read Fid Write Setid;
Property kind : String Index 16 Read Fkind Write Setkind;
Property tableReference : TTableReference Index 24 Read FtableReference Write SettableReference;
Property _type : String Index 32 Read F_type Write Set_type;
end;
TTableListTypetablesItemClass = Class of TTableListTypetablesItem;
{ --------------------------------------------------------------------
TTableList
--------------------------------------------------------------------}
TTableList = Class(TGoogleBaseObject)
Private
Fetag : String;
Fkind : String;
FnextPageToken : String;
Ftables : TTableListTypetablesArray;
FtotalItems : integer;
Protected
//Property setters
Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure Settables(AIndex : Integer; const AValue : TTableListTypetablesArray); virtual;
Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property etag : String Index 0 Read Fetag Write Setetag;
Property kind : String Index 8 Read Fkind Write Setkind;
Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
Property tables : TTableListTypetablesArray Index 24 Read Ftables Write Settables;
Property totalItems : integer Index 32 Read FtotalItems Write SettotalItems;
end;
TTableListClass = Class of TTableList;
{ --------------------------------------------------------------------
TTableReference
--------------------------------------------------------------------}
TTableReference = Class(TGoogleBaseObject)
Private
FdatasetId : String;
FprojectId : String;
FtableId : String;
Protected
//Property setters
Procedure SetdatasetId(AIndex : Integer; const AValue : String); virtual;
Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
Procedure SettableId(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property datasetId : String Index 0 Read FdatasetId Write SetdatasetId;
Property projectId : String Index 8 Read FprojectId Write SetprojectId;
Property tableId : String Index 16 Read FtableId Write SettableId;
end;
TTableReferenceClass = Class of TTableReference;
{ --------------------------------------------------------------------
TTableRow
--------------------------------------------------------------------}
TTableRow = Class(TGoogleBaseObject)
Private
Ff : TTableRowTypefArray;
Protected
//Property setters
Procedure Setf(AIndex : Integer; const AValue : TTableRowTypefArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property f : TTableRowTypefArray Index 0 Read Ff Write Setf;
end;
TTableRowClass = Class of TTableRow;
{ --------------------------------------------------------------------
TTableSchema
--------------------------------------------------------------------}
TTableSchema = Class(TGoogleBaseObject)
Private
Ffields : TTableSchemaTypefieldsArray;
Protected
//Property setters
Procedure Setfields(AIndex : Integer; const AValue : TTableSchemaTypefieldsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property fields : TTableSchemaTypefieldsArray Index 0 Read Ffields Write Setfields;
end;
TTableSchemaClass = Class of TTableSchema;
{ --------------------------------------------------------------------
TTimePartitioning
--------------------------------------------------------------------}
TTimePartitioning = Class(TGoogleBaseObject)
Private
FexpirationMs : String;
F_type : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetexpirationMs(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property expirationMs : String Index 0 Read FexpirationMs Write SetexpirationMs;
Property _type : String Index 8 Read F_type Write Set_type;
end;
TTimePartitioningClass = Class of TTimePartitioning;
{ --------------------------------------------------------------------
TUserDefinedFunctionResource
--------------------------------------------------------------------}
TUserDefinedFunctionResource = Class(TGoogleBaseObject)
Private
FinlineCode : String;
FresourceUri : String;
Protected
//Property setters
Procedure SetinlineCode(AIndex : Integer; const AValue : String); virtual;
Procedure SetresourceUri(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property inlineCode : String Index 0 Read FinlineCode Write SetinlineCode;
Property resourceUri : String Index 8 Read FresourceUri Write SetresourceUri;
end;
TUserDefinedFunctionResourceClass = Class of TUserDefinedFunctionResource;
{ --------------------------------------------------------------------
TViewDefinition
--------------------------------------------------------------------}
TViewDefinition = Class(TGoogleBaseObject)
Private
Fquery : String;
FuserDefinedFunctionResources : TViewDefinitionTypeuserDefinedFunctionResourcesArray;
Protected
//Property setters
Procedure Setquery(AIndex : Integer; const AValue : String); virtual;
Procedure SetuserDefinedFunctionResources(AIndex : Integer; const AValue : TViewDefinitionTypeuserDefinedFunctionResourcesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property query : String Index 0 Read Fquery Write Setquery;
Property userDefinedFunctionResources : TViewDefinitionTypeuserDefinedFunctionResourcesArray Index 8 Read FuserDefinedFunctionResources Write SetuserDefinedFunctionResources;
end;
TViewDefinitionClass = Class of TViewDefinition;
{ --------------------------------------------------------------------
TDatasetsResource
--------------------------------------------------------------------}
//Optional query Options for TDatasetsResource, method Delete
TDatasetsDeleteOptions = Record
deleteContents : boolean;
end;
//Optional query Options for TDatasetsResource, method List
TDatasetsListOptions = Record
all : boolean;
maxResults : integer;
pageToken : String;
end;
TDatasetsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Procedure Delete(datasetId: string; projectId: string; AQuery : string = '');
Procedure Delete(datasetId: string; projectId: string; AQuery : TDatasetsdeleteOptions);
Function Get(datasetId: string; projectId: string) : TDataset;
Function Insert(projectId: string; aDataset : TDataset) : TDataset;
Function List(projectId: string; AQuery : string = '') : TDatasetList;
Function List(projectId: string; AQuery : TDatasetslistOptions) : TDatasetList;
Function Patch(datasetId: string; projectId: string; aDataset : TDataset) : TDataset;
Function Update(datasetId: string; projectId: string; aDataset : TDataset) : TDataset;
end;
{ --------------------------------------------------------------------
TJobsResource
--------------------------------------------------------------------}
//Optional query Options for TJobsResource, method GetQueryResults
TJobsGetQueryResultsOptions = Record
maxResults : integer;
pageToken : String;
startIndex : String;
timeoutMs : integer;
end;
//Optional query Options for TJobsResource, method List
TJobsListOptions = Record
allUsers : boolean;
maxResults : integer;
pageToken : String;
projection : String;
stateFilter : String;
end;
TJobsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Cancel(jobId: string; projectId: string) : TJobCancelResponse;
Function Get(jobId: string; projectId: string) : TJob;
Function GetQueryResults(jobId: string; projectId: string; AQuery : string = '') : TGetQueryResultsResponse;
Function GetQueryResults(jobId: string; projectId: string; AQuery : TJobsgetQueryResultsOptions) : TGetQueryResultsResponse;
Function Insert(projectId: string; aJob : TJob) : TJob;
Function List(projectId: string; AQuery : string = '') : TJobList;
Function List(projectId: string; AQuery : TJobslistOptions) : TJobList;
Function Query(projectId: string; aQueryRequest : TQueryRequest) : TQueryResponse;
end;
{ --------------------------------------------------------------------
TProjectsResource
--------------------------------------------------------------------}
//Optional query Options for TProjectsResource, method List
TProjectsListOptions = Record
maxResults : integer;
pageToken : String;
end;
TProjectsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function List(AQuery : string = '') : TProjectList;
Function List(AQuery : TProjectslistOptions) : TProjectList;
end;
{ --------------------------------------------------------------------
TTabledataResource
--------------------------------------------------------------------}
//Optional query Options for TTabledataResource, method List
TTabledataListOptions = Record
maxResults : integer;
pageToken : String;
startIndex : String;
end;
TTabledataResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function InsertAll(datasetId: string; projectId: string; tableId: string; aTableDataInsertAllRequest : TTableDataInsertAllRequest) : TTableDataInsertAllResponse;
Function List(datasetId: string; projectId: string; tableId: string; AQuery : string = '') : TTableDataList;
Function List(datasetId: string; projectId: string; tableId: string; AQuery : TTabledatalistOptions) : TTableDataList;
end;
{ --------------------------------------------------------------------
TTablesResource
--------------------------------------------------------------------}
//Optional query Options for TTablesResource, method List
TTablesListOptions = Record
maxResults : integer;
pageToken : String;
end;
TTablesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Procedure Delete(datasetId: string; projectId: string; tableId: string);
Function Get(datasetId: string; projectId: string; tableId: string) : TTable;
Function Insert(datasetId: string; projectId: string; aTable : TTable) : TTable;
Function List(datasetId: string; projectId: string; AQuery : string = '') : TTableList;
Function List(datasetId: string; projectId: string; AQuery : TTableslistOptions) : TTableList;
Function Patch(datasetId: string; projectId: string; tableId: string; aTable : TTable) : TTable;
Function Update(datasetId: string; projectId: string; tableId: string; aTable : TTable) : TTable;
end;
{ --------------------------------------------------------------------
TBigqueryAPI
--------------------------------------------------------------------}
TBigqueryAPI = Class(TGoogleAPI)
Private
FDatasetsInstance : TDatasetsResource;
FJobsInstance : TJobsResource;
FProjectsInstance : TProjectsResource;
FTabledataInstance : TTabledataResource;
FTablesInstance : TTablesResource;
Function GetDatasetsInstance : TDatasetsResource;virtual;
Function GetJobsInstance : TJobsResource;virtual;
Function GetProjectsInstance : TProjectsResource;virtual;
Function GetTabledataInstance : TTabledataResource;virtual;
Function GetTablesInstance : TTablesResource;virtual;
Public
//Override class functions with API info
Class Function APIName : String; override;
Class Function APIVersion : String; override;
Class Function APIRevision : String; override;
Class Function APIID : String; override;
Class Function APITitle : String; override;
Class Function APIDescription : String; override;
Class Function APIOwnerDomain : String; override;
Class Function APIOwnerName : String; override;
Class Function APIIcon16 : String; override;
Class Function APIIcon32 : String; override;
Class Function APIdocumentationLink : String; override;
Class Function APIrootUrl : string; override;
Class Function APIbasePath : string;override;
Class Function APIbaseURL : String;override;
Class Function APIProtocol : string;override;
Class Function APIservicePath : string;override;
Class Function APIbatchPath : String;override;
Class Function APIAuthScopes : TScopeInfoArray;override;
Class Function APINeedsAuth : Boolean;override;
Class Procedure RegisterAPIResources; override;
//Add create function for resources
Function CreateDatasetsResource(AOwner : TComponent) : TDatasetsResource;virtual;overload;
Function CreateDatasetsResource : TDatasetsResource;virtual;overload;
Function CreateJobsResource(AOwner : TComponent) : TJobsResource;virtual;overload;
Function CreateJobsResource : TJobsResource;virtual;overload;
Function CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload;
Function CreateProjectsResource : TProjectsResource;virtual;overload;
Function CreateTabledataResource(AOwner : TComponent) : TTabledataResource;virtual;overload;
Function CreateTabledataResource : TTabledataResource;virtual;overload;
Function CreateTablesResource(AOwner : TComponent) : TTablesResource;virtual;overload;
Function CreateTablesResource : TTablesResource;virtual;overload;
//Add default on-demand instances for resources
Property DatasetsResource : TDatasetsResource Read GetDatasetsInstance;
Property JobsResource : TJobsResource Read GetJobsInstance;
Property ProjectsResource : TProjectsResource Read GetProjectsInstance;
Property TabledataResource : TTabledataResource Read GetTabledataInstance;
Property TablesResource : TTablesResource Read GetTablesInstance;
end;
implementation
{ --------------------------------------------------------------------
TBigtableColumn
--------------------------------------------------------------------}
Procedure TBigtableColumn.Setencoding(AIndex : Integer; const AValue : String);
begin
If (Fencoding=AValue) then exit;
Fencoding:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBigtableColumn.SetfieldName(AIndex : Integer; const AValue : String);
begin
If (FfieldName=AValue) then exit;
FfieldName:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBigtableColumn.SetonlyReadLatest(AIndex : Integer; const AValue : boolean);
begin
If (FonlyReadLatest=AValue) then exit;
FonlyReadLatest:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBigtableColumn.SetqualifierEncoded(AIndex : Integer; const AValue : String);
begin
If (FqualifierEncoded=AValue) then exit;
FqualifierEncoded:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBigtableColumn.SetqualifierString(AIndex : Integer; const AValue : String);
begin
If (FqualifierString=AValue) then exit;
FqualifierString:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBigtableColumn.Set_type(AIndex : Integer; const AValue : String);
begin
If (F_type=AValue) then exit;
F_type:=AValue;
MarkPropertyChanged(AIndex);
end;
Class Function TBigtableColumn.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
'_type' : Result:='type';
else
Result:=Inherited ExportPropertyName(AName);
end;
end;
{ --------------------------------------------------------------------
TBigtableColumnFamily
--------------------------------------------------------------------}
Procedure TBigtableColumnFamily.Setcolumns(AIndex : Integer; const AValue : TBigtableColumnFamilyTypecolumnsArray);
begin
If (Fcolumns=AValue) then exit;
Fcolumns:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBigtableColumnFamily.Setencoding(AIndex : Integer; const AValue : String);
begin
If (Fencoding=AValue) then exit;
Fencoding:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBigtableColumnFamily.SetfamilyId(AIndex : Integer; const AValue : String);
begin
If (FfamilyId=AValue) then exit;
FfamilyId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBigtableColumnFamily.SetonlyReadLatest(AIndex : Integer; const AValue : boolean);
begin
If (FonlyReadLatest=AValue) then exit;
FonlyReadLatest:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBigtableColumnFamily.Set_type(AIndex : Integer; const AValue : String);
begin
If (F_type=AValue) then exit;
F_type:=AValue;
MarkPropertyChanged(AIndex);
end;
Class Function TBigtableColumnFamily.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
'_type' : Result:='type';
else
Result:=Inherited ExportPropertyName(AName);
end;
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TBigtableColumnFamily.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'columns' : SetLength(Fcolumns,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TBigtableOptions
--------------------------------------------------------------------}
Procedure TBigtableOptions.SetcolumnFamilies(AIndex : Integer; const AValue : TBigtableOptionsTypecolumnFamiliesArray);
begin
If (FcolumnFamilies=AValue) then exit;
FcolumnFamilies:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBigtableOptions.SetignoreUnspecifiedColumnFamilies(AIndex : Integer; const AValue : boolean);
begin
If (FignoreUnspecifiedColumnFamilies=AValue) then exit;
FignoreUnspecifiedColumnFamilies:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TBigtableOptions.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'columnfamilies' : SetLength(FcolumnFamilies,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TCsvOptions
--------------------------------------------------------------------}
Procedure TCsvOptions.SetallowJaggedRows(AIndex : Integer; const AValue : boolean);
begin
If (FallowJaggedRows=AValue) then exit;
FallowJaggedRows:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCsvOptions.SetallowQuotedNewlines(AIndex : Integer; const AValue : boolean);
begin
If (FallowQuotedNewlines=AValue) then exit;
FallowQuotedNewlines:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCsvOptions.Setencoding(AIndex : Integer; const AValue : String);
begin
If (Fencoding=AValue) then exit;
Fencoding:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCsvOptions.SetfieldDelimiter(AIndex : Integer; const AValue : String);
begin
If (FfieldDelimiter=AValue) then exit;
FfieldDelimiter:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCsvOptions.Setquote(AIndex : Integer; const AValue : String);
begin
If (Fquote=AValue) then exit;
Fquote:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCsvOptions.SetskipLeadingRows(AIndex : Integer; const AValue : String);
begin
If (FskipLeadingRows=AValue) then exit;
FskipLeadingRows:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TDatasetTypeaccessItem
--------------------------------------------------------------------}
Procedure TDatasetTypeaccessItem.Setdomain(AIndex : Integer; const AValue : String);
begin
If (Fdomain=AValue) then exit;
Fdomain:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDatasetTypeaccessItem.SetgroupByEmail(AIndex : Integer; const AValue : String);
begin
If (FgroupByEmail=AValue) then exit;
FgroupByEmail:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDatasetTypeaccessItem.Setrole(AIndex : Integer; const AValue : String);
begin
If (Frole=AValue) then exit;
Frole:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDatasetTypeaccessItem.SetspecialGroup(AIndex : Integer; const AValue : String);
begin
If (FspecialGroup=AValue) then exit;
FspecialGroup:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDatasetTypeaccessItem.SetuserByEmail(AIndex : Integer; const AValue : String);
begin
If (FuserByEmail=AValue) then exit;
FuserByEmail:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDatasetTypeaccessItem.Setview(AIndex : Integer; const AValue : TTableReference);
begin
If (Fview=AValue) then exit;
Fview:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TDataset
--------------------------------------------------------------------}
Procedure TDataset.Setaccess(AIndex : Integer; const AValue : TDatasetTypeaccessArray);
begin
If (Faccess=AValue) then exit;
Faccess:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDataset.SetcreationTime(AIndex : Integer; const AValue : String);
begin
If (FcreationTime=AValue) then exit;
FcreationTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDataset.SetdatasetReference(AIndex : Integer; const AValue : TDatasetReference);
begin
If (FdatasetReference=AValue) then exit;
FdatasetReference:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDataset.SetdefaultTableExpirationMs(AIndex : Integer; const AValue : String);
begin
If (FdefaultTableExpirationMs=AValue) then exit;
FdefaultTableExpirationMs:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDataset.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDataset.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDataset.SetfriendlyName(AIndex : Integer; const AValue : String);
begin
If (FfriendlyName=AValue) then exit;
FfriendlyName:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDataset.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDataset.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDataset.SetlastModifiedTime(AIndex : Integer; const AValue : String);
begin
If (FlastModifiedTime=AValue) then exit;
FlastModifiedTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDataset.Setlocation(AIndex : Integer; const AValue : String);
begin
If (Flocation=AValue) then exit;
Flocation:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDataset.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TDataset.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'access' : SetLength(Faccess,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TDatasetListTypedatasetsItem
--------------------------------------------------------------------}
Procedure TDatasetListTypedatasetsItem.SetdatasetReference(AIndex : Integer; const AValue : TDatasetReference);
begin
If (FdatasetReference=AValue) then exit;
FdatasetReference:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDatasetListTypedatasetsItem.SetfriendlyName(AIndex : Integer; const AValue : String);
begin
If (FfriendlyName=AValue) then exit;
FfriendlyName:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDatasetListTypedatasetsItem.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDatasetListTypedatasetsItem.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TDatasetList
--------------------------------------------------------------------}
Procedure TDatasetList.Setdatasets(AIndex : Integer; const AValue : TDatasetListTypedatasetsArray);
begin
If (Fdatasets=AValue) then exit;
Fdatasets:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDatasetList.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDatasetList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDatasetList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TDatasetList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'datasets' : SetLength(Fdatasets,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TDatasetReference
--------------------------------------------------------------------}
Procedure TDatasetReference.SetdatasetId(AIndex : Integer; const AValue : String);
begin
If (FdatasetId=AValue) then exit;
FdatasetId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDatasetReference.SetprojectId(AIndex : Integer; const AValue : String);
begin
If (FprojectId=AValue) then exit;
FprojectId:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TErrorProto
--------------------------------------------------------------------}
Procedure TErrorProto.SetdebugInfo(AIndex : Integer; const AValue : String);
begin
If (FdebugInfo=AValue) then exit;
FdebugInfo:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TErrorProto.Setlocation(AIndex : Integer; const AValue : String);
begin
If (Flocation=AValue) then exit;
Flocation:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TErrorProto.Setmessage(AIndex : Integer; const AValue : String);
begin
If (Fmessage=AValue) then exit;
Fmessage:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TErrorProto.Setreason(AIndex : Integer; const AValue : String);
begin
If (Freason=AValue) then exit;
Freason:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TExplainQueryStage
--------------------------------------------------------------------}
Procedure TExplainQueryStage.SetcomputeRatioAvg(AIndex : Integer; const AValue : double);
begin
If (FcomputeRatioAvg=AValue) then exit;
FcomputeRatioAvg:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExplainQueryStage.SetcomputeRatioMax(AIndex : Integer; const AValue : double);
begin
If (FcomputeRatioMax=AValue) then exit;
FcomputeRatioMax:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExplainQueryStage.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExplainQueryStage.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExplainQueryStage.SetreadRatioAvg(AIndex : Integer; const AValue : double);
begin
If (FreadRatioAvg=AValue) then exit;
FreadRatioAvg:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExplainQueryStage.SetreadRatioMax(AIndex : Integer; const AValue : double);
begin
If (FreadRatioMax=AValue) then exit;
FreadRatioMax:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExplainQueryStage.SetrecordsRead(AIndex : Integer; const AValue : String);
begin
If (FrecordsRead=AValue) then exit;
FrecordsRead:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExplainQueryStage.SetrecordsWritten(AIndex : Integer; const AValue : String);
begin
If (FrecordsWritten=AValue) then exit;
FrecordsWritten:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExplainQueryStage.Setsteps(AIndex : Integer; const AValue : TExplainQueryStageTypestepsArray);
begin
If (Fsteps=AValue) then exit;
Fsteps:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExplainQueryStage.SetwaitRatioAvg(AIndex : Integer; const AValue : double);
begin
If (FwaitRatioAvg=AValue) then exit;
FwaitRatioAvg:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExplainQueryStage.SetwaitRatioMax(AIndex : Integer; const AValue : double);
begin
If (FwaitRatioMax=AValue) then exit;
FwaitRatioMax:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExplainQueryStage.SetwriteRatioAvg(AIndex : Integer; const AValue : double);
begin
If (FwriteRatioAvg=AValue) then exit;
FwriteRatioAvg:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExplainQueryStage.SetwriteRatioMax(AIndex : Integer; const AValue : double);
begin
If (FwriteRatioMax=AValue) then exit;
FwriteRatioMax:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TExplainQueryStage.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'steps' : SetLength(Fsteps,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TExplainQueryStep
--------------------------------------------------------------------}
Procedure TExplainQueryStep.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExplainQueryStep.Setsubsteps(AIndex : Integer; const AValue : TStringArray);
begin
If (Fsubsteps=AValue) then exit;
Fsubsteps:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TExplainQueryStep.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'substeps' : SetLength(Fsubsteps,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TExternalDataConfiguration
--------------------------------------------------------------------}
Procedure TExternalDataConfiguration.Setautodetect(AIndex : Integer; const AValue : boolean);
begin
If (Fautodetect=AValue) then exit;
Fautodetect:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExternalDataConfiguration.SetbigtableOptions(AIndex : Integer; const AValue : TBigtableOptions);
begin
If (FbigtableOptions=AValue) then exit;
FbigtableOptions:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExternalDataConfiguration.Setcompression(AIndex : Integer; const AValue : String);
begin
If (Fcompression=AValue) then exit;
Fcompression:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExternalDataConfiguration.SetcsvOptions(AIndex : Integer; const AValue : TCsvOptions);
begin
If (FcsvOptions=AValue) then exit;
FcsvOptions:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExternalDataConfiguration.SetgoogleSheetsOptions(AIndex : Integer; const AValue : TGoogleSheetsOptions);
begin
If (FgoogleSheetsOptions=AValue) then exit;
FgoogleSheetsOptions:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExternalDataConfiguration.SetignoreUnknownValues(AIndex : Integer; const AValue : boolean);
begin
If (FignoreUnknownValues=AValue) then exit;
FignoreUnknownValues:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExternalDataConfiguration.SetmaxBadRecords(AIndex : Integer; const AValue : integer);
begin
If (FmaxBadRecords=AValue) then exit;
FmaxBadRecords:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExternalDataConfiguration.Setschema(AIndex : Integer; const AValue : TTableSchema);
begin
If (Fschema=AValue) then exit;
Fschema:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExternalDataConfiguration.SetsourceFormat(AIndex : Integer; const AValue : String);
begin
If (FsourceFormat=AValue) then exit;
FsourceFormat:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TExternalDataConfiguration.SetsourceUris(AIndex : Integer; const AValue : TStringArray);
begin
If (FsourceUris=AValue) then exit;
FsourceUris:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TExternalDataConfiguration.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'sourceuris' : SetLength(FsourceUris,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TGetQueryResultsResponse
--------------------------------------------------------------------}
Procedure TGetQueryResultsResponse.SetcacheHit(AIndex : Integer; const AValue : boolean);
begin
If (FcacheHit=AValue) then exit;
FcacheHit:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TGetQueryResultsResponse.Seterrors(AIndex : Integer; const AValue : TGetQueryResultsResponseTypeerrorsArray);
begin
If (Ferrors=AValue) then exit;
Ferrors:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TGetQueryResultsResponse.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TGetQueryResultsResponse.SetjobComplete(AIndex : Integer; const AValue : boolean);
begin
If (FjobComplete=AValue) then exit;
FjobComplete:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TGetQueryResultsResponse.SetjobReference(AIndex : Integer; const AValue : TJobReference);
begin
If (FjobReference=AValue) then exit;
FjobReference:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TGetQueryResultsResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TGetQueryResultsResponse.SetpageToken(AIndex : Integer; const AValue : String);
begin
If (FpageToken=AValue) then exit;
FpageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TGetQueryResultsResponse.Setrows(AIndex : Integer; const AValue : TGetQueryResultsResponseTyperowsArray);
begin
If (Frows=AValue) then exit;
Frows:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TGetQueryResultsResponse.Setschema(AIndex : Integer; const AValue : TTableSchema);
begin
If (Fschema=AValue) then exit;
Fschema:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TGetQueryResultsResponse.SettotalBytesProcessed(AIndex : Integer; const AValue : String);
begin
If (FtotalBytesProcessed=AValue) then exit;
FtotalBytesProcessed:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TGetQueryResultsResponse.SettotalRows(AIndex : Integer; const AValue : String);
begin
If (FtotalRows=AValue) then exit;
FtotalRows:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TGetQueryResultsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'errors' : SetLength(Ferrors,ALength);
'rows' : SetLength(Frows,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TGoogleSheetsOptions
--------------------------------------------------------------------}
Procedure TGoogleSheetsOptions.SetskipLeadingRows(AIndex : Integer; const AValue : String);
begin
If (FskipLeadingRows=AValue) then exit;
FskipLeadingRows:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TJob
--------------------------------------------------------------------}
Procedure TJob.Setconfiguration(AIndex : Integer; const AValue : TJobConfiguration);
begin
If (Fconfiguration=AValue) then exit;
Fconfiguration:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJob.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJob.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJob.SetjobReference(AIndex : Integer; const AValue : TJobReference);
begin
If (FjobReference=AValue) then exit;
FjobReference:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJob.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJob.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJob.Setstatistics(AIndex : Integer; const AValue : TJobStatistics);
begin
If (Fstatistics=AValue) then exit;
Fstatistics:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJob.Setstatus(AIndex : Integer; const AValue : TJobStatus);
begin
If (Fstatus=AValue) then exit;
Fstatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJob.Setuser_email(AIndex : Integer; const AValue : String);
begin
If (Fuser_email=AValue) then exit;
Fuser_email:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TJobCancelResponse
--------------------------------------------------------------------}
Procedure TJobCancelResponse.Setjob(AIndex : Integer; const AValue : TJob);
begin
If (Fjob=AValue) then exit;
Fjob:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobCancelResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TJobConfiguration
--------------------------------------------------------------------}
Procedure TJobConfiguration.Setcopy(AIndex : Integer; const AValue : TJobConfigurationTableCopy);
begin
If (Fcopy=AValue) then exit;
Fcopy:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfiguration.SetdryRun(AIndex : Integer; const AValue : boolean);
begin
If (FdryRun=AValue) then exit;
FdryRun:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfiguration.Setextract(AIndex : Integer; const AValue : TJobConfigurationExtract);
begin
If (Fextract=AValue) then exit;
Fextract:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfiguration.Setload(AIndex : Integer; const AValue : TJobConfigurationLoad);
begin
If (Fload=AValue) then exit;
Fload:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfiguration.Setquery(AIndex : Integer; const AValue : TJobConfigurationQuery);
begin
If (Fquery=AValue) then exit;
Fquery:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TJobConfigurationExtract
--------------------------------------------------------------------}
Procedure TJobConfigurationExtract.Setcompression(AIndex : Integer; const AValue : String);
begin
If (Fcompression=AValue) then exit;
Fcompression:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationExtract.SetdestinationFormat(AIndex : Integer; const AValue : String);
begin
If (FdestinationFormat=AValue) then exit;
FdestinationFormat:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationExtract.SetdestinationUri(AIndex : Integer; const AValue : String);
begin
If (FdestinationUri=AValue) then exit;
FdestinationUri:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationExtract.SetdestinationUris(AIndex : Integer; const AValue : TStringArray);
begin
If (FdestinationUris=AValue) then exit;
FdestinationUris:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationExtract.SetfieldDelimiter(AIndex : Integer; const AValue : String);
begin
If (FfieldDelimiter=AValue) then exit;
FfieldDelimiter:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationExtract.SetprintHeader(AIndex : Integer; const AValue : boolean);
begin
If (FprintHeader=AValue) then exit;
FprintHeader:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationExtract.SetsourceTable(AIndex : Integer; const AValue : TTableReference);
begin
If (FsourceTable=AValue) then exit;
FsourceTable:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TJobConfigurationExtract.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'destinationuris' : SetLength(FdestinationUris,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TJobConfigurationLoad
--------------------------------------------------------------------}
Procedure TJobConfigurationLoad.SetallowJaggedRows(AIndex : Integer; const AValue : boolean);
begin
If (FallowJaggedRows=AValue) then exit;
FallowJaggedRows:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationLoad.SetallowQuotedNewlines(AIndex : Integer; const AValue : boolean);
begin
If (FallowQuotedNewlines=AValue) then exit;
FallowQuotedNewlines:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationLoad.Setautodetect(AIndex : Integer; const AValue : boolean);
begin
If (Fautodetect=AValue) then exit;
Fautodetect:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationLoad.SetcreateDisposition(AIndex : Integer; const AValue : String);
begin
If (FcreateDisposition=AValue) then exit;
FcreateDisposition:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationLoad.SetdestinationTable(AIndex : Integer; const AValue : TTableReference);
begin
If (FdestinationTable=AValue) then exit;
FdestinationTable:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationLoad.Setencoding(AIndex : Integer; const AValue : String);
begin
If (Fencoding=AValue) then exit;
Fencoding:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationLoad.SetfieldDelimiter(AIndex : Integer; const AValue : String);
begin
If (FfieldDelimiter=AValue) then exit;
FfieldDelimiter:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationLoad.SetignoreUnknownValues(AIndex : Integer; const AValue : boolean);
begin
If (FignoreUnknownValues=AValue) then exit;
FignoreUnknownValues:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationLoad.SetmaxBadRecords(AIndex : Integer; const AValue : integer);
begin
If (FmaxBadRecords=AValue) then exit;
FmaxBadRecords:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationLoad.SetprojectionFields(AIndex : Integer; const AValue : TStringArray);
begin
If (FprojectionFields=AValue) then exit;
FprojectionFields:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationLoad.Setquote(AIndex : Integer; const AValue : String);
begin
If (Fquote=AValue) then exit;
Fquote:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationLoad.Setschema(AIndex : Integer; const AValue : TTableSchema);
begin
If (Fschema=AValue) then exit;
Fschema:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationLoad.SetschemaInline(AIndex : Integer; const AValue : String);
begin
If (FschemaInline=AValue) then exit;
FschemaInline:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationLoad.SetschemaInlineFormat(AIndex : Integer; const AValue : String);
begin
If (FschemaInlineFormat=AValue) then exit;
FschemaInlineFormat:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationLoad.SetskipLeadingRows(AIndex : Integer; const AValue : integer);
begin
If (FskipLeadingRows=AValue) then exit;
FskipLeadingRows:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationLoad.SetsourceFormat(AIndex : Integer; const AValue : String);
begin
If (FsourceFormat=AValue) then exit;
FsourceFormat:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationLoad.SetsourceUris(AIndex : Integer; const AValue : TStringArray);
begin
If (FsourceUris=AValue) then exit;
FsourceUris:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationLoad.SetwriteDisposition(AIndex : Integer; const AValue : String);
begin
If (FwriteDisposition=AValue) then exit;
FwriteDisposition:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TJobConfigurationLoad.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'projectionfields' : SetLength(FprojectionFields,ALength);
'sourceuris' : SetLength(FsourceUris,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TJobConfigurationQueryTypetableDefinitions
--------------------------------------------------------------------}
Class Function TJobConfigurationQueryTypetableDefinitions.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TJobConfigurationQuery
--------------------------------------------------------------------}
Procedure TJobConfigurationQuery.SetallowLargeResults(AIndex : Integer; const AValue : boolean);
begin
If (FallowLargeResults=AValue) then exit;
FallowLargeResults:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationQuery.SetcreateDisposition(AIndex : Integer; const AValue : String);
begin
If (FcreateDisposition=AValue) then exit;
FcreateDisposition:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationQuery.SetdefaultDataset(AIndex : Integer; const AValue : TDatasetReference);
begin
If (FdefaultDataset=AValue) then exit;
FdefaultDataset:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationQuery.SetdestinationTable(AIndex : Integer; const AValue : TTableReference);
begin
If (FdestinationTable=AValue) then exit;
FdestinationTable:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationQuery.SetflattenResults(AIndex : Integer; const AValue : boolean);
begin
If (FflattenResults=AValue) then exit;
FflattenResults:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationQuery.SetmaximumBillingTier(AIndex : Integer; const AValue : integer);
begin
If (FmaximumBillingTier=AValue) then exit;
FmaximumBillingTier:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationQuery.SetpreserveNulls(AIndex : Integer; const AValue : boolean);
begin
If (FpreserveNulls=AValue) then exit;
FpreserveNulls:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationQuery.Setpriority(AIndex : Integer; const AValue : String);
begin
If (Fpriority=AValue) then exit;
Fpriority:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationQuery.Setquery(AIndex : Integer; const AValue : String);
begin
If (Fquery=AValue) then exit;
Fquery:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationQuery.SettableDefinitions(AIndex : Integer; const AValue : TJobConfigurationQueryTypetableDefinitions);
begin
If (FtableDefinitions=AValue) then exit;
FtableDefinitions:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationQuery.SetuseLegacySql(AIndex : Integer; const AValue : boolean);
begin
If (FuseLegacySql=AValue) then exit;
FuseLegacySql:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationQuery.SetuseQueryCache(AIndex : Integer; const AValue : boolean);
begin
If (FuseQueryCache=AValue) then exit;
FuseQueryCache:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationQuery.SetuserDefinedFunctionResources(AIndex : Integer; const AValue : TJobConfigurationQueryTypeuserDefinedFunctionResourcesArray);
begin
If (FuserDefinedFunctionResources=AValue) then exit;
FuserDefinedFunctionResources:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationQuery.SetwriteDisposition(AIndex : Integer; const AValue : String);
begin
If (FwriteDisposition=AValue) then exit;
FwriteDisposition:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TJobConfigurationQuery.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'userdefinedfunctionresources' : SetLength(FuserDefinedFunctionResources,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TJobConfigurationTableCopy
--------------------------------------------------------------------}
Procedure TJobConfigurationTableCopy.SetcreateDisposition(AIndex : Integer; const AValue : String);
begin
If (FcreateDisposition=AValue) then exit;
FcreateDisposition:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationTableCopy.SetdestinationTable(AIndex : Integer; const AValue : TTableReference);
begin
If (FdestinationTable=AValue) then exit;
FdestinationTable:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationTableCopy.SetsourceTable(AIndex : Integer; const AValue : TTableReference);
begin
If (FsourceTable=AValue) then exit;
FsourceTable:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationTableCopy.SetsourceTables(AIndex : Integer; const AValue : TJobConfigurationTableCopyTypesourceTablesArray);
begin
If (FsourceTables=AValue) then exit;
FsourceTables:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobConfigurationTableCopy.SetwriteDisposition(AIndex : Integer; const AValue : String);
begin
If (FwriteDisposition=AValue) then exit;
FwriteDisposition:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TJobConfigurationTableCopy.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'sourcetables' : SetLength(FsourceTables,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TJobListTypejobsItem
--------------------------------------------------------------------}
Procedure TJobListTypejobsItem.Setconfiguration(AIndex : Integer; const AValue : TJobConfiguration);
begin
If (Fconfiguration=AValue) then exit;
Fconfiguration:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobListTypejobsItem.SeterrorResult(AIndex : Integer; const AValue : TErrorProto);
begin
If (FerrorResult=AValue) then exit;
FerrorResult:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobListTypejobsItem.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobListTypejobsItem.SetjobReference(AIndex : Integer; const AValue : TJobReference);
begin
If (FjobReference=AValue) then exit;
FjobReference:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobListTypejobsItem.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobListTypejobsItem.Setstate(AIndex : Integer; const AValue : String);
begin
If (Fstate=AValue) then exit;
Fstate:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobListTypejobsItem.Setstatistics(AIndex : Integer; const AValue : TJobStatistics);
begin
If (Fstatistics=AValue) then exit;
Fstatistics:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobListTypejobsItem.Setstatus(AIndex : Integer; const AValue : TJobStatus);
begin
If (Fstatus=AValue) then exit;
Fstatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobListTypejobsItem.Setuser_email(AIndex : Integer; const AValue : String);
begin
If (Fuser_email=AValue) then exit;
Fuser_email:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TJobList
--------------------------------------------------------------------}
Procedure TJobList.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobList.Setjobs(AIndex : Integer; const AValue : TJobListTypejobsArray);
begin
If (Fjobs=AValue) then exit;
Fjobs:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TJobList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'jobs' : SetLength(Fjobs,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TJobReference
--------------------------------------------------------------------}
Procedure TJobReference.SetjobId(AIndex : Integer; const AValue : String);
begin
If (FjobId=AValue) then exit;
FjobId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobReference.SetprojectId(AIndex : Integer; const AValue : String);
begin
If (FprojectId=AValue) then exit;
FprojectId:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TJobStatistics
--------------------------------------------------------------------}
Procedure TJobStatistics.SetcreationTime(AIndex : Integer; const AValue : String);
begin
If (FcreationTime=AValue) then exit;
FcreationTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobStatistics.SetendTime(AIndex : Integer; const AValue : String);
begin
If (FendTime=AValue) then exit;
FendTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobStatistics.Setextract(AIndex : Integer; const AValue : TJobStatistics4);
begin
If (Fextract=AValue) then exit;
Fextract:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobStatistics.Setload(AIndex : Integer; const AValue : TJobStatistics3);
begin
If (Fload=AValue) then exit;
Fload:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobStatistics.Setquery(AIndex : Integer; const AValue : TJobStatistics2);
begin
If (Fquery=AValue) then exit;
Fquery:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobStatistics.SetstartTime(AIndex : Integer; const AValue : String);
begin
If (FstartTime=AValue) then exit;
FstartTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobStatistics.SettotalBytesProcessed(AIndex : Integer; const AValue : String);
begin
If (FtotalBytesProcessed=AValue) then exit;
FtotalBytesProcessed:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TJobStatistics2
--------------------------------------------------------------------}
Procedure TJobStatistics2.SetbillingTier(AIndex : Integer; const AValue : integer);
begin
If (FbillingTier=AValue) then exit;
FbillingTier:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobStatistics2.SetcacheHit(AIndex : Integer; const AValue : boolean);
begin
If (FcacheHit=AValue) then exit;
FcacheHit:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobStatistics2.SetqueryPlan(AIndex : Integer; const AValue : TJobStatistics2TypequeryPlanArray);
begin
If (FqueryPlan=AValue) then exit;
FqueryPlan:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobStatistics2.SetreferencedTables(AIndex : Integer; const AValue : TJobStatistics2TypereferencedTablesArray);
begin
If (FreferencedTables=AValue) then exit;
FreferencedTables:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobStatistics2.Setschema(AIndex : Integer; const AValue : TTableSchema);
begin
If (Fschema=AValue) then exit;
Fschema:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobStatistics2.SettotalBytesBilled(AIndex : Integer; const AValue : String);
begin
If (FtotalBytesBilled=AValue) then exit;
FtotalBytesBilled:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobStatistics2.SettotalBytesProcessed(AIndex : Integer; const AValue : String);
begin
If (FtotalBytesProcessed=AValue) then exit;
FtotalBytesProcessed:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TJobStatistics2.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'queryplan' : SetLength(FqueryPlan,ALength);
'referencedtables' : SetLength(FreferencedTables,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TJobStatistics3
--------------------------------------------------------------------}
Procedure TJobStatistics3.SetinputFileBytes(AIndex : Integer; const AValue : String);
begin
If (FinputFileBytes=AValue) then exit;
FinputFileBytes:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobStatistics3.SetinputFiles(AIndex : Integer; const AValue : String);
begin
If (FinputFiles=AValue) then exit;
FinputFiles:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobStatistics3.SetoutputBytes(AIndex : Integer; const AValue : String);
begin
If (FoutputBytes=AValue) then exit;
FoutputBytes:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobStatistics3.SetoutputRows(AIndex : Integer; const AValue : String);
begin
If (FoutputRows=AValue) then exit;
FoutputRows:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TJobStatistics4
--------------------------------------------------------------------}
Procedure TJobStatistics4.SetdestinationUriFileCounts(AIndex : Integer; const AValue : TStringArray);
begin
If (FdestinationUriFileCounts=AValue) then exit;
FdestinationUriFileCounts:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TJobStatistics4.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'destinationurifilecounts' : SetLength(FdestinationUriFileCounts,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TJobStatus
--------------------------------------------------------------------}
Procedure TJobStatus.SeterrorResult(AIndex : Integer; const AValue : TErrorProto);
begin
If (FerrorResult=AValue) then exit;
FerrorResult:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobStatus.Seterrors(AIndex : Integer; const AValue : TJobStatusTypeerrorsArray);
begin
If (Ferrors=AValue) then exit;
Ferrors:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TJobStatus.Setstate(AIndex : Integer; const AValue : String);
begin
If (Fstate=AValue) then exit;
Fstate:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TJobStatus.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'errors' : SetLength(Ferrors,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TJsonObject
--------------------------------------------------------------------}
Class Function TJsonObject.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TProjectListTypeprojectsItem
--------------------------------------------------------------------}
Procedure TProjectListTypeprojectsItem.SetfriendlyName(AIndex : Integer; const AValue : String);
begin
If (FfriendlyName=AValue) then exit;
FfriendlyName:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TProjectListTypeprojectsItem.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TProjectListTypeprojectsItem.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TProjectListTypeprojectsItem.SetnumericId(AIndex : Integer; const AValue : String);
begin
If (FnumericId=AValue) then exit;
FnumericId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TProjectListTypeprojectsItem.SetprojectReference(AIndex : Integer; const AValue : TProjectReference);
begin
If (FprojectReference=AValue) then exit;
FprojectReference:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TProjectList
--------------------------------------------------------------------}
Procedure TProjectList.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TProjectList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TProjectList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TProjectList.Setprojects(AIndex : Integer; const AValue : TProjectListTypeprojectsArray);
begin
If (Fprojects=AValue) then exit;
Fprojects:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TProjectList.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
FtotalItems:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TProjectList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'projects' : SetLength(Fprojects,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TProjectReference
--------------------------------------------------------------------}
Procedure TProjectReference.SetprojectId(AIndex : Integer; const AValue : String);
begin
If (FprojectId=AValue) then exit;
FprojectId:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TQueryRequest
--------------------------------------------------------------------}
Procedure TQueryRequest.SetdefaultDataset(AIndex : Integer; const AValue : TDatasetReference);
begin
If (FdefaultDataset=AValue) then exit;
FdefaultDataset:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TQueryRequest.SetdryRun(AIndex : Integer; const AValue : boolean);
begin
If (FdryRun=AValue) then exit;
FdryRun:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TQueryRequest.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TQueryRequest.SetmaxResults(AIndex : Integer; const AValue : integer);
begin
If (FmaxResults=AValue) then exit;
FmaxResults:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TQueryRequest.SetpreserveNulls(AIndex : Integer; const AValue : boolean);
begin
If (FpreserveNulls=AValue) then exit;
FpreserveNulls:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TQueryRequest.Setquery(AIndex : Integer; const AValue : String);
begin
If (Fquery=AValue) then exit;
Fquery:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TQueryRequest.SettimeoutMs(AIndex : Integer; const AValue : integer);
begin
If (FtimeoutMs=AValue) then exit;
FtimeoutMs:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TQueryRequest.SetuseLegacySql(AIndex : Integer; const AValue : boolean);
begin
If (FuseLegacySql=AValue) then exit;
FuseLegacySql:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TQueryRequest.SetuseQueryCache(AIndex : Integer; const AValue : boolean);
begin
If (FuseQueryCache=AValue) then exit;
FuseQueryCache:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TQueryResponse
--------------------------------------------------------------------}
Procedure TQueryResponse.SetcacheHit(AIndex : Integer; const AValue : boolean);
begin
If (FcacheHit=AValue) then exit;
FcacheHit:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TQueryResponse.Seterrors(AIndex : Integer; const AValue : TQueryResponseTypeerrorsArray);
begin
If (Ferrors=AValue) then exit;
Ferrors:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TQueryResponse.SetjobComplete(AIndex : Integer; const AValue : boolean);
begin
If (FjobComplete=AValue) then exit;
FjobComplete:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TQueryResponse.SetjobReference(AIndex : Integer; const AValue : TJobReference);
begin
If (FjobReference=AValue) then exit;
FjobReference:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TQueryResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TQueryResponse.SetpageToken(AIndex : Integer; const AValue : String);
begin
If (FpageToken=AValue) then exit;
FpageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TQueryResponse.Setrows(AIndex : Integer; const AValue : TQueryResponseTyperowsArray);
begin
If (Frows=AValue) then exit;
Frows:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TQueryResponse.Setschema(AIndex : Integer; const AValue : TTableSchema);
begin
If (Fschema=AValue) then exit;
Fschema:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TQueryResponse.SettotalBytesProcessed(AIndex : Integer; const AValue : String);
begin
If (FtotalBytesProcessed=AValue) then exit;
FtotalBytesProcessed:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TQueryResponse.SettotalRows(AIndex : Integer; const AValue : String);
begin
If (FtotalRows=AValue) then exit;
FtotalRows:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TQueryResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'errors' : SetLength(Ferrors,ALength);
'rows' : SetLength(Frows,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TStreamingbuffer
--------------------------------------------------------------------}
Procedure TStreamingbuffer.SetestimatedBytes(AIndex : Integer; const AValue : String);
begin
If (FestimatedBytes=AValue) then exit;
FestimatedBytes:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStreamingbuffer.SetestimatedRows(AIndex : Integer; const AValue : String);
begin
If (FestimatedRows=AValue) then exit;
FestimatedRows:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStreamingbuffer.SetoldestEntryTime(AIndex : Integer; const AValue : String);
begin
If (FoldestEntryTime=AValue) then exit;
FoldestEntryTime:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TTable
--------------------------------------------------------------------}
Procedure TTable.SetcreationTime(AIndex : Integer; const AValue : String);
begin
If (FcreationTime=AValue) then exit;
FcreationTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTable.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTable.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTable.SetexpirationTime(AIndex : Integer; const AValue : String);
begin
If (FexpirationTime=AValue) then exit;
FexpirationTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTable.SetexternalDataConfiguration(AIndex : Integer; const AValue : TExternalDataConfiguration);
begin
If (FexternalDataConfiguration=AValue) then exit;
FexternalDataConfiguration:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTable.SetfriendlyName(AIndex : Integer; const AValue : String);
begin
If (FfriendlyName=AValue) then exit;
FfriendlyName:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTable.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTable.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTable.SetlastModifiedTime(AIndex : Integer; const AValue : String);
begin
If (FlastModifiedTime=AValue) then exit;
FlastModifiedTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTable.Setlocation(AIndex : Integer; const AValue : String);
begin
If (Flocation=AValue) then exit;
Flocation:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTable.SetnumBytes(AIndex : Integer; const AValue : String);
begin
If (FnumBytes=AValue) then exit;
FnumBytes:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTable.SetnumLongTermBytes(AIndex : Integer; const AValue : String);
begin
If (FnumLongTermBytes=AValue) then exit;
FnumLongTermBytes:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTable.SetnumRows(AIndex : Integer; const AValue : String);
begin
If (FnumRows=AValue) then exit;
FnumRows:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTable.Setschema(AIndex : Integer; const AValue : TTableSchema);
begin
If (Fschema=AValue) then exit;
Fschema:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTable.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTable.SetstreamingBuffer(AIndex : Integer; const AValue : TStreamingbuffer);
begin
If (FstreamingBuffer=AValue) then exit;
FstreamingBuffer:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTable.SettableReference(AIndex : Integer; const AValue : TTableReference);
begin
If (FtableReference=AValue) then exit;
FtableReference:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTable.SettimePartitioning(AIndex : Integer; const AValue : TTimePartitioning);
begin
If (FtimePartitioning=AValue) then exit;
FtimePartitioning:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTable.Set_type(AIndex : Integer; const AValue : String);
begin
If (F_type=AValue) then exit;
F_type:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTable.Setview(AIndex : Integer; const AValue : TViewDefinition);
begin
If (Fview=AValue) then exit;
Fview:=AValue;
MarkPropertyChanged(AIndex);
end;
Class Function TTable.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
'_type' : Result:='type';
else
Result:=Inherited ExportPropertyName(AName);
end;
end;
{ --------------------------------------------------------------------
TTableCell
--------------------------------------------------------------------}
Procedure TTableCell.Setv(AIndex : Integer; const AValue : TJSONSchema);
begin
If (Fv=AValue) then exit;
Fv:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TTableDataInsertAllRequestTyperowsItem
--------------------------------------------------------------------}
Procedure TTableDataInsertAllRequestTyperowsItem.SetinsertId(AIndex : Integer; const AValue : String);
begin
If (FinsertId=AValue) then exit;
FinsertId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTableDataInsertAllRequestTyperowsItem.Setjson(AIndex : Integer; const AValue : TJsonObject);
begin
If (Fjson=AValue) then exit;
Fjson:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TTableDataInsertAllRequest
--------------------------------------------------------------------}
Procedure TTableDataInsertAllRequest.SetignoreUnknownValues(AIndex : Integer; const AValue : boolean);
begin
If (FignoreUnknownValues=AValue) then exit;
FignoreUnknownValues:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTableDataInsertAllRequest.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTableDataInsertAllRequest.Setrows(AIndex : Integer; const AValue : TTableDataInsertAllRequestTyperowsArray);
begin
If (Frows=AValue) then exit;
Frows:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTableDataInsertAllRequest.SetskipInvalidRows(AIndex : Integer; const AValue : boolean);
begin
If (FskipInvalidRows=AValue) then exit;
FskipInvalidRows:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTableDataInsertAllRequest.SettemplateSuffix(AIndex : Integer; const AValue : String);
begin
If (FtemplateSuffix=AValue) then exit;
FtemplateSuffix:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTableDataInsertAllRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'rows' : SetLength(Frows,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTableDataInsertAllResponseTypeinsertErrorsItem
--------------------------------------------------------------------}
Procedure TTableDataInsertAllResponseTypeinsertErrorsItem.Seterrors(AIndex : Integer; const AValue : TTableDataInsertAllResponseTypeinsertErrorsItemTypeerrorsArray);
begin
If (Ferrors=AValue) then exit;
Ferrors:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTableDataInsertAllResponseTypeinsertErrorsItem.Setindex(AIndex : Integer; const AValue : integer);
begin
If (Findex=AValue) then exit;
Findex:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTableDataInsertAllResponseTypeinsertErrorsItem.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'errors' : SetLength(Ferrors,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTableDataInsertAllResponse
--------------------------------------------------------------------}
Procedure TTableDataInsertAllResponse.SetinsertErrors(AIndex : Integer; const AValue : TTableDataInsertAllResponseTypeinsertErrorsArray);
begin
If (FinsertErrors=AValue) then exit;
FinsertErrors:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTableDataInsertAllResponse.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTableDataInsertAllResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'inserterrors' : SetLength(FinsertErrors,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTableDataList
--------------------------------------------------------------------}
Procedure TTableDataList.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTableDataList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTableDataList.SetpageToken(AIndex : Integer; const AValue : String);
begin
If (FpageToken=AValue) then exit;
FpageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTableDataList.Setrows(AIndex : Integer; const AValue : TTableDataListTyperowsArray);
begin
If (Frows=AValue) then exit;
Frows:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTableDataList.SettotalRows(AIndex : Integer; const AValue : String);
begin
If (FtotalRows=AValue) then exit;
FtotalRows:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTableDataList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'rows' : SetLength(Frows,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTableFieldSchema
--------------------------------------------------------------------}
Procedure TTableFieldSchema.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTableFieldSchema.Setfields(AIndex : Integer; const AValue : TTableFieldSchemaTypefieldsArray);
begin
If (Ffields=AValue) then exit;
Ffields:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTableFieldSchema.Setmode(AIndex : Integer; const AValue : String);
begin
If (Fmode=AValue) then exit;
Fmode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTableFieldSchema.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTableFieldSchema.Set_type(AIndex : Integer; const AValue : String);
begin
If (F_type=AValue) then exit;
F_type:=AValue;
MarkPropertyChanged(AIndex);
end;
Class Function TTableFieldSchema.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
'_type' : Result:='type';
else
Result:=Inherited ExportPropertyName(AName);
end;
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTableFieldSchema.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'fields' : SetLength(Ffields,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTableListTypetablesItem
--------------------------------------------------------------------}
Procedure TTableListTypetablesItem.SetfriendlyName(AIndex : Integer; const AValue : String);
begin
If (FfriendlyName=AValue) then exit;
FfriendlyName:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTableListTypetablesItem.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTableListTypetablesItem.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTableListTypetablesItem.SettableReference(AIndex : Integer; const AValue : TTableReference);
begin
If (FtableReference=AValue) then exit;
FtableReference:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTableListTypetablesItem.Set_type(AIndex : Integer; const AValue : String);
begin
If (F_type=AValue) then exit;
F_type:=AValue;
MarkPropertyChanged(AIndex);
end;
Class Function TTableListTypetablesItem.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
'_type' : Result:='type';
else
Result:=Inherited ExportPropertyName(AName);
end;
end;
{ --------------------------------------------------------------------
TTableList
--------------------------------------------------------------------}
Procedure TTableList.Setetag(AIndex : Integer; const AValue : String);
begin
If (Fetag=AValue) then exit;
Fetag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTableList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTableList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTableList.Settables(AIndex : Integer; const AValue : TTableListTypetablesArray);
begin
If (Ftables=AValue) then exit;
Ftables:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTableList.SettotalItems(AIndex : Integer; const AValue : integer);
begin
If (FtotalItems=AValue) then exit;
FtotalItems:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTableList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'tables' : SetLength(Ftables,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTableReference
--------------------------------------------------------------------}
Procedure TTableReference.SetdatasetId(AIndex : Integer; const AValue : String);
begin
If (FdatasetId=AValue) then exit;
FdatasetId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTableReference.SetprojectId(AIndex : Integer; const AValue : String);
begin
If (FprojectId=AValue) then exit;
FprojectId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTableReference.SettableId(AIndex : Integer; const AValue : String);
begin
If (FtableId=AValue) then exit;
FtableId:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TTableRow
--------------------------------------------------------------------}
Procedure TTableRow.Setf(AIndex : Integer; const AValue : TTableRowTypefArray);
begin
If (Ff=AValue) then exit;
Ff:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTableRow.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'f' : SetLength(Ff,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTableSchema
--------------------------------------------------------------------}
Procedure TTableSchema.Setfields(AIndex : Integer; const AValue : TTableSchemaTypefieldsArray);
begin
If (Ffields=AValue) then exit;
Ffields:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTableSchema.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'fields' : SetLength(Ffields,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTimePartitioning
--------------------------------------------------------------------}
Procedure TTimePartitioning.SetexpirationMs(AIndex : Integer; const AValue : String);
begin
If (FexpirationMs=AValue) then exit;
FexpirationMs:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTimePartitioning.Set_type(AIndex : Integer; const AValue : String);
begin
If (F_type=AValue) then exit;
F_type:=AValue;
MarkPropertyChanged(AIndex);
end;
Class Function TTimePartitioning.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
'_type' : Result:='type';
else
Result:=Inherited ExportPropertyName(AName);
end;
end;
{ --------------------------------------------------------------------
TUserDefinedFunctionResource
--------------------------------------------------------------------}
Procedure TUserDefinedFunctionResource.SetinlineCode(AIndex : Integer; const AValue : String);
begin
If (FinlineCode=AValue) then exit;
FinlineCode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUserDefinedFunctionResource.SetresourceUri(AIndex : Integer; const AValue : String);
begin
If (FresourceUri=AValue) then exit;
FresourceUri:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TViewDefinition
--------------------------------------------------------------------}
Procedure TViewDefinition.Setquery(AIndex : Integer; const AValue : String);
begin
If (Fquery=AValue) then exit;
Fquery:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TViewDefinition.SetuserDefinedFunctionResources(AIndex : Integer; const AValue : TViewDefinitionTypeuserDefinedFunctionResourcesArray);
begin
If (FuserDefinedFunctionResources=AValue) then exit;
FuserDefinedFunctionResources:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TViewDefinition.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'userdefinedfunctionresources' : SetLength(FuserDefinedFunctionResources,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TDatasetsResource
--------------------------------------------------------------------}
Class Function TDatasetsResource.ResourceName : String;
begin
Result:='datasets';
end;
Class Function TDatasetsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TbigqueryAPI;
end;
Procedure TDatasetsResource.Delete(datasetId: string; projectId: string; AQuery : string = '');
Const
_HTTPMethod = 'DELETE';
_Path = 'projects/{projectId}/datasets/{datasetId}';
_Methodid = 'bigquery.datasets.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['datasetId',datasetId,'projectId',projectId]);
ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil);
end;
Procedure TDatasetsResource.Delete(datasetId: string; projectId: string; AQuery : TDatasetsdeleteOptions);
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'deleteContents',AQuery.deleteContents);
Delete(datasetId,projectId,_Q);
end;
Function TDatasetsResource.Get(datasetId: string; projectId: string) : TDataset;
Const
_HTTPMethod = 'GET';
_Path = 'projects/{projectId}/datasets/{datasetId}';
_Methodid = 'bigquery.datasets.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['datasetId',datasetId,'projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TDataset) as TDataset;
end;
Function TDatasetsResource.Insert(projectId: string; aDataset : TDataset) : TDataset;
Const
_HTTPMethod = 'POST';
_Path = 'projects/{projectId}/datasets';
_Methodid = 'bigquery.datasets.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,'',aDataset,TDataset) as TDataset;
end;
Function TDatasetsResource.List(projectId: string; AQuery : string = '') : TDatasetList;
Const
_HTTPMethod = 'GET';
_Path = 'projects/{projectId}/datasets';
_Methodid = 'bigquery.datasets.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TDatasetList) as TDatasetList;
end;
Function TDatasetsResource.List(projectId: string; AQuery : TDatasetslistOptions) : TDatasetList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'all',AQuery.all);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(projectId,_Q);
end;
Function TDatasetsResource.Patch(datasetId: string; projectId: string; aDataset : TDataset) : TDataset;
Const
_HTTPMethod = 'PATCH';
_Path = 'projects/{projectId}/datasets/{datasetId}';
_Methodid = 'bigquery.datasets.patch';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['datasetId',datasetId,'projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,'',aDataset,TDataset) as TDataset;
end;
Function TDatasetsResource.Update(datasetId: string; projectId: string; aDataset : TDataset) : TDataset;
Const
_HTTPMethod = 'PUT';
_Path = 'projects/{projectId}/datasets/{datasetId}';
_Methodid = 'bigquery.datasets.update';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['datasetId',datasetId,'projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,'',aDataset,TDataset) as TDataset;
end;
{ --------------------------------------------------------------------
TJobsResource
--------------------------------------------------------------------}
Class Function TJobsResource.ResourceName : String;
begin
Result:='jobs';
end;
Class Function TJobsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TbigqueryAPI;
end;
Function TJobsResource.Cancel(jobId: string; projectId: string) : TJobCancelResponse;
Const
_HTTPMethod = 'POST';
_Path = 'project/{projectId}/jobs/{jobId}/cancel';
_Methodid = 'bigquery.jobs.cancel';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['jobId',jobId,'projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TJobCancelResponse) as TJobCancelResponse;
end;
Function TJobsResource.Get(jobId: string; projectId: string) : TJob;
Const
_HTTPMethod = 'GET';
_Path = 'projects/{projectId}/jobs/{jobId}';
_Methodid = 'bigquery.jobs.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['jobId',jobId,'projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TJob) as TJob;
end;
Function TJobsResource.GetQueryResults(jobId: string; projectId: string; AQuery : string = '') : TGetQueryResultsResponse;
Const
_HTTPMethod = 'GET';
_Path = 'projects/{projectId}/queries/{jobId}';
_Methodid = 'bigquery.jobs.getQueryResults';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['jobId',jobId,'projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TGetQueryResultsResponse) as TGetQueryResultsResponse;
end;
Function TJobsResource.GetQueryResults(jobId: string; projectId: string; AQuery : TJobsgetQueryResultsOptions) : TGetQueryResultsResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
AddToQuery(_Q,'startIndex',AQuery.startIndex);
AddToQuery(_Q,'timeoutMs',AQuery.timeoutMs);
Result:=GetQueryResults(jobId,projectId,_Q);
end;
Function TJobsResource.Insert(projectId: string; aJob : TJob) : TJob;
Const
_HTTPMethod = 'POST';
_Path = 'projects/{projectId}/jobs';
_Methodid = 'bigquery.jobs.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,'',aJob,TJob) as TJob;
end;
Function TJobsResource.List(projectId: string; AQuery : string = '') : TJobList;
Const
_HTTPMethod = 'GET';
_Path = 'projects/{projectId}/jobs';
_Methodid = 'bigquery.jobs.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TJobList) as TJobList;
end;
Function TJobsResource.List(projectId: string; AQuery : TJobslistOptions) : TJobList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'allUsers',AQuery.allUsers);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
AddToQuery(_Q,'projection',AQuery.projection);
AddToQuery(_Q,'stateFilter',AQuery.stateFilter);
Result:=List(projectId,_Q);
end;
Function TJobsResource.Query(projectId: string; aQueryRequest : TQueryRequest) : TQueryResponse;
Const
_HTTPMethod = 'POST';
_Path = 'projects/{projectId}/queries';
_Methodid = 'bigquery.jobs.query';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,'',aQueryRequest,TQueryResponse) as TQueryResponse;
end;
{ --------------------------------------------------------------------
TProjectsResource
--------------------------------------------------------------------}
Class Function TProjectsResource.ResourceName : String;
begin
Result:='projects';
end;
Class Function TProjectsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TbigqueryAPI;
end;
Function TProjectsResource.List(AQuery : string = '') : TProjectList;
Const
_HTTPMethod = 'GET';
_Path = 'projects';
_Methodid = 'bigquery.projects.list';
begin
Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TProjectList) as TProjectList;
end;
Function TProjectsResource.List(AQuery : TProjectslistOptions) : TProjectList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(_Q);
end;
{ --------------------------------------------------------------------
TTabledataResource
--------------------------------------------------------------------}
Class Function TTabledataResource.ResourceName : String;
begin
Result:='tabledata';
end;
Class Function TTabledataResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TbigqueryAPI;
end;
Function TTabledataResource.InsertAll(datasetId: string; projectId: string; tableId: string; aTableDataInsertAllRequest : TTableDataInsertAllRequest) : TTableDataInsertAllResponse;
Const
_HTTPMethod = 'POST';
_Path = 'projects/{projectId}/datasets/{datasetId}/tables/{tableId}/insertAll';
_Methodid = 'bigquery.tabledata.insertAll';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['datasetId',datasetId,'projectId',projectId,'tableId',tableId]);
Result:=ServiceCall(_HTTPMethod,_P,'',aTableDataInsertAllRequest,TTableDataInsertAllResponse) as TTableDataInsertAllResponse;
end;
Function TTabledataResource.List(datasetId: string; projectId: string; tableId: string; AQuery : string = '') : TTableDataList;
Const
_HTTPMethod = 'GET';
_Path = 'projects/{projectId}/datasets/{datasetId}/tables/{tableId}/data';
_Methodid = 'bigquery.tabledata.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['datasetId',datasetId,'projectId',projectId,'tableId',tableId]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTableDataList) as TTableDataList;
end;
Function TTabledataResource.List(datasetId: string; projectId: string; tableId: string; AQuery : TTabledatalistOptions) : TTableDataList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
AddToQuery(_Q,'startIndex',AQuery.startIndex);
Result:=List(datasetId,projectId,tableId,_Q);
end;
{ --------------------------------------------------------------------
TTablesResource
--------------------------------------------------------------------}
Class Function TTablesResource.ResourceName : String;
begin
Result:='tables';
end;
Class Function TTablesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TbigqueryAPI;
end;
Procedure TTablesResource.Delete(datasetId: string; projectId: string; tableId: string);
Const
_HTTPMethod = 'DELETE';
_Path = 'projects/{projectId}/datasets/{datasetId}/tables/{tableId}';
_Methodid = 'bigquery.tables.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['datasetId',datasetId,'projectId',projectId,'tableId',tableId]);
ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
end;
Function TTablesResource.Get(datasetId: string; projectId: string; tableId: string) : TTable;
Const
_HTTPMethod = 'GET';
_Path = 'projects/{projectId}/datasets/{datasetId}/tables/{tableId}';
_Methodid = 'bigquery.tables.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['datasetId',datasetId,'projectId',projectId,'tableId',tableId]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TTable) as TTable;
end;
Function TTablesResource.Insert(datasetId: string; projectId: string; aTable : TTable) : TTable;
Const
_HTTPMethod = 'POST';
_Path = 'projects/{projectId}/datasets/{datasetId}/tables';
_Methodid = 'bigquery.tables.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['datasetId',datasetId,'projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,'',aTable,TTable) as TTable;
end;
Function TTablesResource.List(datasetId: string; projectId: string; AQuery : string = '') : TTableList;
Const
_HTTPMethod = 'GET';
_Path = 'projects/{projectId}/datasets/{datasetId}/tables';
_Methodid = 'bigquery.tables.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['datasetId',datasetId,'projectId',projectId]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTableList) as TTableList;
end;
Function TTablesResource.List(datasetId: string; projectId: string; AQuery : TTableslistOptions) : TTableList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(datasetId,projectId,_Q);
end;
Function TTablesResource.Patch(datasetId: string; projectId: string; tableId: string; aTable : TTable) : TTable;
Const
_HTTPMethod = 'PATCH';
_Path = 'projects/{projectId}/datasets/{datasetId}/tables/{tableId}';
_Methodid = 'bigquery.tables.patch';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['datasetId',datasetId,'projectId',projectId,'tableId',tableId]);
Result:=ServiceCall(_HTTPMethod,_P,'',aTable,TTable) as TTable;
end;
Function TTablesResource.Update(datasetId: string; projectId: string; tableId: string; aTable : TTable) : TTable;
Const
_HTTPMethod = 'PUT';
_Path = 'projects/{projectId}/datasets/{datasetId}/tables/{tableId}';
_Methodid = 'bigquery.tables.update';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['datasetId',datasetId,'projectId',projectId,'tableId',tableId]);
Result:=ServiceCall(_HTTPMethod,_P,'',aTable,TTable) as TTable;
end;
{ --------------------------------------------------------------------
TBigqueryAPI
--------------------------------------------------------------------}
Class Function TBigqueryAPI.APIName : String;
begin
Result:='bigquery';
end;
Class Function TBigqueryAPI.APIVersion : String;
begin
Result:='v2';
end;
Class Function TBigqueryAPI.APIRevision : String;
begin
Result:='20160511';
end;
Class Function TBigqueryAPI.APIID : String;
begin
Result:='bigquery:v2';
end;
Class Function TBigqueryAPI.APITitle : String;
begin
Result:='BigQuery API';
end;
Class Function TBigqueryAPI.APIDescription : String;
begin
Result:='A data platform for customers to create, manage, share and query data.';
end;
Class Function TBigqueryAPI.APIOwnerDomain : String;
begin
Result:='google.com';
end;
Class Function TBigqueryAPI.APIOwnerName : String;
begin
Result:='Google';
end;
Class Function TBigqueryAPI.APIIcon16 : String;
begin
Result:='https://www.google.com/images/icons/product/search-16.gif';
end;
Class Function TBigqueryAPI.APIIcon32 : String;
begin
Result:='https://www.google.com/images/icons/product/search-32.gif';
end;
Class Function TBigqueryAPI.APIdocumentationLink : String;
begin
Result:='https://cloud.google.com/bigquery/';
end;
Class Function TBigqueryAPI.APIrootUrl : string;
begin
Result:='https://www.googleapis.com/';
end;
Class Function TBigqueryAPI.APIbasePath : string;
begin
Result:='/bigquery/v2/';
end;
Class Function TBigqueryAPI.APIbaseURL : String;
begin
Result:='https://www.googleapis.com/bigquery/v2/';
end;
Class Function TBigqueryAPI.APIProtocol : string;
begin
Result:='rest';
end;
Class Function TBigqueryAPI.APIservicePath : string;
begin
Result:='bigquery/v2/';
end;
Class Function TBigqueryAPI.APIbatchPath : String;
begin
Result:='batch';
end;
Class Function TBigqueryAPI.APIAuthScopes : TScopeInfoArray;
begin
SetLength(Result,7);
Result[0].Name:='https://www.googleapis.com/auth/bigquery';
Result[0].Description:='View and manage your data in Google BigQuery';
Result[1].Name:='https://www.googleapis.com/auth/bigquery.insertdata';
Result[1].Description:='Insert data into Google BigQuery';
Result[2].Name:='https://www.googleapis.com/auth/cloud-platform';
Result[2].Description:='View and manage your data across Google Cloud Platform services';
Result[3].Name:='https://www.googleapis.com/auth/cloud-platform.read-only';
Result[3].Description:='View your data across Google Cloud Platform services';
Result[4].Name:='https://www.googleapis.com/auth/devstorage.full_control';
Result[4].Description:='Manage your data and permissions in Google Cloud Storage';
Result[5].Name:='https://www.googleapis.com/auth/devstorage.read_only';
Result[5].Description:='View your data in Google Cloud Storage';
Result[6].Name:='https://www.googleapis.com/auth/devstorage.read_write';
Result[6].Description:='Manage your data in Google Cloud Storage';
end;
Class Function TBigqueryAPI.APINeedsAuth : Boolean;
begin
Result:=True;
end;
Class Procedure TBigqueryAPI.RegisterAPIResources;
begin
TBigtableColumn.RegisterObject;
TBigtableColumnFamily.RegisterObject;
TBigtableOptions.RegisterObject;
TCsvOptions.RegisterObject;
TDatasetTypeaccessItem.RegisterObject;
TDataset.RegisterObject;
TDatasetListTypedatasetsItem.RegisterObject;
TDatasetList.RegisterObject;
TDatasetReference.RegisterObject;
TErrorProto.RegisterObject;
TExplainQueryStage.RegisterObject;
TExplainQueryStep.RegisterObject;
TExternalDataConfiguration.RegisterObject;
TGetQueryResultsResponse.RegisterObject;
TGoogleSheetsOptions.RegisterObject;
TJob.RegisterObject;
TJobCancelResponse.RegisterObject;
TJobConfiguration.RegisterObject;
TJobConfigurationExtract.RegisterObject;
TJobConfigurationLoad.RegisterObject;
TJobConfigurationQueryTypetableDefinitions.RegisterObject;
TJobConfigurationQuery.RegisterObject;
TJobConfigurationTableCopy.RegisterObject;
TJobListTypejobsItem.RegisterObject;
TJobList.RegisterObject;
TJobReference.RegisterObject;
TJobStatistics.RegisterObject;
TJobStatistics2.RegisterObject;
TJobStatistics3.RegisterObject;
TJobStatistics4.RegisterObject;
TJobStatus.RegisterObject;
TJsonObject.RegisterObject;
TProjectListTypeprojectsItem.RegisterObject;
TProjectList.RegisterObject;
TProjectReference.RegisterObject;
TQueryRequest.RegisterObject;
TQueryResponse.RegisterObject;
TStreamingbuffer.RegisterObject;
TTable.RegisterObject;
TTableCell.RegisterObject;
TTableDataInsertAllRequestTyperowsItem.RegisterObject;
TTableDataInsertAllRequest.RegisterObject;
TTableDataInsertAllResponseTypeinsertErrorsItem.RegisterObject;
TTableDataInsertAllResponse.RegisterObject;
TTableDataList.RegisterObject;
TTableFieldSchema.RegisterObject;
TTableListTypetablesItem.RegisterObject;
TTableList.RegisterObject;
TTableReference.RegisterObject;
TTableRow.RegisterObject;
TTableSchema.RegisterObject;
TTimePartitioning.RegisterObject;
TUserDefinedFunctionResource.RegisterObject;
TViewDefinition.RegisterObject;
end;
Function TBigqueryAPI.GetDatasetsInstance : TDatasetsResource;
begin
if (FDatasetsInstance=Nil) then
FDatasetsInstance:=CreateDatasetsResource;
Result:=FDatasetsInstance;
end;
Function TBigqueryAPI.CreateDatasetsResource : TDatasetsResource;
begin
Result:=CreateDatasetsResource(Self);
end;
Function TBigqueryAPI.CreateDatasetsResource(AOwner : TComponent) : TDatasetsResource;
begin
Result:=TDatasetsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TBigqueryAPI.GetJobsInstance : TJobsResource;
begin
if (FJobsInstance=Nil) then
FJobsInstance:=CreateJobsResource;
Result:=FJobsInstance;
end;
Function TBigqueryAPI.CreateJobsResource : TJobsResource;
begin
Result:=CreateJobsResource(Self);
end;
Function TBigqueryAPI.CreateJobsResource(AOwner : TComponent) : TJobsResource;
begin
Result:=TJobsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TBigqueryAPI.GetProjectsInstance : TProjectsResource;
begin
if (FProjectsInstance=Nil) then
FProjectsInstance:=CreateProjectsResource;
Result:=FProjectsInstance;
end;
Function TBigqueryAPI.CreateProjectsResource : TProjectsResource;
begin
Result:=CreateProjectsResource(Self);
end;
Function TBigqueryAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource;
begin
Result:=TProjectsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TBigqueryAPI.GetTabledataInstance : TTabledataResource;
begin
if (FTabledataInstance=Nil) then
FTabledataInstance:=CreateTabledataResource;
Result:=FTabledataInstance;
end;
Function TBigqueryAPI.CreateTabledataResource : TTabledataResource;
begin
Result:=CreateTabledataResource(Self);
end;
Function TBigqueryAPI.CreateTabledataResource(AOwner : TComponent) : TTabledataResource;
begin
Result:=TTabledataResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TBigqueryAPI.GetTablesInstance : TTablesResource;
begin
if (FTablesInstance=Nil) then
FTablesInstance:=CreateTablesResource;
Result:=FTablesInstance;
end;
Function TBigqueryAPI.CreateTablesResource : TTablesResource;
begin
Result:=CreateTablesResource(Self);
end;
Function TBigqueryAPI.CreateTablesResource(AOwner : TComponent) : TTablesResource;
begin
Result:=TTablesResource.Create(AOwner);
Result.API:=Self.API;
end;
initialization
TBigqueryAPI.RegisterAPI;
end.