Why Gemfury?
Push, build, and install
RubyGems
npm packages
Python packages
Maven artifacts
PHP packages
Go Modules
Debian packages
RPM packages
NuGet packages
Repository URL to install this package:
|
Version:
3.2.0 ▾
|
unit googleappengine;
{$MODE objfpc}
{$H+}
interface
uses sysutils, classes, googleservice, restbase, googlebase;
type
//Top-level schema types
TOperation = Class;
TStatus = Class;
TListOperationsResponse = Class;
TApplication = Class;
TUrlDispatchRule = Class;
TVersion = Class;
TAutomaticScaling = Class;
TCpuUtilization = Class;
TRequestUtilization = Class;
TDiskUtilization = Class;
TNetworkUtilization = Class;
TBasicScaling = Class;
TManualScaling = Class;
TNetwork = Class;
TResources = Class;
TUrlMap = Class;
TStaticFilesHandler = Class;
TScriptHandler = Class;
TApiEndpointHandler = Class;
TErrorHandler = Class;
TLibrary = Class;
TApiConfigHandler = Class;
THealthCheck = Class;
TDeployment = Class;
TFileInfo = Class;
TContainerInfo = Class;
TSourceReference = Class;
TListVersionsResponse = Class;
TService = Class;
TTrafficSplit = Class;
TListServicesResponse = Class;
TListInstancesResponse = Class;
TInstance = Class;
TOperationMetadata = Class;
TOperationMetadataV1Beta5 = Class;
TOperationArray = Array of TOperation;
TStatusArray = Array of TStatus;
TListOperationsResponseArray = Array of TListOperationsResponse;
TApplicationArray = Array of TApplication;
TUrlDispatchRuleArray = Array of TUrlDispatchRule;
TVersionArray = Array of TVersion;
TAutomaticScalingArray = Array of TAutomaticScaling;
TCpuUtilizationArray = Array of TCpuUtilization;
TRequestUtilizationArray = Array of TRequestUtilization;
TDiskUtilizationArray = Array of TDiskUtilization;
TNetworkUtilizationArray = Array of TNetworkUtilization;
TBasicScalingArray = Array of TBasicScaling;
TManualScalingArray = Array of TManualScaling;
TNetworkArray = Array of TNetwork;
TResourcesArray = Array of TResources;
TUrlMapArray = Array of TUrlMap;
TStaticFilesHandlerArray = Array of TStaticFilesHandler;
TScriptHandlerArray = Array of TScriptHandler;
TApiEndpointHandlerArray = Array of TApiEndpointHandler;
TErrorHandlerArray = Array of TErrorHandler;
TLibraryArray = Array of TLibrary;
TApiConfigHandlerArray = Array of TApiConfigHandler;
THealthCheckArray = Array of THealthCheck;
TDeploymentArray = Array of TDeployment;
TFileInfoArray = Array of TFileInfo;
TContainerInfoArray = Array of TContainerInfo;
TSourceReferenceArray = Array of TSourceReference;
TListVersionsResponseArray = Array of TListVersionsResponse;
TServiceArray = Array of TService;
TTrafficSplitArray = Array of TTrafficSplit;
TListServicesResponseArray = Array of TListServicesResponse;
TListInstancesResponseArray = Array of TListInstancesResponse;
TInstanceArray = Array of TInstance;
TOperationMetadataArray = Array of TOperationMetadata;
TOperationMetadataV1Beta5Array = Array of TOperationMetadataV1Beta5;
//Anonymous types, using auto-generated names
TOperationTypemetadata = Class;
TOperationTyperesponse = Class;
TStatusTypedetailsItem = Class;
TVersionTypebetaSettings = Class;
TVersionTypeenvVariables = Class;
TStaticFilesHandlerTypehttpHeaders = Class;
TDeploymentTypefiles = Class;
TTrafficSplitTypeallocations = Class;
TStatusTypedetailsArray = Array of TStatusTypedetailsItem;
TListOperationsResponseTypeoperationsArray = Array of TOperation;
TApplicationTypedispatchRulesArray = Array of TUrlDispatchRule;
TVersionTypehandlersArray = Array of TUrlMap;
TVersionTypeerrorHandlersArray = Array of TErrorHandler;
TVersionTypelibrariesArray = Array of TLibrary;
TDeploymentTypesourceReferencesArray = Array of TSourceReference;
TListVersionsResponseTypeversionsArray = Array of TVersion;
TListServicesResponseTypeservicesArray = Array of TService;
TListInstancesResponseTypeinstancesArray = Array of TInstance;
{ --------------------------------------------------------------------
TOperationTypemetadata
--------------------------------------------------------------------}
TOperationTypemetadata = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TOperationTypemetadataClass = Class of TOperationTypemetadata;
{ --------------------------------------------------------------------
TOperationTyperesponse
--------------------------------------------------------------------}
TOperationTyperesponse = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TOperationTyperesponseClass = Class of TOperationTyperesponse;
{ --------------------------------------------------------------------
TOperation
--------------------------------------------------------------------}
TOperation = Class(TGoogleBaseObject)
Private
Fname : String;
Fmetadata : TOperationTypemetadata;
Fdone : boolean;
Ferror : TStatus;
Fresponse : TOperationTyperesponse;
Protected
//Property setters
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata); virtual;
Procedure Setdone(AIndex : Integer; const AValue : boolean); virtual;
Procedure Seterror(AIndex : Integer; const AValue : TStatus); virtual;
Procedure Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse); virtual;
Public
Published
Property name : String Index 0 Read Fname Write Setname;
Property metadata : TOperationTypemetadata Index 8 Read Fmetadata Write Setmetadata;
Property done : boolean Index 16 Read Fdone Write Setdone;
Property error : TStatus Index 24 Read Ferror Write Seterror;
Property response : TOperationTyperesponse Index 32 Read Fresponse Write Setresponse;
end;
TOperationClass = Class of TOperation;
{ --------------------------------------------------------------------
TStatusTypedetailsItem
--------------------------------------------------------------------}
TStatusTypedetailsItem = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TStatusTypedetailsItemClass = Class of TStatusTypedetailsItem;
{ --------------------------------------------------------------------
TStatus
--------------------------------------------------------------------}
TStatus = Class(TGoogleBaseObject)
Private
Fcode : integer;
Fmessage : String;
Fdetails : TStatusTypedetailsArray;
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : integer); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
Procedure Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property code : integer Index 0 Read Fcode Write Setcode;
Property message : String Index 8 Read Fmessage Write Setmessage;
Property details : TStatusTypedetailsArray Index 16 Read Fdetails Write Setdetails;
end;
TStatusClass = Class of TStatus;
{ --------------------------------------------------------------------
TListOperationsResponse
--------------------------------------------------------------------}
TListOperationsResponse = Class(TGoogleBaseObject)
Private
Foperations : TListOperationsResponseTypeoperationsArray;
FnextPageToken : String;
Protected
//Property setters
Procedure Setoperations(AIndex : Integer; const AValue : TListOperationsResponseTypeoperationsArray); 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 operations : TListOperationsResponseTypeoperationsArray Index 0 Read Foperations Write Setoperations;
Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
TListOperationsResponseClass = Class of TListOperationsResponse;
{ --------------------------------------------------------------------
TApplication
--------------------------------------------------------------------}
TApplication = Class(TGoogleBaseObject)
Private
Fname : String;
Fid : String;
FdispatchRules : TApplicationTypedispatchRulesArray;
FauthDomain : String;
Flocation : String;
FcodeBucket : String;
FdefaultCookieExpiration : String;
FdefaultHostname : String;
FdefaultBucket : String;
Protected
//Property setters
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetdispatchRules(AIndex : Integer; const AValue : TApplicationTypedispatchRulesArray); virtual;
Procedure SetauthDomain(AIndex : Integer; const AValue : String); virtual;
Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
Procedure SetcodeBucket(AIndex : Integer; const AValue : String); virtual;
Procedure SetdefaultCookieExpiration(AIndex : Integer; const AValue : String); virtual;
Procedure SetdefaultHostname(AIndex : Integer; const AValue : String); virtual;
Procedure SetdefaultBucket(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 id : String Index 8 Read Fid Write Setid;
Property dispatchRules : TApplicationTypedispatchRulesArray Index 16 Read FdispatchRules Write SetdispatchRules;
Property authDomain : String Index 24 Read FauthDomain Write SetauthDomain;
Property location : String Index 32 Read Flocation Write Setlocation;
Property codeBucket : String Index 40 Read FcodeBucket Write SetcodeBucket;
Property defaultCookieExpiration : String Index 48 Read FdefaultCookieExpiration Write SetdefaultCookieExpiration;
Property defaultHostname : String Index 56 Read FdefaultHostname Write SetdefaultHostname;
Property defaultBucket : String Index 64 Read FdefaultBucket Write SetdefaultBucket;
end;
TApplicationClass = Class of TApplication;
{ --------------------------------------------------------------------
TUrlDispatchRule
--------------------------------------------------------------------}
TUrlDispatchRule = Class(TGoogleBaseObject)
Private
Fdomain : String;
Fpath : String;
Fservice : String;
Protected
//Property setters
Procedure Setdomain(AIndex : Integer; const AValue : String); virtual;
Procedure Setpath(AIndex : Integer; const AValue : String); virtual;
Procedure Setservice(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property domain : String Index 0 Read Fdomain Write Setdomain;
Property path : String Index 8 Read Fpath Write Setpath;
Property service : String Index 16 Read Fservice Write Setservice;
end;
TUrlDispatchRuleClass = Class of TUrlDispatchRule;
{ --------------------------------------------------------------------
TVersionTypebetaSettings
--------------------------------------------------------------------}
TVersionTypebetaSettings = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TVersionTypebetaSettingsClass = Class of TVersionTypebetaSettings;
{ --------------------------------------------------------------------
TVersionTypeenvVariables
--------------------------------------------------------------------}
TVersionTypeenvVariables = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TVersionTypeenvVariablesClass = Class of TVersionTypeenvVariables;
{ --------------------------------------------------------------------
TVersion
--------------------------------------------------------------------}
TVersion = Class(TGoogleBaseObject)
Private
Fname : String;
Fid : String;
FautomaticScaling : TAutomaticScaling;
FbasicScaling : TBasicScaling;
FmanualScaling : TManualScaling;
FinboundServices : TStringArray;
FinstanceClass : String;
Fnetwork : TNetwork;
Fresources : TResources;
Fruntime : String;
Fthreadsafe : boolean;
Fvm : boolean;
FbetaSettings : TVersionTypebetaSettings;
Fenv : String;
FservingStatus : String;
Fdeployer : String;
FcreationTime : String;
FdiskUsageBytes : String;
Fhandlers : TVersionTypehandlersArray;
FerrorHandlers : TVersionTypeerrorHandlersArray;
Flibraries : TVersionTypelibrariesArray;
FapiConfig : TApiConfigHandler;
FenvVariables : TVersionTypeenvVariables;
FdefaultExpiration : String;
FhealthCheck : THealthCheck;
FnobuildFilesRegex : String;
Fdeployment : TDeployment;
Protected
//Property setters
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetautomaticScaling(AIndex : Integer; const AValue : TAutomaticScaling); virtual;
Procedure SetbasicScaling(AIndex : Integer; const AValue : TBasicScaling); virtual;
Procedure SetmanualScaling(AIndex : Integer; const AValue : TManualScaling); virtual;
Procedure SetinboundServices(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetinstanceClass(AIndex : Integer; const AValue : String); virtual;
Procedure Setnetwork(AIndex : Integer; const AValue : TNetwork); virtual;
Procedure Setresources(AIndex : Integer; const AValue : TResources); virtual;
Procedure Setruntime(AIndex : Integer; const AValue : String); virtual;
Procedure Setthreadsafe(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setvm(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetbetaSettings(AIndex : Integer; const AValue : TVersionTypebetaSettings); virtual;
Procedure Setenv(AIndex : Integer; const AValue : String); virtual;
Procedure SetservingStatus(AIndex : Integer; const AValue : String); virtual;
Procedure Setdeployer(AIndex : Integer; const AValue : String); virtual;
Procedure SetcreationTime(AIndex : Integer; const AValue : String); virtual;
Procedure SetdiskUsageBytes(AIndex : Integer; const AValue : String); virtual;
Procedure Sethandlers(AIndex : Integer; const AValue : TVersionTypehandlersArray); virtual;
Procedure SeterrorHandlers(AIndex : Integer; const AValue : TVersionTypeerrorHandlersArray); virtual;
Procedure Setlibraries(AIndex : Integer; const AValue : TVersionTypelibrariesArray); virtual;
Procedure SetapiConfig(AIndex : Integer; const AValue : TApiConfigHandler); virtual;
Procedure SetenvVariables(AIndex : Integer; const AValue : TVersionTypeenvVariables); virtual;
Procedure SetdefaultExpiration(AIndex : Integer; const AValue : String); virtual;
Procedure SethealthCheck(AIndex : Integer; const AValue : THealthCheck); virtual;
Procedure SetnobuildFilesRegex(AIndex : Integer; const AValue : String); virtual;
Procedure Setdeployment(AIndex : Integer; const AValue : TDeployment); 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 id : String Index 8 Read Fid Write Setid;
Property automaticScaling : TAutomaticScaling Index 16 Read FautomaticScaling Write SetautomaticScaling;
Property basicScaling : TBasicScaling Index 24 Read FbasicScaling Write SetbasicScaling;
Property manualScaling : TManualScaling Index 32 Read FmanualScaling Write SetmanualScaling;
Property inboundServices : TStringArray Index 40 Read FinboundServices Write SetinboundServices;
Property instanceClass : String Index 48 Read FinstanceClass Write SetinstanceClass;
Property network : TNetwork Index 56 Read Fnetwork Write Setnetwork;
Property resources : TResources Index 64 Read Fresources Write Setresources;
Property runtime : String Index 72 Read Fruntime Write Setruntime;
Property threadsafe : boolean Index 80 Read Fthreadsafe Write Setthreadsafe;
Property vm : boolean Index 88 Read Fvm Write Setvm;
Property betaSettings : TVersionTypebetaSettings Index 96 Read FbetaSettings Write SetbetaSettings;
Property env : String Index 104 Read Fenv Write Setenv;
Property servingStatus : String Index 112 Read FservingStatus Write SetservingStatus;
Property deployer : String Index 120 Read Fdeployer Write Setdeployer;
Property creationTime : String Index 128 Read FcreationTime Write SetcreationTime;
Property diskUsageBytes : String Index 136 Read FdiskUsageBytes Write SetdiskUsageBytes;
Property handlers : TVersionTypehandlersArray Index 144 Read Fhandlers Write Sethandlers;
Property errorHandlers : TVersionTypeerrorHandlersArray Index 152 Read FerrorHandlers Write SeterrorHandlers;
Property libraries : TVersionTypelibrariesArray Index 160 Read Flibraries Write Setlibraries;
Property apiConfig : TApiConfigHandler Index 168 Read FapiConfig Write SetapiConfig;
Property envVariables : TVersionTypeenvVariables Index 176 Read FenvVariables Write SetenvVariables;
Property defaultExpiration : String Index 184 Read FdefaultExpiration Write SetdefaultExpiration;
Property healthCheck : THealthCheck Index 192 Read FhealthCheck Write SethealthCheck;
Property nobuildFilesRegex : String Index 200 Read FnobuildFilesRegex Write SetnobuildFilesRegex;
Property deployment : TDeployment Index 208 Read Fdeployment Write Setdeployment;
end;
TVersionClass = Class of TVersion;
{ --------------------------------------------------------------------
TAutomaticScaling
--------------------------------------------------------------------}
TAutomaticScaling = Class(TGoogleBaseObject)
Private
FcoolDownPeriod : String;
FcpuUtilization : TCpuUtilization;
FmaxConcurrentRequests : integer;
FmaxIdleInstances : integer;
FmaxTotalInstances : integer;
FmaxPendingLatency : String;
FminIdleInstances : integer;
FminTotalInstances : integer;
FminPendingLatency : String;
FrequestUtilization : TRequestUtilization;
FdiskUtilization : TDiskUtilization;
FnetworkUtilization : TNetworkUtilization;
Protected
//Property setters
Procedure SetcoolDownPeriod(AIndex : Integer; const AValue : String); virtual;
Procedure SetcpuUtilization(AIndex : Integer; const AValue : TCpuUtilization); virtual;
Procedure SetmaxConcurrentRequests(AIndex : Integer; const AValue : integer); virtual;
Procedure SetmaxIdleInstances(AIndex : Integer; const AValue : integer); virtual;
Procedure SetmaxTotalInstances(AIndex : Integer; const AValue : integer); virtual;
Procedure SetmaxPendingLatency(AIndex : Integer; const AValue : String); virtual;
Procedure SetminIdleInstances(AIndex : Integer; const AValue : integer); virtual;
Procedure SetminTotalInstances(AIndex : Integer; const AValue : integer); virtual;
Procedure SetminPendingLatency(AIndex : Integer; const AValue : String); virtual;
Procedure SetrequestUtilization(AIndex : Integer; const AValue : TRequestUtilization); virtual;
Procedure SetdiskUtilization(AIndex : Integer; const AValue : TDiskUtilization); virtual;
Procedure SetnetworkUtilization(AIndex : Integer; const AValue : TNetworkUtilization); virtual;
Public
Published
Property coolDownPeriod : String Index 0 Read FcoolDownPeriod Write SetcoolDownPeriod;
Property cpuUtilization : TCpuUtilization Index 8 Read FcpuUtilization Write SetcpuUtilization;
Property maxConcurrentRequests : integer Index 16 Read FmaxConcurrentRequests Write SetmaxConcurrentRequests;
Property maxIdleInstances : integer Index 24 Read FmaxIdleInstances Write SetmaxIdleInstances;
Property maxTotalInstances : integer Index 32 Read FmaxTotalInstances Write SetmaxTotalInstances;
Property maxPendingLatency : String Index 40 Read FmaxPendingLatency Write SetmaxPendingLatency;
Property minIdleInstances : integer Index 48 Read FminIdleInstances Write SetminIdleInstances;
Property minTotalInstances : integer Index 56 Read FminTotalInstances Write SetminTotalInstances;
Property minPendingLatency : String Index 64 Read FminPendingLatency Write SetminPendingLatency;
Property requestUtilization : TRequestUtilization Index 72 Read FrequestUtilization Write SetrequestUtilization;
Property diskUtilization : TDiskUtilization Index 80 Read FdiskUtilization Write SetdiskUtilization;
Property networkUtilization : TNetworkUtilization Index 88 Read FnetworkUtilization Write SetnetworkUtilization;
end;
TAutomaticScalingClass = Class of TAutomaticScaling;
{ --------------------------------------------------------------------
TCpuUtilization
--------------------------------------------------------------------}
TCpuUtilization = Class(TGoogleBaseObject)
Private
FaggregationWindowLength : String;
FtargetUtilization : double;
Protected
//Property setters
Procedure SetaggregationWindowLength(AIndex : Integer; const AValue : String); virtual;
Procedure SettargetUtilization(AIndex : Integer; const AValue : double); virtual;
Public
Published
Property aggregationWindowLength : String Index 0 Read FaggregationWindowLength Write SetaggregationWindowLength;
Property targetUtilization : double Index 8 Read FtargetUtilization Write SettargetUtilization;
end;
TCpuUtilizationClass = Class of TCpuUtilization;
{ --------------------------------------------------------------------
TRequestUtilization
--------------------------------------------------------------------}
TRequestUtilization = Class(TGoogleBaseObject)
Private
FtargetRequestCountPerSec : integer;
FtargetConcurrentRequests : integer;
Protected
//Property setters
Procedure SettargetRequestCountPerSec(AIndex : Integer; const AValue : integer); virtual;
Procedure SettargetConcurrentRequests(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property targetRequestCountPerSec : integer Index 0 Read FtargetRequestCountPerSec Write SettargetRequestCountPerSec;
Property targetConcurrentRequests : integer Index 8 Read FtargetConcurrentRequests Write SettargetConcurrentRequests;
end;
TRequestUtilizationClass = Class of TRequestUtilization;
{ --------------------------------------------------------------------
TDiskUtilization
--------------------------------------------------------------------}
TDiskUtilization = Class(TGoogleBaseObject)
Private
FtargetWriteBytesPerSec : integer;
FtargetWriteOpsPerSec : integer;
FtargetReadBytesPerSec : integer;
FtargetReadOpsPerSec : integer;
Protected
//Property setters
Procedure SettargetWriteBytesPerSec(AIndex : Integer; const AValue : integer); virtual;
Procedure SettargetWriteOpsPerSec(AIndex : Integer; const AValue : integer); virtual;
Procedure SettargetReadBytesPerSec(AIndex : Integer; const AValue : integer); virtual;
Procedure SettargetReadOpsPerSec(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property targetWriteBytesPerSec : integer Index 0 Read FtargetWriteBytesPerSec Write SettargetWriteBytesPerSec;
Property targetWriteOpsPerSec : integer Index 8 Read FtargetWriteOpsPerSec Write SettargetWriteOpsPerSec;
Property targetReadBytesPerSec : integer Index 16 Read FtargetReadBytesPerSec Write SettargetReadBytesPerSec;
Property targetReadOpsPerSec : integer Index 24 Read FtargetReadOpsPerSec Write SettargetReadOpsPerSec;
end;
TDiskUtilizationClass = Class of TDiskUtilization;
{ --------------------------------------------------------------------
TNetworkUtilization
--------------------------------------------------------------------}
TNetworkUtilization = Class(TGoogleBaseObject)
Private
FtargetSentBytesPerSec : integer;
FtargetSentPacketsPerSec : integer;
FtargetReceivedBytesPerSec : integer;
FtargetReceivedPacketsPerSec : integer;
Protected
//Property setters
Procedure SettargetSentBytesPerSec(AIndex : Integer; const AValue : integer); virtual;
Procedure SettargetSentPacketsPerSec(AIndex : Integer; const AValue : integer); virtual;
Procedure SettargetReceivedBytesPerSec(AIndex : Integer; const AValue : integer); virtual;
Procedure SettargetReceivedPacketsPerSec(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property targetSentBytesPerSec : integer Index 0 Read FtargetSentBytesPerSec Write SettargetSentBytesPerSec;
Property targetSentPacketsPerSec : integer Index 8 Read FtargetSentPacketsPerSec Write SettargetSentPacketsPerSec;
Property targetReceivedBytesPerSec : integer Index 16 Read FtargetReceivedBytesPerSec Write SettargetReceivedBytesPerSec;
Property targetReceivedPacketsPerSec : integer Index 24 Read FtargetReceivedPacketsPerSec Write SettargetReceivedPacketsPerSec;
end;
TNetworkUtilizationClass = Class of TNetworkUtilization;
{ --------------------------------------------------------------------
TBasicScaling
--------------------------------------------------------------------}
TBasicScaling = Class(TGoogleBaseObject)
Private
FidleTimeout : String;
FmaxInstances : integer;
Protected
//Property setters
Procedure SetidleTimeout(AIndex : Integer; const AValue : String); virtual;
Procedure SetmaxInstances(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property idleTimeout : String Index 0 Read FidleTimeout Write SetidleTimeout;
Property maxInstances : integer Index 8 Read FmaxInstances Write SetmaxInstances;
end;
TBasicScalingClass = Class of TBasicScaling;
{ --------------------------------------------------------------------
TManualScaling
--------------------------------------------------------------------}
TManualScaling = Class(TGoogleBaseObject)
Private
Finstances : integer;
Protected
//Property setters
Procedure Setinstances(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property instances : integer Index 0 Read Finstances Write Setinstances;
end;
TManualScalingClass = Class of TManualScaling;
{ --------------------------------------------------------------------
TNetwork
--------------------------------------------------------------------}
TNetwork = Class(TGoogleBaseObject)
Private
FforwardedPorts : TStringArray;
FinstanceTag : String;
Fname : String;
Protected
//Property setters
Procedure SetforwardedPorts(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetinstanceTag(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(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 forwardedPorts : TStringArray Index 0 Read FforwardedPorts Write SetforwardedPorts;
Property instanceTag : String Index 8 Read FinstanceTag Write SetinstanceTag;
Property name : String Index 16 Read Fname Write Setname;
end;
TNetworkClass = Class of TNetwork;
{ --------------------------------------------------------------------
TResources
--------------------------------------------------------------------}
TResources = Class(TGoogleBaseObject)
Private
Fcpu : double;
FdiskGb : double;
FmemoryGb : double;
Protected
//Property setters
Procedure Setcpu(AIndex : Integer; const AValue : double); virtual;
Procedure SetdiskGb(AIndex : Integer; const AValue : double); virtual;
Procedure SetmemoryGb(AIndex : Integer; const AValue : double); virtual;
Public
Published
Property cpu : double Index 0 Read Fcpu Write Setcpu;
Property diskGb : double Index 8 Read FdiskGb Write SetdiskGb;
Property memoryGb : double Index 16 Read FmemoryGb Write SetmemoryGb;
end;
TResourcesClass = Class of TResources;
{ --------------------------------------------------------------------
TUrlMap
--------------------------------------------------------------------}
TUrlMap = Class(TGoogleBaseObject)
Private
FurlRegex : String;
FstaticFiles : TStaticFilesHandler;
Fscript : TScriptHandler;
FapiEndpoint : TApiEndpointHandler;
FsecurityLevel : String;
Flogin : String;
FauthFailAction : String;
FredirectHttpResponseCode : String;
Protected
//Property setters
Procedure SeturlRegex(AIndex : Integer; const AValue : String); virtual;
Procedure SetstaticFiles(AIndex : Integer; const AValue : TStaticFilesHandler); virtual;
Procedure Setscript(AIndex : Integer; const AValue : TScriptHandler); virtual;
Procedure SetapiEndpoint(AIndex : Integer; const AValue : TApiEndpointHandler); virtual;
Procedure SetsecurityLevel(AIndex : Integer; const AValue : String); virtual;
Procedure Setlogin(AIndex : Integer; const AValue : String); virtual;
Procedure SetauthFailAction(AIndex : Integer; const AValue : String); virtual;
Procedure SetredirectHttpResponseCode(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property urlRegex : String Index 0 Read FurlRegex Write SeturlRegex;
Property staticFiles : TStaticFilesHandler Index 8 Read FstaticFiles Write SetstaticFiles;
Property script : TScriptHandler Index 16 Read Fscript Write Setscript;
Property apiEndpoint : TApiEndpointHandler Index 24 Read FapiEndpoint Write SetapiEndpoint;
Property securityLevel : String Index 32 Read FsecurityLevel Write SetsecurityLevel;
Property login : String Index 40 Read Flogin Write Setlogin;
Property authFailAction : String Index 48 Read FauthFailAction Write SetauthFailAction;
Property redirectHttpResponseCode : String Index 56 Read FredirectHttpResponseCode Write SetredirectHttpResponseCode;
end;
TUrlMapClass = Class of TUrlMap;
{ --------------------------------------------------------------------
TStaticFilesHandlerTypehttpHeaders
--------------------------------------------------------------------}
TStaticFilesHandlerTypehttpHeaders = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TStaticFilesHandlerTypehttpHeadersClass = Class of TStaticFilesHandlerTypehttpHeaders;
{ --------------------------------------------------------------------
TStaticFilesHandler
--------------------------------------------------------------------}
TStaticFilesHandler = Class(TGoogleBaseObject)
Private
Fpath : String;
FuploadPathRegex : String;
FhttpHeaders : TStaticFilesHandlerTypehttpHeaders;
FmimeType : String;
Fexpiration : String;
FrequireMatchingFile : boolean;
FapplicationReadable : boolean;
Protected
//Property setters
Procedure Setpath(AIndex : Integer; const AValue : String); virtual;
Procedure SetuploadPathRegex(AIndex : Integer; const AValue : String); virtual;
Procedure SethttpHeaders(AIndex : Integer; const AValue : TStaticFilesHandlerTypehttpHeaders); virtual;
Procedure SetmimeType(AIndex : Integer; const AValue : String); virtual;
Procedure Setexpiration(AIndex : Integer; const AValue : String); virtual;
Procedure SetrequireMatchingFile(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetapplicationReadable(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property path : String Index 0 Read Fpath Write Setpath;
Property uploadPathRegex : String Index 8 Read FuploadPathRegex Write SetuploadPathRegex;
Property httpHeaders : TStaticFilesHandlerTypehttpHeaders Index 16 Read FhttpHeaders Write SethttpHeaders;
Property mimeType : String Index 24 Read FmimeType Write SetmimeType;
Property expiration : String Index 32 Read Fexpiration Write Setexpiration;
Property requireMatchingFile : boolean Index 40 Read FrequireMatchingFile Write SetrequireMatchingFile;
Property applicationReadable : boolean Index 48 Read FapplicationReadable Write SetapplicationReadable;
end;
TStaticFilesHandlerClass = Class of TStaticFilesHandler;
{ --------------------------------------------------------------------
TScriptHandler
--------------------------------------------------------------------}
TScriptHandler = Class(TGoogleBaseObject)
Private
FscriptPath : String;
Protected
//Property setters
Procedure SetscriptPath(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property scriptPath : String Index 0 Read FscriptPath Write SetscriptPath;
end;
TScriptHandlerClass = Class of TScriptHandler;
{ --------------------------------------------------------------------
TApiEndpointHandler
--------------------------------------------------------------------}
TApiEndpointHandler = Class(TGoogleBaseObject)
Private
FscriptPath : String;
Protected
//Property setters
Procedure SetscriptPath(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property scriptPath : String Index 0 Read FscriptPath Write SetscriptPath;
end;
TApiEndpointHandlerClass = Class of TApiEndpointHandler;
{ --------------------------------------------------------------------
TErrorHandler
--------------------------------------------------------------------}
TErrorHandler = Class(TGoogleBaseObject)
Private
FerrorCode : String;
FstaticFile : String;
FmimeType : String;
Protected
//Property setters
Procedure SeterrorCode(AIndex : Integer; const AValue : String); virtual;
Procedure SetstaticFile(AIndex : Integer; const AValue : String); virtual;
Procedure SetmimeType(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property errorCode : String Index 0 Read FerrorCode Write SeterrorCode;
Property staticFile : String Index 8 Read FstaticFile Write SetstaticFile;
Property mimeType : String Index 16 Read FmimeType Write SetmimeType;
end;
TErrorHandlerClass = Class of TErrorHandler;
{ --------------------------------------------------------------------
TLibrary
--------------------------------------------------------------------}
TLibrary = Class(TGoogleBaseObject)
Private
Fname : String;
Fversion : String;
Protected
//Property setters
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property name : String Index 0 Read Fname Write Setname;
Property version : String Index 8 Read Fversion Write Setversion;
end;
TLibraryClass = Class of TLibrary;
{ --------------------------------------------------------------------
TApiConfigHandler
--------------------------------------------------------------------}
TApiConfigHandler = Class(TGoogleBaseObject)
Private
FauthFailAction : String;
Flogin : String;
Fscript : String;
FsecurityLevel : String;
Furl : String;
Protected
//Property setters
Procedure SetauthFailAction(AIndex : Integer; const AValue : String); virtual;
Procedure Setlogin(AIndex : Integer; const AValue : String); virtual;
Procedure Setscript(AIndex : Integer; const AValue : String); virtual;
Procedure SetsecurityLevel(AIndex : Integer; const AValue : String); virtual;
Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property authFailAction : String Index 0 Read FauthFailAction Write SetauthFailAction;
Property login : String Index 8 Read Flogin Write Setlogin;
Property script : String Index 16 Read Fscript Write Setscript;
Property securityLevel : String Index 24 Read FsecurityLevel Write SetsecurityLevel;
Property url : String Index 32 Read Furl Write Seturl;
end;
TApiConfigHandlerClass = Class of TApiConfigHandler;
{ --------------------------------------------------------------------
THealthCheck
--------------------------------------------------------------------}
THealthCheck = Class(TGoogleBaseObject)
Private
FdisableHealthCheck : boolean;
Fhost : String;
FhealthyThreshold : integer;
FunhealthyThreshold : integer;
FrestartThreshold : integer;
FcheckInterval : String;
Ftimeout : String;
Protected
//Property setters
Procedure SetdisableHealthCheck(AIndex : Integer; const AValue : boolean); virtual;
Procedure Sethost(AIndex : Integer; const AValue : String); virtual;
Procedure SethealthyThreshold(AIndex : Integer; const AValue : integer); virtual;
Procedure SetunhealthyThreshold(AIndex : Integer; const AValue : integer); virtual;
Procedure SetrestartThreshold(AIndex : Integer; const AValue : integer); virtual;
Procedure SetcheckInterval(AIndex : Integer; const AValue : String); virtual;
Procedure Settimeout(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property disableHealthCheck : boolean Index 0 Read FdisableHealthCheck Write SetdisableHealthCheck;
Property host : String Index 8 Read Fhost Write Sethost;
Property healthyThreshold : integer Index 16 Read FhealthyThreshold Write SethealthyThreshold;
Property unhealthyThreshold : integer Index 24 Read FunhealthyThreshold Write SetunhealthyThreshold;
Property restartThreshold : integer Index 32 Read FrestartThreshold Write SetrestartThreshold;
Property checkInterval : String Index 40 Read FcheckInterval Write SetcheckInterval;
Property timeout : String Index 48 Read Ftimeout Write Settimeout;
end;
THealthCheckClass = Class of THealthCheck;
{ --------------------------------------------------------------------
TDeploymentTypefiles
--------------------------------------------------------------------}
TDeploymentTypefiles = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TDeploymentTypefilesClass = Class of TDeploymentTypefiles;
{ --------------------------------------------------------------------
TDeployment
--------------------------------------------------------------------}
TDeployment = Class(TGoogleBaseObject)
Private
Ffiles : TDeploymentTypefiles;
Fcontainer : TContainerInfo;
FsourceReferences : TDeploymentTypesourceReferencesArray;
Protected
//Property setters
Procedure Setfiles(AIndex : Integer; const AValue : TDeploymentTypefiles); virtual;
Procedure Setcontainer(AIndex : Integer; const AValue : TContainerInfo); virtual;
Procedure SetsourceReferences(AIndex : Integer; const AValue : TDeploymentTypesourceReferencesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property files : TDeploymentTypefiles Index 0 Read Ffiles Write Setfiles;
Property container : TContainerInfo Index 8 Read Fcontainer Write Setcontainer;
Property sourceReferences : TDeploymentTypesourceReferencesArray Index 16 Read FsourceReferences Write SetsourceReferences;
end;
TDeploymentClass = Class of TDeployment;
{ --------------------------------------------------------------------
TFileInfo
--------------------------------------------------------------------}
TFileInfo = Class(TGoogleBaseObject)
Private
FsourceUrl : String;
Fsha1Sum : String;
FmimeType : String;
Protected
//Property setters
Procedure SetsourceUrl(AIndex : Integer; const AValue : String); virtual;
Procedure Setsha1Sum(AIndex : Integer; const AValue : String); virtual;
Procedure SetmimeType(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property sourceUrl : String Index 0 Read FsourceUrl Write SetsourceUrl;
Property sha1Sum : String Index 8 Read Fsha1Sum Write Setsha1Sum;
Property mimeType : String Index 16 Read FmimeType Write SetmimeType;
end;
TFileInfoClass = Class of TFileInfo;
{ --------------------------------------------------------------------
TContainerInfo
--------------------------------------------------------------------}
TContainerInfo = Class(TGoogleBaseObject)
Private
Fimage : String;
Protected
//Property setters
Procedure Setimage(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property image : String Index 0 Read Fimage Write Setimage;
end;
TContainerInfoClass = Class of TContainerInfo;
{ --------------------------------------------------------------------
TSourceReference
--------------------------------------------------------------------}
TSourceReference = Class(TGoogleBaseObject)
Private
Frepository : String;
FrevisionId : String;
Protected
//Property setters
Procedure Setrepository(AIndex : Integer; const AValue : String); virtual;
Procedure SetrevisionId(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property repository : String Index 0 Read Frepository Write Setrepository;
Property revisionId : String Index 8 Read FrevisionId Write SetrevisionId;
end;
TSourceReferenceClass = Class of TSourceReference;
{ --------------------------------------------------------------------
TListVersionsResponse
--------------------------------------------------------------------}
TListVersionsResponse = Class(TGoogleBaseObject)
Private
Fversions : TListVersionsResponseTypeversionsArray;
FnextPageToken : String;
Protected
//Property setters
Procedure Setversions(AIndex : Integer; const AValue : TListVersionsResponseTypeversionsArray); 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 versions : TListVersionsResponseTypeversionsArray Index 0 Read Fversions Write Setversions;
Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
TListVersionsResponseClass = Class of TListVersionsResponse;
{ --------------------------------------------------------------------
TService
--------------------------------------------------------------------}
TService = Class(TGoogleBaseObject)
Private
Fname : String;
Fid : String;
Fsplit : TTrafficSplit;
Protected
//Property setters
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setsplit(AIndex : Integer; const AValue : TTrafficSplit); virtual;
Public
Published
Property name : String Index 0 Read Fname Write Setname;
Property id : String Index 8 Read Fid Write Setid;
Property split : TTrafficSplit Index 16 Read Fsplit Write Setsplit;
end;
TServiceClass = Class of TService;
{ --------------------------------------------------------------------
TTrafficSplitTypeallocations
--------------------------------------------------------------------}
TTrafficSplitTypeallocations = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TTrafficSplitTypeallocationsClass = Class of TTrafficSplitTypeallocations;
{ --------------------------------------------------------------------
TTrafficSplit
--------------------------------------------------------------------}
TTrafficSplit = Class(TGoogleBaseObject)
Private
FshardBy : String;
Fallocations : TTrafficSplitTypeallocations;
Protected
//Property setters
Procedure SetshardBy(AIndex : Integer; const AValue : String); virtual;
Procedure Setallocations(AIndex : Integer; const AValue : TTrafficSplitTypeallocations); virtual;
Public
Published
Property shardBy : String Index 0 Read FshardBy Write SetshardBy;
Property allocations : TTrafficSplitTypeallocations Index 8 Read Fallocations Write Setallocations;
end;
TTrafficSplitClass = Class of TTrafficSplit;
{ --------------------------------------------------------------------
TListServicesResponse
--------------------------------------------------------------------}
TListServicesResponse = Class(TGoogleBaseObject)
Private
Fservices : TListServicesResponseTypeservicesArray;
FnextPageToken : String;
Protected
//Property setters
Procedure Setservices(AIndex : Integer; const AValue : TListServicesResponseTypeservicesArray); 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 services : TListServicesResponseTypeservicesArray Index 0 Read Fservices Write Setservices;
Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
TListServicesResponseClass = Class of TListServicesResponse;
{ --------------------------------------------------------------------
TListInstancesResponse
--------------------------------------------------------------------}
TListInstancesResponse = Class(TGoogleBaseObject)
Private
Finstances : TListInstancesResponseTypeinstancesArray;
FnextPageToken : String;
Protected
//Property setters
Procedure Setinstances(AIndex : Integer; const AValue : TListInstancesResponseTypeinstancesArray); 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 instances : TListInstancesResponseTypeinstancesArray Index 0 Read Finstances Write Setinstances;
Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
end;
TListInstancesResponseClass = Class of TListInstancesResponse;
{ --------------------------------------------------------------------
TInstance
--------------------------------------------------------------------}
TInstance = Class(TGoogleBaseObject)
Private
Fname : String;
Fid : String;
FappEngineRelease : String;
Favailability : String;
FvmName : String;
FvmZoneName : String;
FvmId : String;
FstartTimestamp : String;
Frequests : integer;
Ferrors : integer;
Fqps : integer;
FaverageLatency : integer;
FmemoryUsage : String;
FvmStatus : String;
FvmUnlocked : boolean;
Protected
//Property setters
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetappEngineRelease(AIndex : Integer; const AValue : String); virtual;
Procedure Setavailability(AIndex : Integer; const AValue : String); virtual;
Procedure SetvmName(AIndex : Integer; const AValue : String); virtual;
Procedure SetvmZoneName(AIndex : Integer; const AValue : String); virtual;
Procedure SetvmId(AIndex : Integer; const AValue : String); virtual;
Procedure SetstartTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setrequests(AIndex : Integer; const AValue : integer); virtual;
Procedure Seterrors(AIndex : Integer; const AValue : integer); virtual;
Procedure Setqps(AIndex : Integer; const AValue : integer); virtual;
Procedure SetaverageLatency(AIndex : Integer; const AValue : integer); virtual;
Procedure SetmemoryUsage(AIndex : Integer; const AValue : String); virtual;
Procedure SetvmStatus(AIndex : Integer; const AValue : String); virtual;
Procedure SetvmUnlocked(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property name : String Index 0 Read Fname Write Setname;
Property id : String Index 8 Read Fid Write Setid;
Property appEngineRelease : String Index 16 Read FappEngineRelease Write SetappEngineRelease;
Property availability : String Index 24 Read Favailability Write Setavailability;
Property vmName : String Index 32 Read FvmName Write SetvmName;
Property vmZoneName : String Index 40 Read FvmZoneName Write SetvmZoneName;
Property vmId : String Index 48 Read FvmId Write SetvmId;
Property startTimestamp : String Index 56 Read FstartTimestamp Write SetstartTimestamp;
Property requests : integer Index 64 Read Frequests Write Setrequests;
Property errors : integer Index 72 Read Ferrors Write Seterrors;
Property qps : integer Index 80 Read Fqps Write Setqps;
Property averageLatency : integer Index 88 Read FaverageLatency Write SetaverageLatency;
Property memoryUsage : String Index 96 Read FmemoryUsage Write SetmemoryUsage;
Property vmStatus : String Index 104 Read FvmStatus Write SetvmStatus;
Property vmUnlocked : boolean Index 112 Read FvmUnlocked Write SetvmUnlocked;
end;
TInstanceClass = Class of TInstance;
{ --------------------------------------------------------------------
TOperationMetadata
--------------------------------------------------------------------}
TOperationMetadata = Class(TGoogleBaseObject)
Private
FoperationType : String;
FinsertTime : String;
FendTime : String;
Fuser : String;
Ftarget : String;
Fmethod : String;
Protected
//Property setters
Procedure SetoperationType(AIndex : Integer; const AValue : String); virtual;
Procedure SetinsertTime(AIndex : Integer; const AValue : String); virtual;
Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
Procedure Setuser(AIndex : Integer; const AValue : String); virtual;
Procedure Settarget(AIndex : Integer; const AValue : String); virtual;
Procedure Setmethod(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property operationType : String Index 0 Read FoperationType Write SetoperationType;
Property insertTime : String Index 8 Read FinsertTime Write SetinsertTime;
Property endTime : String Index 16 Read FendTime Write SetendTime;
Property user : String Index 24 Read Fuser Write Setuser;
Property target : String Index 32 Read Ftarget Write Settarget;
Property method : String Index 40 Read Fmethod Write Setmethod;
end;
TOperationMetadataClass = Class of TOperationMetadata;
{ --------------------------------------------------------------------
TOperationMetadataV1Beta5
--------------------------------------------------------------------}
TOperationMetadataV1Beta5 = Class(TGoogleBaseObject)
Private
Fmethod : String;
FinsertTime : String;
FendTime : String;
Fuser : String;
Ftarget : String;
Protected
//Property setters
Procedure Setmethod(AIndex : Integer; const AValue : String); virtual;
Procedure SetinsertTime(AIndex : Integer; const AValue : String); virtual;
Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
Procedure Setuser(AIndex : Integer; const AValue : String); virtual;
Procedure Settarget(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property method : String Index 0 Read Fmethod Write Setmethod;
Property insertTime : String Index 8 Read FinsertTime Write SetinsertTime;
Property endTime : String Index 16 Read FendTime Write SetendTime;
Property user : String Index 24 Read Fuser Write Setuser;
Property target : String Index 32 Read Ftarget Write Settarget;
end;
TOperationMetadataV1Beta5Class = Class of TOperationMetadataV1Beta5;
{ --------------------------------------------------------------------
TAppsOperationsResource
--------------------------------------------------------------------}
//Optional query Options for TAppsOperationsResource, method List
TAppsOperationsListOptions = Record
filter : String;
pageSize : integer;
pageToken : String;
end;
TAppsOperationsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Get(appsId: string; operationsId: string) : TOperation;
Function List(appsId: string; AQuery : string = '') : TListOperationsResponse;
Function List(appsId: string; AQuery : TAppsOperationslistOptions) : TListOperationsResponse;
end;
{ --------------------------------------------------------------------
TAppsServicesVersionsInstancesResource
--------------------------------------------------------------------}
//Optional query Options for TAppsServicesVersionsInstancesResource, method List
TAppsServicesVersionsInstancesListOptions = Record
pageSize : integer;
pageToken : String;
end;
TAppsServicesVersionsInstancesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function List(appsId: string; servicesId: string; versionsId: string; AQuery : string = '') : TListInstancesResponse;
Function List(appsId: string; servicesId: string; versionsId: string; AQuery : TAppsServicesVersionsInstanceslistOptions) : TListInstancesResponse;
end;
{ --------------------------------------------------------------------
TAppsServicesVersionsResource
--------------------------------------------------------------------}
//Optional query Options for TAppsServicesVersionsResource, method Get
TAppsServicesVersionsGetOptions = Record
view : String;
end;
//Optional query Options for TAppsServicesVersionsResource, method List
TAppsServicesVersionsListOptions = Record
view : String;
pageSize : integer;
pageToken : String;
end;
//Optional query Options for TAppsServicesVersionsResource, method Patch
TAppsServicesVersionsPatchOptions = Record
mask : String;
end;
TAppsServicesVersionsResource = Class(TGoogleResource)
Private
FInstancesInstance : TAppsServicesVersionsInstancesResource;
Function GetInstancesInstance : TAppsServicesVersionsInstancesResource;virtual;
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Create(appsId: string; servicesId: string; aVersion : TVersion) : TOperation;overload;
Function Delete(appsId: string; servicesId: string; versionsId: string) : TOperation;
Function Get(appsId: string; servicesId: string; versionsId: string; AQuery : string = '') : TVersion;
Function Get(appsId: string; servicesId: string; versionsId: string; AQuery : TAppsServicesVersionsgetOptions) : TVersion;
Function List(appsId: string; servicesId: string; AQuery : string = '') : TListVersionsResponse;
Function List(appsId: string; servicesId: string; AQuery : TAppsServicesVersionslistOptions) : TListVersionsResponse;
Function Patch(appsId: string; servicesId: string; versionsId: string; aVersion : TVersion; AQuery : string = '') : TOperation;
Function Patch(appsId: string; servicesId: string; versionsId: string; aVersion : TVersion; AQuery : TAppsServicesVersionspatchOptions) : TOperation;
Function CreateInstancesResource(AOwner : TComponent) : TAppsServicesVersionsInstancesResource;virtual;overload;
Function CreateInstancesResource : TAppsServicesVersionsInstancesResource;virtual;overload;
Property InstancesResource : TAppsServicesVersionsInstancesResource Read GetInstancesInstance;
end;
{ --------------------------------------------------------------------
TAppsServicesResource
--------------------------------------------------------------------}
//Optional query Options for TAppsServicesResource, method List
TAppsServicesListOptions = Record
pageSize : integer;
pageToken : String;
end;
//Optional query Options for TAppsServicesResource, method Patch
TAppsServicesPatchOptions = Record
mask : String;
migrateTraffic : boolean;
end;
TAppsServicesResource = Class(TGoogleResource)
Private
FVersionsInstancesInstance : TAppsServicesVersionsInstancesResource;
FVersionsInstance : TAppsServicesVersionsResource;
Function GetVersionsInstancesInstance : TAppsServicesVersionsInstancesResource;virtual;
Function GetVersionsInstance : TAppsServicesVersionsResource;virtual;
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Delete(appsId: string; servicesId: string) : TOperation;
Function Get(appsId: string; servicesId: string) : TService;
Function List(appsId: string; AQuery : string = '') : TListServicesResponse;
Function List(appsId: string; AQuery : TAppsServiceslistOptions) : TListServicesResponse;
Function Patch(appsId: string; servicesId: string; aService : TService; AQuery : string = '') : TOperation;
Function Patch(appsId: string; servicesId: string; aService : TService; AQuery : TAppsServicespatchOptions) : TOperation;
Function CreateVersionsInstancesResource(AOwner : TComponent) : TAppsServicesVersionsInstancesResource;virtual;overload;
Function CreateVersionsInstancesResource : TAppsServicesVersionsInstancesResource;virtual;overload;
Function CreateVersionsResource(AOwner : TComponent) : TAppsServicesVersionsResource;virtual;overload;
Function CreateVersionsResource : TAppsServicesVersionsResource;virtual;overload;
Property VersionsInstancesResource : TAppsServicesVersionsInstancesResource Read GetVersionsInstancesInstance;
Property VersionsResource : TAppsServicesVersionsResource Read GetVersionsInstance;
end;
{ --------------------------------------------------------------------
TAppsResource
--------------------------------------------------------------------}
//Optional query Options for TAppsResource, method Get
TAppsGetOptions = Record
ensureResourcesExist : boolean;
end;
TAppsResource = Class(TGoogleResource)
Private
FOperationsInstance : TAppsOperationsResource;
FServicesVersionsInstancesInstance : TAppsServicesVersionsInstancesResource;
FServicesVersionsInstance : TAppsServicesVersionsResource;
FServicesInstance : TAppsServicesResource;
Function GetOperationsInstance : TAppsOperationsResource;virtual;
Function GetServicesVersionsInstancesInstance : TAppsServicesVersionsInstancesResource;virtual;
Function GetServicesVersionsInstance : TAppsServicesVersionsResource;virtual;
Function GetServicesInstance : TAppsServicesResource;virtual;
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Get(appsId: string; AQuery : string = '') : TApplication;
Function Get(appsId: string; AQuery : TAppsgetOptions) : TApplication;
Function CreateOperationsResource(AOwner : TComponent) : TAppsOperationsResource;virtual;overload;
Function CreateOperationsResource : TAppsOperationsResource;virtual;overload;
Function CreateServicesVersionsInstancesResource(AOwner : TComponent) : TAppsServicesVersionsInstancesResource;virtual;overload;
Function CreateServicesVersionsInstancesResource : TAppsServicesVersionsInstancesResource;virtual;overload;
Function CreateServicesVersionsResource(AOwner : TComponent) : TAppsServicesVersionsResource;virtual;overload;
Function CreateServicesVersionsResource : TAppsServicesVersionsResource;virtual;overload;
Function CreateServicesResource(AOwner : TComponent) : TAppsServicesResource;virtual;overload;
Function CreateServicesResource : TAppsServicesResource;virtual;overload;
Property OperationsResource : TAppsOperationsResource Read GetOperationsInstance;
Property ServicesVersionsInstancesResource : TAppsServicesVersionsInstancesResource Read GetServicesVersionsInstancesInstance;
Property ServicesVersionsResource : TAppsServicesVersionsResource Read GetServicesVersionsInstance;
Property ServicesResource : TAppsServicesResource Read GetServicesInstance;
end;
{ --------------------------------------------------------------------
TAppengineAPI
--------------------------------------------------------------------}
TAppengineAPI = Class(TGoogleAPI)
Private
FAppsOperationsInstance : TAppsOperationsResource;
FAppsServicesVersionsInstancesInstance : TAppsServicesVersionsInstancesResource;
FAppsServicesVersionsInstance : TAppsServicesVersionsResource;
FAppsServicesInstance : TAppsServicesResource;
FAppsInstance : TAppsResource;
Function GetAppsOperationsInstance : TAppsOperationsResource;virtual;
Function GetAppsServicesVersionsInstancesInstance : TAppsServicesVersionsInstancesResource;virtual;
Function GetAppsServicesVersionsInstance : TAppsServicesVersionsResource;virtual;
Function GetAppsServicesInstance : TAppsServicesResource;virtual;
Function GetAppsInstance : TAppsResource;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 CreateAppsOperationsResource(AOwner : TComponent) : TAppsOperationsResource;virtual;overload;
Function CreateAppsOperationsResource : TAppsOperationsResource;virtual;overload;
Function CreateAppsServicesVersionsInstancesResource(AOwner : TComponent) : TAppsServicesVersionsInstancesResource;virtual;overload;
Function CreateAppsServicesVersionsInstancesResource : TAppsServicesVersionsInstancesResource;virtual;overload;
Function CreateAppsServicesVersionsResource(AOwner : TComponent) : TAppsServicesVersionsResource;virtual;overload;
Function CreateAppsServicesVersionsResource : TAppsServicesVersionsResource;virtual;overload;
Function CreateAppsServicesResource(AOwner : TComponent) : TAppsServicesResource;virtual;overload;
Function CreateAppsServicesResource : TAppsServicesResource;virtual;overload;
Function CreateAppsResource(AOwner : TComponent) : TAppsResource;virtual;overload;
Function CreateAppsResource : TAppsResource;virtual;overload;
//Add default on-demand instances for resources
Property AppsOperationsResource : TAppsOperationsResource Read GetAppsOperationsInstance;
Property AppsServicesVersionsInstancesResource : TAppsServicesVersionsInstancesResource Read GetAppsServicesVersionsInstancesInstance;
Property AppsServicesVersionsResource : TAppsServicesVersionsResource Read GetAppsServicesVersionsInstance;
Property AppsServicesResource : TAppsServicesResource Read GetAppsServicesInstance;
Property AppsResource : TAppsResource Read GetAppsInstance;
end;
implementation
{ --------------------------------------------------------------------
TOperationTypemetadata
--------------------------------------------------------------------}
Class Function TOperationTypemetadata.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TOperationTyperesponse
--------------------------------------------------------------------}
Class Function TOperationTyperesponse.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TOperation
--------------------------------------------------------------------}
Procedure TOperation.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.Setmetadata(AIndex : Integer; const AValue : TOperationTypemetadata);
begin
If (Fmetadata=AValue) then exit;
Fmetadata:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.Setdone(AIndex : Integer; const AValue : boolean);
begin
If (Fdone=AValue) then exit;
Fdone:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.Seterror(AIndex : Integer; const AValue : TStatus);
begin
If (Ferror=AValue) then exit;
Ferror:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.Setresponse(AIndex : Integer; const AValue : TOperationTyperesponse);
begin
If (Fresponse=AValue) then exit;
Fresponse:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TStatusTypedetailsItem
--------------------------------------------------------------------}
Class Function TStatusTypedetailsItem.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TStatus
--------------------------------------------------------------------}
Procedure TStatus.Setcode(AIndex : Integer; const AValue : integer);
begin
If (Fcode=AValue) then exit;
Fcode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStatus.Setmessage(AIndex : Integer; const AValue : String);
begin
If (Fmessage=AValue) then exit;
Fmessage:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStatus.Setdetails(AIndex : Integer; const AValue : TStatusTypedetailsArray);
begin
If (Fdetails=AValue) then exit;
Fdetails:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TStatus.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'details' : SetLength(Fdetails,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TListOperationsResponse
--------------------------------------------------------------------}
Procedure TListOperationsResponse.Setoperations(AIndex : Integer; const AValue : TListOperationsResponseTypeoperationsArray);
begin
If (Foperations=AValue) then exit;
Foperations:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TListOperationsResponse.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 TListOperationsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'operations' : SetLength(Foperations,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TApplication
--------------------------------------------------------------------}
Procedure TApplication.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TApplication.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TApplication.SetdispatchRules(AIndex : Integer; const AValue : TApplicationTypedispatchRulesArray);
begin
If (FdispatchRules=AValue) then exit;
FdispatchRules:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TApplication.SetauthDomain(AIndex : Integer; const AValue : String);
begin
If (FauthDomain=AValue) then exit;
FauthDomain:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TApplication.Setlocation(AIndex : Integer; const AValue : String);
begin
If (Flocation=AValue) then exit;
Flocation:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TApplication.SetcodeBucket(AIndex : Integer; const AValue : String);
begin
If (FcodeBucket=AValue) then exit;
FcodeBucket:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TApplication.SetdefaultCookieExpiration(AIndex : Integer; const AValue : String);
begin
If (FdefaultCookieExpiration=AValue) then exit;
FdefaultCookieExpiration:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TApplication.SetdefaultHostname(AIndex : Integer; const AValue : String);
begin
If (FdefaultHostname=AValue) then exit;
FdefaultHostname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TApplication.SetdefaultBucket(AIndex : Integer; const AValue : String);
begin
If (FdefaultBucket=AValue) then exit;
FdefaultBucket:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TApplication.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'dispatchrules' : SetLength(FdispatchRules,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TUrlDispatchRule
--------------------------------------------------------------------}
Procedure TUrlDispatchRule.Setdomain(AIndex : Integer; const AValue : String);
begin
If (Fdomain=AValue) then exit;
Fdomain:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlDispatchRule.Setpath(AIndex : Integer; const AValue : String);
begin
If (Fpath=AValue) then exit;
Fpath:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlDispatchRule.Setservice(AIndex : Integer; const AValue : String);
begin
If (Fservice=AValue) then exit;
Fservice:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TVersionTypebetaSettings
--------------------------------------------------------------------}
Class Function TVersionTypebetaSettings.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TVersionTypeenvVariables
--------------------------------------------------------------------}
Class Function TVersionTypeenvVariables.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TVersion
--------------------------------------------------------------------}
Procedure TVersion.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.SetautomaticScaling(AIndex : Integer; const AValue : TAutomaticScaling);
begin
If (FautomaticScaling=AValue) then exit;
FautomaticScaling:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.SetbasicScaling(AIndex : Integer; const AValue : TBasicScaling);
begin
If (FbasicScaling=AValue) then exit;
FbasicScaling:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.SetmanualScaling(AIndex : Integer; const AValue : TManualScaling);
begin
If (FmanualScaling=AValue) then exit;
FmanualScaling:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.SetinboundServices(AIndex : Integer; const AValue : TStringArray);
begin
If (FinboundServices=AValue) then exit;
FinboundServices:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.SetinstanceClass(AIndex : Integer; const AValue : String);
begin
If (FinstanceClass=AValue) then exit;
FinstanceClass:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.Setnetwork(AIndex : Integer; const AValue : TNetwork);
begin
If (Fnetwork=AValue) then exit;
Fnetwork:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.Setresources(AIndex : Integer; const AValue : TResources);
begin
If (Fresources=AValue) then exit;
Fresources:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.Setruntime(AIndex : Integer; const AValue : String);
begin
If (Fruntime=AValue) then exit;
Fruntime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.Setthreadsafe(AIndex : Integer; const AValue : boolean);
begin
If (Fthreadsafe=AValue) then exit;
Fthreadsafe:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.Setvm(AIndex : Integer; const AValue : boolean);
begin
If (Fvm=AValue) then exit;
Fvm:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.SetbetaSettings(AIndex : Integer; const AValue : TVersionTypebetaSettings);
begin
If (FbetaSettings=AValue) then exit;
FbetaSettings:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.Setenv(AIndex : Integer; const AValue : String);
begin
If (Fenv=AValue) then exit;
Fenv:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.SetservingStatus(AIndex : Integer; const AValue : String);
begin
If (FservingStatus=AValue) then exit;
FservingStatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.Setdeployer(AIndex : Integer; const AValue : String);
begin
If (Fdeployer=AValue) then exit;
Fdeployer:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.SetcreationTime(AIndex : Integer; const AValue : String);
begin
If (FcreationTime=AValue) then exit;
FcreationTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.SetdiskUsageBytes(AIndex : Integer; const AValue : String);
begin
If (FdiskUsageBytes=AValue) then exit;
FdiskUsageBytes:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.Sethandlers(AIndex : Integer; const AValue : TVersionTypehandlersArray);
begin
If (Fhandlers=AValue) then exit;
Fhandlers:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.SeterrorHandlers(AIndex : Integer; const AValue : TVersionTypeerrorHandlersArray);
begin
If (FerrorHandlers=AValue) then exit;
FerrorHandlers:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.Setlibraries(AIndex : Integer; const AValue : TVersionTypelibrariesArray);
begin
If (Flibraries=AValue) then exit;
Flibraries:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.SetapiConfig(AIndex : Integer; const AValue : TApiConfigHandler);
begin
If (FapiConfig=AValue) then exit;
FapiConfig:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.SetenvVariables(AIndex : Integer; const AValue : TVersionTypeenvVariables);
begin
If (FenvVariables=AValue) then exit;
FenvVariables:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.SetdefaultExpiration(AIndex : Integer; const AValue : String);
begin
If (FdefaultExpiration=AValue) then exit;
FdefaultExpiration:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.SethealthCheck(AIndex : Integer; const AValue : THealthCheck);
begin
If (FhealthCheck=AValue) then exit;
FhealthCheck:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.SetnobuildFilesRegex(AIndex : Integer; const AValue : String);
begin
If (FnobuildFilesRegex=AValue) then exit;
FnobuildFilesRegex:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVersion.Setdeployment(AIndex : Integer; const AValue : TDeployment);
begin
If (Fdeployment=AValue) then exit;
Fdeployment:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TVersion.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'inboundservices' : SetLength(FinboundServices,ALength);
'handlers' : SetLength(Fhandlers,ALength);
'errorhandlers' : SetLength(FerrorHandlers,ALength);
'libraries' : SetLength(Flibraries,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TAutomaticScaling
--------------------------------------------------------------------}
Procedure TAutomaticScaling.SetcoolDownPeriod(AIndex : Integer; const AValue : String);
begin
If (FcoolDownPeriod=AValue) then exit;
FcoolDownPeriod:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutomaticScaling.SetcpuUtilization(AIndex : Integer; const AValue : TCpuUtilization);
begin
If (FcpuUtilization=AValue) then exit;
FcpuUtilization:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutomaticScaling.SetmaxConcurrentRequests(AIndex : Integer; const AValue : integer);
begin
If (FmaxConcurrentRequests=AValue) then exit;
FmaxConcurrentRequests:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutomaticScaling.SetmaxIdleInstances(AIndex : Integer; const AValue : integer);
begin
If (FmaxIdleInstances=AValue) then exit;
FmaxIdleInstances:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutomaticScaling.SetmaxTotalInstances(AIndex : Integer; const AValue : integer);
begin
If (FmaxTotalInstances=AValue) then exit;
FmaxTotalInstances:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutomaticScaling.SetmaxPendingLatency(AIndex : Integer; const AValue : String);
begin
If (FmaxPendingLatency=AValue) then exit;
FmaxPendingLatency:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutomaticScaling.SetminIdleInstances(AIndex : Integer; const AValue : integer);
begin
If (FminIdleInstances=AValue) then exit;
FminIdleInstances:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutomaticScaling.SetminTotalInstances(AIndex : Integer; const AValue : integer);
begin
If (FminTotalInstances=AValue) then exit;
FminTotalInstances:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutomaticScaling.SetminPendingLatency(AIndex : Integer; const AValue : String);
begin
If (FminPendingLatency=AValue) then exit;
FminPendingLatency:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutomaticScaling.SetrequestUtilization(AIndex : Integer; const AValue : TRequestUtilization);
begin
If (FrequestUtilization=AValue) then exit;
FrequestUtilization:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutomaticScaling.SetdiskUtilization(AIndex : Integer; const AValue : TDiskUtilization);
begin
If (FdiskUtilization=AValue) then exit;
FdiskUtilization:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutomaticScaling.SetnetworkUtilization(AIndex : Integer; const AValue : TNetworkUtilization);
begin
If (FnetworkUtilization=AValue) then exit;
FnetworkUtilization:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TCpuUtilization
--------------------------------------------------------------------}
Procedure TCpuUtilization.SetaggregationWindowLength(AIndex : Integer; const AValue : String);
begin
If (FaggregationWindowLength=AValue) then exit;
FaggregationWindowLength:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TCpuUtilization.SettargetUtilization(AIndex : Integer; const AValue : double);
begin
If (FtargetUtilization=AValue) then exit;
FtargetUtilization:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TRequestUtilization
--------------------------------------------------------------------}
Procedure TRequestUtilization.SettargetRequestCountPerSec(AIndex : Integer; const AValue : integer);
begin
If (FtargetRequestCountPerSec=AValue) then exit;
FtargetRequestCountPerSec:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRequestUtilization.SettargetConcurrentRequests(AIndex : Integer; const AValue : integer);
begin
If (FtargetConcurrentRequests=AValue) then exit;
FtargetConcurrentRequests:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TDiskUtilization
--------------------------------------------------------------------}
Procedure TDiskUtilization.SettargetWriteBytesPerSec(AIndex : Integer; const AValue : integer);
begin
If (FtargetWriteBytesPerSec=AValue) then exit;
FtargetWriteBytesPerSec:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskUtilization.SettargetWriteOpsPerSec(AIndex : Integer; const AValue : integer);
begin
If (FtargetWriteOpsPerSec=AValue) then exit;
FtargetWriteOpsPerSec:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskUtilization.SettargetReadBytesPerSec(AIndex : Integer; const AValue : integer);
begin
If (FtargetReadBytesPerSec=AValue) then exit;
FtargetReadBytesPerSec:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskUtilization.SettargetReadOpsPerSec(AIndex : Integer; const AValue : integer);
begin
If (FtargetReadOpsPerSec=AValue) then exit;
FtargetReadOpsPerSec:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TNetworkUtilization
--------------------------------------------------------------------}
Procedure TNetworkUtilization.SettargetSentBytesPerSec(AIndex : Integer; const AValue : integer);
begin
If (FtargetSentBytesPerSec=AValue) then exit;
FtargetSentBytesPerSec:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TNetworkUtilization.SettargetSentPacketsPerSec(AIndex : Integer; const AValue : integer);
begin
If (FtargetSentPacketsPerSec=AValue) then exit;
FtargetSentPacketsPerSec:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TNetworkUtilization.SettargetReceivedBytesPerSec(AIndex : Integer; const AValue : integer);
begin
If (FtargetReceivedBytesPerSec=AValue) then exit;
FtargetReceivedBytesPerSec:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TNetworkUtilization.SettargetReceivedPacketsPerSec(AIndex : Integer; const AValue : integer);
begin
If (FtargetReceivedPacketsPerSec=AValue) then exit;
FtargetReceivedPacketsPerSec:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TBasicScaling
--------------------------------------------------------------------}
Procedure TBasicScaling.SetidleTimeout(AIndex : Integer; const AValue : String);
begin
If (FidleTimeout=AValue) then exit;
FidleTimeout:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBasicScaling.SetmaxInstances(AIndex : Integer; const AValue : integer);
begin
If (FmaxInstances=AValue) then exit;
FmaxInstances:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TManualScaling
--------------------------------------------------------------------}
Procedure TManualScaling.Setinstances(AIndex : Integer; const AValue : integer);
begin
If (Finstances=AValue) then exit;
Finstances:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TNetwork
--------------------------------------------------------------------}
Procedure TNetwork.SetforwardedPorts(AIndex : Integer; const AValue : TStringArray);
begin
If (FforwardedPorts=AValue) then exit;
FforwardedPorts:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TNetwork.SetinstanceTag(AIndex : Integer; const AValue : String);
begin
If (FinstanceTag=AValue) then exit;
FinstanceTag:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TNetwork.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TNetwork.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'forwardedports' : SetLength(FforwardedPorts,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TResources
--------------------------------------------------------------------}
Procedure TResources.Setcpu(AIndex : Integer; const AValue : double);
begin
If (Fcpu=AValue) then exit;
Fcpu:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TResources.SetdiskGb(AIndex : Integer; const AValue : double);
begin
If (FdiskGb=AValue) then exit;
FdiskGb:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TResources.SetmemoryGb(AIndex : Integer; const AValue : double);
begin
If (FmemoryGb=AValue) then exit;
FmemoryGb:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TUrlMap
--------------------------------------------------------------------}
Procedure TUrlMap.SeturlRegex(AIndex : Integer; const AValue : String);
begin
If (FurlRegex=AValue) then exit;
FurlRegex:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMap.SetstaticFiles(AIndex : Integer; const AValue : TStaticFilesHandler);
begin
If (FstaticFiles=AValue) then exit;
FstaticFiles:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMap.Setscript(AIndex : Integer; const AValue : TScriptHandler);
begin
If (Fscript=AValue) then exit;
Fscript:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMap.SetapiEndpoint(AIndex : Integer; const AValue : TApiEndpointHandler);
begin
If (FapiEndpoint=AValue) then exit;
FapiEndpoint:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMap.SetsecurityLevel(AIndex : Integer; const AValue : String);
begin
If (FsecurityLevel=AValue) then exit;
FsecurityLevel:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMap.Setlogin(AIndex : Integer; const AValue : String);
begin
If (Flogin=AValue) then exit;
Flogin:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMap.SetauthFailAction(AIndex : Integer; const AValue : String);
begin
If (FauthFailAction=AValue) then exit;
FauthFailAction:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMap.SetredirectHttpResponseCode(AIndex : Integer; const AValue : String);
begin
If (FredirectHttpResponseCode=AValue) then exit;
FredirectHttpResponseCode:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TStaticFilesHandlerTypehttpHeaders
--------------------------------------------------------------------}
Class Function TStaticFilesHandlerTypehttpHeaders.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TStaticFilesHandler
--------------------------------------------------------------------}
Procedure TStaticFilesHandler.Setpath(AIndex : Integer; const AValue : String);
begin
If (Fpath=AValue) then exit;
Fpath:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStaticFilesHandler.SetuploadPathRegex(AIndex : Integer; const AValue : String);
begin
If (FuploadPathRegex=AValue) then exit;
FuploadPathRegex:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStaticFilesHandler.SethttpHeaders(AIndex : Integer; const AValue : TStaticFilesHandlerTypehttpHeaders);
begin
If (FhttpHeaders=AValue) then exit;
FhttpHeaders:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStaticFilesHandler.SetmimeType(AIndex : Integer; const AValue : String);
begin
If (FmimeType=AValue) then exit;
FmimeType:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStaticFilesHandler.Setexpiration(AIndex : Integer; const AValue : String);
begin
If (Fexpiration=AValue) then exit;
Fexpiration:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStaticFilesHandler.SetrequireMatchingFile(AIndex : Integer; const AValue : boolean);
begin
If (FrequireMatchingFile=AValue) then exit;
FrequireMatchingFile:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TStaticFilesHandler.SetapplicationReadable(AIndex : Integer; const AValue : boolean);
begin
If (FapplicationReadable=AValue) then exit;
FapplicationReadable:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TScriptHandler
--------------------------------------------------------------------}
Procedure TScriptHandler.SetscriptPath(AIndex : Integer; const AValue : String);
begin
If (FscriptPath=AValue) then exit;
FscriptPath:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TApiEndpointHandler
--------------------------------------------------------------------}
Procedure TApiEndpointHandler.SetscriptPath(AIndex : Integer; const AValue : String);
begin
If (FscriptPath=AValue) then exit;
FscriptPath:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TErrorHandler
--------------------------------------------------------------------}
Procedure TErrorHandler.SeterrorCode(AIndex : Integer; const AValue : String);
begin
If (FerrorCode=AValue) then exit;
FerrorCode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TErrorHandler.SetstaticFile(AIndex : Integer; const AValue : String);
begin
If (FstaticFile=AValue) then exit;
FstaticFile:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TErrorHandler.SetmimeType(AIndex : Integer; const AValue : String);
begin
If (FmimeType=AValue) then exit;
FmimeType:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TLibrary
--------------------------------------------------------------------}
Procedure TLibrary.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLibrary.Setversion(AIndex : Integer; const AValue : String);
begin
If (Fversion=AValue) then exit;
Fversion:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TApiConfigHandler
--------------------------------------------------------------------}
Procedure TApiConfigHandler.SetauthFailAction(AIndex : Integer; const AValue : String);
begin
If (FauthFailAction=AValue) then exit;
FauthFailAction:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TApiConfigHandler.Setlogin(AIndex : Integer; const AValue : String);
begin
If (Flogin=AValue) then exit;
Flogin:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TApiConfigHandler.Setscript(AIndex : Integer; const AValue : String);
begin
If (Fscript=AValue) then exit;
Fscript:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TApiConfigHandler.SetsecurityLevel(AIndex : Integer; const AValue : String);
begin
If (FsecurityLevel=AValue) then exit;
FsecurityLevel:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TApiConfigHandler.Seturl(AIndex : Integer; const AValue : String);
begin
If (Furl=AValue) then exit;
Furl:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
THealthCheck
--------------------------------------------------------------------}
Procedure THealthCheck.SetdisableHealthCheck(AIndex : Integer; const AValue : boolean);
begin
If (FdisableHealthCheck=AValue) then exit;
FdisableHealthCheck:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THealthCheck.Sethost(AIndex : Integer; const AValue : String);
begin
If (Fhost=AValue) then exit;
Fhost:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THealthCheck.SethealthyThreshold(AIndex : Integer; const AValue : integer);
begin
If (FhealthyThreshold=AValue) then exit;
FhealthyThreshold:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THealthCheck.SetunhealthyThreshold(AIndex : Integer; const AValue : integer);
begin
If (FunhealthyThreshold=AValue) then exit;
FunhealthyThreshold:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THealthCheck.SetrestartThreshold(AIndex : Integer; const AValue : integer);
begin
If (FrestartThreshold=AValue) then exit;
FrestartThreshold:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THealthCheck.SetcheckInterval(AIndex : Integer; const AValue : String);
begin
If (FcheckInterval=AValue) then exit;
FcheckInterval:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THealthCheck.Settimeout(AIndex : Integer; const AValue : String);
begin
If (Ftimeout=AValue) then exit;
Ftimeout:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TDeploymentTypefiles
--------------------------------------------------------------------}
Class Function TDeploymentTypefiles.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TDeployment
--------------------------------------------------------------------}
Procedure TDeployment.Setfiles(AIndex : Integer; const AValue : TDeploymentTypefiles);
begin
If (Ffiles=AValue) then exit;
Ffiles:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDeployment.Setcontainer(AIndex : Integer; const AValue : TContainerInfo);
begin
If (Fcontainer=AValue) then exit;
Fcontainer:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDeployment.SetsourceReferences(AIndex : Integer; const AValue : TDeploymentTypesourceReferencesArray);
begin
If (FsourceReferences=AValue) then exit;
FsourceReferences:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TDeployment.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'sourcereferences' : SetLength(FsourceReferences,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TFileInfo
--------------------------------------------------------------------}
Procedure TFileInfo.SetsourceUrl(AIndex : Integer; const AValue : String);
begin
If (FsourceUrl=AValue) then exit;
FsourceUrl:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFileInfo.Setsha1Sum(AIndex : Integer; const AValue : String);
begin
If (Fsha1Sum=AValue) then exit;
Fsha1Sum:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFileInfo.SetmimeType(AIndex : Integer; const AValue : String);
begin
If (FmimeType=AValue) then exit;
FmimeType:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TContainerInfo
--------------------------------------------------------------------}
Procedure TContainerInfo.Setimage(AIndex : Integer; const AValue : String);
begin
If (Fimage=AValue) then exit;
Fimage:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TSourceReference
--------------------------------------------------------------------}
Procedure TSourceReference.Setrepository(AIndex : Integer; const AValue : String);
begin
If (Frepository=AValue) then exit;
Frepository:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSourceReference.SetrevisionId(AIndex : Integer; const AValue : String);
begin
If (FrevisionId=AValue) then exit;
FrevisionId:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TListVersionsResponse
--------------------------------------------------------------------}
Procedure TListVersionsResponse.Setversions(AIndex : Integer; const AValue : TListVersionsResponseTypeversionsArray);
begin
If (Fversions=AValue) then exit;
Fversions:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TListVersionsResponse.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 TListVersionsResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'versions' : SetLength(Fversions,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TService
--------------------------------------------------------------------}
Procedure TService.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TService.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TService.Setsplit(AIndex : Integer; const AValue : TTrafficSplit);
begin
If (Fsplit=AValue) then exit;
Fsplit:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TTrafficSplitTypeallocations
--------------------------------------------------------------------}
Class Function TTrafficSplitTypeallocations.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TTrafficSplit
--------------------------------------------------------------------}
Procedure TTrafficSplit.SetshardBy(AIndex : Integer; const AValue : String);
begin
If (FshardBy=AValue) then exit;
FshardBy:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTrafficSplit.Setallocations(AIndex : Integer; const AValue : TTrafficSplitTypeallocations);
begin
If (Fallocations=AValue) then exit;
Fallocations:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TListServicesResponse
--------------------------------------------------------------------}
Procedure TListServicesResponse.Setservices(AIndex : Integer; const AValue : TListServicesResponseTypeservicesArray);
begin
If (Fservices=AValue) then exit;
Fservices:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TListServicesResponse.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 TListServicesResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'services' : SetLength(Fservices,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TListInstancesResponse
--------------------------------------------------------------------}
Procedure TListInstancesResponse.Setinstances(AIndex : Integer; const AValue : TListInstancesResponseTypeinstancesArray);
begin
If (Finstances=AValue) then exit;
Finstances:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TListInstancesResponse.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 TListInstancesResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'instances' : SetLength(Finstances,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstance
--------------------------------------------------------------------}
Procedure TInstance.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.SetappEngineRelease(AIndex : Integer; const AValue : String);
begin
If (FappEngineRelease=AValue) then exit;
FappEngineRelease:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.Setavailability(AIndex : Integer; const AValue : String);
begin
If (Favailability=AValue) then exit;
Favailability:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.SetvmName(AIndex : Integer; const AValue : String);
begin
If (FvmName=AValue) then exit;
FvmName:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.SetvmZoneName(AIndex : Integer; const AValue : String);
begin
If (FvmZoneName=AValue) then exit;
FvmZoneName:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.SetvmId(AIndex : Integer; const AValue : String);
begin
If (FvmId=AValue) then exit;
FvmId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.SetstartTimestamp(AIndex : Integer; const AValue : String);
begin
If (FstartTimestamp=AValue) then exit;
FstartTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.Setrequests(AIndex : Integer; const AValue : integer);
begin
If (Frequests=AValue) then exit;
Frequests:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.Seterrors(AIndex : Integer; const AValue : integer);
begin
If (Ferrors=AValue) then exit;
Ferrors:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.Setqps(AIndex : Integer; const AValue : integer);
begin
If (Fqps=AValue) then exit;
Fqps:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.SetaverageLatency(AIndex : Integer; const AValue : integer);
begin
If (FaverageLatency=AValue) then exit;
FaverageLatency:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.SetmemoryUsage(AIndex : Integer; const AValue : String);
begin
If (FmemoryUsage=AValue) then exit;
FmemoryUsage:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.SetvmStatus(AIndex : Integer; const AValue : String);
begin
If (FvmStatus=AValue) then exit;
FvmStatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.SetvmUnlocked(AIndex : Integer; const AValue : boolean);
begin
If (FvmUnlocked=AValue) then exit;
FvmUnlocked:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TOperationMetadata
--------------------------------------------------------------------}
Procedure TOperationMetadata.SetoperationType(AIndex : Integer; const AValue : String);
begin
If (FoperationType=AValue) then exit;
FoperationType:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationMetadata.SetinsertTime(AIndex : Integer; const AValue : String);
begin
If (FinsertTime=AValue) then exit;
FinsertTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationMetadata.SetendTime(AIndex : Integer; const AValue : String);
begin
If (FendTime=AValue) then exit;
FendTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationMetadata.Setuser(AIndex : Integer; const AValue : String);
begin
If (Fuser=AValue) then exit;
Fuser:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationMetadata.Settarget(AIndex : Integer; const AValue : String);
begin
If (Ftarget=AValue) then exit;
Ftarget:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationMetadata.Setmethod(AIndex : Integer; const AValue : String);
begin
If (Fmethod=AValue) then exit;
Fmethod:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TOperationMetadataV1Beta5
--------------------------------------------------------------------}
Procedure TOperationMetadataV1Beta5.Setmethod(AIndex : Integer; const AValue : String);
begin
If (Fmethod=AValue) then exit;
Fmethod:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationMetadataV1Beta5.SetinsertTime(AIndex : Integer; const AValue : String);
begin
If (FinsertTime=AValue) then exit;
FinsertTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationMetadataV1Beta5.SetendTime(AIndex : Integer; const AValue : String);
begin
If (FendTime=AValue) then exit;
FendTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationMetadataV1Beta5.Setuser(AIndex : Integer; const AValue : String);
begin
If (Fuser=AValue) then exit;
Fuser:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationMetadataV1Beta5.Settarget(AIndex : Integer; const AValue : String);
begin
If (Ftarget=AValue) then exit;
Ftarget:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TAppsOperationsResource
--------------------------------------------------------------------}
Class Function TAppsOperationsResource.ResourceName : String;
begin
Result:='operations';
end;
Class Function TAppsOperationsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TappengineAPI;
end;
Function TAppsOperationsResource.Get(appsId: string; operationsId: string) : TOperation;
Const
_HTTPMethod = 'GET';
_Path = 'v1beta5/apps/{appsId}/operations/{operationsId}';
_Methodid = 'appengine.apps.operations.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['appsId',appsId,'operationsId',operationsId]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TAppsOperationsResource.List(appsId: string; AQuery : string = '') : TListOperationsResponse;
Const
_HTTPMethod = 'GET';
_Path = 'v1beta5/apps/{appsId}/operations';
_Methodid = 'appengine.apps.operations.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['appsId',appsId]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListOperationsResponse) as TListOperationsResponse;
end;
Function TAppsOperationsResource.List(appsId: string; AQuery : TAppsOperationslistOptions) : TListOperationsResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'pageSize',AQuery.pageSize);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(appsId,_Q);
end;
{ --------------------------------------------------------------------
TAppsServicesVersionsInstancesResource
--------------------------------------------------------------------}
Class Function TAppsServicesVersionsInstancesResource.ResourceName : String;
begin
Result:='instances';
end;
Class Function TAppsServicesVersionsInstancesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TappengineAPI;
end;
Function TAppsServicesVersionsInstancesResource.List(appsId: string; servicesId: string; versionsId: string; AQuery : string = '') : TListInstancesResponse;
Const
_HTTPMethod = 'GET';
_Path = 'v1beta5/apps/{appsId}/services/{servicesId}/versions/{versionsId}/instances';
_Methodid = 'appengine.apps.services.versions.instances.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['appsId',appsId,'servicesId',servicesId,'versionsId',versionsId]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListInstancesResponse) as TListInstancesResponse;
end;
Function TAppsServicesVersionsInstancesResource.List(appsId: string; servicesId: string; versionsId: string; AQuery : TAppsServicesVersionsInstanceslistOptions) : TListInstancesResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'pageSize',AQuery.pageSize);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(appsId,servicesId,versionsId,_Q);
end;
{ --------------------------------------------------------------------
TAppsServicesVersionsResource
--------------------------------------------------------------------}
Class Function TAppsServicesVersionsResource.ResourceName : String;
begin
Result:='versions';
end;
Class Function TAppsServicesVersionsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TappengineAPI;
end;
Function TAppsServicesVersionsResource.Create(appsId: string; servicesId: string; aVersion : TVersion) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = 'v1beta5/apps/{appsId}/services/{servicesId}/versions';
_Methodid = 'appengine.apps.services.versions.create';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['appsId',appsId,'servicesId',servicesId]);
Result:=ServiceCall(_HTTPMethod,_P,'',aVersion,TOperation) as TOperation;
end;
Function TAppsServicesVersionsResource.Delete(appsId: string; servicesId: string; versionsId: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = 'v1beta5/apps/{appsId}/services/{servicesId}/versions/{versionsId}';
_Methodid = 'appengine.apps.services.versions.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['appsId',appsId,'servicesId',servicesId,'versionsId',versionsId]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TAppsServicesVersionsResource.Get(appsId: string; servicesId: string; versionsId: string; AQuery : string = '') : TVersion;
Const
_HTTPMethod = 'GET';
_Path = 'v1beta5/apps/{appsId}/services/{servicesId}/versions/{versionsId}';
_Methodid = 'appengine.apps.services.versions.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['appsId',appsId,'servicesId',servicesId,'versionsId',versionsId]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TVersion) as TVersion;
end;
Function TAppsServicesVersionsResource.Get(appsId: string; servicesId: string; versionsId: string; AQuery : TAppsServicesVersionsgetOptions) : TVersion;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'view',AQuery.view);
Result:=Get(appsId,servicesId,versionsId,_Q);
end;
Function TAppsServicesVersionsResource.List(appsId: string; servicesId: string; AQuery : string = '') : TListVersionsResponse;
Const
_HTTPMethod = 'GET';
_Path = 'v1beta5/apps/{appsId}/services/{servicesId}/versions';
_Methodid = 'appengine.apps.services.versions.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['appsId',appsId,'servicesId',servicesId]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListVersionsResponse) as TListVersionsResponse;
end;
Function TAppsServicesVersionsResource.List(appsId: string; servicesId: string; AQuery : TAppsServicesVersionslistOptions) : TListVersionsResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'view',AQuery.view);
AddToQuery(_Q,'pageSize',AQuery.pageSize);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(appsId,servicesId,_Q);
end;
Function TAppsServicesVersionsResource.Patch(appsId: string; servicesId: string; versionsId: string; aVersion : TVersion; AQuery : string = '') : TOperation;
Const
_HTTPMethod = 'PATCH';
_Path = 'v1beta5/apps/{appsId}/services/{servicesId}/versions/{versionsId}';
_Methodid = 'appengine.apps.services.versions.patch';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['appsId',appsId,'servicesId',servicesId,'versionsId',versionsId]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,aVersion,TOperation) as TOperation;
end;
Function TAppsServicesVersionsResource.Patch(appsId: string; servicesId: string; versionsId: string; aVersion : TVersion; AQuery : TAppsServicesVersionspatchOptions) : TOperation;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'mask',AQuery.mask);
Result:=Patch(appsId,servicesId,versionsId,aVersion,_Q);
end;
Function TAppsServicesVersionsResource.GetInstancesInstance : TAppsServicesVersionsInstancesResource;
begin
if (FInstancesInstance=Nil) then
FInstancesInstance:=CreateInstancesResource;
Result:=FInstancesInstance;
end;
Function TAppsServicesVersionsResource.CreateInstancesResource : TAppsServicesVersionsInstancesResource;
begin
Result:=CreateInstancesResource(Self);
end;
Function TAppsServicesVersionsResource.CreateInstancesResource(AOwner : TComponent) : TAppsServicesVersionsInstancesResource;
begin
Result:=TAppsServicesVersionsInstancesResource.Create(AOwner);
Result.API:=Self.API;
end;
{ --------------------------------------------------------------------
TAppsServicesResource
--------------------------------------------------------------------}
Class Function TAppsServicesResource.ResourceName : String;
begin
Result:='services';
end;
Class Function TAppsServicesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TappengineAPI;
end;
Function TAppsServicesResource.Delete(appsId: string; servicesId: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = 'v1beta5/apps/{appsId}/services/{servicesId}';
_Methodid = 'appengine.apps.services.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['appsId',appsId,'servicesId',servicesId]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TAppsServicesResource.Get(appsId: string; servicesId: string) : TService;
Const
_HTTPMethod = 'GET';
_Path = 'v1beta5/apps/{appsId}/services/{servicesId}';
_Methodid = 'appengine.apps.services.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['appsId',appsId,'servicesId',servicesId]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TService) as TService;
end;
Function TAppsServicesResource.List(appsId: string; AQuery : string = '') : TListServicesResponse;
Const
_HTTPMethod = 'GET';
_Path = 'v1beta5/apps/{appsId}/services';
_Methodid = 'appengine.apps.services.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['appsId',appsId]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListServicesResponse) as TListServicesResponse;
end;
Function TAppsServicesResource.List(appsId: string; AQuery : TAppsServiceslistOptions) : TListServicesResponse;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'pageSize',AQuery.pageSize);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(appsId,_Q);
end;
Function TAppsServicesResource.Patch(appsId: string; servicesId: string; aService : TService; AQuery : string = '') : TOperation;
Const
_HTTPMethod = 'PATCH';
_Path = 'v1beta5/apps/{appsId}/services/{servicesId}';
_Methodid = 'appengine.apps.services.patch';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['appsId',appsId,'servicesId',servicesId]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,aService,TOperation) as TOperation;
end;
Function TAppsServicesResource.Patch(appsId: string; servicesId: string; aService : TService; AQuery : TAppsServicespatchOptions) : TOperation;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'mask',AQuery.mask);
AddToQuery(_Q,'migrateTraffic',AQuery.migrateTraffic);
Result:=Patch(appsId,servicesId,aService,_Q);
end;
Function TAppsServicesResource.GetVersionsInstancesInstance : TAppsServicesVersionsInstancesResource;
begin
if (FVersionsInstancesInstance=Nil) then
FVersionsInstancesInstance:=CreateVersionsInstancesResource;
Result:=FVersionsInstancesInstance;
end;
Function TAppsServicesResource.CreateVersionsInstancesResource : TAppsServicesVersionsInstancesResource;
begin
Result:=CreateVersionsInstancesResource(Self);
end;
Function TAppsServicesResource.CreateVersionsInstancesResource(AOwner : TComponent) : TAppsServicesVersionsInstancesResource;
begin
Result:=TAppsServicesVersionsInstancesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TAppsServicesResource.GetVersionsInstance : TAppsServicesVersionsResource;
begin
if (FVersionsInstance=Nil) then
FVersionsInstance:=CreateVersionsResource;
Result:=FVersionsInstance;
end;
Function TAppsServicesResource.CreateVersionsResource : TAppsServicesVersionsResource;
begin
Result:=CreateVersionsResource(Self);
end;
Function TAppsServicesResource.CreateVersionsResource(AOwner : TComponent) : TAppsServicesVersionsResource;
begin
Result:=TAppsServicesVersionsResource.Create(AOwner);
Result.API:=Self.API;
end;
{ --------------------------------------------------------------------
TAppsResource
--------------------------------------------------------------------}
Class Function TAppsResource.ResourceName : String;
begin
Result:='apps';
end;
Class Function TAppsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TappengineAPI;
end;
Function TAppsResource.Get(appsId: string; AQuery : string = '') : TApplication;
Const
_HTTPMethod = 'GET';
_Path = 'v1beta5/apps/{appsId}';
_Methodid = 'appengine.apps.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['appsId',appsId]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TApplication) as TApplication;
end;
Function TAppsResource.Get(appsId: string; AQuery : TAppsgetOptions) : TApplication;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'ensureResourcesExist',AQuery.ensureResourcesExist);
Result:=Get(appsId,_Q);
end;
Function TAppsResource.GetOperationsInstance : TAppsOperationsResource;
begin
if (FOperationsInstance=Nil) then
FOperationsInstance:=CreateOperationsResource;
Result:=FOperationsInstance;
end;
Function TAppsResource.CreateOperationsResource : TAppsOperationsResource;
begin
Result:=CreateOperationsResource(Self);
end;
Function TAppsResource.CreateOperationsResource(AOwner : TComponent) : TAppsOperationsResource;
begin
Result:=TAppsOperationsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TAppsResource.GetServicesVersionsInstancesInstance : TAppsServicesVersionsInstancesResource;
begin
if (FServicesVersionsInstancesInstance=Nil) then
FServicesVersionsInstancesInstance:=CreateServicesVersionsInstancesResource;
Result:=FServicesVersionsInstancesInstance;
end;
Function TAppsResource.CreateServicesVersionsInstancesResource : TAppsServicesVersionsInstancesResource;
begin
Result:=CreateServicesVersionsInstancesResource(Self);
end;
Function TAppsResource.CreateServicesVersionsInstancesResource(AOwner : TComponent) : TAppsServicesVersionsInstancesResource;
begin
Result:=TAppsServicesVersionsInstancesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TAppsResource.GetServicesVersionsInstance : TAppsServicesVersionsResource;
begin
if (FServicesVersionsInstance=Nil) then
FServicesVersionsInstance:=CreateServicesVersionsResource;
Result:=FServicesVersionsInstance;
end;
Function TAppsResource.CreateServicesVersionsResource : TAppsServicesVersionsResource;
begin
Result:=CreateServicesVersionsResource(Self);
end;
Function TAppsResource.CreateServicesVersionsResource(AOwner : TComponent) : TAppsServicesVersionsResource;
begin
Result:=TAppsServicesVersionsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TAppsResource.GetServicesInstance : TAppsServicesResource;
begin
if (FServicesInstance=Nil) then
FServicesInstance:=CreateServicesResource;
Result:=FServicesInstance;
end;
Function TAppsResource.CreateServicesResource : TAppsServicesResource;
begin
Result:=CreateServicesResource(Self);
end;
Function TAppsResource.CreateServicesResource(AOwner : TComponent) : TAppsServicesResource;
begin
Result:=TAppsServicesResource.Create(AOwner);
Result.API:=Self.API;
end;
{ --------------------------------------------------------------------
TAppengineAPI
--------------------------------------------------------------------}
Class Function TAppengineAPI.APIName : String;
begin
Result:='appengine';
end;
Class Function TAppengineAPI.APIVersion : String;
begin
Result:='v1beta5';
end;
Class Function TAppengineAPI.APIRevision : String;
begin
Result:='20160407';
end;
Class Function TAppengineAPI.APIID : String;
begin
Result:='appengine:v1beta5';
end;
Class Function TAppengineAPI.APITitle : String;
begin
Result:='Google App Engine Admin API';
end;
Class Function TAppengineAPI.APIDescription : String;
begin
Result:='Provisions and manages App Engine applications.';
end;
Class Function TAppengineAPI.APIOwnerDomain : String;
begin
Result:='google.com';
end;
Class Function TAppengineAPI.APIOwnerName : String;
begin
Result:='Google';
end;
Class Function TAppengineAPI.APIIcon16 : String;
begin
Result:='http://www.google.com/images/icons/product/search-16.gif';
end;
Class Function TAppengineAPI.APIIcon32 : String;
begin
Result:='http://www.google.com/images/icons/product/search-32.gif';
end;
Class Function TAppengineAPI.APIdocumentationLink : String;
begin
Result:='https://cloud.google.com/appengine/docs/admin-api/';
end;
Class Function TAppengineAPI.APIrootUrl : string;
begin
Result:='https://appengine.googleapis.com/';
end;
Class Function TAppengineAPI.APIbasePath : string;
begin
Result:='';
end;
Class Function TAppengineAPI.APIbaseURL : String;
begin
Result:='https://appengine.googleapis.com/';
end;
Class Function TAppengineAPI.APIProtocol : string;
begin
Result:='rest';
end;
Class Function TAppengineAPI.APIservicePath : string;
begin
Result:='';
end;
Class Function TAppengineAPI.APIbatchPath : String;
begin
Result:='batch';
end;
Class Function TAppengineAPI.APIAuthScopes : TScopeInfoArray;
begin
SetLength(Result,1);
Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
Result[0].Description:='View and manage your data across Google Cloud Platform services';
end;
Class Function TAppengineAPI.APINeedsAuth : Boolean;
begin
Result:=True;
end;
Class Procedure TAppengineAPI.RegisterAPIResources;
begin
TOperationTypemetadata.RegisterObject;
TOperationTyperesponse.RegisterObject;
TOperation.RegisterObject;
TStatusTypedetailsItem.RegisterObject;
TStatus.RegisterObject;
TListOperationsResponse.RegisterObject;
TApplication.RegisterObject;
TUrlDispatchRule.RegisterObject;
TVersionTypebetaSettings.RegisterObject;
TVersionTypeenvVariables.RegisterObject;
TVersion.RegisterObject;
TAutomaticScaling.RegisterObject;
TCpuUtilization.RegisterObject;
TRequestUtilization.RegisterObject;
TDiskUtilization.RegisterObject;
TNetworkUtilization.RegisterObject;
TBasicScaling.RegisterObject;
TManualScaling.RegisterObject;
TNetwork.RegisterObject;
TResources.RegisterObject;
TUrlMap.RegisterObject;
TStaticFilesHandlerTypehttpHeaders.RegisterObject;
TStaticFilesHandler.RegisterObject;
TScriptHandler.RegisterObject;
TApiEndpointHandler.RegisterObject;
TErrorHandler.RegisterObject;
TLibrary.RegisterObject;
TApiConfigHandler.RegisterObject;
THealthCheck.RegisterObject;
TDeploymentTypefiles.RegisterObject;
TDeployment.RegisterObject;
TFileInfo.RegisterObject;
TContainerInfo.RegisterObject;
TSourceReference.RegisterObject;
TListVersionsResponse.RegisterObject;
TService.RegisterObject;
TTrafficSplitTypeallocations.RegisterObject;
TTrafficSplit.RegisterObject;
TListServicesResponse.RegisterObject;
TListInstancesResponse.RegisterObject;
TInstance.RegisterObject;
TOperationMetadata.RegisterObject;
TOperationMetadataV1Beta5.RegisterObject;
end;
Function TAppengineAPI.GetAppsOperationsInstance : TAppsOperationsResource;
begin
if (FAppsOperationsInstance=Nil) then
FAppsOperationsInstance:=CreateAppsOperationsResource;
Result:=FAppsOperationsInstance;
end;
Function TAppengineAPI.CreateAppsOperationsResource : TAppsOperationsResource;
begin
Result:=CreateAppsOperationsResource(Self);
end;
Function TAppengineAPI.CreateAppsOperationsResource(AOwner : TComponent) : TAppsOperationsResource;
begin
Result:=TAppsOperationsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TAppengineAPI.GetAppsServicesVersionsInstancesInstance : TAppsServicesVersionsInstancesResource;
begin
if (FAppsServicesVersionsInstancesInstance=Nil) then
FAppsServicesVersionsInstancesInstance:=CreateAppsServicesVersionsInstancesResource;
Result:=FAppsServicesVersionsInstancesInstance;
end;
Function TAppengineAPI.CreateAppsServicesVersionsInstancesResource : TAppsServicesVersionsInstancesResource;
begin
Result:=CreateAppsServicesVersionsInstancesResource(Self);
end;
Function TAppengineAPI.CreateAppsServicesVersionsInstancesResource(AOwner : TComponent) : TAppsServicesVersionsInstancesResource;
begin
Result:=TAppsServicesVersionsInstancesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TAppengineAPI.GetAppsServicesVersionsInstance : TAppsServicesVersionsResource;
begin
if (FAppsServicesVersionsInstance=Nil) then
FAppsServicesVersionsInstance:=CreateAppsServicesVersionsResource;
Result:=FAppsServicesVersionsInstance;
end;
Function TAppengineAPI.CreateAppsServicesVersionsResource : TAppsServicesVersionsResource;
begin
Result:=CreateAppsServicesVersionsResource(Self);
end;
Function TAppengineAPI.CreateAppsServicesVersionsResource(AOwner : TComponent) : TAppsServicesVersionsResource;
begin
Result:=TAppsServicesVersionsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TAppengineAPI.GetAppsServicesInstance : TAppsServicesResource;
begin
if (FAppsServicesInstance=Nil) then
FAppsServicesInstance:=CreateAppsServicesResource;
Result:=FAppsServicesInstance;
end;
Function TAppengineAPI.CreateAppsServicesResource : TAppsServicesResource;
begin
Result:=CreateAppsServicesResource(Self);
end;
Function TAppengineAPI.CreateAppsServicesResource(AOwner : TComponent) : TAppsServicesResource;
begin
Result:=TAppsServicesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TAppengineAPI.GetAppsInstance : TAppsResource;
begin
if (FAppsInstance=Nil) then
FAppsInstance:=CreateAppsResource;
Result:=FAppsInstance;
end;
Function TAppengineAPI.CreateAppsResource : TAppsResource;
begin
Result:=CreateAppsResource(Self);
end;
Function TAppengineAPI.CreateAppsResource(AOwner : TComponent) : TAppsResource;
begin
Result:=TAppsResource.Create(AOwner);
Result.API:=Self.API;
end;
initialization
TAppengineAPI.RegisterAPI;
end.