diff options
Diffstat (limited to 'packages/googleapi/src/googlemonitoring.pp')
| -rw-r--r-- | packages/googleapi/src/googlemonitoring.pp | 3702 |
1 files changed, 3702 insertions, 0 deletions
diff --git a/packages/googleapi/src/googlemonitoring.pp b/packages/googleapi/src/googlemonitoring.pp new file mode 100644 index 0000000000..c38bfcde42 --- /dev/null +++ b/packages/googleapi/src/googlemonitoring.pp @@ -0,0 +1,3702 @@ +unit googlemonitoring; +{$MODE objfpc} +{$H+} + +interface + +uses sysutils, classes, googleservice, restbase, googlebase; + +type + + //Top-level schema types + TCreateCollectdTimeSeriesRequest = Class; + TMonitoredResource = Class; + TCollectdPayload = Class; + TCollectdValue = Class; + TTypedValue = Class; + TDistribution = Class; + TRange = Class; + TBucketOptions = Class; + TLinear = Class; + TExponential = Class; + TExplicit = Class; + TEmpty = Class; + TListGroupsResponse = Class; + TGroup = Class; + TListGroupMembersResponse = Class; + TListMonitoredResourceDescriptorsResponse = Class; + TMonitoredResourceDescriptor = Class; + TLabelDescriptor = Class; + TListMetricDescriptorsResponse = Class; + TMetricDescriptor = Class; + TListTimeSeriesResponse = Class; + TTimeSeries = Class; + TMetric = Class; + TPoint = Class; + TTimeInterval = Class; + TCreateTimeSeriesRequest = Class; + TType = Class; + TField = Class; + TOption = Class; + TSourceContext = Class; + TCreateCollectdTimeSeriesRequestArray = Array of TCreateCollectdTimeSeriesRequest; + TMonitoredResourceArray = Array of TMonitoredResource; + TCollectdPayloadArray = Array of TCollectdPayload; + TCollectdValueArray = Array of TCollectdValue; + TTypedValueArray = Array of TTypedValue; + TDistributionArray = Array of TDistribution; + TRangeArray = Array of TRange; + TBucketOptionsArray = Array of TBucketOptions; + TLinearArray = Array of TLinear; + TExponentialArray = Array of TExponential; + TExplicitArray = Array of TExplicit; + TEmptyArray = Array of TEmpty; + TListGroupsResponseArray = Array of TListGroupsResponse; + TGroupArray = Array of TGroup; + TListGroupMembersResponseArray = Array of TListGroupMembersResponse; + TListMonitoredResourceDescriptorsResponseArray = Array of TListMonitoredResourceDescriptorsResponse; + TMonitoredResourceDescriptorArray = Array of TMonitoredResourceDescriptor; + TLabelDescriptorArray = Array of TLabelDescriptor; + TListMetricDescriptorsResponseArray = Array of TListMetricDescriptorsResponse; + TMetricDescriptorArray = Array of TMetricDescriptor; + TListTimeSeriesResponseArray = Array of TListTimeSeriesResponse; + TTimeSeriesArray = Array of TTimeSeries; + TMetricArray = Array of TMetric; + TPointArray = Array of TPoint; + TTimeIntervalArray = Array of TTimeInterval; + TCreateTimeSeriesRequestArray = Array of TCreateTimeSeriesRequest; + TTypeArray = Array of TType; + TFieldArray = Array of TField; + TOptionArray = Array of TOption; + TSourceContextArray = Array of TSourceContext; + //Anonymous types, using auto-generated names + TMonitoredResourceTypelabels = Class; + TCollectdPayloadTypemetadata = Class; + TMetricTypelabels = Class; + TOptionTypevalue = Class; + TCreateCollectdTimeSeriesRequestTypecollectdPayloadsArray = Array of TCollectdPayload; + TCollectdPayloadTypevaluesArray = Array of TCollectdValue; + TListGroupsResponseTypegroupArray = Array of TGroup; + TListGroupMembersResponseTypemembersArray = Array of TMonitoredResource; + TListMonitoredResourceDescriptorsResponseTyperesourceDescriptorsArray = Array of TMonitoredResourceDescriptor; + TMonitoredResourceDescriptorTypelabelsArray = Array of TLabelDescriptor; + TListMetricDescriptorsResponseTypemetricDescriptorsArray = Array of TMetricDescriptor; + TMetricDescriptorTypelabelsArray = Array of TLabelDescriptor; + TListTimeSeriesResponseTypetimeSeriesArray = Array of TTimeSeries; + TTimeSeriesTypepointsArray = Array of TPoint; + TCreateTimeSeriesRequestTypetimeSeriesArray = Array of TTimeSeries; + TTypeTypefieldsArray = Array of TField; + TTypeTypeoptionsArray = Array of TOption; + TFieldTypeoptionsArray = Array of TOption; + + { -------------------------------------------------------------------- + TCreateCollectdTimeSeriesRequest + --------------------------------------------------------------------} + + TCreateCollectdTimeSeriesRequest = Class(TGoogleBaseObject) + Private + Fresource : TMonitoredResource; + FcollectdVersion : String; + FcollectdPayloads : TCreateCollectdTimeSeriesRequestTypecollectdPayloadsArray; + Protected + //Property setters + Procedure Setresource(AIndex : Integer; const AValue : TMonitoredResource); virtual; + Procedure SetcollectdVersion(AIndex : Integer; const AValue : String); virtual; + Procedure SetcollectdPayloads(AIndex : Integer; const AValue : TCreateCollectdTimeSeriesRequestTypecollectdPayloadsArray); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property resource : TMonitoredResource Index 0 Read Fresource Write Setresource; + Property collectdVersion : String Index 8 Read FcollectdVersion Write SetcollectdVersion; + Property collectdPayloads : TCreateCollectdTimeSeriesRequestTypecollectdPayloadsArray Index 16 Read FcollectdPayloads Write SetcollectdPayloads; + end; + TCreateCollectdTimeSeriesRequestClass = Class of TCreateCollectdTimeSeriesRequest; + + { -------------------------------------------------------------------- + TMonitoredResourceTypelabels + --------------------------------------------------------------------} + + TMonitoredResourceTypelabels = Class(TGoogleBaseObject) + Private + Protected + //Property setters + Public + Class Function AllowAdditionalProperties : Boolean; override; + Published + end; + TMonitoredResourceTypelabelsClass = Class of TMonitoredResourceTypelabels; + + { -------------------------------------------------------------------- + TMonitoredResource + --------------------------------------------------------------------} + + TMonitoredResource = Class(TGoogleBaseObject) + Private + F_type : String; + Flabels : TMonitoredResourceTypelabels; + Protected + Class Function ExportPropertyName(Const AName : String) : string; override; + //Property setters + Procedure Set_type(AIndex : Integer; const AValue : String); virtual; + Procedure Setlabels(AIndex : Integer; const AValue : TMonitoredResourceTypelabels); virtual; + Public + Published + Property _type : String Index 0 Read F_type Write Set_type; + Property labels : TMonitoredResourceTypelabels Index 8 Read Flabels Write Setlabels; + end; + TMonitoredResourceClass = Class of TMonitoredResource; + + { -------------------------------------------------------------------- + TCollectdPayloadTypemetadata + --------------------------------------------------------------------} + + TCollectdPayloadTypemetadata = Class(TGoogleBaseObject) + Private + Protected + //Property setters + Public + Class Function AllowAdditionalProperties : Boolean; override; + Published + end; + TCollectdPayloadTypemetadataClass = Class of TCollectdPayloadTypemetadata; + + { -------------------------------------------------------------------- + TCollectdPayload + --------------------------------------------------------------------} + + TCollectdPayload = Class(TGoogleBaseObject) + Private + Fvalues : TCollectdPayloadTypevaluesArray; + FstartTime : String; + FendTime : String; + Fplugin : String; + FpluginInstance : String; + F_type : String; + FtypeInstance : String; + Fmetadata : TCollectdPayloadTypemetadata; + Protected + Class Function ExportPropertyName(Const AName : String) : string; override; + //Property setters + Procedure Setvalues(AIndex : Integer; const AValue : TCollectdPayloadTypevaluesArray); virtual; + Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual; + Procedure SetendTime(AIndex : Integer; const AValue : String); virtual; + Procedure Setplugin(AIndex : Integer; const AValue : String); virtual; + Procedure SetpluginInstance(AIndex : Integer; const AValue : String); virtual; + Procedure Set_type(AIndex : Integer; const AValue : String); virtual; + Procedure SettypeInstance(AIndex : Integer; const AValue : String); virtual; + Procedure Setmetadata(AIndex : Integer; const AValue : TCollectdPayloadTypemetadata); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property values : TCollectdPayloadTypevaluesArray Index 0 Read Fvalues Write Setvalues; + Property startTime : String Index 8 Read FstartTime Write SetstartTime; + Property endTime : String Index 16 Read FendTime Write SetendTime; + Property plugin : String Index 24 Read Fplugin Write Setplugin; + Property pluginInstance : String Index 32 Read FpluginInstance Write SetpluginInstance; + Property _type : String Index 40 Read F_type Write Set_type; + Property typeInstance : String Index 48 Read FtypeInstance Write SettypeInstance; + Property metadata : TCollectdPayloadTypemetadata Index 56 Read Fmetadata Write Setmetadata; + end; + TCollectdPayloadClass = Class of TCollectdPayload; + + { -------------------------------------------------------------------- + TCollectdValue + --------------------------------------------------------------------} + + TCollectdValue = Class(TGoogleBaseObject) + Private + FdataSourceName : String; + FdataSourceType : String; + Fvalue : TTypedValue; + Protected + //Property setters + Procedure SetdataSourceName(AIndex : Integer; const AValue : String); virtual; + Procedure SetdataSourceType(AIndex : Integer; const AValue : String); virtual; + Procedure Setvalue(AIndex : Integer; const AValue : TTypedValue); virtual; + Public + Published + Property dataSourceName : String Index 0 Read FdataSourceName Write SetdataSourceName; + Property dataSourceType : String Index 8 Read FdataSourceType Write SetdataSourceType; + Property value : TTypedValue Index 16 Read Fvalue Write Setvalue; + end; + TCollectdValueClass = Class of TCollectdValue; + + { -------------------------------------------------------------------- + TTypedValue + --------------------------------------------------------------------} + + TTypedValue = Class(TGoogleBaseObject) + Private + FboolValue : boolean; + Fint64Value : String; + FdoubleValue : double; + FstringValue : String; + FdistributionValue : TDistribution; + Protected + //Property setters + Procedure SetboolValue(AIndex : Integer; const AValue : boolean); virtual; + Procedure Setint64Value(AIndex : Integer; const AValue : String); virtual; + Procedure SetdoubleValue(AIndex : Integer; const AValue : double); virtual; + Procedure SetstringValue(AIndex : Integer; const AValue : String); virtual; + Procedure SetdistributionValue(AIndex : Integer; const AValue : TDistribution); virtual; + Public + Published + Property boolValue : boolean Index 0 Read FboolValue Write SetboolValue; + Property int64Value : String Index 8 Read Fint64Value Write Setint64Value; + Property doubleValue : double Index 16 Read FdoubleValue Write SetdoubleValue; + Property stringValue : String Index 24 Read FstringValue Write SetstringValue; + Property distributionValue : TDistribution Index 32 Read FdistributionValue Write SetdistributionValue; + end; + TTypedValueClass = Class of TTypedValue; + + { -------------------------------------------------------------------- + TDistribution + --------------------------------------------------------------------} + + TDistribution = Class(TGoogleBaseObject) + Private + Fcount : String; + Fmean : double; + FsumOfSquaredDeviation : double; + Frange : TRange; + FbucketOptions : TBucketOptions; + FbucketCounts : TStringArray; + Protected + //Property setters + Procedure Setcount(AIndex : Integer; const AValue : String); virtual; + Procedure Setmean(AIndex : Integer; const AValue : double); virtual; + Procedure SetsumOfSquaredDeviation(AIndex : Integer; const AValue : double); virtual; + Procedure Setrange(AIndex : Integer; const AValue : TRange); virtual; + Procedure SetbucketOptions(AIndex : Integer; const AValue : TBucketOptions); virtual; + Procedure SetbucketCounts(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 count : String Index 0 Read Fcount Write Setcount; + Property mean : double Index 8 Read Fmean Write Setmean; + Property sumOfSquaredDeviation : double Index 16 Read FsumOfSquaredDeviation Write SetsumOfSquaredDeviation; + Property range : TRange Index 24 Read Frange Write Setrange; + Property bucketOptions : TBucketOptions Index 32 Read FbucketOptions Write SetbucketOptions; + Property bucketCounts : TStringArray Index 40 Read FbucketCounts Write SetbucketCounts; + end; + TDistributionClass = Class of TDistribution; + + { -------------------------------------------------------------------- + TRange + --------------------------------------------------------------------} + + TRange = Class(TGoogleBaseObject) + Private + Fmin : double; + Fmax : double; + Protected + //Property setters + Procedure Setmin(AIndex : Integer; const AValue : double); virtual; + Procedure Setmax(AIndex : Integer; const AValue : double); virtual; + Public + Published + Property min : double Index 0 Read Fmin Write Setmin; + Property max : double Index 8 Read Fmax Write Setmax; + end; + TRangeClass = Class of TRange; + + { -------------------------------------------------------------------- + TBucketOptions + --------------------------------------------------------------------} + + TBucketOptions = Class(TGoogleBaseObject) + Private + FlinearBuckets : TLinear; + FexponentialBuckets : TExponential; + FexplicitBuckets : TExplicit; + Protected + //Property setters + Procedure SetlinearBuckets(AIndex : Integer; const AValue : TLinear); virtual; + Procedure SetexponentialBuckets(AIndex : Integer; const AValue : TExponential); virtual; + Procedure SetexplicitBuckets(AIndex : Integer; const AValue : TExplicit); virtual; + Public + Published + Property linearBuckets : TLinear Index 0 Read FlinearBuckets Write SetlinearBuckets; + Property exponentialBuckets : TExponential Index 8 Read FexponentialBuckets Write SetexponentialBuckets; + Property explicitBuckets : TExplicit Index 16 Read FexplicitBuckets Write SetexplicitBuckets; + end; + TBucketOptionsClass = Class of TBucketOptions; + + { -------------------------------------------------------------------- + TLinear + --------------------------------------------------------------------} + + TLinear = Class(TGoogleBaseObject) + Private + FnumFiniteBuckets : integer; + Fwidth : double; + Foffset : double; + Protected + //Property setters + Procedure SetnumFiniteBuckets(AIndex : Integer; const AValue : integer); virtual; + Procedure Setwidth(AIndex : Integer; const AValue : double); virtual; + Procedure Setoffset(AIndex : Integer; const AValue : double); virtual; + Public + Published + Property numFiniteBuckets : integer Index 0 Read FnumFiniteBuckets Write SetnumFiniteBuckets; + Property width : double Index 8 Read Fwidth Write Setwidth; + Property offset : double Index 16 Read Foffset Write Setoffset; + end; + TLinearClass = Class of TLinear; + + { -------------------------------------------------------------------- + TExponential + --------------------------------------------------------------------} + + TExponential = Class(TGoogleBaseObject) + Private + FnumFiniteBuckets : integer; + FgrowthFactor : double; + Fscale : double; + Protected + //Property setters + Procedure SetnumFiniteBuckets(AIndex : Integer; const AValue : integer); virtual; + Procedure SetgrowthFactor(AIndex : Integer; const AValue : double); virtual; + Procedure Setscale(AIndex : Integer; const AValue : double); virtual; + Public + Published + Property numFiniteBuckets : integer Index 0 Read FnumFiniteBuckets Write SetnumFiniteBuckets; + Property growthFactor : double Index 8 Read FgrowthFactor Write SetgrowthFactor; + Property scale : double Index 16 Read Fscale Write Setscale; + end; + TExponentialClass = Class of TExponential; + + { -------------------------------------------------------------------- + TExplicit + --------------------------------------------------------------------} + + TExplicit = Class(TGoogleBaseObject) + Private + Fbounds : TdoubleArray; + Protected + //Property setters + Procedure Setbounds(AIndex : Integer; const AValue : TdoubleArray); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property bounds : TdoubleArray Index 0 Read Fbounds Write Setbounds; + end; + TExplicitClass = Class of TExplicit; + + { -------------------------------------------------------------------- + TEmpty + --------------------------------------------------------------------} + + TEmpty = Class(TGoogleBaseObject) + Private + Protected + //Property setters + Public + Published + end; + TEmptyClass = Class of TEmpty; + + { -------------------------------------------------------------------- + TListGroupsResponse + --------------------------------------------------------------------} + + TListGroupsResponse = Class(TGoogleBaseObject) + Private + Fgroup : TListGroupsResponseTypegroupArray; + FnextPageToken : String; + Protected + //Property setters + Procedure Setgroup(AIndex : Integer; const AValue : TListGroupsResponseTypegroupArray); 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 group : TListGroupsResponseTypegroupArray Index 0 Read Fgroup Write Setgroup; + Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken; + end; + TListGroupsResponseClass = Class of TListGroupsResponse; + + { -------------------------------------------------------------------- + TGroup + --------------------------------------------------------------------} + + TGroup = Class(TGoogleBaseObject) + Private + Fname : String; + FdisplayName : String; + FparentName : String; + Ffilter : String; + FisCluster : boolean; + Protected + //Property setters + Procedure Setname(AIndex : Integer; const AValue : String); virtual; + Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual; + Procedure SetparentName(AIndex : Integer; const AValue : String); virtual; + Procedure Setfilter(AIndex : Integer; const AValue : String); virtual; + Procedure SetisCluster(AIndex : Integer; const AValue : boolean); virtual; + Public + Published + Property name : String Index 0 Read Fname Write Setname; + Property displayName : String Index 8 Read FdisplayName Write SetdisplayName; + Property parentName : String Index 16 Read FparentName Write SetparentName; + Property filter : String Index 24 Read Ffilter Write Setfilter; + Property isCluster : boolean Index 32 Read FisCluster Write SetisCluster; + end; + TGroupClass = Class of TGroup; + + { -------------------------------------------------------------------- + TListGroupMembersResponse + --------------------------------------------------------------------} + + TListGroupMembersResponse = Class(TGoogleBaseObject) + Private + Fmembers : TListGroupMembersResponseTypemembersArray; + FnextPageToken : String; + FtotalSize : integer; + Protected + //Property setters + Procedure Setmembers(AIndex : Integer; const AValue : TListGroupMembersResponseTypemembersArray); virtual; + Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual; + Procedure SettotalSize(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 members : TListGroupMembersResponseTypemembersArray Index 0 Read Fmembers Write Setmembers; + Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken; + Property totalSize : integer Index 16 Read FtotalSize Write SettotalSize; + end; + TListGroupMembersResponseClass = Class of TListGroupMembersResponse; + + { -------------------------------------------------------------------- + TListMonitoredResourceDescriptorsResponse + --------------------------------------------------------------------} + + TListMonitoredResourceDescriptorsResponse = Class(TGoogleBaseObject) + Private + FresourceDescriptors : TListMonitoredResourceDescriptorsResponseTyperesourceDescriptorsArray; + FnextPageToken : String; + Protected + //Property setters + Procedure SetresourceDescriptors(AIndex : Integer; const AValue : TListMonitoredResourceDescriptorsResponseTyperesourceDescriptorsArray); 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 resourceDescriptors : TListMonitoredResourceDescriptorsResponseTyperesourceDescriptorsArray Index 0 Read FresourceDescriptors Write SetresourceDescriptors; + Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken; + end; + TListMonitoredResourceDescriptorsResponseClass = Class of TListMonitoredResourceDescriptorsResponse; + + { -------------------------------------------------------------------- + TMonitoredResourceDescriptor + --------------------------------------------------------------------} + + TMonitoredResourceDescriptor = Class(TGoogleBaseObject) + Private + Fname : String; + F_type : String; + FdisplayName : String; + Fdescription : String; + Flabels : TMonitoredResourceDescriptorTypelabelsArray; + Protected + Class Function ExportPropertyName(Const AName : String) : string; override; + //Property setters + Procedure Setname(AIndex : Integer; const AValue : String); virtual; + Procedure Set_type(AIndex : Integer; const AValue : String); virtual; + Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual; + Procedure Setdescription(AIndex : Integer; const AValue : String); virtual; + Procedure Setlabels(AIndex : Integer; const AValue : TMonitoredResourceDescriptorTypelabelsArray); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property name : String Index 0 Read Fname Write Setname; + Property _type : String Index 8 Read F_type Write Set_type; + Property displayName : String Index 16 Read FdisplayName Write SetdisplayName; + Property description : String Index 24 Read Fdescription Write Setdescription; + Property labels : TMonitoredResourceDescriptorTypelabelsArray Index 32 Read Flabels Write Setlabels; + end; + TMonitoredResourceDescriptorClass = Class of TMonitoredResourceDescriptor; + + { -------------------------------------------------------------------- + TLabelDescriptor + --------------------------------------------------------------------} + + TLabelDescriptor = Class(TGoogleBaseObject) + Private + Fkey : String; + FvalueType : String; + Fdescription : String; + Protected + //Property setters + Procedure Setkey(AIndex : Integer; const AValue : String); virtual; + Procedure SetvalueType(AIndex : Integer; const AValue : String); virtual; + Procedure Setdescription(AIndex : Integer; const AValue : String); virtual; + Public + Published + Property key : String Index 0 Read Fkey Write Setkey; + Property valueType : String Index 8 Read FvalueType Write SetvalueType; + Property description : String Index 16 Read Fdescription Write Setdescription; + end; + TLabelDescriptorClass = Class of TLabelDescriptor; + + { -------------------------------------------------------------------- + TListMetricDescriptorsResponse + --------------------------------------------------------------------} + + TListMetricDescriptorsResponse = Class(TGoogleBaseObject) + Private + FmetricDescriptors : TListMetricDescriptorsResponseTypemetricDescriptorsArray; + FnextPageToken : String; + Protected + //Property setters + Procedure SetmetricDescriptors(AIndex : Integer; const AValue : TListMetricDescriptorsResponseTypemetricDescriptorsArray); 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 metricDescriptors : TListMetricDescriptorsResponseTypemetricDescriptorsArray Index 0 Read FmetricDescriptors Write SetmetricDescriptors; + Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken; + end; + TListMetricDescriptorsResponseClass = Class of TListMetricDescriptorsResponse; + + { -------------------------------------------------------------------- + TMetricDescriptor + --------------------------------------------------------------------} + + TMetricDescriptor = Class(TGoogleBaseObject) + Private + Fname : String; + F_type : String; + Flabels : TMetricDescriptorTypelabelsArray; + FmetricKind : String; + FvalueType : String; + F_unit : String; + Fdescription : String; + FdisplayName : String; + Protected + Class Function ExportPropertyName(Const AName : String) : string; override; + //Property setters + Procedure Setname(AIndex : Integer; const AValue : String); virtual; + Procedure Set_type(AIndex : Integer; const AValue : String); virtual; + Procedure Setlabels(AIndex : Integer; const AValue : TMetricDescriptorTypelabelsArray); virtual; + Procedure SetmetricKind(AIndex : Integer; const AValue : String); virtual; + Procedure SetvalueType(AIndex : Integer; const AValue : String); virtual; + Procedure Set_unit(AIndex : Integer; const AValue : String); virtual; + Procedure Setdescription(AIndex : Integer; const AValue : String); virtual; + Procedure SetdisplayName(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 name : String Index 0 Read Fname Write Setname; + Property _type : String Index 8 Read F_type Write Set_type; + Property labels : TMetricDescriptorTypelabelsArray Index 16 Read Flabels Write Setlabels; + Property metricKind : String Index 24 Read FmetricKind Write SetmetricKind; + Property valueType : String Index 32 Read FvalueType Write SetvalueType; + Property _unit : String Index 40 Read F_unit Write Set_unit; + Property description : String Index 48 Read Fdescription Write Setdescription; + Property displayName : String Index 56 Read FdisplayName Write SetdisplayName; + end; + TMetricDescriptorClass = Class of TMetricDescriptor; + + { -------------------------------------------------------------------- + TListTimeSeriesResponse + --------------------------------------------------------------------} + + TListTimeSeriesResponse = Class(TGoogleBaseObject) + Private + FtimeSeries : TListTimeSeriesResponseTypetimeSeriesArray; + FnextPageToken : String; + Protected + //Property setters + Procedure SettimeSeries(AIndex : Integer; const AValue : TListTimeSeriesResponseTypetimeSeriesArray); 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 timeSeries : TListTimeSeriesResponseTypetimeSeriesArray Index 0 Read FtimeSeries Write SettimeSeries; + Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken; + end; + TListTimeSeriesResponseClass = Class of TListTimeSeriesResponse; + + { -------------------------------------------------------------------- + TTimeSeries + --------------------------------------------------------------------} + + TTimeSeries = Class(TGoogleBaseObject) + Private + Fmetric : TMetric; + Fresource : TMonitoredResource; + FmetricKind : String; + FvalueType : String; + Fpoints : TTimeSeriesTypepointsArray; + Protected + //Property setters + Procedure Setmetric(AIndex : Integer; const AValue : TMetric); virtual; + Procedure Setresource(AIndex : Integer; const AValue : TMonitoredResource); virtual; + Procedure SetmetricKind(AIndex : Integer; const AValue : String); virtual; + Procedure SetvalueType(AIndex : Integer; const AValue : String); virtual; + Procedure Setpoints(AIndex : Integer; const AValue : TTimeSeriesTypepointsArray); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property metric : TMetric Index 0 Read Fmetric Write Setmetric; + Property resource : TMonitoredResource Index 8 Read Fresource Write Setresource; + Property metricKind : String Index 16 Read FmetricKind Write SetmetricKind; + Property valueType : String Index 24 Read FvalueType Write SetvalueType; + Property points : TTimeSeriesTypepointsArray Index 32 Read Fpoints Write Setpoints; + end; + TTimeSeriesClass = Class of TTimeSeries; + + { -------------------------------------------------------------------- + TMetricTypelabels + --------------------------------------------------------------------} + + TMetricTypelabels = Class(TGoogleBaseObject) + Private + Protected + //Property setters + Public + Class Function AllowAdditionalProperties : Boolean; override; + Published + end; + TMetricTypelabelsClass = Class of TMetricTypelabels; + + { -------------------------------------------------------------------- + TMetric + --------------------------------------------------------------------} + + TMetric = Class(TGoogleBaseObject) + Private + F_type : String; + Flabels : TMetricTypelabels; + Protected + Class Function ExportPropertyName(Const AName : String) : string; override; + //Property setters + Procedure Set_type(AIndex : Integer; const AValue : String); virtual; + Procedure Setlabels(AIndex : Integer; const AValue : TMetricTypelabels); virtual; + Public + Published + Property _type : String Index 0 Read F_type Write Set_type; + Property labels : TMetricTypelabels Index 8 Read Flabels Write Setlabels; + end; + TMetricClass = Class of TMetric; + + { -------------------------------------------------------------------- + TPoint + --------------------------------------------------------------------} + + TPoint = Class(TGoogleBaseObject) + Private + Finterval : TTimeInterval; + Fvalue : TTypedValue; + Protected + //Property setters + Procedure Setinterval(AIndex : Integer; const AValue : TTimeInterval); virtual; + Procedure Setvalue(AIndex : Integer; const AValue : TTypedValue); virtual; + Public + Published + Property interval : TTimeInterval Index 0 Read Finterval Write Setinterval; + Property value : TTypedValue Index 8 Read Fvalue Write Setvalue; + end; + TPointClass = Class of TPoint; + + { -------------------------------------------------------------------- + TTimeInterval + --------------------------------------------------------------------} + + TTimeInterval = Class(TGoogleBaseObject) + Private + FendTime : String; + FstartTime : String; + Protected + //Property setters + Procedure SetendTime(AIndex : Integer; const AValue : String); virtual; + Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual; + Public + Published + Property endTime : String Index 0 Read FendTime Write SetendTime; + Property startTime : String Index 8 Read FstartTime Write SetstartTime; + end; + TTimeIntervalClass = Class of TTimeInterval; + + { -------------------------------------------------------------------- + TCreateTimeSeriesRequest + --------------------------------------------------------------------} + + TCreateTimeSeriesRequest = Class(TGoogleBaseObject) + Private + FtimeSeries : TCreateTimeSeriesRequestTypetimeSeriesArray; + Protected + //Property setters + Procedure SettimeSeries(AIndex : Integer; const AValue : TCreateTimeSeriesRequestTypetimeSeriesArray); virtual; + //2.6.4. bug workaround + {$IFDEF VER2_6} + Procedure SetArrayLength(Const AName : String; ALength : Longint); override; + {$ENDIF VER2_6} + Public + Published + Property timeSeries : TCreateTimeSeriesRequestTypetimeSeriesArray Index 0 Read FtimeSeries Write SettimeSeries; + end; + TCreateTimeSeriesRequestClass = Class of TCreateTimeSeriesRequest; + + { -------------------------------------------------------------------- + TType + --------------------------------------------------------------------} + + TType = Class(TGoogleBaseObject) + Private + Fname : String; + Ffields : TTypeTypefieldsArray; + Foneofs : TStringArray; + Foptions : TTypeTypeoptionsArray; + FsourceContext : TSourceContext; + Fsyntax : String; + Protected + //Property setters + Procedure Setname(AIndex : Integer; const AValue : String); virtual; + Procedure Setfields(AIndex : Integer; const AValue : TTypeTypefieldsArray); virtual; + Procedure Setoneofs(AIndex : Integer; const AValue : TStringArray); virtual; + Procedure Setoptions(AIndex : Integer; const AValue : TTypeTypeoptionsArray); virtual; + Procedure SetsourceContext(AIndex : Integer; const AValue : TSourceContext); virtual; + Procedure Setsyntax(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 name : String Index 0 Read Fname Write Setname; + Property fields : TTypeTypefieldsArray Index 8 Read Ffields Write Setfields; + Property oneofs : TStringArray Index 16 Read Foneofs Write Setoneofs; + Property options : TTypeTypeoptionsArray Index 24 Read Foptions Write Setoptions; + Property sourceContext : TSourceContext Index 32 Read FsourceContext Write SetsourceContext; + Property syntax : String Index 40 Read Fsyntax Write Setsyntax; + end; + TTypeClass = Class of TType; + + { -------------------------------------------------------------------- + TField + --------------------------------------------------------------------} + + TField = Class(TGoogleBaseObject) + Private + Fkind : String; + Fcardinality : String; + Fnumber : integer; + Fname : String; + FtypeUrl : String; + FoneofIndex : integer; + F_packed : boolean; + Foptions : TFieldTypeoptionsArray; + FjsonName : String; + FdefaultValue : String; + Protected + Class Function ExportPropertyName(Const AName : String) : string; override; + //Property setters + Procedure Setkind(AIndex : Integer; const AValue : String); virtual; + Procedure Setcardinality(AIndex : Integer; const AValue : String); virtual; + Procedure Setnumber(AIndex : Integer; const AValue : integer); virtual; + Procedure Setname(AIndex : Integer; const AValue : String); virtual; + Procedure SettypeUrl(AIndex : Integer; const AValue : String); virtual; + Procedure SetoneofIndex(AIndex : Integer; const AValue : integer); virtual; + Procedure Set_packed(AIndex : Integer; const AValue : boolean); virtual; + Procedure Setoptions(AIndex : Integer; const AValue : TFieldTypeoptionsArray); virtual; + Procedure SetjsonName(AIndex : Integer; const AValue : String); virtual; + Procedure SetdefaultValue(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 kind : String Index 0 Read Fkind Write Setkind; + Property cardinality : String Index 8 Read Fcardinality Write Setcardinality; + Property number : integer Index 16 Read Fnumber Write Setnumber; + Property name : String Index 24 Read Fname Write Setname; + Property typeUrl : String Index 32 Read FtypeUrl Write SettypeUrl; + Property oneofIndex : integer Index 40 Read FoneofIndex Write SetoneofIndex; + Property _packed : boolean Index 48 Read F_packed Write Set_packed; + Property options : TFieldTypeoptionsArray Index 56 Read Foptions Write Setoptions; + Property jsonName : String Index 64 Read FjsonName Write SetjsonName; + Property defaultValue : String Index 72 Read FdefaultValue Write SetdefaultValue; + end; + TFieldClass = Class of TField; + + { -------------------------------------------------------------------- + TOptionTypevalue + --------------------------------------------------------------------} + + TOptionTypevalue = Class(TGoogleBaseObject) + Private + Protected + //Property setters + Public + Class Function AllowAdditionalProperties : Boolean; override; + Published + end; + TOptionTypevalueClass = Class of TOptionTypevalue; + + { -------------------------------------------------------------------- + TOption + --------------------------------------------------------------------} + + TOption = Class(TGoogleBaseObject) + Private + Fname : String; + Fvalue : TOptionTypevalue; + Protected + //Property setters + Procedure Setname(AIndex : Integer; const AValue : String); virtual; + Procedure Setvalue(AIndex : Integer; const AValue : TOptionTypevalue); virtual; + Public + Published + Property name : String Index 0 Read Fname Write Setname; + Property value : TOptionTypevalue Index 8 Read Fvalue Write Setvalue; + end; + TOptionClass = Class of TOption; + + { -------------------------------------------------------------------- + TSourceContext + --------------------------------------------------------------------} + + TSourceContext = Class(TGoogleBaseObject) + Private + FfileName : String; + Protected + //Property setters + Procedure SetfileName(AIndex : Integer; const AValue : String); virtual; + Public + Published + Property fileName : String Index 0 Read FfileName Write SetfileName; + end; + TSourceContextClass = Class of TSourceContext; + + { -------------------------------------------------------------------- + TProjectsCollectdTimeSeriesResource + --------------------------------------------------------------------} + + TProjectsCollectdTimeSeriesResource = Class(TGoogleResource) + Public + Class Function ResourceName : String; override; + Class Function DefaultAPI : TGoogleAPIClass; override; + Function Create(_name: string; aCreateCollectdTimeSeriesRequest : TCreateCollectdTimeSeriesRequest) : TEmpty;overload; + end; + + + { -------------------------------------------------------------------- + TProjectsGroupsMembersResource + --------------------------------------------------------------------} + + + //Optional query Options for TProjectsGroupsMembersResource, method List + + TProjectsGroupsMembersListOptions = Record + pageSize : integer; + pageToken : String; + filter : String; + intervalendTime : String; + intervalstartTime : String; + end; + + TProjectsGroupsMembersResource = Class(TGoogleResource) + Public + Class Function ResourceName : String; override; + Class Function DefaultAPI : TGoogleAPIClass; override; + Function List(_name: string; AQuery : string = '') : TListGroupMembersResponse; + Function List(_name: string; AQuery : TProjectsGroupsMemberslistOptions) : TListGroupMembersResponse; + end; + + + { -------------------------------------------------------------------- + TProjectsGroupsResource + --------------------------------------------------------------------} + + + //Optional query Options for TProjectsGroupsResource, method List + + TProjectsGroupsListOptions = Record + childrenOfGroup : String; + ancestorsOfGroup : String; + descendantsOfGroup : String; + pageSize : integer; + pageToken : String; + end; + + + //Optional query Options for TProjectsGroupsResource, method Create + + TProjectsGroupsCreateOptions = Record + validateOnly : boolean; + end; + + + //Optional query Options for TProjectsGroupsResource, method Update + + TProjectsGroupsUpdateOptions = Record + validateOnly : boolean; + end; + + TProjectsGroupsResource = Class(TGoogleResource) + Private + FMembersInstance : TProjectsGroupsMembersResource; + Function GetMembersInstance : TProjectsGroupsMembersResource;virtual; + Public + Class Function ResourceName : String; override; + Class Function DefaultAPI : TGoogleAPIClass; override; + Function List(_name: string; AQuery : string = '') : TListGroupsResponse; + Function List(_name: string; AQuery : TProjectsGroupslistOptions) : TListGroupsResponse; + Function Get(_name: string) : TGroup; + Function Create(_name: string; aGroup : TGroup; AQuery : string = '') : TGroup;overload; + Function Create(_name: string; aGroup : TGroup; AQuery : TProjectsGroupscreateOptions) : TGroup;overload; + Function Update(_name: string; aGroup : TGroup; AQuery : string = '') : TGroup; + Function Update(_name: string; aGroup : TGroup; AQuery : TProjectsGroupsupdateOptions) : TGroup; + Function Delete(_name: string) : TEmpty; + Function CreateMembersResource(AOwner : TComponent) : TProjectsGroupsMembersResource;virtual;overload; + Function CreateMembersResource : TProjectsGroupsMembersResource;virtual;overload; + Property MembersResource : TProjectsGroupsMembersResource Read GetMembersInstance; + end; + + + { -------------------------------------------------------------------- + TProjectsMonitoredResourceDescriptorsResource + --------------------------------------------------------------------} + + + //Optional query Options for TProjectsMonitoredResourceDescriptorsResource, method List + + TProjectsMonitoredResourceDescriptorsListOptions = Record + filter : String; + pageSize : integer; + pageToken : String; + end; + + TProjectsMonitoredResourceDescriptorsResource = Class(TGoogleResource) + Public + Class Function ResourceName : String; override; + Class Function DefaultAPI : TGoogleAPIClass; override; + Function List(_name: string; AQuery : string = '') : TListMonitoredResourceDescriptorsResponse; + Function List(_name: string; AQuery : TProjectsMonitoredResourceDescriptorslistOptions) : TListMonitoredResourceDescriptorsResponse; + Function Get(_name: string) : TMonitoredResourceDescriptor; + end; + + + { -------------------------------------------------------------------- + TProjectsMetricDescriptorsResource + --------------------------------------------------------------------} + + + //Optional query Options for TProjectsMetricDescriptorsResource, method List + + TProjectsMetricDescriptorsListOptions = Record + filter : String; + pageSize : integer; + pageToken : String; + end; + + TProjectsMetricDescriptorsResource = Class(TGoogleResource) + Public + Class Function ResourceName : String; override; + Class Function DefaultAPI : TGoogleAPIClass; override; + Function List(_name: string; AQuery : string = '') : TListMetricDescriptorsResponse; + Function List(_name: string; AQuery : TProjectsMetricDescriptorslistOptions) : TListMetricDescriptorsResponse; + Function Get(_name: string) : TMetricDescriptor; + Function Create(_name: string; aMetricDescriptor : TMetricDescriptor) : TMetricDescriptor;overload; + Function Delete(_name: string) : TEmpty; + end; + + + { -------------------------------------------------------------------- + TProjectsTimeSeriesResource + --------------------------------------------------------------------} + + + //Optional query Options for TProjectsTimeSeriesResource, method List + + TProjectsTimeSeriesListOptions = Record + filter : String; + intervalendTime : String; + intervalstartTime : String; + aggregationalignmentPeriod : String; + aggregationperSeriesAligner : String; + aggregationcrossSeriesReducer : String; + aggregationgroupByFields : String; + orderBy : String; + view : String; + pageSize : integer; + pageToken : String; + end; + + TProjectsTimeSeriesResource = Class(TGoogleResource) + Public + Class Function ResourceName : String; override; + Class Function DefaultAPI : TGoogleAPIClass; override; + Function List(_name: string; AQuery : string = '') : TListTimeSeriesResponse; + Function List(_name: string; AQuery : TProjectsTimeSerieslistOptions) : TListTimeSeriesResponse; + Function Create(_name: string; aCreateTimeSeriesRequest : TCreateTimeSeriesRequest) : TEmpty;overload; + end; + + + { -------------------------------------------------------------------- + TProjectsResource + --------------------------------------------------------------------} + + TProjectsResource = Class(TGoogleResource) + Private + FCollectdTimeSeriesInstance : TProjectsCollectdTimeSeriesResource; + FGroupsMembersInstance : TProjectsGroupsMembersResource; + FGroupsInstance : TProjectsGroupsResource; + FMonitoredResourceDescriptorsInstance : TProjectsMonitoredResourceDescriptorsResource; + FMetricDescriptorsInstance : TProjectsMetricDescriptorsResource; + FTimeSeriesInstance : TProjectsTimeSeriesResource; + Function GetCollectdTimeSeriesInstance : TProjectsCollectdTimeSeriesResource;virtual; + Function GetGroupsMembersInstance : TProjectsGroupsMembersResource;virtual; + Function GetGroupsInstance : TProjectsGroupsResource;virtual; + Function GetMonitoredResourceDescriptorsInstance : TProjectsMonitoredResourceDescriptorsResource;virtual; + Function GetMetricDescriptorsInstance : TProjectsMetricDescriptorsResource;virtual; + Function GetTimeSeriesInstance : TProjectsTimeSeriesResource;virtual; + Public + Class Function ResourceName : String; override; + Class Function DefaultAPI : TGoogleAPIClass; override; + Function CreateCollectdTimeSeriesResource(AOwner : TComponent) : TProjectsCollectdTimeSeriesResource;virtual;overload; + Function CreateCollectdTimeSeriesResource : TProjectsCollectdTimeSeriesResource;virtual;overload; + Function CreateGroupsMembersResource(AOwner : TComponent) : TProjectsGroupsMembersResource;virtual;overload; + Function CreateGroupsMembersResource : TProjectsGroupsMembersResource;virtual;overload; + Function CreateGroupsResource(AOwner : TComponent) : TProjectsGroupsResource;virtual;overload; + Function CreateGroupsResource : TProjectsGroupsResource;virtual;overload; + Function CreateMonitoredResourceDescriptorsResource(AOwner : TComponent) : TProjectsMonitoredResourceDescriptorsResource;virtual;overload; + Function CreateMonitoredResourceDescriptorsResource : TProjectsMonitoredResourceDescriptorsResource;virtual;overload; + Function CreateMetricDescriptorsResource(AOwner : TComponent) : TProjectsMetricDescriptorsResource;virtual;overload; + Function CreateMetricDescriptorsResource : TProjectsMetricDescriptorsResource;virtual;overload; + Function CreateTimeSeriesResource(AOwner : TComponent) : TProjectsTimeSeriesResource;virtual;overload; + Function CreateTimeSeriesResource : TProjectsTimeSeriesResource;virtual;overload; + Property CollectdTimeSeriesResource : TProjectsCollectdTimeSeriesResource Read GetCollectdTimeSeriesInstance; + Property GroupsMembersResource : TProjectsGroupsMembersResource Read GetGroupsMembersInstance; + Property GroupsResource : TProjectsGroupsResource Read GetGroupsInstance; + Property MonitoredResourceDescriptorsResource : TProjectsMonitoredResourceDescriptorsResource Read GetMonitoredResourceDescriptorsInstance; + Property MetricDescriptorsResource : TProjectsMetricDescriptorsResource Read GetMetricDescriptorsInstance; + Property TimeSeriesResource : TProjectsTimeSeriesResource Read GetTimeSeriesInstance; + end; + + + { -------------------------------------------------------------------- + TMonitoringAPI + --------------------------------------------------------------------} + + TMonitoringAPI = Class(TGoogleAPI) + Private + FProjectsCollectdTimeSeriesInstance : TProjectsCollectdTimeSeriesResource; + FProjectsGroupsMembersInstance : TProjectsGroupsMembersResource; + FProjectsGroupsInstance : TProjectsGroupsResource; + FProjectsMonitoredResourceDescriptorsInstance : TProjectsMonitoredResourceDescriptorsResource; + FProjectsMetricDescriptorsInstance : TProjectsMetricDescriptorsResource; + FProjectsTimeSeriesInstance : TProjectsTimeSeriesResource; + FProjectsInstance : TProjectsResource; + Function GetProjectsCollectdTimeSeriesInstance : TProjectsCollectdTimeSeriesResource;virtual; + Function GetProjectsGroupsMembersInstance : TProjectsGroupsMembersResource;virtual; + Function GetProjectsGroupsInstance : TProjectsGroupsResource;virtual; + Function GetProjectsMonitoredResourceDescriptorsInstance : TProjectsMonitoredResourceDescriptorsResource;virtual; + Function GetProjectsMetricDescriptorsInstance : TProjectsMetricDescriptorsResource;virtual; + Function GetProjectsTimeSeriesInstance : TProjectsTimeSeriesResource;virtual; + Function GetProjectsInstance : TProjectsResource;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 CreateProjectsCollectdTimeSeriesResource(AOwner : TComponent) : TProjectsCollectdTimeSeriesResource;virtual;overload; + Function CreateProjectsCollectdTimeSeriesResource : TProjectsCollectdTimeSeriesResource;virtual;overload; + Function CreateProjectsGroupsMembersResource(AOwner : TComponent) : TProjectsGroupsMembersResource;virtual;overload; + Function CreateProjectsGroupsMembersResource : TProjectsGroupsMembersResource;virtual;overload; + Function CreateProjectsGroupsResource(AOwner : TComponent) : TProjectsGroupsResource;virtual;overload; + Function CreateProjectsGroupsResource : TProjectsGroupsResource;virtual;overload; + Function CreateProjectsMonitoredResourceDescriptorsResource(AOwner : TComponent) : TProjectsMonitoredResourceDescriptorsResource;virtual;overload; + Function CreateProjectsMonitoredResourceDescriptorsResource : TProjectsMonitoredResourceDescriptorsResource;virtual;overload; + Function CreateProjectsMetricDescriptorsResource(AOwner : TComponent) : TProjectsMetricDescriptorsResource;virtual;overload; + Function CreateProjectsMetricDescriptorsResource : TProjectsMetricDescriptorsResource;virtual;overload; + Function CreateProjectsTimeSeriesResource(AOwner : TComponent) : TProjectsTimeSeriesResource;virtual;overload; + Function CreateProjectsTimeSeriesResource : TProjectsTimeSeriesResource;virtual;overload; + Function CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload; + Function CreateProjectsResource : TProjectsResource;virtual;overload; + //Add default on-demand instances for resources + Property ProjectsCollectdTimeSeriesResource : TProjectsCollectdTimeSeriesResource Read GetProjectsCollectdTimeSeriesInstance; + Property ProjectsGroupsMembersResource : TProjectsGroupsMembersResource Read GetProjectsGroupsMembersInstance; + Property ProjectsGroupsResource : TProjectsGroupsResource Read GetProjectsGroupsInstance; + Property ProjectsMonitoredResourceDescriptorsResource : TProjectsMonitoredResourceDescriptorsResource Read GetProjectsMonitoredResourceDescriptorsInstance; + Property ProjectsMetricDescriptorsResource : TProjectsMetricDescriptorsResource Read GetProjectsMetricDescriptorsInstance; + Property ProjectsTimeSeriesResource : TProjectsTimeSeriesResource Read GetProjectsTimeSeriesInstance; + Property ProjectsResource : TProjectsResource Read GetProjectsInstance; + end; + +implementation + + +{ -------------------------------------------------------------------- + TCreateCollectdTimeSeriesRequest + --------------------------------------------------------------------} + + +Procedure TCreateCollectdTimeSeriesRequest.Setresource(AIndex : Integer; const AValue : TMonitoredResource); + +begin + If (Fresource=AValue) then exit; + Fresource:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TCreateCollectdTimeSeriesRequest.SetcollectdVersion(AIndex : Integer; const AValue : String); + +begin + If (FcollectdVersion=AValue) then exit; + FcollectdVersion:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TCreateCollectdTimeSeriesRequest.SetcollectdPayloads(AIndex : Integer; const AValue : TCreateCollectdTimeSeriesRequestTypecollectdPayloadsArray); + +begin + If (FcollectdPayloads=AValue) then exit; + FcollectdPayloads:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TCreateCollectdTimeSeriesRequest.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'collectdpayloads' : SetLength(FcollectdPayloads,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TMonitoredResourceTypelabels + --------------------------------------------------------------------} + + +Class Function TMonitoredResourceTypelabels.AllowAdditionalProperties : Boolean; + +begin + Result:=True; +end; + + + +{ -------------------------------------------------------------------- + TMonitoredResource + --------------------------------------------------------------------} + + +Procedure TMonitoredResource.Set_type(AIndex : Integer; const AValue : String); + +begin + If (F_type=AValue) then exit; + F_type:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TMonitoredResource.Setlabels(AIndex : Integer; const AValue : TMonitoredResourceTypelabels); + +begin + If (Flabels=AValue) then exit; + Flabels:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Class Function TMonitoredResource.ExportPropertyName(Const AName : String) :String; + +begin + Case AName of + '_type' : Result:='type'; + else + Result:=Inherited ExportPropertyName(AName); + end; +end; + + + + +{ -------------------------------------------------------------------- + TCollectdPayloadTypemetadata + --------------------------------------------------------------------} + + +Class Function TCollectdPayloadTypemetadata.AllowAdditionalProperties : Boolean; + +begin + Result:=True; +end; + + + +{ -------------------------------------------------------------------- + TCollectdPayload + --------------------------------------------------------------------} + + +Procedure TCollectdPayload.Setvalues(AIndex : Integer; const AValue : TCollectdPayloadTypevaluesArray); + +begin + If (Fvalues=AValue) then exit; + Fvalues:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TCollectdPayload.SetstartTime(AIndex : Integer; const AValue : String); + +begin + If (FstartTime=AValue) then exit; + FstartTime:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TCollectdPayload.SetendTime(AIndex : Integer; const AValue : String); + +begin + If (FendTime=AValue) then exit; + FendTime:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TCollectdPayload.Setplugin(AIndex : Integer; const AValue : String); + +begin + If (Fplugin=AValue) then exit; + Fplugin:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TCollectdPayload.SetpluginInstance(AIndex : Integer; const AValue : String); + +begin + If (FpluginInstance=AValue) then exit; + FpluginInstance:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TCollectdPayload.Set_type(AIndex : Integer; const AValue : String); + +begin + If (F_type=AValue) then exit; + F_type:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TCollectdPayload.SettypeInstance(AIndex : Integer; const AValue : String); + +begin + If (FtypeInstance=AValue) then exit; + FtypeInstance:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TCollectdPayload.Setmetadata(AIndex : Integer; const AValue : TCollectdPayloadTypemetadata); + +begin + If (Fmetadata=AValue) then exit; + Fmetadata:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Class Function TCollectdPayload.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 TCollectdPayload.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'values' : SetLength(Fvalues,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TCollectdValue + --------------------------------------------------------------------} + + +Procedure TCollectdValue.SetdataSourceName(AIndex : Integer; const AValue : String); + +begin + If (FdataSourceName=AValue) then exit; + FdataSourceName:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TCollectdValue.SetdataSourceType(AIndex : Integer; const AValue : String); + +begin + If (FdataSourceType=AValue) then exit; + FdataSourceType:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TCollectdValue.Setvalue(AIndex : Integer; const AValue : TTypedValue); + +begin + If (Fvalue=AValue) then exit; + Fvalue:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TTypedValue + --------------------------------------------------------------------} + + +Procedure TTypedValue.SetboolValue(AIndex : Integer; const AValue : boolean); + +begin + If (FboolValue=AValue) then exit; + FboolValue:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TTypedValue.Setint64Value(AIndex : Integer; const AValue : String); + +begin + If (Fint64Value=AValue) then exit; + Fint64Value:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TTypedValue.SetdoubleValue(AIndex : Integer; const AValue : double); + +begin + If (FdoubleValue=AValue) then exit; + FdoubleValue:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TTypedValue.SetstringValue(AIndex : Integer; const AValue : String); + +begin + If (FstringValue=AValue) then exit; + FstringValue:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TTypedValue.SetdistributionValue(AIndex : Integer; const AValue : TDistribution); + +begin + If (FdistributionValue=AValue) then exit; + FdistributionValue:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TDistribution + --------------------------------------------------------------------} + + +Procedure TDistribution.Setcount(AIndex : Integer; const AValue : String); + +begin + If (Fcount=AValue) then exit; + Fcount:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TDistribution.Setmean(AIndex : Integer; const AValue : double); + +begin + If (Fmean=AValue) then exit; + Fmean:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TDistribution.SetsumOfSquaredDeviation(AIndex : Integer; const AValue : double); + +begin + If (FsumOfSquaredDeviation=AValue) then exit; + FsumOfSquaredDeviation:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TDistribution.Setrange(AIndex : Integer; const AValue : TRange); + +begin + If (Frange=AValue) then exit; + Frange:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TDistribution.SetbucketOptions(AIndex : Integer; const AValue : TBucketOptions); + +begin + If (FbucketOptions=AValue) then exit; + FbucketOptions:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TDistribution.SetbucketCounts(AIndex : Integer; const AValue : TStringArray); + +begin + If (FbucketCounts=AValue) then exit; + FbucketCounts:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TDistribution.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'bucketcounts' : SetLength(FbucketCounts,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TRange + --------------------------------------------------------------------} + + +Procedure TRange.Setmin(AIndex : Integer; const AValue : double); + +begin + If (Fmin=AValue) then exit; + Fmin:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TRange.Setmax(AIndex : Integer; const AValue : double); + +begin + If (Fmax=AValue) then exit; + Fmax:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TBucketOptions + --------------------------------------------------------------------} + + +Procedure TBucketOptions.SetlinearBuckets(AIndex : Integer; const AValue : TLinear); + +begin + If (FlinearBuckets=AValue) then exit; + FlinearBuckets:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TBucketOptions.SetexponentialBuckets(AIndex : Integer; const AValue : TExponential); + +begin + If (FexponentialBuckets=AValue) then exit; + FexponentialBuckets:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TBucketOptions.SetexplicitBuckets(AIndex : Integer; const AValue : TExplicit); + +begin + If (FexplicitBuckets=AValue) then exit; + FexplicitBuckets:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TLinear + --------------------------------------------------------------------} + + +Procedure TLinear.SetnumFiniteBuckets(AIndex : Integer; const AValue : integer); + +begin + If (FnumFiniteBuckets=AValue) then exit; + FnumFiniteBuckets:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TLinear.Setwidth(AIndex : Integer; const AValue : double); + +begin + If (Fwidth=AValue) then exit; + Fwidth:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TLinear.Setoffset(AIndex : Integer; const AValue : double); + +begin + If (Foffset=AValue) then exit; + Foffset:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TExponential + --------------------------------------------------------------------} + + +Procedure TExponential.SetnumFiniteBuckets(AIndex : Integer; const AValue : integer); + +begin + If (FnumFiniteBuckets=AValue) then exit; + FnumFiniteBuckets:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TExponential.SetgrowthFactor(AIndex : Integer; const AValue : double); + +begin + If (FgrowthFactor=AValue) then exit; + FgrowthFactor:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TExponential.Setscale(AIndex : Integer; const AValue : double); + +begin + If (Fscale=AValue) then exit; + Fscale:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TExplicit + --------------------------------------------------------------------} + + +Procedure TExplicit.Setbounds(AIndex : Integer; const AValue : TdoubleArray); + +begin + If (Fbounds=AValue) then exit; + Fbounds:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TExplicit.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'bounds' : SetLength(Fbounds,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TEmpty + --------------------------------------------------------------------} + + + + +{ -------------------------------------------------------------------- + TListGroupsResponse + --------------------------------------------------------------------} + + +Procedure TListGroupsResponse.Setgroup(AIndex : Integer; const AValue : TListGroupsResponseTypegroupArray); + +begin + If (Fgroup=AValue) then exit; + Fgroup:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TListGroupsResponse.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 TListGroupsResponse.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'group' : SetLength(Fgroup,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TGroup + --------------------------------------------------------------------} + + +Procedure TGroup.Setname(AIndex : Integer; const AValue : String); + +begin + If (Fname=AValue) then exit; + Fname:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TGroup.SetdisplayName(AIndex : Integer; const AValue : String); + +begin + If (FdisplayName=AValue) then exit; + FdisplayName:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TGroup.SetparentName(AIndex : Integer; const AValue : String); + +begin + If (FparentName=AValue) then exit; + FparentName:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TGroup.Setfilter(AIndex : Integer; const AValue : String); + +begin + If (Ffilter=AValue) then exit; + Ffilter:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TGroup.SetisCluster(AIndex : Integer; const AValue : boolean); + +begin + If (FisCluster=AValue) then exit; + FisCluster:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TListGroupMembersResponse + --------------------------------------------------------------------} + + +Procedure TListGroupMembersResponse.Setmembers(AIndex : Integer; const AValue : TListGroupMembersResponseTypemembersArray); + +begin + If (Fmembers=AValue) then exit; + Fmembers:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TListGroupMembersResponse.SetnextPageToken(AIndex : Integer; const AValue : String); + +begin + If (FnextPageToken=AValue) then exit; + FnextPageToken:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TListGroupMembersResponse.SettotalSize(AIndex : Integer; const AValue : integer); + +begin + If (FtotalSize=AValue) then exit; + FtotalSize:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TListGroupMembersResponse.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'members' : SetLength(Fmembers,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TListMonitoredResourceDescriptorsResponse + --------------------------------------------------------------------} + + +Procedure TListMonitoredResourceDescriptorsResponse.SetresourceDescriptors(AIndex : Integer; const AValue : TListMonitoredResourceDescriptorsResponseTyperesourceDescriptorsArray); + +begin + If (FresourceDescriptors=AValue) then exit; + FresourceDescriptors:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TListMonitoredResourceDescriptorsResponse.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 TListMonitoredResourceDescriptorsResponse.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'resourcedescriptors' : SetLength(FresourceDescriptors,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TMonitoredResourceDescriptor + --------------------------------------------------------------------} + + +Procedure TMonitoredResourceDescriptor.Setname(AIndex : Integer; const AValue : String); + +begin + If (Fname=AValue) then exit; + Fname:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TMonitoredResourceDescriptor.Set_type(AIndex : Integer; const AValue : String); + +begin + If (F_type=AValue) then exit; + F_type:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TMonitoredResourceDescriptor.SetdisplayName(AIndex : Integer; const AValue : String); + +begin + If (FdisplayName=AValue) then exit; + FdisplayName:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TMonitoredResourceDescriptor.Setdescription(AIndex : Integer; const AValue : String); + +begin + If (Fdescription=AValue) then exit; + Fdescription:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TMonitoredResourceDescriptor.Setlabels(AIndex : Integer; const AValue : TMonitoredResourceDescriptorTypelabelsArray); + +begin + If (Flabels=AValue) then exit; + Flabels:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Class Function TMonitoredResourceDescriptor.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 TMonitoredResourceDescriptor.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'labels' : SetLength(Flabels,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TLabelDescriptor + --------------------------------------------------------------------} + + +Procedure TLabelDescriptor.Setkey(AIndex : Integer; const AValue : String); + +begin + If (Fkey=AValue) then exit; + Fkey:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TLabelDescriptor.SetvalueType(AIndex : Integer; const AValue : String); + +begin + If (FvalueType=AValue) then exit; + FvalueType:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TLabelDescriptor.Setdescription(AIndex : Integer; const AValue : String); + +begin + If (Fdescription=AValue) then exit; + Fdescription:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TListMetricDescriptorsResponse + --------------------------------------------------------------------} + + +Procedure TListMetricDescriptorsResponse.SetmetricDescriptors(AIndex : Integer; const AValue : TListMetricDescriptorsResponseTypemetricDescriptorsArray); + +begin + If (FmetricDescriptors=AValue) then exit; + FmetricDescriptors:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TListMetricDescriptorsResponse.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 TListMetricDescriptorsResponse.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'metricdescriptors' : SetLength(FmetricDescriptors,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TMetricDescriptor + --------------------------------------------------------------------} + + +Procedure TMetricDescriptor.Setname(AIndex : Integer; const AValue : String); + +begin + If (Fname=AValue) then exit; + Fname:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TMetricDescriptor.Set_type(AIndex : Integer; const AValue : String); + +begin + If (F_type=AValue) then exit; + F_type:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TMetricDescriptor.Setlabels(AIndex : Integer; const AValue : TMetricDescriptorTypelabelsArray); + +begin + If (Flabels=AValue) then exit; + Flabels:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TMetricDescriptor.SetmetricKind(AIndex : Integer; const AValue : String); + +begin + If (FmetricKind=AValue) then exit; + FmetricKind:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TMetricDescriptor.SetvalueType(AIndex : Integer; const AValue : String); + +begin + If (FvalueType=AValue) then exit; + FvalueType:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TMetricDescriptor.Set_unit(AIndex : Integer; const AValue : String); + +begin + If (F_unit=AValue) then exit; + F_unit:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TMetricDescriptor.Setdescription(AIndex : Integer; const AValue : String); + +begin + If (Fdescription=AValue) then exit; + Fdescription:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TMetricDescriptor.SetdisplayName(AIndex : Integer; const AValue : String); + +begin + If (FdisplayName=AValue) then exit; + FdisplayName:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Class Function TMetricDescriptor.ExportPropertyName(Const AName : String) :String; + +begin + Case AName of + '_type' : Result:='type'; + '_unit' : Result:='unit'; + else + Result:=Inherited ExportPropertyName(AName); + end; +end; + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TMetricDescriptor.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'labels' : SetLength(Flabels,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TListTimeSeriesResponse + --------------------------------------------------------------------} + + +Procedure TListTimeSeriesResponse.SettimeSeries(AIndex : Integer; const AValue : TListTimeSeriesResponseTypetimeSeriesArray); + +begin + If (FtimeSeries=AValue) then exit; + FtimeSeries:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TListTimeSeriesResponse.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 TListTimeSeriesResponse.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'timeseries' : SetLength(FtimeSeries,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TTimeSeries + --------------------------------------------------------------------} + + +Procedure TTimeSeries.Setmetric(AIndex : Integer; const AValue : TMetric); + +begin + If (Fmetric=AValue) then exit; + Fmetric:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TTimeSeries.Setresource(AIndex : Integer; const AValue : TMonitoredResource); + +begin + If (Fresource=AValue) then exit; + Fresource:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TTimeSeries.SetmetricKind(AIndex : Integer; const AValue : String); + +begin + If (FmetricKind=AValue) then exit; + FmetricKind:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TTimeSeries.SetvalueType(AIndex : Integer; const AValue : String); + +begin + If (FvalueType=AValue) then exit; + FvalueType:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TTimeSeries.Setpoints(AIndex : Integer; const AValue : TTimeSeriesTypepointsArray); + +begin + If (Fpoints=AValue) then exit; + Fpoints:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TTimeSeries.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'points' : SetLength(Fpoints,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TMetricTypelabels + --------------------------------------------------------------------} + + +Class Function TMetricTypelabels.AllowAdditionalProperties : Boolean; + +begin + Result:=True; +end; + + + +{ -------------------------------------------------------------------- + TMetric + --------------------------------------------------------------------} + + +Procedure TMetric.Set_type(AIndex : Integer; const AValue : String); + +begin + If (F_type=AValue) then exit; + F_type:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TMetric.Setlabels(AIndex : Integer; const AValue : TMetricTypelabels); + +begin + If (Flabels=AValue) then exit; + Flabels:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Class Function TMetric.ExportPropertyName(Const AName : String) :String; + +begin + Case AName of + '_type' : Result:='type'; + else + Result:=Inherited ExportPropertyName(AName); + end; +end; + + + + +{ -------------------------------------------------------------------- + TPoint + --------------------------------------------------------------------} + + +Procedure TPoint.Setinterval(AIndex : Integer; const AValue : TTimeInterval); + +begin + If (Finterval=AValue) then exit; + Finterval:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TPoint.Setvalue(AIndex : Integer; const AValue : TTypedValue); + +begin + If (Fvalue=AValue) then exit; + Fvalue:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TTimeInterval + --------------------------------------------------------------------} + + +Procedure TTimeInterval.SetendTime(AIndex : Integer; const AValue : String); + +begin + If (FendTime=AValue) then exit; + FendTime:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TTimeInterval.SetstartTime(AIndex : Integer; const AValue : String); + +begin + If (FstartTime=AValue) then exit; + FstartTime:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TCreateTimeSeriesRequest + --------------------------------------------------------------------} + + +Procedure TCreateTimeSeriesRequest.SettimeSeries(AIndex : Integer; const AValue : TCreateTimeSeriesRequestTypetimeSeriesArray); + +begin + If (FtimeSeries=AValue) then exit; + FtimeSeries:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TCreateTimeSeriesRequest.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'timeseries' : SetLength(FtimeSeries,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TType + --------------------------------------------------------------------} + + +Procedure TType.Setname(AIndex : Integer; const AValue : String); + +begin + If (Fname=AValue) then exit; + Fname:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TType.Setfields(AIndex : Integer; const AValue : TTypeTypefieldsArray); + +begin + If (Ffields=AValue) then exit; + Ffields:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TType.Setoneofs(AIndex : Integer; const AValue : TStringArray); + +begin + If (Foneofs=AValue) then exit; + Foneofs:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TType.Setoptions(AIndex : Integer; const AValue : TTypeTypeoptionsArray); + +begin + If (Foptions=AValue) then exit; + Foptions:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TType.SetsourceContext(AIndex : Integer; const AValue : TSourceContext); + +begin + If (FsourceContext=AValue) then exit; + FsourceContext:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TType.Setsyntax(AIndex : Integer; const AValue : String); + +begin + If (Fsyntax=AValue) then exit; + Fsyntax:=AValue; + MarkPropertyChanged(AIndex); +end; + + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TType.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'fields' : SetLength(Ffields,ALength); + 'oneofs' : SetLength(Foneofs,ALength); + 'options' : SetLength(Foptions,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TField + --------------------------------------------------------------------} + + +Procedure TField.Setkind(AIndex : Integer; const AValue : String); + +begin + If (Fkind=AValue) then exit; + Fkind:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TField.Setcardinality(AIndex : Integer; const AValue : String); + +begin + If (Fcardinality=AValue) then exit; + Fcardinality:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TField.Setnumber(AIndex : Integer; const AValue : integer); + +begin + If (Fnumber=AValue) then exit; + Fnumber:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TField.Setname(AIndex : Integer; const AValue : String); + +begin + If (Fname=AValue) then exit; + Fname:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TField.SettypeUrl(AIndex : Integer; const AValue : String); + +begin + If (FtypeUrl=AValue) then exit; + FtypeUrl:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TField.SetoneofIndex(AIndex : Integer; const AValue : integer); + +begin + If (FoneofIndex=AValue) then exit; + FoneofIndex:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TField.Set_packed(AIndex : Integer; const AValue : boolean); + +begin + If (F_packed=AValue) then exit; + F_packed:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TField.Setoptions(AIndex : Integer; const AValue : TFieldTypeoptionsArray); + +begin + If (Foptions=AValue) then exit; + Foptions:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TField.SetjsonName(AIndex : Integer; const AValue : String); + +begin + If (FjsonName=AValue) then exit; + FjsonName:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TField.SetdefaultValue(AIndex : Integer; const AValue : String); + +begin + If (FdefaultValue=AValue) then exit; + FdefaultValue:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Class Function TField.ExportPropertyName(Const AName : String) :String; + +begin + Case AName of + '_packed' : Result:='packed'; + else + Result:=Inherited ExportPropertyName(AName); + end; +end; + +//2.6.4. bug workaround +{$IFDEF VER2_6} +Procedure TField.SetArrayLength(Const AName : String; ALength : Longint); + +begin + Case AName of + 'options' : SetLength(Foptions,ALength); + else + Inherited SetArrayLength(AName,ALength); + end; +end; +{$ENDIF VER2_6} + + + + +{ -------------------------------------------------------------------- + TOptionTypevalue + --------------------------------------------------------------------} + + +Class Function TOptionTypevalue.AllowAdditionalProperties : Boolean; + +begin + Result:=True; +end; + + + +{ -------------------------------------------------------------------- + TOption + --------------------------------------------------------------------} + + +Procedure TOption.Setname(AIndex : Integer; const AValue : String); + +begin + If (Fname=AValue) then exit; + Fname:=AValue; + MarkPropertyChanged(AIndex); +end; + + + +Procedure TOption.Setvalue(AIndex : Integer; const AValue : TOptionTypevalue); + +begin + If (Fvalue=AValue) then exit; + Fvalue:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TSourceContext + --------------------------------------------------------------------} + + +Procedure TSourceContext.SetfileName(AIndex : Integer; const AValue : String); + +begin + If (FfileName=AValue) then exit; + FfileName:=AValue; + MarkPropertyChanged(AIndex); +end; + + + + + +{ -------------------------------------------------------------------- + TProjectsCollectdTimeSeriesResource + --------------------------------------------------------------------} + + +Class Function TProjectsCollectdTimeSeriesResource.ResourceName : String; + +begin + Result:='collectdTimeSeries'; +end; + +Class Function TProjectsCollectdTimeSeriesResource.DefaultAPI : TGoogleAPIClass; + +begin + Result:=TmonitoringAPI; +end; + +Function TProjectsCollectdTimeSeriesResource.Create(_name: string; aCreateCollectdTimeSeriesRequest : TCreateCollectdTimeSeriesRequest) : TEmpty; + +Const + _HTTPMethod = 'POST'; + _Path = 'v3/{+name}/collectdTimeSeries'; + _Methodid = 'monitoring.projects.collectdTimeSeries.create'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['name',_name]); + Result:=ServiceCall(_HTTPMethod,_P,'',aCreateCollectdTimeSeriesRequest,TEmpty) as TEmpty; +end; + + + +{ -------------------------------------------------------------------- + TProjectsGroupsMembersResource + --------------------------------------------------------------------} + + +Class Function TProjectsGroupsMembersResource.ResourceName : String; + +begin + Result:='members'; +end; + +Class Function TProjectsGroupsMembersResource.DefaultAPI : TGoogleAPIClass; + +begin + Result:=TmonitoringAPI; +end; + +Function TProjectsGroupsMembersResource.List(_name: string; AQuery : string = '') : TListGroupMembersResponse; + +Const + _HTTPMethod = 'GET'; + _Path = 'v3/{+name}/members'; + _Methodid = 'monitoring.projects.groups.members.list'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['name',_name]); + Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListGroupMembersResponse) as TListGroupMembersResponse; +end; + + +Function TProjectsGroupsMembersResource.List(_name: string; AQuery : TProjectsGroupsMemberslistOptions) : TListGroupMembersResponse; + +Var + _Q : String; + +begin + _Q:=''; + AddToQuery(_Q,'pageSize',AQuery.pageSize); + AddToQuery(_Q,'pageToken',AQuery.pageToken); + AddToQuery(_Q,'filter',AQuery.filter); + AddToQuery(_Q,'interval.endTime',AQuery.intervalendTime); + AddToQuery(_Q,'interval.startTime',AQuery.intervalstartTime); + Result:=List(_name,_Q); +end; + + + +{ -------------------------------------------------------------------- + TProjectsGroupsResource + --------------------------------------------------------------------} + + +Class Function TProjectsGroupsResource.ResourceName : String; + +begin + Result:='groups'; +end; + +Class Function TProjectsGroupsResource.DefaultAPI : TGoogleAPIClass; + +begin + Result:=TmonitoringAPI; +end; + +Function TProjectsGroupsResource.List(_name: string; AQuery : string = '') : TListGroupsResponse; + +Const + _HTTPMethod = 'GET'; + _Path = 'v3/{+name}/groups'; + _Methodid = 'monitoring.projects.groups.list'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['name',_name]); + Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListGroupsResponse) as TListGroupsResponse; +end; + + +Function TProjectsGroupsResource.List(_name: string; AQuery : TProjectsGroupslistOptions) : TListGroupsResponse; + +Var + _Q : String; + +begin + _Q:=''; + AddToQuery(_Q,'childrenOfGroup',AQuery.childrenOfGroup); + AddToQuery(_Q,'ancestorsOfGroup',AQuery.ancestorsOfGroup); + AddToQuery(_Q,'descendantsOfGroup',AQuery.descendantsOfGroup); + AddToQuery(_Q,'pageSize',AQuery.pageSize); + AddToQuery(_Q,'pageToken',AQuery.pageToken); + Result:=List(_name,_Q); +end; + +Function TProjectsGroupsResource.Get(_name: string) : TGroup; + +Const + _HTTPMethod = 'GET'; + _Path = 'v3/{+name}'; + _Methodid = 'monitoring.projects.groups.get'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['name',_name]); + Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TGroup) as TGroup; +end; + +Function TProjectsGroupsResource.Create(_name: string; aGroup : TGroup; AQuery : string = '') : TGroup; + +Const + _HTTPMethod = 'POST'; + _Path = 'v3/{+name}/groups'; + _Methodid = 'monitoring.projects.groups.create'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['name',_name]); + Result:=ServiceCall(_HTTPMethod,_P,AQuery,aGroup,TGroup) as TGroup; +end; + + +Function TProjectsGroupsResource.Create(_name: string; aGroup : TGroup; AQuery : TProjectsGroupscreateOptions) : TGroup; + +Var + _Q : String; + +begin + _Q:=''; + AddToQuery(_Q,'validateOnly',AQuery.validateOnly); + Result:=Create(_name,aGroup,_Q); +end; + +Function TProjectsGroupsResource.Update(_name: string; aGroup : TGroup; AQuery : string = '') : TGroup; + +Const + _HTTPMethod = 'PUT'; + _Path = 'v3/{+name}'; + _Methodid = 'monitoring.projects.groups.update'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['name',_name]); + Result:=ServiceCall(_HTTPMethod,_P,AQuery,aGroup,TGroup) as TGroup; +end; + + +Function TProjectsGroupsResource.Update(_name: string; aGroup : TGroup; AQuery : TProjectsGroupsupdateOptions) : TGroup; + +Var + _Q : String; + +begin + _Q:=''; + AddToQuery(_Q,'validateOnly',AQuery.validateOnly); + Result:=Update(_name,aGroup,_Q); +end; + +Function TProjectsGroupsResource.Delete(_name: string) : TEmpty; + +Const + _HTTPMethod = 'DELETE'; + _Path = 'v3/{+name}'; + _Methodid = 'monitoring.projects.groups.delete'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['name',_name]); + Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty; +end; + + + +Function TProjectsGroupsResource.GetMembersInstance : TProjectsGroupsMembersResource; + +begin + if (FMembersInstance=Nil) then + FMembersInstance:=CreateMembersResource; + Result:=FMembersInstance; +end; + +Function TProjectsGroupsResource.CreateMembersResource : TProjectsGroupsMembersResource; + +begin + Result:=CreateMembersResource(Self); +end; + + +Function TProjectsGroupsResource.CreateMembersResource(AOwner : TComponent) : TProjectsGroupsMembersResource; + +begin + Result:=TProjectsGroupsMembersResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +{ -------------------------------------------------------------------- + TProjectsMonitoredResourceDescriptorsResource + --------------------------------------------------------------------} + + +Class Function TProjectsMonitoredResourceDescriptorsResource.ResourceName : String; + +begin + Result:='monitoredResourceDescriptors'; +end; + +Class Function TProjectsMonitoredResourceDescriptorsResource.DefaultAPI : TGoogleAPIClass; + +begin + Result:=TmonitoringAPI; +end; + +Function TProjectsMonitoredResourceDescriptorsResource.List(_name: string; AQuery : string = '') : TListMonitoredResourceDescriptorsResponse; + +Const + _HTTPMethod = 'GET'; + _Path = 'v3/{+name}/monitoredResourceDescriptors'; + _Methodid = 'monitoring.projects.monitoredResourceDescriptors.list'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['name',_name]); + Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListMonitoredResourceDescriptorsResponse) as TListMonitoredResourceDescriptorsResponse; +end; + + +Function TProjectsMonitoredResourceDescriptorsResource.List(_name: string; AQuery : TProjectsMonitoredResourceDescriptorslistOptions) : TListMonitoredResourceDescriptorsResponse; + +Var + _Q : String; + +begin + _Q:=''; + AddToQuery(_Q,'filter',AQuery.filter); + AddToQuery(_Q,'pageSize',AQuery.pageSize); + AddToQuery(_Q,'pageToken',AQuery.pageToken); + Result:=List(_name,_Q); +end; + +Function TProjectsMonitoredResourceDescriptorsResource.Get(_name: string) : TMonitoredResourceDescriptor; + +Const + _HTTPMethod = 'GET'; + _Path = 'v3/{+name}'; + _Methodid = 'monitoring.projects.monitoredResourceDescriptors.get'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['name',_name]); + Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TMonitoredResourceDescriptor) as TMonitoredResourceDescriptor; +end; + + + +{ -------------------------------------------------------------------- + TProjectsMetricDescriptorsResource + --------------------------------------------------------------------} + + +Class Function TProjectsMetricDescriptorsResource.ResourceName : String; + +begin + Result:='metricDescriptors'; +end; + +Class Function TProjectsMetricDescriptorsResource.DefaultAPI : TGoogleAPIClass; + +begin + Result:=TmonitoringAPI; +end; + +Function TProjectsMetricDescriptorsResource.List(_name: string; AQuery : string = '') : TListMetricDescriptorsResponse; + +Const + _HTTPMethod = 'GET'; + _Path = 'v3/{+name}/metricDescriptors'; + _Methodid = 'monitoring.projects.metricDescriptors.list'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['name',_name]); + Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListMetricDescriptorsResponse) as TListMetricDescriptorsResponse; +end; + + +Function TProjectsMetricDescriptorsResource.List(_name: string; AQuery : TProjectsMetricDescriptorslistOptions) : TListMetricDescriptorsResponse; + +Var + _Q : String; + +begin + _Q:=''; + AddToQuery(_Q,'filter',AQuery.filter); + AddToQuery(_Q,'pageSize',AQuery.pageSize); + AddToQuery(_Q,'pageToken',AQuery.pageToken); + Result:=List(_name,_Q); +end; + +Function TProjectsMetricDescriptorsResource.Get(_name: string) : TMetricDescriptor; + +Const + _HTTPMethod = 'GET'; + _Path = 'v3/{+name}'; + _Methodid = 'monitoring.projects.metricDescriptors.get'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['name',_name]); + Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TMetricDescriptor) as TMetricDescriptor; +end; + +Function TProjectsMetricDescriptorsResource.Create(_name: string; aMetricDescriptor : TMetricDescriptor) : TMetricDescriptor; + +Const + _HTTPMethod = 'POST'; + _Path = 'v3/{+name}/metricDescriptors'; + _Methodid = 'monitoring.projects.metricDescriptors.create'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['name',_name]); + Result:=ServiceCall(_HTTPMethod,_P,'',aMetricDescriptor,TMetricDescriptor) as TMetricDescriptor; +end; + +Function TProjectsMetricDescriptorsResource.Delete(_name: string) : TEmpty; + +Const + _HTTPMethod = 'DELETE'; + _Path = 'v3/{+name}'; + _Methodid = 'monitoring.projects.metricDescriptors.delete'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['name',_name]); + Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEmpty) as TEmpty; +end; + + + +{ -------------------------------------------------------------------- + TProjectsTimeSeriesResource + --------------------------------------------------------------------} + + +Class Function TProjectsTimeSeriesResource.ResourceName : String; + +begin + Result:='timeSeries'; +end; + +Class Function TProjectsTimeSeriesResource.DefaultAPI : TGoogleAPIClass; + +begin + Result:=TmonitoringAPI; +end; + +Function TProjectsTimeSeriesResource.List(_name: string; AQuery : string = '') : TListTimeSeriesResponse; + +Const + _HTTPMethod = 'GET'; + _Path = 'v3/{+name}/timeSeries'; + _Methodid = 'monitoring.projects.timeSeries.list'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['name',_name]); + Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListTimeSeriesResponse) as TListTimeSeriesResponse; +end; + + +Function TProjectsTimeSeriesResource.List(_name: string; AQuery : TProjectsTimeSerieslistOptions) : TListTimeSeriesResponse; + +Var + _Q : String; + +begin + _Q:=''; + AddToQuery(_Q,'filter',AQuery.filter); + AddToQuery(_Q,'interval.endTime',AQuery.intervalendTime); + AddToQuery(_Q,'interval.startTime',AQuery.intervalstartTime); + AddToQuery(_Q,'aggregation.alignmentPeriod',AQuery.aggregationalignmentPeriod); + AddToQuery(_Q,'aggregation.perSeriesAligner',AQuery.aggregationperSeriesAligner); + AddToQuery(_Q,'aggregation.crossSeriesReducer',AQuery.aggregationcrossSeriesReducer); + AddToQuery(_Q,'aggregation.groupByFields',AQuery.aggregationgroupByFields); + AddToQuery(_Q,'orderBy',AQuery.orderBy); + AddToQuery(_Q,'view',AQuery.view); + AddToQuery(_Q,'pageSize',AQuery.pageSize); + AddToQuery(_Q,'pageToken',AQuery.pageToken); + Result:=List(_name,_Q); +end; + +Function TProjectsTimeSeriesResource.Create(_name: string; aCreateTimeSeriesRequest : TCreateTimeSeriesRequest) : TEmpty; + +Const + _HTTPMethod = 'POST'; + _Path = 'v3/{+name}/timeSeries'; + _Methodid = 'monitoring.projects.timeSeries.create'; + +Var + _P : String; + +begin + _P:=SubstitutePath(_Path,['name',_name]); + Result:=ServiceCall(_HTTPMethod,_P,'',aCreateTimeSeriesRequest,TEmpty) as TEmpty; +end; + + + +{ -------------------------------------------------------------------- + TProjectsResource + --------------------------------------------------------------------} + + +Class Function TProjectsResource.ResourceName : String; + +begin + Result:='projects'; +end; + +Class Function TProjectsResource.DefaultAPI : TGoogleAPIClass; + +begin + Result:=TmonitoringAPI; +end; + + + +Function TProjectsResource.GetCollectdTimeSeriesInstance : TProjectsCollectdTimeSeriesResource; + +begin + if (FCollectdTimeSeriesInstance=Nil) then + FCollectdTimeSeriesInstance:=CreateCollectdTimeSeriesResource; + Result:=FCollectdTimeSeriesInstance; +end; + +Function TProjectsResource.CreateCollectdTimeSeriesResource : TProjectsCollectdTimeSeriesResource; + +begin + Result:=CreateCollectdTimeSeriesResource(Self); +end; + + +Function TProjectsResource.CreateCollectdTimeSeriesResource(AOwner : TComponent) : TProjectsCollectdTimeSeriesResource; + +begin + Result:=TProjectsCollectdTimeSeriesResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +Function TProjectsResource.GetGroupsMembersInstance : TProjectsGroupsMembersResource; + +begin + if (FGroupsMembersInstance=Nil) then + FGroupsMembersInstance:=CreateGroupsMembersResource; + Result:=FGroupsMembersInstance; +end; + +Function TProjectsResource.CreateGroupsMembersResource : TProjectsGroupsMembersResource; + +begin + Result:=CreateGroupsMembersResource(Self); +end; + + +Function TProjectsResource.CreateGroupsMembersResource(AOwner : TComponent) : TProjectsGroupsMembersResource; + +begin + Result:=TProjectsGroupsMembersResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +Function TProjectsResource.GetGroupsInstance : TProjectsGroupsResource; + +begin + if (FGroupsInstance=Nil) then + FGroupsInstance:=CreateGroupsResource; + Result:=FGroupsInstance; +end; + +Function TProjectsResource.CreateGroupsResource : TProjectsGroupsResource; + +begin + Result:=CreateGroupsResource(Self); +end; + + +Function TProjectsResource.CreateGroupsResource(AOwner : TComponent) : TProjectsGroupsResource; + +begin + Result:=TProjectsGroupsResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +Function TProjectsResource.GetMonitoredResourceDescriptorsInstance : TProjectsMonitoredResourceDescriptorsResource; + +begin + if (FMonitoredResourceDescriptorsInstance=Nil) then + FMonitoredResourceDescriptorsInstance:=CreateMonitoredResourceDescriptorsResource; + Result:=FMonitoredResourceDescriptorsInstance; +end; + +Function TProjectsResource.CreateMonitoredResourceDescriptorsResource : TProjectsMonitoredResourceDescriptorsResource; + +begin + Result:=CreateMonitoredResourceDescriptorsResource(Self); +end; + + +Function TProjectsResource.CreateMonitoredResourceDescriptorsResource(AOwner : TComponent) : TProjectsMonitoredResourceDescriptorsResource; + +begin + Result:=TProjectsMonitoredResourceDescriptorsResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +Function TProjectsResource.GetMetricDescriptorsInstance : TProjectsMetricDescriptorsResource; + +begin + if (FMetricDescriptorsInstance=Nil) then + FMetricDescriptorsInstance:=CreateMetricDescriptorsResource; + Result:=FMetricDescriptorsInstance; +end; + +Function TProjectsResource.CreateMetricDescriptorsResource : TProjectsMetricDescriptorsResource; + +begin + Result:=CreateMetricDescriptorsResource(Self); +end; + + +Function TProjectsResource.CreateMetricDescriptorsResource(AOwner : TComponent) : TProjectsMetricDescriptorsResource; + +begin + Result:=TProjectsMetricDescriptorsResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +Function TProjectsResource.GetTimeSeriesInstance : TProjectsTimeSeriesResource; + +begin + if (FTimeSeriesInstance=Nil) then + FTimeSeriesInstance:=CreateTimeSeriesResource; + Result:=FTimeSeriesInstance; +end; + +Function TProjectsResource.CreateTimeSeriesResource : TProjectsTimeSeriesResource; + +begin + Result:=CreateTimeSeriesResource(Self); +end; + + +Function TProjectsResource.CreateTimeSeriesResource(AOwner : TComponent) : TProjectsTimeSeriesResource; + +begin + Result:=TProjectsTimeSeriesResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +{ -------------------------------------------------------------------- + TMonitoringAPI + --------------------------------------------------------------------} + +Class Function TMonitoringAPI.APIName : String; + +begin + Result:='monitoring'; +end; + +Class Function TMonitoringAPI.APIVersion : String; + +begin + Result:='v3'; +end; + +Class Function TMonitoringAPI.APIRevision : String; + +begin + Result:='20160425'; +end; + +Class Function TMonitoringAPI.APIID : String; + +begin + Result:='monitoring:v3'; +end; + +Class Function TMonitoringAPI.APITitle : String; + +begin + Result:='Google Monitoring API'; +end; + +Class Function TMonitoringAPI.APIDescription : String; + +begin + Result:='Manages your Stackdriver monitoring data and configurations. Projects must be associated with a Stackdriver account, except for the following methods: [monitoredResourceDescriptors.list](v3/projects.monitoredResourceDescriptors/list), [monitoredResourceDescriptors.get](v3/projects.monitoredResourceDescriptors/get), [metricDescriptors.list](v3/projects.metricDescriptors/list), [metricDescriptors.get](v3/projects.metricDescriptors/get), and [timeSeries.list](v3/projects.timeSeries/list).'; +end; + +Class Function TMonitoringAPI.APIOwnerDomain : String; + +begin + Result:='google.com'; +end; + +Class Function TMonitoringAPI.APIOwnerName : String; + +begin + Result:='Google'; +end; + +Class Function TMonitoringAPI.APIIcon16 : String; + +begin + Result:='http://www.google.com/images/icons/product/search-16.gif'; +end; + +Class Function TMonitoringAPI.APIIcon32 : String; + +begin + Result:='http://www.google.com/images/icons/product/search-32.gif'; +end; + +Class Function TMonitoringAPI.APIdocumentationLink : String; + +begin + Result:='https://cloud.google.com/monitoring/api/'; +end; + +Class Function TMonitoringAPI.APIrootUrl : string; + +begin + Result:='https://monitoring.googleapis.com/'; +end; + +Class Function TMonitoringAPI.APIbasePath : string; + +begin + Result:=''; +end; + +Class Function TMonitoringAPI.APIbaseURL : String; + +begin + Result:='https://monitoring.googleapis.com/'; +end; + +Class Function TMonitoringAPI.APIProtocol : string; + +begin + Result:='rest'; +end; + +Class Function TMonitoringAPI.APIservicePath : string; + +begin + Result:=''; +end; + +Class Function TMonitoringAPI.APIbatchPath : String; + +begin + Result:='batch'; +end; + +Class Function TMonitoringAPI.APIAuthScopes : TScopeInfoArray; + +begin + SetLength(Result,4); + Result[0].Name:='https://www.googleapis.com/auth/cloud-platform'; + Result[0].Description:='View and manage your data across Google Cloud Platform services'; + Result[1].Name:='https://www.googleapis.com/auth/monitoring'; + Result[1].Description:='View and write monitoring data for all of your Google and third-party Cloud and API projects'; + Result[2].Name:='https://www.googleapis.com/auth/monitoring.read'; + Result[2].Description:='View monitoring data for all of your Google Cloud and third-party projects'; + Result[3].Name:='https://www.googleapis.com/auth/monitoring.write'; + Result[3].Description:='Publish metric data to your Google Cloud projects'; + +end; + +Class Function TMonitoringAPI.APINeedsAuth : Boolean; + +begin + Result:=True; +end; + +Class Procedure TMonitoringAPI.RegisterAPIResources; + +begin + TCreateCollectdTimeSeriesRequest.RegisterObject; + TMonitoredResourceTypelabels.RegisterObject; + TMonitoredResource.RegisterObject; + TCollectdPayloadTypemetadata.RegisterObject; + TCollectdPayload.RegisterObject; + TCollectdValue.RegisterObject; + TTypedValue.RegisterObject; + TDistribution.RegisterObject; + TRange.RegisterObject; + TBucketOptions.RegisterObject; + TLinear.RegisterObject; + TExponential.RegisterObject; + TExplicit.RegisterObject; + TEmpty.RegisterObject; + TListGroupsResponse.RegisterObject; + TGroup.RegisterObject; + TListGroupMembersResponse.RegisterObject; + TListMonitoredResourceDescriptorsResponse.RegisterObject; + TMonitoredResourceDescriptor.RegisterObject; + TLabelDescriptor.RegisterObject; + TListMetricDescriptorsResponse.RegisterObject; + TMetricDescriptor.RegisterObject; + TListTimeSeriesResponse.RegisterObject; + TTimeSeries.RegisterObject; + TMetricTypelabels.RegisterObject; + TMetric.RegisterObject; + TPoint.RegisterObject; + TTimeInterval.RegisterObject; + TCreateTimeSeriesRequest.RegisterObject; + TType.RegisterObject; + TField.RegisterObject; + TOptionTypevalue.RegisterObject; + TOption.RegisterObject; + TSourceContext.RegisterObject; +end; + + +Function TMonitoringAPI.GetProjectsCollectdTimeSeriesInstance : TProjectsCollectdTimeSeriesResource; + +begin + if (FProjectsCollectdTimeSeriesInstance=Nil) then + FProjectsCollectdTimeSeriesInstance:=CreateProjectsCollectdTimeSeriesResource; + Result:=FProjectsCollectdTimeSeriesInstance; +end; + +Function TMonitoringAPI.CreateProjectsCollectdTimeSeriesResource : TProjectsCollectdTimeSeriesResource; + +begin + Result:=CreateProjectsCollectdTimeSeriesResource(Self); +end; + + +Function TMonitoringAPI.CreateProjectsCollectdTimeSeriesResource(AOwner : TComponent) : TProjectsCollectdTimeSeriesResource; + +begin + Result:=TProjectsCollectdTimeSeriesResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +Function TMonitoringAPI.GetProjectsGroupsMembersInstance : TProjectsGroupsMembersResource; + +begin + if (FProjectsGroupsMembersInstance=Nil) then + FProjectsGroupsMembersInstance:=CreateProjectsGroupsMembersResource; + Result:=FProjectsGroupsMembersInstance; +end; + +Function TMonitoringAPI.CreateProjectsGroupsMembersResource : TProjectsGroupsMembersResource; + +begin + Result:=CreateProjectsGroupsMembersResource(Self); +end; + + +Function TMonitoringAPI.CreateProjectsGroupsMembersResource(AOwner : TComponent) : TProjectsGroupsMembersResource; + +begin + Result:=TProjectsGroupsMembersResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +Function TMonitoringAPI.GetProjectsGroupsInstance : TProjectsGroupsResource; + +begin + if (FProjectsGroupsInstance=Nil) then + FProjectsGroupsInstance:=CreateProjectsGroupsResource; + Result:=FProjectsGroupsInstance; +end; + +Function TMonitoringAPI.CreateProjectsGroupsResource : TProjectsGroupsResource; + +begin + Result:=CreateProjectsGroupsResource(Self); +end; + + +Function TMonitoringAPI.CreateProjectsGroupsResource(AOwner : TComponent) : TProjectsGroupsResource; + +begin + Result:=TProjectsGroupsResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +Function TMonitoringAPI.GetProjectsMonitoredResourceDescriptorsInstance : TProjectsMonitoredResourceDescriptorsResource; + +begin + if (FProjectsMonitoredResourceDescriptorsInstance=Nil) then + FProjectsMonitoredResourceDescriptorsInstance:=CreateProjectsMonitoredResourceDescriptorsResource; + Result:=FProjectsMonitoredResourceDescriptorsInstance; +end; + +Function TMonitoringAPI.CreateProjectsMonitoredResourceDescriptorsResource : TProjectsMonitoredResourceDescriptorsResource; + +begin + Result:=CreateProjectsMonitoredResourceDescriptorsResource(Self); +end; + + +Function TMonitoringAPI.CreateProjectsMonitoredResourceDescriptorsResource(AOwner : TComponent) : TProjectsMonitoredResourceDescriptorsResource; + +begin + Result:=TProjectsMonitoredResourceDescriptorsResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +Function TMonitoringAPI.GetProjectsMetricDescriptorsInstance : TProjectsMetricDescriptorsResource; + +begin + if (FProjectsMetricDescriptorsInstance=Nil) then + FProjectsMetricDescriptorsInstance:=CreateProjectsMetricDescriptorsResource; + Result:=FProjectsMetricDescriptorsInstance; +end; + +Function TMonitoringAPI.CreateProjectsMetricDescriptorsResource : TProjectsMetricDescriptorsResource; + +begin + Result:=CreateProjectsMetricDescriptorsResource(Self); +end; + + +Function TMonitoringAPI.CreateProjectsMetricDescriptorsResource(AOwner : TComponent) : TProjectsMetricDescriptorsResource; + +begin + Result:=TProjectsMetricDescriptorsResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +Function TMonitoringAPI.GetProjectsTimeSeriesInstance : TProjectsTimeSeriesResource; + +begin + if (FProjectsTimeSeriesInstance=Nil) then + FProjectsTimeSeriesInstance:=CreateProjectsTimeSeriesResource; + Result:=FProjectsTimeSeriesInstance; +end; + +Function TMonitoringAPI.CreateProjectsTimeSeriesResource : TProjectsTimeSeriesResource; + +begin + Result:=CreateProjectsTimeSeriesResource(Self); +end; + + +Function TMonitoringAPI.CreateProjectsTimeSeriesResource(AOwner : TComponent) : TProjectsTimeSeriesResource; + +begin + Result:=TProjectsTimeSeriesResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +Function TMonitoringAPI.GetProjectsInstance : TProjectsResource; + +begin + if (FProjectsInstance=Nil) then + FProjectsInstance:=CreateProjectsResource; + Result:=FProjectsInstance; +end; + +Function TMonitoringAPI.CreateProjectsResource : TProjectsResource; + +begin + Result:=CreateProjectsResource(Self); +end; + + +Function TMonitoringAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource; + +begin + Result:=TProjectsResource.Create(AOwner); + Result.API:=Self.API; +end; + + + +initialization + TMonitoringAPI.RegisterAPI; +end. |