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 googlecompute;
{$MODE objfpc}
{$H+}
interface
uses sysutils, classes, googleservice, restbase, googlebase;
type
//Top-level schema types
TAccessConfig = Class;
TAddress = Class;
TAddressAggregatedList = Class;
TAddressList = Class;
TAddressesScopedList = Class;
TAttachedDisk = Class;
TAttachedDiskInitializeParams = Class;
TAutoscaler = Class;
TAutoscalerAggregatedList = Class;
TAutoscalerList = Class;
TAutoscalersScopedList = Class;
TAutoscalingPolicy = Class;
TAutoscalingPolicyCpuUtilization = Class;
TAutoscalingPolicyCustomMetricUtilization = Class;
TAutoscalingPolicyLoadBalancingUtilization = Class;
TBackend = Class;
TBackendService = Class;
TBackendServiceGroupHealth = Class;
TBackendServiceList = Class;
TDeprecationStatus = Class;
TDisk = Class;
TDiskAggregatedList = Class;
TDiskList = Class;
TDiskMoveRequest = Class;
TDiskType = Class;
TDiskTypeAggregatedList = Class;
TDiskTypeList = Class;
TDiskTypesScopedList = Class;
TDisksResizeRequest = Class;
TDisksScopedList = Class;
TFirewall = Class;
TFirewallList = Class;
TForwardingRule = Class;
TForwardingRuleAggregatedList = Class;
TForwardingRuleList = Class;
TForwardingRulesScopedList = Class;
THealthCheckReference = Class;
THealthStatus = Class;
THostRule = Class;
THttpHealthCheck = Class;
THttpHealthCheckList = Class;
THttpsHealthCheck = Class;
THttpsHealthCheckList = Class;
TImage = Class;
TImageList = Class;
TInstance = Class;
TInstanceAggregatedList = Class;
TInstanceGroup = Class;
TInstanceGroupAggregatedList = Class;
TInstanceGroupList = Class;
TInstanceGroupManager = Class;
TInstanceGroupManagerActionsSummary = Class;
TInstanceGroupManagerAggregatedList = Class;
TInstanceGroupManagerList = Class;
TInstanceGroupManagersAbandonInstancesRequest = Class;
TInstanceGroupManagersDeleteInstancesRequest = Class;
TInstanceGroupManagersListManagedInstancesResponse = Class;
TInstanceGroupManagersRecreateInstancesRequest = Class;
TInstanceGroupManagersScopedList = Class;
TInstanceGroupManagersSetInstanceTemplateRequest = Class;
TInstanceGroupManagersSetTargetPoolsRequest = Class;
TInstanceGroupsAddInstancesRequest = Class;
TInstanceGroupsListInstances = Class;
TInstanceGroupsListInstancesRequest = Class;
TInstanceGroupsRemoveInstancesRequest = Class;
TInstanceGroupsScopedList = Class;
TInstanceGroupsSetNamedPortsRequest = Class;
TInstanceList = Class;
TInstanceMoveRequest = Class;
TInstanceProperties = Class;
TInstanceReference = Class;
TInstanceTemplate = Class;
TInstanceTemplateList = Class;
TInstanceWithNamedPorts = Class;
TInstancesScopedList = Class;
TInstancesSetMachineTypeRequest = Class;
TLicense = Class;
TMachineType = Class;
TMachineTypeAggregatedList = Class;
TMachineTypeList = Class;
TMachineTypesScopedList = Class;
TManagedInstance = Class;
TManagedInstanceLastAttempt = Class;
TMetadata = Class;
TNamedPort = Class;
TNetwork = Class;
TNetworkInterface = Class;
TNetworkList = Class;
TOperation = Class;
TOperationAggregatedList = Class;
TOperationList = Class;
TOperationsScopedList = Class;
TPathMatcher = Class;
TPathRule = Class;
TProject = Class;
TQuota = Class;
TRegion = Class;
TRegionList = Class;
TResourceGroupReference = Class;
TRoute = Class;
TRouteList = Class;
TScheduling = Class;
TSerialPortOutput = Class;
TServiceAccount = Class;
TSnapshot = Class;
TSnapshotList = Class;
TSslCertificate = Class;
TSslCertificateList = Class;
TSubnetwork = Class;
TSubnetworkAggregatedList = Class;
TSubnetworkList = Class;
TSubnetworksScopedList = Class;
TTags = Class;
TTargetHttpProxy = Class;
TTargetHttpProxyList = Class;
TTargetHttpsProxiesSetSslCertificatesRequest = Class;
TTargetHttpsProxy = Class;
TTargetHttpsProxyList = Class;
TTargetInstance = Class;
TTargetInstanceAggregatedList = Class;
TTargetInstanceList = Class;
TTargetInstancesScopedList = Class;
TTargetPool = Class;
TTargetPoolAggregatedList = Class;
TTargetPoolInstanceHealth = Class;
TTargetPoolList = Class;
TTargetPoolsAddHealthCheckRequest = Class;
TTargetPoolsAddInstanceRequest = Class;
TTargetPoolsRemoveHealthCheckRequest = Class;
TTargetPoolsRemoveInstanceRequest = Class;
TTargetPoolsScopedList = Class;
TTargetReference = Class;
TTargetVpnGateway = Class;
TTargetVpnGatewayAggregatedList = Class;
TTargetVpnGatewayList = Class;
TTargetVpnGatewaysScopedList = Class;
TTestFailure = Class;
TUrlMap = Class;
TUrlMapList = Class;
TUrlMapReference = Class;
TUrlMapTest = Class;
TUrlMapValidationResult = Class;
TUrlMapsValidateRequest = Class;
TUrlMapsValidateResponse = Class;
TUsageExportLocation = Class;
TVpnTunnel = Class;
TVpnTunnelAggregatedList = Class;
TVpnTunnelList = Class;
TVpnTunnelsScopedList = Class;
TZone = Class;
TZoneList = Class;
TAccessConfigArray = Array of TAccessConfig;
TAddressArray = Array of TAddress;
TAddressAggregatedListArray = Array of TAddressAggregatedList;
TAddressListArray = Array of TAddressList;
TAddressesScopedListArray = Array of TAddressesScopedList;
TAttachedDiskArray = Array of TAttachedDisk;
TAttachedDiskInitializeParamsArray = Array of TAttachedDiskInitializeParams;
TAutoscalerArray = Array of TAutoscaler;
TAutoscalerAggregatedListArray = Array of TAutoscalerAggregatedList;
TAutoscalerListArray = Array of TAutoscalerList;
TAutoscalersScopedListArray = Array of TAutoscalersScopedList;
TAutoscalingPolicyArray = Array of TAutoscalingPolicy;
TAutoscalingPolicyCpuUtilizationArray = Array of TAutoscalingPolicyCpuUtilization;
TAutoscalingPolicyCustomMetricUtilizationArray = Array of TAutoscalingPolicyCustomMetricUtilization;
TAutoscalingPolicyLoadBalancingUtilizationArray = Array of TAutoscalingPolicyLoadBalancingUtilization;
TBackendArray = Array of TBackend;
TBackendServiceArray = Array of TBackendService;
TBackendServiceGroupHealthArray = Array of TBackendServiceGroupHealth;
TBackendServiceListArray = Array of TBackendServiceList;
TDeprecationStatusArray = Array of TDeprecationStatus;
TDiskArray = Array of TDisk;
TDiskAggregatedListArray = Array of TDiskAggregatedList;
TDiskListArray = Array of TDiskList;
TDiskMoveRequestArray = Array of TDiskMoveRequest;
TDiskTypeArray = Array of TDiskType;
TDiskTypeAggregatedListArray = Array of TDiskTypeAggregatedList;
TDiskTypeListArray = Array of TDiskTypeList;
TDiskTypesScopedListArray = Array of TDiskTypesScopedList;
TDisksResizeRequestArray = Array of TDisksResizeRequest;
TDisksScopedListArray = Array of TDisksScopedList;
TFirewallArray = Array of TFirewall;
TFirewallListArray = Array of TFirewallList;
TForwardingRuleArray = Array of TForwardingRule;
TForwardingRuleAggregatedListArray = Array of TForwardingRuleAggregatedList;
TForwardingRuleListArray = Array of TForwardingRuleList;
TForwardingRulesScopedListArray = Array of TForwardingRulesScopedList;
THealthCheckReferenceArray = Array of THealthCheckReference;
THealthStatusArray = Array of THealthStatus;
THostRuleArray = Array of THostRule;
THttpHealthCheckArray = Array of THttpHealthCheck;
THttpHealthCheckListArray = Array of THttpHealthCheckList;
THttpsHealthCheckArray = Array of THttpsHealthCheck;
THttpsHealthCheckListArray = Array of THttpsHealthCheckList;
TImageArray = Array of TImage;
TImageListArray = Array of TImageList;
TInstanceArray = Array of TInstance;
TInstanceAggregatedListArray = Array of TInstanceAggregatedList;
TInstanceGroupArray = Array of TInstanceGroup;
TInstanceGroupAggregatedListArray = Array of TInstanceGroupAggregatedList;
TInstanceGroupListArray = Array of TInstanceGroupList;
TInstanceGroupManagerArray = Array of TInstanceGroupManager;
TInstanceGroupManagerActionsSummaryArray = Array of TInstanceGroupManagerActionsSummary;
TInstanceGroupManagerAggregatedListArray = Array of TInstanceGroupManagerAggregatedList;
TInstanceGroupManagerListArray = Array of TInstanceGroupManagerList;
TInstanceGroupManagersAbandonInstancesRequestArray = Array of TInstanceGroupManagersAbandonInstancesRequest;
TInstanceGroupManagersDeleteInstancesRequestArray = Array of TInstanceGroupManagersDeleteInstancesRequest;
TInstanceGroupManagersListManagedInstancesResponseArray = Array of TInstanceGroupManagersListManagedInstancesResponse;
TInstanceGroupManagersRecreateInstancesRequestArray = Array of TInstanceGroupManagersRecreateInstancesRequest;
TInstanceGroupManagersScopedListArray = Array of TInstanceGroupManagersScopedList;
TInstanceGroupManagersSetInstanceTemplateRequestArray = Array of TInstanceGroupManagersSetInstanceTemplateRequest;
TInstanceGroupManagersSetTargetPoolsRequestArray = Array of TInstanceGroupManagersSetTargetPoolsRequest;
TInstanceGroupsAddInstancesRequestArray = Array of TInstanceGroupsAddInstancesRequest;
TInstanceGroupsListInstancesArray = Array of TInstanceGroupsListInstances;
TInstanceGroupsListInstancesRequestArray = Array of TInstanceGroupsListInstancesRequest;
TInstanceGroupsRemoveInstancesRequestArray = Array of TInstanceGroupsRemoveInstancesRequest;
TInstanceGroupsScopedListArray = Array of TInstanceGroupsScopedList;
TInstanceGroupsSetNamedPortsRequestArray = Array of TInstanceGroupsSetNamedPortsRequest;
TInstanceListArray = Array of TInstanceList;
TInstanceMoveRequestArray = Array of TInstanceMoveRequest;
TInstancePropertiesArray = Array of TInstanceProperties;
TInstanceReferenceArray = Array of TInstanceReference;
TInstanceTemplateArray = Array of TInstanceTemplate;
TInstanceTemplateListArray = Array of TInstanceTemplateList;
TInstanceWithNamedPortsArray = Array of TInstanceWithNamedPorts;
TInstancesScopedListArray = Array of TInstancesScopedList;
TInstancesSetMachineTypeRequestArray = Array of TInstancesSetMachineTypeRequest;
TLicenseArray = Array of TLicense;
TMachineTypeArray = Array of TMachineType;
TMachineTypeAggregatedListArray = Array of TMachineTypeAggregatedList;
TMachineTypeListArray = Array of TMachineTypeList;
TMachineTypesScopedListArray = Array of TMachineTypesScopedList;
TManagedInstanceArray = Array of TManagedInstance;
TManagedInstanceLastAttemptArray = Array of TManagedInstanceLastAttempt;
TMetadataArray = Array of TMetadata;
TNamedPortArray = Array of TNamedPort;
TNetworkArray = Array of TNetwork;
TNetworkInterfaceArray = Array of TNetworkInterface;
TNetworkListArray = Array of TNetworkList;
TOperationArray = Array of TOperation;
TOperationAggregatedListArray = Array of TOperationAggregatedList;
TOperationListArray = Array of TOperationList;
TOperationsScopedListArray = Array of TOperationsScopedList;
TPathMatcherArray = Array of TPathMatcher;
TPathRuleArray = Array of TPathRule;
TProjectArray = Array of TProject;
TQuotaArray = Array of TQuota;
TRegionArray = Array of TRegion;
TRegionListArray = Array of TRegionList;
TResourceGroupReferenceArray = Array of TResourceGroupReference;
TRouteArray = Array of TRoute;
TRouteListArray = Array of TRouteList;
TSchedulingArray = Array of TScheduling;
TSerialPortOutputArray = Array of TSerialPortOutput;
TServiceAccountArray = Array of TServiceAccount;
TSnapshotArray = Array of TSnapshot;
TSnapshotListArray = Array of TSnapshotList;
TSslCertificateArray = Array of TSslCertificate;
TSslCertificateListArray = Array of TSslCertificateList;
TSubnetworkArray = Array of TSubnetwork;
TSubnetworkAggregatedListArray = Array of TSubnetworkAggregatedList;
TSubnetworkListArray = Array of TSubnetworkList;
TSubnetworksScopedListArray = Array of TSubnetworksScopedList;
TTagsArray = Array of TTags;
TTargetHttpProxyArray = Array of TTargetHttpProxy;
TTargetHttpProxyListArray = Array of TTargetHttpProxyList;
TTargetHttpsProxiesSetSslCertificatesRequestArray = Array of TTargetHttpsProxiesSetSslCertificatesRequest;
TTargetHttpsProxyArray = Array of TTargetHttpsProxy;
TTargetHttpsProxyListArray = Array of TTargetHttpsProxyList;
TTargetInstanceArray = Array of TTargetInstance;
TTargetInstanceAggregatedListArray = Array of TTargetInstanceAggregatedList;
TTargetInstanceListArray = Array of TTargetInstanceList;
TTargetInstancesScopedListArray = Array of TTargetInstancesScopedList;
TTargetPoolArray = Array of TTargetPool;
TTargetPoolAggregatedListArray = Array of TTargetPoolAggregatedList;
TTargetPoolInstanceHealthArray = Array of TTargetPoolInstanceHealth;
TTargetPoolListArray = Array of TTargetPoolList;
TTargetPoolsAddHealthCheckRequestArray = Array of TTargetPoolsAddHealthCheckRequest;
TTargetPoolsAddInstanceRequestArray = Array of TTargetPoolsAddInstanceRequest;
TTargetPoolsRemoveHealthCheckRequestArray = Array of TTargetPoolsRemoveHealthCheckRequest;
TTargetPoolsRemoveInstanceRequestArray = Array of TTargetPoolsRemoveInstanceRequest;
TTargetPoolsScopedListArray = Array of TTargetPoolsScopedList;
TTargetReferenceArray = Array of TTargetReference;
TTargetVpnGatewayArray = Array of TTargetVpnGateway;
TTargetVpnGatewayAggregatedListArray = Array of TTargetVpnGatewayAggregatedList;
TTargetVpnGatewayListArray = Array of TTargetVpnGatewayList;
TTargetVpnGatewaysScopedListArray = Array of TTargetVpnGatewaysScopedList;
TTestFailureArray = Array of TTestFailure;
TUrlMapArray = Array of TUrlMap;
TUrlMapListArray = Array of TUrlMapList;
TUrlMapReferenceArray = Array of TUrlMapReference;
TUrlMapTestArray = Array of TUrlMapTest;
TUrlMapValidationResultArray = Array of TUrlMapValidationResult;
TUrlMapsValidateRequestArray = Array of TUrlMapsValidateRequest;
TUrlMapsValidateResponseArray = Array of TUrlMapsValidateResponse;
TUsageExportLocationArray = Array of TUsageExportLocation;
TVpnTunnelArray = Array of TVpnTunnel;
TVpnTunnelAggregatedListArray = Array of TVpnTunnelAggregatedList;
TVpnTunnelListArray = Array of TVpnTunnelList;
TVpnTunnelsScopedListArray = Array of TVpnTunnelsScopedList;
TZoneArray = Array of TZone;
TZoneListArray = Array of TZoneList;
//Anonymous types, using auto-generated names
TAddressAggregatedListTypeitems = Class;
TAddressesScopedListTypewarningTypedataItem = Class;
TAddressesScopedListTypewarning = Class;
TAutoscalerAggregatedListTypeitems = Class;
TAutoscalersScopedListTypewarningTypedataItem = Class;
TAutoscalersScopedListTypewarning = Class;
TDiskAggregatedListTypeitems = Class;
TDiskTypeAggregatedListTypeitems = Class;
TDiskTypesScopedListTypewarningTypedataItem = Class;
TDiskTypesScopedListTypewarning = Class;
TDisksScopedListTypewarningTypedataItem = Class;
TDisksScopedListTypewarning = Class;
TFirewallTypeallowedItem = Class;
TForwardingRuleAggregatedListTypeitems = Class;
TForwardingRulesScopedListTypewarningTypedataItem = Class;
TForwardingRulesScopedListTypewarning = Class;
TImageTyperawDisk = Class;
TInstanceAggregatedListTypeitems = Class;
TInstanceGroupAggregatedListTypeitems = Class;
TInstanceGroupManagerAggregatedListTypeitems = Class;
TInstanceGroupManagersScopedListTypewarningTypedataItem = Class;
TInstanceGroupManagersScopedListTypewarning = Class;
TInstanceGroupsScopedListTypewarningTypedataItem = Class;
TInstanceGroupsScopedListTypewarning = Class;
TInstancesScopedListTypewarningTypedataItem = Class;
TInstancesScopedListTypewarning = Class;
TMachineTypeTypescratchDisksItem = Class;
TMachineTypeAggregatedListTypeitems = Class;
TMachineTypesScopedListTypewarningTypedataItem = Class;
TMachineTypesScopedListTypewarning = Class;
TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem = Class;
TManagedInstanceLastAttemptTypeerrors = Class;
TMetadataTypeitemsItem = Class;
TOperationTypeerrorTypeerrorsItem = Class;
TOperationTypeerror = Class;
TOperationTypewarningsItemTypedataItem = Class;
TOperationTypewarningsItem = Class;
TOperationAggregatedListTypeitems = Class;
TOperationsScopedListTypewarningTypedataItem = Class;
TOperationsScopedListTypewarning = Class;
TRouteTypewarningsItemTypedataItem = Class;
TRouteTypewarningsItem = Class;
TSubnetworkAggregatedListTypeitems = Class;
TSubnetworksScopedListTypewarningTypedataItem = Class;
TSubnetworksScopedListTypewarning = Class;
TTargetInstanceAggregatedListTypeitems = Class;
TTargetInstancesScopedListTypewarningTypedataItem = Class;
TTargetInstancesScopedListTypewarning = Class;
TTargetPoolAggregatedListTypeitems = Class;
TTargetPoolsScopedListTypewarningTypedataItem = Class;
TTargetPoolsScopedListTypewarning = Class;
TTargetVpnGatewayAggregatedListTypeitems = Class;
TTargetVpnGatewaysScopedListTypewarningTypedataItem = Class;
TTargetVpnGatewaysScopedListTypewarning = Class;
TVpnTunnelAggregatedListTypeitems = Class;
TVpnTunnelsScopedListTypewarningTypedataItem = Class;
TVpnTunnelsScopedListTypewarning = Class;
TAddressListTypeitemsArray = Array of TAddress;
TAddressesScopedListTypeaddressesArray = Array of TAddress;
TAddressesScopedListTypewarningTypedataArray = Array of TAddressesScopedListTypewarningTypedataItem;
TAutoscalerListTypeitemsArray = Array of TAutoscaler;
TAutoscalersScopedListTypeautoscalersArray = Array of TAutoscaler;
TAutoscalersScopedListTypewarningTypedataArray = Array of TAutoscalersScopedListTypewarningTypedataItem;
TAutoscalingPolicyTypecustomMetricUtilizationsArray = Array of TAutoscalingPolicyCustomMetricUtilization;
TBackendServiceTypebackendsArray = Array of TBackend;
TBackendServiceGroupHealthTypehealthStatusArray = Array of THealthStatus;
TBackendServiceListTypeitemsArray = Array of TBackendService;
TDiskListTypeitemsArray = Array of TDisk;
TDiskTypeListTypeitemsArray = Array of TDiskType;
TDiskTypesScopedListTypediskTypesArray = Array of TDiskType;
TDiskTypesScopedListTypewarningTypedataArray = Array of TDiskTypesScopedListTypewarningTypedataItem;
TDisksScopedListTypedisksArray = Array of TDisk;
TDisksScopedListTypewarningTypedataArray = Array of TDisksScopedListTypewarningTypedataItem;
TFirewallTypeallowedArray = Array of TFirewallTypeallowedItem;
TFirewallListTypeitemsArray = Array of TFirewall;
TForwardingRuleListTypeitemsArray = Array of TForwardingRule;
TForwardingRulesScopedListTypeforwardingRulesArray = Array of TForwardingRule;
TForwardingRulesScopedListTypewarningTypedataArray = Array of TForwardingRulesScopedListTypewarningTypedataItem;
THttpHealthCheckListTypeitemsArray = Array of THttpHealthCheck;
THttpsHealthCheckListTypeitemsArray = Array of THttpsHealthCheck;
TImageListTypeitemsArray = Array of TImage;
TInstanceTypedisksArray = Array of TAttachedDisk;
TInstanceTypenetworkInterfacesArray = Array of TNetworkInterface;
TInstanceTypeserviceAccountsArray = Array of TServiceAccount;
TInstanceGroupTypenamedPortsArray = Array of TNamedPort;
TInstanceGroupListTypeitemsArray = Array of TInstanceGroup;
TInstanceGroupManagerTypenamedPortsArray = Array of TNamedPort;
TInstanceGroupManagerListTypeitemsArray = Array of TInstanceGroupManager;
TInstanceGroupManagersListManagedInstancesResponseTypemanagedInstancesArray = Array of TManagedInstance;
TInstanceGroupManagersScopedListTypeinstanceGroupManagersArray = Array of TInstanceGroupManager;
TInstanceGroupManagersScopedListTypewarningTypedataArray = Array of TInstanceGroupManagersScopedListTypewarningTypedataItem;
TInstanceGroupsAddInstancesRequestTypeinstancesArray = Array of TInstanceReference;
TInstanceGroupsListInstancesTypeitemsArray = Array of TInstanceWithNamedPorts;
TInstanceGroupsRemoveInstancesRequestTypeinstancesArray = Array of TInstanceReference;
TInstanceGroupsScopedListTypeinstanceGroupsArray = Array of TInstanceGroup;
TInstanceGroupsScopedListTypewarningTypedataArray = Array of TInstanceGroupsScopedListTypewarningTypedataItem;
TInstanceGroupsSetNamedPortsRequestTypenamedPortsArray = Array of TNamedPort;
TInstanceListTypeitemsArray = Array of TInstance;
TInstancePropertiesTypedisksArray = Array of TAttachedDisk;
TInstancePropertiesTypenetworkInterfacesArray = Array of TNetworkInterface;
TInstancePropertiesTypeserviceAccountsArray = Array of TServiceAccount;
TInstanceTemplateListTypeitemsArray = Array of TInstanceTemplate;
TInstanceWithNamedPortsTypenamedPortsArray = Array of TNamedPort;
TInstancesScopedListTypeinstancesArray = Array of TInstance;
TInstancesScopedListTypewarningTypedataArray = Array of TInstancesScopedListTypewarningTypedataItem;
TMachineTypeTypescratchDisksArray = Array of TMachineTypeTypescratchDisksItem;
TMachineTypeListTypeitemsArray = Array of TMachineType;
TMachineTypesScopedListTypemachineTypesArray = Array of TMachineType;
TMachineTypesScopedListTypewarningTypedataArray = Array of TMachineTypesScopedListTypewarningTypedataItem;
TManagedInstanceLastAttemptTypeerrorsTypeerrorsArray = Array of TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem;
TMetadataTypeitemsArray = Array of TMetadataTypeitemsItem;
TNetworkInterfaceTypeaccessConfigsArray = Array of TAccessConfig;
TNetworkListTypeitemsArray = Array of TNetwork;
TOperationTypeerrorTypeerrorsArray = Array of TOperationTypeerrorTypeerrorsItem;
TOperationTypewarningsItemTypedataArray = Array of TOperationTypewarningsItemTypedataItem;
TOperationTypewarningsArray = Array of TOperationTypewarningsItem;
TOperationListTypeitemsArray = Array of TOperation;
TOperationsScopedListTypeoperationsArray = Array of TOperation;
TOperationsScopedListTypewarningTypedataArray = Array of TOperationsScopedListTypewarningTypedataItem;
TPathMatcherTypepathRulesArray = Array of TPathRule;
TProjectTypequotasArray = Array of TQuota;
TRegionTypequotasArray = Array of TQuota;
TRegionListTypeitemsArray = Array of TRegion;
TRouteTypewarningsItemTypedataArray = Array of TRouteTypewarningsItemTypedataItem;
TRouteTypewarningsArray = Array of TRouteTypewarningsItem;
TRouteListTypeitemsArray = Array of TRoute;
TSnapshotListTypeitemsArray = Array of TSnapshot;
TSslCertificateListTypeitemsArray = Array of TSslCertificate;
TSubnetworkListTypeitemsArray = Array of TSubnetwork;
TSubnetworksScopedListTypesubnetworksArray = Array of TSubnetwork;
TSubnetworksScopedListTypewarningTypedataArray = Array of TSubnetworksScopedListTypewarningTypedataItem;
TTargetHttpProxyListTypeitemsArray = Array of TTargetHttpProxy;
TTargetHttpsProxyListTypeitemsArray = Array of TTargetHttpsProxy;
TTargetInstanceListTypeitemsArray = Array of TTargetInstance;
TTargetInstancesScopedListTypetargetInstancesArray = Array of TTargetInstance;
TTargetInstancesScopedListTypewarningTypedataArray = Array of TTargetInstancesScopedListTypewarningTypedataItem;
TTargetPoolInstanceHealthTypehealthStatusArray = Array of THealthStatus;
TTargetPoolListTypeitemsArray = Array of TTargetPool;
TTargetPoolsAddHealthCheckRequestTypehealthChecksArray = Array of THealthCheckReference;
TTargetPoolsAddInstanceRequestTypeinstancesArray = Array of TInstanceReference;
TTargetPoolsRemoveHealthCheckRequestTypehealthChecksArray = Array of THealthCheckReference;
TTargetPoolsRemoveInstanceRequestTypeinstancesArray = Array of TInstanceReference;
TTargetPoolsScopedListTypetargetPoolsArray = Array of TTargetPool;
TTargetPoolsScopedListTypewarningTypedataArray = Array of TTargetPoolsScopedListTypewarningTypedataItem;
TTargetVpnGatewayListTypeitemsArray = Array of TTargetVpnGateway;
TTargetVpnGatewaysScopedListTypetargetVpnGatewaysArray = Array of TTargetVpnGateway;
TTargetVpnGatewaysScopedListTypewarningTypedataArray = Array of TTargetVpnGatewaysScopedListTypewarningTypedataItem;
TUrlMapTypehostRulesArray = Array of THostRule;
TUrlMapTypepathMatchersArray = Array of TPathMatcher;
TUrlMapTypetestsArray = Array of TUrlMapTest;
TUrlMapListTypeitemsArray = Array of TUrlMap;
TUrlMapValidationResultTypetestFailuresArray = Array of TTestFailure;
TVpnTunnelListTypeitemsArray = Array of TVpnTunnel;
TVpnTunnelsScopedListTypevpnTunnelsArray = Array of TVpnTunnel;
TVpnTunnelsScopedListTypewarningTypedataArray = Array of TVpnTunnelsScopedListTypewarningTypedataItem;
TZoneListTypeitemsArray = Array of TZone;
{ --------------------------------------------------------------------
TAccessConfig
--------------------------------------------------------------------}
TAccessConfig = Class(TGoogleBaseObject)
Private
Fkind : String;
Fname : String;
FnatIP : String;
F_type : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetnatIP(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property kind : String Index 0 Read Fkind Write Setkind;
Property name : String Index 8 Read Fname Write Setname;
Property natIP : String Index 16 Read FnatIP Write SetnatIP;
Property _type : String Index 24 Read F_type Write Set_type;
end;
TAccessConfigClass = Class of TAccessConfig;
{ --------------------------------------------------------------------
TAddress
--------------------------------------------------------------------}
TAddress = Class(TGoogleBaseObject)
Private
Faddress : String;
FcreationTimestamp : String;
Fdescription : String;
Fid : String;
Fkind : String;
Fname : String;
Fregion : String;
FselfLink : String;
Fstatus : String;
Fusers : TStringArray;
Protected
//Property setters
Procedure Setaddress(AIndex : Integer; const AValue : String); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure Setusers(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property address : String Index 0 Read Faddress Write Setaddress;
Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
Property description : String Index 16 Read Fdescription Write Setdescription;
Property id : String Index 24 Read Fid Write Setid;
Property kind : String Index 32 Read Fkind Write Setkind;
Property name : String Index 40 Read Fname Write Setname;
Property region : String Index 48 Read Fregion Write Setregion;
Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
Property status : String Index 64 Read Fstatus Write Setstatus;
Property users : TStringArray Index 72 Read Fusers Write Setusers;
end;
TAddressClass = Class of TAddress;
{ --------------------------------------------------------------------
TAddressAggregatedListTypeitems
--------------------------------------------------------------------}
TAddressAggregatedListTypeitems = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TAddressAggregatedListTypeitemsClass = Class of TAddressAggregatedListTypeitems;
{ --------------------------------------------------------------------
TAddressAggregatedList
--------------------------------------------------------------------}
TAddressAggregatedList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TAddressAggregatedListTypeitems;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TAddressAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TAddressAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TAddressAggregatedListClass = Class of TAddressAggregatedList;
{ --------------------------------------------------------------------
TAddressList
--------------------------------------------------------------------}
TAddressList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TAddressListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TAddressListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TAddressListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TAddressListClass = Class of TAddressList;
{ --------------------------------------------------------------------
TAddressesScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
TAddressesScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
Private
Fkey : String;
Fvalue : String;
Protected
//Property setters
Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property key : String Index 0 Read Fkey Write Setkey;
Property value : String Index 8 Read Fvalue Write Setvalue;
end;
TAddressesScopedListTypewarningTypedataItemClass = Class of TAddressesScopedListTypewarningTypedataItem;
{ --------------------------------------------------------------------
TAddressesScopedListTypewarning
--------------------------------------------------------------------}
TAddressesScopedListTypewarning = Class(TGoogleBaseObject)
Private
Fcode : String;
Fdata : TAddressesScopedListTypewarningTypedataArray;
Fmessage : String;
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
Procedure Setdata(AIndex : Integer; const AValue : TAddressesScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
Property data : TAddressesScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
Property message : String Index 16 Read Fmessage Write Setmessage;
end;
TAddressesScopedListTypewarningClass = Class of TAddressesScopedListTypewarning;
{ --------------------------------------------------------------------
TAddressesScopedList
--------------------------------------------------------------------}
TAddressesScopedList = Class(TGoogleBaseObject)
Private
Faddresses : TAddressesScopedListTypeaddressesArray;
Fwarning : TAddressesScopedListTypewarning;
Protected
//Property setters
Procedure Setaddresses(AIndex : Integer; const AValue : TAddressesScopedListTypeaddressesArray); virtual;
Procedure Setwarning(AIndex : Integer; const AValue : TAddressesScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property addresses : TAddressesScopedListTypeaddressesArray Index 0 Read Faddresses Write Setaddresses;
Property warning : TAddressesScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
end;
TAddressesScopedListClass = Class of TAddressesScopedList;
{ --------------------------------------------------------------------
TAttachedDisk
--------------------------------------------------------------------}
TAttachedDisk = Class(TGoogleBaseObject)
Private
FautoDelete : boolean;
Fboot : boolean;
FdeviceName : String;
Findex : integer;
FinitializeParams : TAttachedDiskInitializeParams;
F_interface : String;
Fkind : String;
Flicenses : TStringArray;
Fmode : String;
Fsource : String;
F_type : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetautoDelete(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setboot(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetdeviceName(AIndex : Integer; const AValue : String); virtual;
Procedure Setindex(AIndex : Integer; const AValue : integer); virtual;
Procedure SetinitializeParams(AIndex : Integer; const AValue : TAttachedDiskInitializeParams); virtual;
Procedure Set_interface(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setlicenses(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setmode(AIndex : Integer; const AValue : String); virtual;
Procedure Setsource(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property autoDelete : boolean Index 0 Read FautoDelete Write SetautoDelete;
Property boot : boolean Index 8 Read Fboot Write Setboot;
Property deviceName : String Index 16 Read FdeviceName Write SetdeviceName;
Property index : integer Index 24 Read Findex Write Setindex;
Property initializeParams : TAttachedDiskInitializeParams Index 32 Read FinitializeParams Write SetinitializeParams;
Property _interface : String Index 40 Read F_interface Write Set_interface;
Property kind : String Index 48 Read Fkind Write Setkind;
Property licenses : TStringArray Index 56 Read Flicenses Write Setlicenses;
Property mode : String Index 64 Read Fmode Write Setmode;
Property source : String Index 72 Read Fsource Write Setsource;
Property _type : String Index 80 Read F_type Write Set_type;
end;
TAttachedDiskClass = Class of TAttachedDisk;
{ --------------------------------------------------------------------
TAttachedDiskInitializeParams
--------------------------------------------------------------------}
TAttachedDiskInitializeParams = Class(TGoogleBaseObject)
Private
FdiskName : String;
FdiskSizeGb : String;
FdiskType : String;
FsourceImage : String;
Protected
//Property setters
Procedure SetdiskName(AIndex : Integer; const AValue : String); virtual;
Procedure SetdiskSizeGb(AIndex : Integer; const AValue : String); virtual;
Procedure SetdiskType(AIndex : Integer; const AValue : String); virtual;
Procedure SetsourceImage(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property diskName : String Index 0 Read FdiskName Write SetdiskName;
Property diskSizeGb : String Index 8 Read FdiskSizeGb Write SetdiskSizeGb;
Property diskType : String Index 16 Read FdiskType Write SetdiskType;
Property sourceImage : String Index 24 Read FsourceImage Write SetsourceImage;
end;
TAttachedDiskInitializeParamsClass = Class of TAttachedDiskInitializeParams;
{ --------------------------------------------------------------------
TAutoscaler
--------------------------------------------------------------------}
TAutoscaler = Class(TGoogleBaseObject)
Private
FautoscalingPolicy : TAutoscalingPolicy;
FcreationTimestamp : String;
Fdescription : String;
Fid : String;
Fkind : String;
Fname : String;
FselfLink : String;
Ftarget : String;
Fzone : String;
Protected
//Property setters
Procedure SetautoscalingPolicy(AIndex : Integer; const AValue : TAutoscalingPolicy); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Settarget(AIndex : Integer; const AValue : String); virtual;
Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property autoscalingPolicy : TAutoscalingPolicy Index 0 Read FautoscalingPolicy Write SetautoscalingPolicy;
Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
Property description : String Index 16 Read Fdescription Write Setdescription;
Property id : String Index 24 Read Fid Write Setid;
Property kind : String Index 32 Read Fkind Write Setkind;
Property name : String Index 40 Read Fname Write Setname;
Property selfLink : String Index 48 Read FselfLink Write SetselfLink;
Property target : String Index 56 Read Ftarget Write Settarget;
Property zone : String Index 64 Read Fzone Write Setzone;
end;
TAutoscalerClass = Class of TAutoscaler;
{ --------------------------------------------------------------------
TAutoscalerAggregatedListTypeitems
--------------------------------------------------------------------}
TAutoscalerAggregatedListTypeitems = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TAutoscalerAggregatedListTypeitemsClass = Class of TAutoscalerAggregatedListTypeitems;
{ --------------------------------------------------------------------
TAutoscalerAggregatedList
--------------------------------------------------------------------}
TAutoscalerAggregatedList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TAutoscalerAggregatedListTypeitems;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TAutoscalerAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TAutoscalerAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TAutoscalerAggregatedListClass = Class of TAutoscalerAggregatedList;
{ --------------------------------------------------------------------
TAutoscalerList
--------------------------------------------------------------------}
TAutoscalerList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TAutoscalerListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TAutoscalerListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TAutoscalerListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TAutoscalerListClass = Class of TAutoscalerList;
{ --------------------------------------------------------------------
TAutoscalersScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
TAutoscalersScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
Private
Fkey : String;
Fvalue : String;
Protected
//Property setters
Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property key : String Index 0 Read Fkey Write Setkey;
Property value : String Index 8 Read Fvalue Write Setvalue;
end;
TAutoscalersScopedListTypewarningTypedataItemClass = Class of TAutoscalersScopedListTypewarningTypedataItem;
{ --------------------------------------------------------------------
TAutoscalersScopedListTypewarning
--------------------------------------------------------------------}
TAutoscalersScopedListTypewarning = Class(TGoogleBaseObject)
Private
Fcode : String;
Fdata : TAutoscalersScopedListTypewarningTypedataArray;
Fmessage : String;
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
Procedure Setdata(AIndex : Integer; const AValue : TAutoscalersScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
Property data : TAutoscalersScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
Property message : String Index 16 Read Fmessage Write Setmessage;
end;
TAutoscalersScopedListTypewarningClass = Class of TAutoscalersScopedListTypewarning;
{ --------------------------------------------------------------------
TAutoscalersScopedList
--------------------------------------------------------------------}
TAutoscalersScopedList = Class(TGoogleBaseObject)
Private
Fautoscalers : TAutoscalersScopedListTypeautoscalersArray;
Fwarning : TAutoscalersScopedListTypewarning;
Protected
//Property setters
Procedure Setautoscalers(AIndex : Integer; const AValue : TAutoscalersScopedListTypeautoscalersArray); virtual;
Procedure Setwarning(AIndex : Integer; const AValue : TAutoscalersScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property autoscalers : TAutoscalersScopedListTypeautoscalersArray Index 0 Read Fautoscalers Write Setautoscalers;
Property warning : TAutoscalersScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
end;
TAutoscalersScopedListClass = Class of TAutoscalersScopedList;
{ --------------------------------------------------------------------
TAutoscalingPolicy
--------------------------------------------------------------------}
TAutoscalingPolicy = Class(TGoogleBaseObject)
Private
FcoolDownPeriodSec : integer;
FcpuUtilization : TAutoscalingPolicyCpuUtilization;
FcustomMetricUtilizations : TAutoscalingPolicyTypecustomMetricUtilizationsArray;
FloadBalancingUtilization : TAutoscalingPolicyLoadBalancingUtilization;
FmaxNumReplicas : integer;
FminNumReplicas : integer;
Protected
//Property setters
Procedure SetcoolDownPeriodSec(AIndex : Integer; const AValue : integer); virtual;
Procedure SetcpuUtilization(AIndex : Integer; const AValue : TAutoscalingPolicyCpuUtilization); virtual;
Procedure SetcustomMetricUtilizations(AIndex : Integer; const AValue : TAutoscalingPolicyTypecustomMetricUtilizationsArray); virtual;
Procedure SetloadBalancingUtilization(AIndex : Integer; const AValue : TAutoscalingPolicyLoadBalancingUtilization); virtual;
Procedure SetmaxNumReplicas(AIndex : Integer; const AValue : integer); virtual;
Procedure SetminNumReplicas(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property coolDownPeriodSec : integer Index 0 Read FcoolDownPeriodSec Write SetcoolDownPeriodSec;
Property cpuUtilization : TAutoscalingPolicyCpuUtilization Index 8 Read FcpuUtilization Write SetcpuUtilization;
Property customMetricUtilizations : TAutoscalingPolicyTypecustomMetricUtilizationsArray Index 16 Read FcustomMetricUtilizations Write SetcustomMetricUtilizations;
Property loadBalancingUtilization : TAutoscalingPolicyLoadBalancingUtilization Index 24 Read FloadBalancingUtilization Write SetloadBalancingUtilization;
Property maxNumReplicas : integer Index 32 Read FmaxNumReplicas Write SetmaxNumReplicas;
Property minNumReplicas : integer Index 40 Read FminNumReplicas Write SetminNumReplicas;
end;
TAutoscalingPolicyClass = Class of TAutoscalingPolicy;
{ --------------------------------------------------------------------
TAutoscalingPolicyCpuUtilization
--------------------------------------------------------------------}
TAutoscalingPolicyCpuUtilization = Class(TGoogleBaseObject)
Private
FutilizationTarget : double;
Protected
//Property setters
Procedure SetutilizationTarget(AIndex : Integer; const AValue : double); virtual;
Public
Published
Property utilizationTarget : double Index 0 Read FutilizationTarget Write SetutilizationTarget;
end;
TAutoscalingPolicyCpuUtilizationClass = Class of TAutoscalingPolicyCpuUtilization;
{ --------------------------------------------------------------------
TAutoscalingPolicyCustomMetricUtilization
--------------------------------------------------------------------}
TAutoscalingPolicyCustomMetricUtilization = Class(TGoogleBaseObject)
Private
Fmetric : String;
FutilizationTarget : double;
FutilizationTargetType : String;
Protected
//Property setters
Procedure Setmetric(AIndex : Integer; const AValue : String); virtual;
Procedure SetutilizationTarget(AIndex : Integer; const AValue : double); virtual;
Procedure SetutilizationTargetType(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property metric : String Index 0 Read Fmetric Write Setmetric;
Property utilizationTarget : double Index 8 Read FutilizationTarget Write SetutilizationTarget;
Property utilizationTargetType : String Index 16 Read FutilizationTargetType Write SetutilizationTargetType;
end;
TAutoscalingPolicyCustomMetricUtilizationClass = Class of TAutoscalingPolicyCustomMetricUtilization;
{ --------------------------------------------------------------------
TAutoscalingPolicyLoadBalancingUtilization
--------------------------------------------------------------------}
TAutoscalingPolicyLoadBalancingUtilization = Class(TGoogleBaseObject)
Private
FutilizationTarget : double;
Protected
//Property setters
Procedure SetutilizationTarget(AIndex : Integer; const AValue : double); virtual;
Public
Published
Property utilizationTarget : double Index 0 Read FutilizationTarget Write SetutilizationTarget;
end;
TAutoscalingPolicyLoadBalancingUtilizationClass = Class of TAutoscalingPolicyLoadBalancingUtilization;
{ --------------------------------------------------------------------
TBackend
--------------------------------------------------------------------}
TBackend = Class(TGoogleBaseObject)
Private
FbalancingMode : String;
FcapacityScaler : integer;
Fdescription : String;
Fgroup : String;
FmaxRate : integer;
FmaxRatePerInstance : integer;
FmaxUtilization : integer;
Protected
//Property setters
Procedure SetbalancingMode(AIndex : Integer; const AValue : String); virtual;
Procedure SetcapacityScaler(AIndex : Integer; const AValue : integer); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setgroup(AIndex : Integer; const AValue : String); virtual;
Procedure SetmaxRate(AIndex : Integer; const AValue : integer); virtual;
Procedure SetmaxRatePerInstance(AIndex : Integer; const AValue : integer); virtual;
Procedure SetmaxUtilization(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property balancingMode : String Index 0 Read FbalancingMode Write SetbalancingMode;
Property capacityScaler : integer Index 8 Read FcapacityScaler Write SetcapacityScaler;
Property description : String Index 16 Read Fdescription Write Setdescription;
Property group : String Index 24 Read Fgroup Write Setgroup;
Property maxRate : integer Index 32 Read FmaxRate Write SetmaxRate;
Property maxRatePerInstance : integer Index 40 Read FmaxRatePerInstance Write SetmaxRatePerInstance;
Property maxUtilization : integer Index 48 Read FmaxUtilization Write SetmaxUtilization;
end;
TBackendClass = Class of TBackend;
{ --------------------------------------------------------------------
TBackendService
--------------------------------------------------------------------}
TBackendService = Class(TGoogleBaseObject)
Private
Fbackends : TBackendServiceTypebackendsArray;
FcreationTimestamp : String;
Fdescription : String;
Ffingerprint : String;
FhealthChecks : TStringArray;
Fid : String;
Fkind : String;
Fname : String;
Fport : integer;
FportName : String;
Fprotocol : String;
Fregion : String;
FselfLink : String;
FtimeoutSec : integer;
Protected
//Property setters
Procedure Setbackends(AIndex : Integer; const AValue : TBackendServiceTypebackendsArray); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
Procedure SethealthChecks(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setport(AIndex : Integer; const AValue : integer); virtual;
Procedure SetportName(AIndex : Integer; const AValue : String); virtual;
Procedure Setprotocol(AIndex : Integer; const AValue : String); virtual;
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SettimeoutSec(AIndex : Integer; const AValue : integer); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property backends : TBackendServiceTypebackendsArray Index 0 Read Fbackends Write Setbackends;
Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
Property description : String Index 16 Read Fdescription Write Setdescription;
Property fingerprint : String Index 24 Read Ffingerprint Write Setfingerprint;
Property healthChecks : TStringArray Index 32 Read FhealthChecks Write SethealthChecks;
Property id : String Index 40 Read Fid Write Setid;
Property kind : String Index 48 Read Fkind Write Setkind;
Property name : String Index 56 Read Fname Write Setname;
Property port : integer Index 64 Read Fport Write Setport;
Property portName : String Index 72 Read FportName Write SetportName;
Property protocol : String Index 80 Read Fprotocol Write Setprotocol;
Property region : String Index 88 Read Fregion Write Setregion;
Property selfLink : String Index 96 Read FselfLink Write SetselfLink;
Property timeoutSec : integer Index 104 Read FtimeoutSec Write SettimeoutSec;
end;
TBackendServiceClass = Class of TBackendService;
{ --------------------------------------------------------------------
TBackendServiceGroupHealth
--------------------------------------------------------------------}
TBackendServiceGroupHealth = Class(TGoogleBaseObject)
Private
FhealthStatus : TBackendServiceGroupHealthTypehealthStatusArray;
Fkind : String;
Protected
//Property setters
Procedure SethealthStatus(AIndex : Integer; const AValue : TBackendServiceGroupHealthTypehealthStatusArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property healthStatus : TBackendServiceGroupHealthTypehealthStatusArray Index 0 Read FhealthStatus Write SethealthStatus;
Property kind : String Index 8 Read Fkind Write Setkind;
end;
TBackendServiceGroupHealthClass = Class of TBackendServiceGroupHealth;
{ --------------------------------------------------------------------
TBackendServiceList
--------------------------------------------------------------------}
TBackendServiceList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TBackendServiceListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TBackendServiceListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TBackendServiceListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TBackendServiceListClass = Class of TBackendServiceList;
{ --------------------------------------------------------------------
TDeprecationStatus
--------------------------------------------------------------------}
TDeprecationStatus = Class(TGoogleBaseObject)
Private
Fdeleted : String;
Fdeprecated : String;
Fobsolete : String;
Freplacement : String;
Fstate : String;
Protected
//Property setters
Procedure Setdeleted(AIndex : Integer; const AValue : String); virtual;
Procedure Setdeprecated(AIndex : Integer; const AValue : String); virtual;
Procedure Setobsolete(AIndex : Integer; const AValue : String); virtual;
Procedure Setreplacement(AIndex : Integer; const AValue : String); virtual;
Procedure Setstate(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property deleted : String Index 0 Read Fdeleted Write Setdeleted;
Property deprecated : String Index 8 Read Fdeprecated Write Setdeprecated;
Property obsolete : String Index 16 Read Fobsolete Write Setobsolete;
Property replacement : String Index 24 Read Freplacement Write Setreplacement;
Property state : String Index 32 Read Fstate Write Setstate;
end;
TDeprecationStatusClass = Class of TDeprecationStatus;
{ --------------------------------------------------------------------
TDisk
--------------------------------------------------------------------}
TDisk = Class(TGoogleBaseObject)
Private
FcreationTimestamp : String;
Fdescription : String;
Fid : String;
Fkind : String;
FlastAttachTimestamp : String;
FlastDetachTimestamp : String;
Flicenses : TStringArray;
Fname : String;
Foptions : String;
FselfLink : String;
FsizeGb : String;
FsourceImage : String;
FsourceImageId : String;
FsourceSnapshot : String;
FsourceSnapshotId : String;
Fstatus : String;
F_type : String;
Fusers : TStringArray;
Fzone : String;
Protected
Class Function ExportPropertyName(Const AName : String) : string; override;
//Property setters
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetlastAttachTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure SetlastDetachTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setlicenses(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setoptions(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetsizeGb(AIndex : Integer; const AValue : String); virtual;
Procedure SetsourceImage(AIndex : Integer; const AValue : String); virtual;
Procedure SetsourceImageId(AIndex : Integer; const AValue : String); virtual;
Procedure SetsourceSnapshot(AIndex : Integer; const AValue : String); virtual;
Procedure SetsourceSnapshotId(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
Procedure Setusers(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setzone(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 creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
Property description : String Index 8 Read Fdescription Write Setdescription;
Property id : String Index 16 Read Fid Write Setid;
Property kind : String Index 24 Read Fkind Write Setkind;
Property lastAttachTimestamp : String Index 32 Read FlastAttachTimestamp Write SetlastAttachTimestamp;
Property lastDetachTimestamp : String Index 40 Read FlastDetachTimestamp Write SetlastDetachTimestamp;
Property licenses : TStringArray Index 48 Read Flicenses Write Setlicenses;
Property name : String Index 56 Read Fname Write Setname;
Property options : String Index 64 Read Foptions Write Setoptions;
Property selfLink : String Index 72 Read FselfLink Write SetselfLink;
Property sizeGb : String Index 80 Read FsizeGb Write SetsizeGb;
Property sourceImage : String Index 88 Read FsourceImage Write SetsourceImage;
Property sourceImageId : String Index 96 Read FsourceImageId Write SetsourceImageId;
Property sourceSnapshot : String Index 104 Read FsourceSnapshot Write SetsourceSnapshot;
Property sourceSnapshotId : String Index 112 Read FsourceSnapshotId Write SetsourceSnapshotId;
Property status : String Index 120 Read Fstatus Write Setstatus;
Property _type : String Index 128 Read F_type Write Set_type;
Property users : TStringArray Index 136 Read Fusers Write Setusers;
Property zone : String Index 144 Read Fzone Write Setzone;
end;
TDiskClass = Class of TDisk;
{ --------------------------------------------------------------------
TDiskAggregatedListTypeitems
--------------------------------------------------------------------}
TDiskAggregatedListTypeitems = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TDiskAggregatedListTypeitemsClass = Class of TDiskAggregatedListTypeitems;
{ --------------------------------------------------------------------
TDiskAggregatedList
--------------------------------------------------------------------}
TDiskAggregatedList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TDiskAggregatedListTypeitems;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TDiskAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TDiskAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TDiskAggregatedListClass = Class of TDiskAggregatedList;
{ --------------------------------------------------------------------
TDiskList
--------------------------------------------------------------------}
TDiskList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TDiskListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TDiskListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TDiskListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TDiskListClass = Class of TDiskList;
{ --------------------------------------------------------------------
TDiskMoveRequest
--------------------------------------------------------------------}
TDiskMoveRequest = Class(TGoogleBaseObject)
Private
FdestinationZone : String;
FtargetDisk : String;
Protected
//Property setters
Procedure SetdestinationZone(AIndex : Integer; const AValue : String); virtual;
Procedure SettargetDisk(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property destinationZone : String Index 0 Read FdestinationZone Write SetdestinationZone;
Property targetDisk : String Index 8 Read FtargetDisk Write SettargetDisk;
end;
TDiskMoveRequestClass = Class of TDiskMoveRequest;
{ --------------------------------------------------------------------
TDiskType
--------------------------------------------------------------------}
TDiskType = Class(TGoogleBaseObject)
Private
FcreationTimestamp : String;
FdefaultDiskSizeGb : String;
Fdeprecated : TDeprecationStatus;
Fdescription : String;
Fid : String;
Fkind : String;
Fname : String;
FselfLink : String;
FvalidDiskSize : String;
Fzone : String;
Protected
//Property setters
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure SetdefaultDiskSizeGb(AIndex : Integer; const AValue : String); virtual;
Procedure Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetvalidDiskSize(AIndex : Integer; const AValue : String); virtual;
Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
Property defaultDiskSizeGb : String Index 8 Read FdefaultDiskSizeGb Write SetdefaultDiskSizeGb;
Property deprecated : TDeprecationStatus Index 16 Read Fdeprecated Write Setdeprecated;
Property description : String Index 24 Read Fdescription Write Setdescription;
Property id : String Index 32 Read Fid Write Setid;
Property kind : String Index 40 Read Fkind Write Setkind;
Property name : String Index 48 Read Fname Write Setname;
Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
Property validDiskSize : String Index 64 Read FvalidDiskSize Write SetvalidDiskSize;
Property zone : String Index 72 Read Fzone Write Setzone;
end;
TDiskTypeClass = Class of TDiskType;
{ --------------------------------------------------------------------
TDiskTypeAggregatedListTypeitems
--------------------------------------------------------------------}
TDiskTypeAggregatedListTypeitems = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TDiskTypeAggregatedListTypeitemsClass = Class of TDiskTypeAggregatedListTypeitems;
{ --------------------------------------------------------------------
TDiskTypeAggregatedList
--------------------------------------------------------------------}
TDiskTypeAggregatedList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TDiskTypeAggregatedListTypeitems;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TDiskTypeAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TDiskTypeAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TDiskTypeAggregatedListClass = Class of TDiskTypeAggregatedList;
{ --------------------------------------------------------------------
TDiskTypeList
--------------------------------------------------------------------}
TDiskTypeList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TDiskTypeListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TDiskTypeListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TDiskTypeListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TDiskTypeListClass = Class of TDiskTypeList;
{ --------------------------------------------------------------------
TDiskTypesScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
TDiskTypesScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
Private
Fkey : String;
Fvalue : String;
Protected
//Property setters
Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property key : String Index 0 Read Fkey Write Setkey;
Property value : String Index 8 Read Fvalue Write Setvalue;
end;
TDiskTypesScopedListTypewarningTypedataItemClass = Class of TDiskTypesScopedListTypewarningTypedataItem;
{ --------------------------------------------------------------------
TDiskTypesScopedListTypewarning
--------------------------------------------------------------------}
TDiskTypesScopedListTypewarning = Class(TGoogleBaseObject)
Private
Fcode : String;
Fdata : TDiskTypesScopedListTypewarningTypedataArray;
Fmessage : String;
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
Procedure Setdata(AIndex : Integer; const AValue : TDiskTypesScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
Property data : TDiskTypesScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
Property message : String Index 16 Read Fmessage Write Setmessage;
end;
TDiskTypesScopedListTypewarningClass = Class of TDiskTypesScopedListTypewarning;
{ --------------------------------------------------------------------
TDiskTypesScopedList
--------------------------------------------------------------------}
TDiskTypesScopedList = Class(TGoogleBaseObject)
Private
FdiskTypes : TDiskTypesScopedListTypediskTypesArray;
Fwarning : TDiskTypesScopedListTypewarning;
Protected
//Property setters
Procedure SetdiskTypes(AIndex : Integer; const AValue : TDiskTypesScopedListTypediskTypesArray); virtual;
Procedure Setwarning(AIndex : Integer; const AValue : TDiskTypesScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property diskTypes : TDiskTypesScopedListTypediskTypesArray Index 0 Read FdiskTypes Write SetdiskTypes;
Property warning : TDiskTypesScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
end;
TDiskTypesScopedListClass = Class of TDiskTypesScopedList;
{ --------------------------------------------------------------------
TDisksResizeRequest
--------------------------------------------------------------------}
TDisksResizeRequest = Class(TGoogleBaseObject)
Private
FsizeGb : String;
Protected
//Property setters
Procedure SetsizeGb(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property sizeGb : String Index 0 Read FsizeGb Write SetsizeGb;
end;
TDisksResizeRequestClass = Class of TDisksResizeRequest;
{ --------------------------------------------------------------------
TDisksScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
TDisksScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
Private
Fkey : String;
Fvalue : String;
Protected
//Property setters
Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property key : String Index 0 Read Fkey Write Setkey;
Property value : String Index 8 Read Fvalue Write Setvalue;
end;
TDisksScopedListTypewarningTypedataItemClass = Class of TDisksScopedListTypewarningTypedataItem;
{ --------------------------------------------------------------------
TDisksScopedListTypewarning
--------------------------------------------------------------------}
TDisksScopedListTypewarning = Class(TGoogleBaseObject)
Private
Fcode : String;
Fdata : TDisksScopedListTypewarningTypedataArray;
Fmessage : String;
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
Procedure Setdata(AIndex : Integer; const AValue : TDisksScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
Property data : TDisksScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
Property message : String Index 16 Read Fmessage Write Setmessage;
end;
TDisksScopedListTypewarningClass = Class of TDisksScopedListTypewarning;
{ --------------------------------------------------------------------
TDisksScopedList
--------------------------------------------------------------------}
TDisksScopedList = Class(TGoogleBaseObject)
Private
Fdisks : TDisksScopedListTypedisksArray;
Fwarning : TDisksScopedListTypewarning;
Protected
//Property setters
Procedure Setdisks(AIndex : Integer; const AValue : TDisksScopedListTypedisksArray); virtual;
Procedure Setwarning(AIndex : Integer; const AValue : TDisksScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property disks : TDisksScopedListTypedisksArray Index 0 Read Fdisks Write Setdisks;
Property warning : TDisksScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
end;
TDisksScopedListClass = Class of TDisksScopedList;
{ --------------------------------------------------------------------
TFirewallTypeallowedItem
--------------------------------------------------------------------}
TFirewallTypeallowedItem = Class(TGoogleBaseObject)
Private
FIPProtocol : String;
Fports : TStringArray;
Protected
//Property setters
Procedure SetIPProtocol(AIndex : Integer; const AValue : String); virtual;
Procedure Setports(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property IPProtocol : String Index 0 Read FIPProtocol Write SetIPProtocol;
Property ports : TStringArray Index 8 Read Fports Write Setports;
end;
TFirewallTypeallowedItemClass = Class of TFirewallTypeallowedItem;
{ --------------------------------------------------------------------
TFirewall
--------------------------------------------------------------------}
TFirewall = Class(TGoogleBaseObject)
Private
Fallowed : TFirewallTypeallowedArray;
FcreationTimestamp : String;
Fdescription : String;
Fid : String;
Fkind : String;
Fname : String;
Fnetwork : String;
FselfLink : String;
FsourceRanges : TStringArray;
FsourceTags : TStringArray;
FtargetTags : TStringArray;
Protected
//Property setters
Procedure Setallowed(AIndex : Integer; const AValue : TFirewallTypeallowedArray); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetsourceRanges(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetsourceTags(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SettargetTags(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property allowed : TFirewallTypeallowedArray Index 0 Read Fallowed Write Setallowed;
Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
Property description : String Index 16 Read Fdescription Write Setdescription;
Property id : String Index 24 Read Fid Write Setid;
Property kind : String Index 32 Read Fkind Write Setkind;
Property name : String Index 40 Read Fname Write Setname;
Property network : String Index 48 Read Fnetwork Write Setnetwork;
Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
Property sourceRanges : TStringArray Index 64 Read FsourceRanges Write SetsourceRanges;
Property sourceTags : TStringArray Index 72 Read FsourceTags Write SetsourceTags;
Property targetTags : TStringArray Index 80 Read FtargetTags Write SettargetTags;
end;
TFirewallClass = Class of TFirewall;
{ --------------------------------------------------------------------
TFirewallList
--------------------------------------------------------------------}
TFirewallList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TFirewallListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TFirewallListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TFirewallListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TFirewallListClass = Class of TFirewallList;
{ --------------------------------------------------------------------
TForwardingRule
--------------------------------------------------------------------}
TForwardingRule = Class(TGoogleBaseObject)
Private
FIPAddress : String;
FIPProtocol : String;
FcreationTimestamp : String;
Fdescription : String;
Fid : String;
Fkind : String;
Fname : String;
FportRange : String;
Fregion : String;
FselfLink : String;
Ftarget : String;
Protected
//Property setters
Procedure SetIPAddress(AIndex : Integer; const AValue : String); virtual;
Procedure SetIPProtocol(AIndex : Integer; const AValue : String); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetportRange(AIndex : Integer; const AValue : String); virtual;
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Settarget(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property IPAddress : String Index 0 Read FIPAddress Write SetIPAddress;
Property IPProtocol : String Index 8 Read FIPProtocol Write SetIPProtocol;
Property creationTimestamp : String Index 16 Read FcreationTimestamp Write SetcreationTimestamp;
Property description : String Index 24 Read Fdescription Write Setdescription;
Property id : String Index 32 Read Fid Write Setid;
Property kind : String Index 40 Read Fkind Write Setkind;
Property name : String Index 48 Read Fname Write Setname;
Property portRange : String Index 56 Read FportRange Write SetportRange;
Property region : String Index 64 Read Fregion Write Setregion;
Property selfLink : String Index 72 Read FselfLink Write SetselfLink;
Property target : String Index 80 Read Ftarget Write Settarget;
end;
TForwardingRuleClass = Class of TForwardingRule;
{ --------------------------------------------------------------------
TForwardingRuleAggregatedListTypeitems
--------------------------------------------------------------------}
TForwardingRuleAggregatedListTypeitems = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TForwardingRuleAggregatedListTypeitemsClass = Class of TForwardingRuleAggregatedListTypeitems;
{ --------------------------------------------------------------------
TForwardingRuleAggregatedList
--------------------------------------------------------------------}
TForwardingRuleAggregatedList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TForwardingRuleAggregatedListTypeitems;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TForwardingRuleAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TForwardingRuleAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TForwardingRuleAggregatedListClass = Class of TForwardingRuleAggregatedList;
{ --------------------------------------------------------------------
TForwardingRuleList
--------------------------------------------------------------------}
TForwardingRuleList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TForwardingRuleListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TForwardingRuleListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TForwardingRuleListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TForwardingRuleListClass = Class of TForwardingRuleList;
{ --------------------------------------------------------------------
TForwardingRulesScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
TForwardingRulesScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
Private
Fkey : String;
Fvalue : String;
Protected
//Property setters
Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property key : String Index 0 Read Fkey Write Setkey;
Property value : String Index 8 Read Fvalue Write Setvalue;
end;
TForwardingRulesScopedListTypewarningTypedataItemClass = Class of TForwardingRulesScopedListTypewarningTypedataItem;
{ --------------------------------------------------------------------
TForwardingRulesScopedListTypewarning
--------------------------------------------------------------------}
TForwardingRulesScopedListTypewarning = Class(TGoogleBaseObject)
Private
Fcode : String;
Fdata : TForwardingRulesScopedListTypewarningTypedataArray;
Fmessage : String;
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
Procedure Setdata(AIndex : Integer; const AValue : TForwardingRulesScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
Property data : TForwardingRulesScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
Property message : String Index 16 Read Fmessage Write Setmessage;
end;
TForwardingRulesScopedListTypewarningClass = Class of TForwardingRulesScopedListTypewarning;
{ --------------------------------------------------------------------
TForwardingRulesScopedList
--------------------------------------------------------------------}
TForwardingRulesScopedList = Class(TGoogleBaseObject)
Private
FforwardingRules : TForwardingRulesScopedListTypeforwardingRulesArray;
Fwarning : TForwardingRulesScopedListTypewarning;
Protected
//Property setters
Procedure SetforwardingRules(AIndex : Integer; const AValue : TForwardingRulesScopedListTypeforwardingRulesArray); virtual;
Procedure Setwarning(AIndex : Integer; const AValue : TForwardingRulesScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property forwardingRules : TForwardingRulesScopedListTypeforwardingRulesArray Index 0 Read FforwardingRules Write SetforwardingRules;
Property warning : TForwardingRulesScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
end;
TForwardingRulesScopedListClass = Class of TForwardingRulesScopedList;
{ --------------------------------------------------------------------
THealthCheckReference
--------------------------------------------------------------------}
THealthCheckReference = Class(TGoogleBaseObject)
Private
FhealthCheck : String;
Protected
//Property setters
Procedure SethealthCheck(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property healthCheck : String Index 0 Read FhealthCheck Write SethealthCheck;
end;
THealthCheckReferenceClass = Class of THealthCheckReference;
{ --------------------------------------------------------------------
THealthStatus
--------------------------------------------------------------------}
THealthStatus = Class(TGoogleBaseObject)
Private
FhealthState : String;
Finstance : String;
FipAddress : String;
Fport : integer;
Protected
//Property setters
Procedure SethealthState(AIndex : Integer; const AValue : String); virtual;
Procedure Setinstance(AIndex : Integer; const AValue : String); virtual;
Procedure SetipAddress(AIndex : Integer; const AValue : String); virtual;
Procedure Setport(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property healthState : String Index 0 Read FhealthState Write SethealthState;
Property instance : String Index 8 Read Finstance Write Setinstance;
Property ipAddress : String Index 16 Read FipAddress Write SetipAddress;
Property port : integer Index 24 Read Fport Write Setport;
end;
THealthStatusClass = Class of THealthStatus;
{ --------------------------------------------------------------------
THostRule
--------------------------------------------------------------------}
THostRule = Class(TGoogleBaseObject)
Private
Fdescription : String;
Fhosts : TStringArray;
FpathMatcher : String;
Protected
//Property setters
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Sethosts(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetpathMatcher(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property description : String Index 0 Read Fdescription Write Setdescription;
Property hosts : TStringArray Index 8 Read Fhosts Write Sethosts;
Property pathMatcher : String Index 16 Read FpathMatcher Write SetpathMatcher;
end;
THostRuleClass = Class of THostRule;
{ --------------------------------------------------------------------
THttpHealthCheck
--------------------------------------------------------------------}
THttpHealthCheck = Class(TGoogleBaseObject)
Private
FcheckIntervalSec : integer;
FcreationTimestamp : String;
Fdescription : String;
FhealthyThreshold : integer;
Fhost : String;
Fid : String;
Fkind : String;
Fname : String;
Fport : integer;
FrequestPath : String;
FselfLink : String;
FtimeoutSec : integer;
FunhealthyThreshold : integer;
Protected
//Property setters
Procedure SetcheckIntervalSec(AIndex : Integer; const AValue : integer); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SethealthyThreshold(AIndex : Integer; const AValue : integer); virtual;
Procedure Sethost(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setport(AIndex : Integer; const AValue : integer); virtual;
Procedure SetrequestPath(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SettimeoutSec(AIndex : Integer; const AValue : integer); virtual;
Procedure SetunhealthyThreshold(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property checkIntervalSec : integer Index 0 Read FcheckIntervalSec Write SetcheckIntervalSec;
Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
Property description : String Index 16 Read Fdescription Write Setdescription;
Property healthyThreshold : integer Index 24 Read FhealthyThreshold Write SethealthyThreshold;
Property host : String Index 32 Read Fhost Write Sethost;
Property id : String Index 40 Read Fid Write Setid;
Property kind : String Index 48 Read Fkind Write Setkind;
Property name : String Index 56 Read Fname Write Setname;
Property port : integer Index 64 Read Fport Write Setport;
Property requestPath : String Index 72 Read FrequestPath Write SetrequestPath;
Property selfLink : String Index 80 Read FselfLink Write SetselfLink;
Property timeoutSec : integer Index 88 Read FtimeoutSec Write SettimeoutSec;
Property unhealthyThreshold : integer Index 96 Read FunhealthyThreshold Write SetunhealthyThreshold;
end;
THttpHealthCheckClass = Class of THttpHealthCheck;
{ --------------------------------------------------------------------
THttpHealthCheckList
--------------------------------------------------------------------}
THttpHealthCheckList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : THttpHealthCheckListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : THttpHealthCheckListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : THttpHealthCheckListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
THttpHealthCheckListClass = Class of THttpHealthCheckList;
{ --------------------------------------------------------------------
THttpsHealthCheck
--------------------------------------------------------------------}
THttpsHealthCheck = Class(TGoogleBaseObject)
Private
FcheckIntervalSec : integer;
FcreationTimestamp : String;
Fdescription : String;
FhealthyThreshold : integer;
Fhost : String;
Fid : String;
Fkind : String;
Fname : String;
Fport : integer;
FrequestPath : String;
FselfLink : String;
FtimeoutSec : integer;
FunhealthyThreshold : integer;
Protected
//Property setters
Procedure SetcheckIntervalSec(AIndex : Integer; const AValue : integer); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SethealthyThreshold(AIndex : Integer; const AValue : integer); virtual;
Procedure Sethost(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setport(AIndex : Integer; const AValue : integer); virtual;
Procedure SetrequestPath(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SettimeoutSec(AIndex : Integer; const AValue : integer); virtual;
Procedure SetunhealthyThreshold(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property checkIntervalSec : integer Index 0 Read FcheckIntervalSec Write SetcheckIntervalSec;
Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
Property description : String Index 16 Read Fdescription Write Setdescription;
Property healthyThreshold : integer Index 24 Read FhealthyThreshold Write SethealthyThreshold;
Property host : String Index 32 Read Fhost Write Sethost;
Property id : String Index 40 Read Fid Write Setid;
Property kind : String Index 48 Read Fkind Write Setkind;
Property name : String Index 56 Read Fname Write Setname;
Property port : integer Index 64 Read Fport Write Setport;
Property requestPath : String Index 72 Read FrequestPath Write SetrequestPath;
Property selfLink : String Index 80 Read FselfLink Write SetselfLink;
Property timeoutSec : integer Index 88 Read FtimeoutSec Write SettimeoutSec;
Property unhealthyThreshold : integer Index 96 Read FunhealthyThreshold Write SetunhealthyThreshold;
end;
THttpsHealthCheckClass = Class of THttpsHealthCheck;
{ --------------------------------------------------------------------
THttpsHealthCheckList
--------------------------------------------------------------------}
THttpsHealthCheckList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : THttpsHealthCheckListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : THttpsHealthCheckListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : THttpsHealthCheckListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
THttpsHealthCheckListClass = Class of THttpsHealthCheckList;
{ --------------------------------------------------------------------
TImageTyperawDisk
--------------------------------------------------------------------}
TImageTyperawDisk = Class(TGoogleBaseObject)
Private
FcontainerType : String;
Fsha1Checksum : String;
Fsource : String;
Protected
//Property setters
Procedure SetcontainerType(AIndex : Integer; const AValue : String); virtual;
Procedure Setsha1Checksum(AIndex : Integer; const AValue : String); virtual;
Procedure Setsource(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property containerType : String Index 0 Read FcontainerType Write SetcontainerType;
Property sha1Checksum : String Index 8 Read Fsha1Checksum Write Setsha1Checksum;
Property source : String Index 16 Read Fsource Write Setsource;
end;
TImageTyperawDiskClass = Class of TImageTyperawDisk;
{ --------------------------------------------------------------------
TImage
--------------------------------------------------------------------}
TImage = Class(TGoogleBaseObject)
Private
FarchiveSizeBytes : String;
FcreationTimestamp : String;
Fdeprecated : TDeprecationStatus;
Fdescription : String;
FdiskSizeGb : String;
Ffamily : String;
Fid : String;
Fkind : String;
Flicenses : TStringArray;
Fname : String;
FrawDisk : TImageTyperawDisk;
FselfLink : String;
FsourceDisk : String;
FsourceDiskId : String;
FsourceType : String;
Fstatus : String;
Protected
//Property setters
Procedure SetarchiveSizeBytes(AIndex : Integer; const AValue : String); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetdiskSizeGb(AIndex : Integer; const AValue : String); virtual;
Procedure Setfamily(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setlicenses(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetrawDisk(AIndex : Integer; const AValue : TImageTyperawDisk); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetsourceDisk(AIndex : Integer; const AValue : String); virtual;
Procedure SetsourceDiskId(AIndex : Integer; const AValue : String); virtual;
Procedure SetsourceType(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(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 archiveSizeBytes : String Index 0 Read FarchiveSizeBytes Write SetarchiveSizeBytes;
Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
Property deprecated : TDeprecationStatus Index 16 Read Fdeprecated Write Setdeprecated;
Property description : String Index 24 Read Fdescription Write Setdescription;
Property diskSizeGb : String Index 32 Read FdiskSizeGb Write SetdiskSizeGb;
Property family : String Index 40 Read Ffamily Write Setfamily;
Property id : String Index 48 Read Fid Write Setid;
Property kind : String Index 56 Read Fkind Write Setkind;
Property licenses : TStringArray Index 64 Read Flicenses Write Setlicenses;
Property name : String Index 72 Read Fname Write Setname;
Property rawDisk : TImageTyperawDisk Index 80 Read FrawDisk Write SetrawDisk;
Property selfLink : String Index 88 Read FselfLink Write SetselfLink;
Property sourceDisk : String Index 96 Read FsourceDisk Write SetsourceDisk;
Property sourceDiskId : String Index 104 Read FsourceDiskId Write SetsourceDiskId;
Property sourceType : String Index 112 Read FsourceType Write SetsourceType;
Property status : String Index 120 Read Fstatus Write Setstatus;
end;
TImageClass = Class of TImage;
{ --------------------------------------------------------------------
TImageList
--------------------------------------------------------------------}
TImageList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TImageListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TImageListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TImageListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TImageListClass = Class of TImageList;
{ --------------------------------------------------------------------
TInstance
--------------------------------------------------------------------}
TInstance = Class(TGoogleBaseObject)
Private
FcanIpForward : boolean;
FcpuPlatform : String;
FcreationTimestamp : String;
Fdescription : String;
Fdisks : TInstanceTypedisksArray;
Fid : String;
Fkind : String;
FmachineType : String;
Fmetadata : TMetadata;
Fname : String;
FnetworkInterfaces : TInstanceTypenetworkInterfacesArray;
Fscheduling : TScheduling;
FselfLink : String;
FserviceAccounts : TInstanceTypeserviceAccountsArray;
Fstatus : String;
FstatusMessage : String;
Ftags : TTags;
Fzone : String;
Protected
//Property setters
Procedure SetcanIpForward(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetcpuPlatform(AIndex : Integer; const AValue : String); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setdisks(AIndex : Integer; const AValue : TInstanceTypedisksArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetmachineType(AIndex : Integer; const AValue : String); virtual;
Procedure Setmetadata(AIndex : Integer; const AValue : TMetadata); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetnetworkInterfaces(AIndex : Integer; const AValue : TInstanceTypenetworkInterfacesArray); virtual;
Procedure Setscheduling(AIndex : Integer; const AValue : TScheduling); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetserviceAccounts(AIndex : Integer; const AValue : TInstanceTypeserviceAccountsArray); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure SetstatusMessage(AIndex : Integer; const AValue : String); virtual;
Procedure Settags(AIndex : Integer; const AValue : TTags); virtual;
Procedure Setzone(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 canIpForward : boolean Index 0 Read FcanIpForward Write SetcanIpForward;
Property cpuPlatform : String Index 8 Read FcpuPlatform Write SetcpuPlatform;
Property creationTimestamp : String Index 16 Read FcreationTimestamp Write SetcreationTimestamp;
Property description : String Index 24 Read Fdescription Write Setdescription;
Property disks : TInstanceTypedisksArray Index 32 Read Fdisks Write Setdisks;
Property id : String Index 40 Read Fid Write Setid;
Property kind : String Index 48 Read Fkind Write Setkind;
Property machineType : String Index 56 Read FmachineType Write SetmachineType;
Property metadata : TMetadata Index 64 Read Fmetadata Write Setmetadata;
Property name : String Index 72 Read Fname Write Setname;
Property networkInterfaces : TInstanceTypenetworkInterfacesArray Index 80 Read FnetworkInterfaces Write SetnetworkInterfaces;
Property scheduling : TScheduling Index 88 Read Fscheduling Write Setscheduling;
Property selfLink : String Index 96 Read FselfLink Write SetselfLink;
Property serviceAccounts : TInstanceTypeserviceAccountsArray Index 104 Read FserviceAccounts Write SetserviceAccounts;
Property status : String Index 112 Read Fstatus Write Setstatus;
Property statusMessage : String Index 120 Read FstatusMessage Write SetstatusMessage;
Property tags : TTags Index 128 Read Ftags Write Settags;
Property zone : String Index 136 Read Fzone Write Setzone;
end;
TInstanceClass = Class of TInstance;
{ --------------------------------------------------------------------
TInstanceAggregatedListTypeitems
--------------------------------------------------------------------}
TInstanceAggregatedListTypeitems = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TInstanceAggregatedListTypeitemsClass = Class of TInstanceAggregatedListTypeitems;
{ --------------------------------------------------------------------
TInstanceAggregatedList
--------------------------------------------------------------------}
TInstanceAggregatedList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TInstanceAggregatedListTypeitems;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TInstanceAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TInstanceAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TInstanceAggregatedListClass = Class of TInstanceAggregatedList;
{ --------------------------------------------------------------------
TInstanceGroup
--------------------------------------------------------------------}
TInstanceGroup = Class(TGoogleBaseObject)
Private
FcreationTimestamp : String;
Fdescription : String;
Ffingerprint : String;
Fid : String;
Fkind : String;
Fname : String;
FnamedPorts : TInstanceGroupTypenamedPortsArray;
Fnetwork : String;
FselfLink : String;
Fsize : integer;
Fsubnetwork : String;
Fzone : String;
Protected
//Property setters
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetnamedPorts(AIndex : Integer; const AValue : TInstanceGroupTypenamedPortsArray); virtual;
Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setsize(AIndex : Integer; const AValue : integer); virtual;
Procedure Setsubnetwork(AIndex : Integer; const AValue : String); virtual;
Procedure Setzone(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 creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
Property description : String Index 8 Read Fdescription Write Setdescription;
Property fingerprint : String Index 16 Read Ffingerprint Write Setfingerprint;
Property id : String Index 24 Read Fid Write Setid;
Property kind : String Index 32 Read Fkind Write Setkind;
Property name : String Index 40 Read Fname Write Setname;
Property namedPorts : TInstanceGroupTypenamedPortsArray Index 48 Read FnamedPorts Write SetnamedPorts;
Property network : String Index 56 Read Fnetwork Write Setnetwork;
Property selfLink : String Index 64 Read FselfLink Write SetselfLink;
Property size : integer Index 72 Read Fsize Write Setsize;
Property subnetwork : String Index 80 Read Fsubnetwork Write Setsubnetwork;
Property zone : String Index 88 Read Fzone Write Setzone;
end;
TInstanceGroupClass = Class of TInstanceGroup;
{ --------------------------------------------------------------------
TInstanceGroupAggregatedListTypeitems
--------------------------------------------------------------------}
TInstanceGroupAggregatedListTypeitems = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TInstanceGroupAggregatedListTypeitemsClass = Class of TInstanceGroupAggregatedListTypeitems;
{ --------------------------------------------------------------------
TInstanceGroupAggregatedList
--------------------------------------------------------------------}
TInstanceGroupAggregatedList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TInstanceGroupAggregatedListTypeitems;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TInstanceGroupAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TInstanceGroupAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TInstanceGroupAggregatedListClass = Class of TInstanceGroupAggregatedList;
{ --------------------------------------------------------------------
TInstanceGroupList
--------------------------------------------------------------------}
TInstanceGroupList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TInstanceGroupListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TInstanceGroupListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TInstanceGroupListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TInstanceGroupListClass = Class of TInstanceGroupList;
{ --------------------------------------------------------------------
TInstanceGroupManager
--------------------------------------------------------------------}
TInstanceGroupManager = Class(TGoogleBaseObject)
Private
FbaseInstanceName : String;
FcreationTimestamp : String;
FcurrentActions : TInstanceGroupManagerActionsSummary;
Fdescription : String;
Ffingerprint : String;
Fid : String;
FinstanceGroup : String;
FinstanceTemplate : String;
Fkind : String;
Fname : String;
FnamedPorts : TInstanceGroupManagerTypenamedPortsArray;
FselfLink : String;
FtargetPools : TStringArray;
FtargetSize : integer;
Fzone : String;
Protected
//Property setters
Procedure SetbaseInstanceName(AIndex : Integer; const AValue : String); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure SetcurrentActions(AIndex : Integer; const AValue : TInstanceGroupManagerActionsSummary); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetinstanceGroup(AIndex : Integer; const AValue : String); virtual;
Procedure SetinstanceTemplate(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetnamedPorts(AIndex : Integer; const AValue : TInstanceGroupManagerTypenamedPortsArray); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SettargetPools(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SettargetSize(AIndex : Integer; const AValue : integer); virtual;
Procedure Setzone(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 baseInstanceName : String Index 0 Read FbaseInstanceName Write SetbaseInstanceName;
Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
Property currentActions : TInstanceGroupManagerActionsSummary Index 16 Read FcurrentActions Write SetcurrentActions;
Property description : String Index 24 Read Fdescription Write Setdescription;
Property fingerprint : String Index 32 Read Ffingerprint Write Setfingerprint;
Property id : String Index 40 Read Fid Write Setid;
Property instanceGroup : String Index 48 Read FinstanceGroup Write SetinstanceGroup;
Property instanceTemplate : String Index 56 Read FinstanceTemplate Write SetinstanceTemplate;
Property kind : String Index 64 Read Fkind Write Setkind;
Property name : String Index 72 Read Fname Write Setname;
Property namedPorts : TInstanceGroupManagerTypenamedPortsArray Index 80 Read FnamedPorts Write SetnamedPorts;
Property selfLink : String Index 88 Read FselfLink Write SetselfLink;
Property targetPools : TStringArray Index 96 Read FtargetPools Write SettargetPools;
Property targetSize : integer Index 104 Read FtargetSize Write SettargetSize;
Property zone : String Index 112 Read Fzone Write Setzone;
end;
TInstanceGroupManagerClass = Class of TInstanceGroupManager;
{ --------------------------------------------------------------------
TInstanceGroupManagerActionsSummary
--------------------------------------------------------------------}
TInstanceGroupManagerActionsSummary = Class(TGoogleBaseObject)
Private
Fabandoning : integer;
Fcreating : integer;
Fdeleting : integer;
Fnone : integer;
Frecreating : integer;
Frefreshing : integer;
Frestarting : integer;
Protected
//Property setters
Procedure Setabandoning(AIndex : Integer; const AValue : integer); virtual;
Procedure Setcreating(AIndex : Integer; const AValue : integer); virtual;
Procedure Setdeleting(AIndex : Integer; const AValue : integer); virtual;
Procedure Setnone(AIndex : Integer; const AValue : integer); virtual;
Procedure Setrecreating(AIndex : Integer; const AValue : integer); virtual;
Procedure Setrefreshing(AIndex : Integer; const AValue : integer); virtual;
Procedure Setrestarting(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property abandoning : integer Index 0 Read Fabandoning Write Setabandoning;
Property creating : integer Index 8 Read Fcreating Write Setcreating;
Property deleting : integer Index 16 Read Fdeleting Write Setdeleting;
Property none : integer Index 24 Read Fnone Write Setnone;
Property recreating : integer Index 32 Read Frecreating Write Setrecreating;
Property refreshing : integer Index 40 Read Frefreshing Write Setrefreshing;
Property restarting : integer Index 48 Read Frestarting Write Setrestarting;
end;
TInstanceGroupManagerActionsSummaryClass = Class of TInstanceGroupManagerActionsSummary;
{ --------------------------------------------------------------------
TInstanceGroupManagerAggregatedListTypeitems
--------------------------------------------------------------------}
TInstanceGroupManagerAggregatedListTypeitems = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TInstanceGroupManagerAggregatedListTypeitemsClass = Class of TInstanceGroupManagerAggregatedListTypeitems;
{ --------------------------------------------------------------------
TInstanceGroupManagerAggregatedList
--------------------------------------------------------------------}
TInstanceGroupManagerAggregatedList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TInstanceGroupManagerAggregatedListTypeitems;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TInstanceGroupManagerAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TInstanceGroupManagerAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TInstanceGroupManagerAggregatedListClass = Class of TInstanceGroupManagerAggregatedList;
{ --------------------------------------------------------------------
TInstanceGroupManagerList
--------------------------------------------------------------------}
TInstanceGroupManagerList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TInstanceGroupManagerListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TInstanceGroupManagerListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TInstanceGroupManagerListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TInstanceGroupManagerListClass = Class of TInstanceGroupManagerList;
{ --------------------------------------------------------------------
TInstanceGroupManagersAbandonInstancesRequest
--------------------------------------------------------------------}
TInstanceGroupManagersAbandonInstancesRequest = Class(TGoogleBaseObject)
Private
Finstances : TStringArray;
Protected
//Property setters
Procedure Setinstances(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property instances : TStringArray Index 0 Read Finstances Write Setinstances;
end;
TInstanceGroupManagersAbandonInstancesRequestClass = Class of TInstanceGroupManagersAbandonInstancesRequest;
{ --------------------------------------------------------------------
TInstanceGroupManagersDeleteInstancesRequest
--------------------------------------------------------------------}
TInstanceGroupManagersDeleteInstancesRequest = Class(TGoogleBaseObject)
Private
Finstances : TStringArray;
Protected
//Property setters
Procedure Setinstances(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property instances : TStringArray Index 0 Read Finstances Write Setinstances;
end;
TInstanceGroupManagersDeleteInstancesRequestClass = Class of TInstanceGroupManagersDeleteInstancesRequest;
{ --------------------------------------------------------------------
TInstanceGroupManagersListManagedInstancesResponse
--------------------------------------------------------------------}
TInstanceGroupManagersListManagedInstancesResponse = Class(TGoogleBaseObject)
Private
FmanagedInstances : TInstanceGroupManagersListManagedInstancesResponseTypemanagedInstancesArray;
Protected
//Property setters
Procedure SetmanagedInstances(AIndex : Integer; const AValue : TInstanceGroupManagersListManagedInstancesResponseTypemanagedInstancesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property managedInstances : TInstanceGroupManagersListManagedInstancesResponseTypemanagedInstancesArray Index 0 Read FmanagedInstances Write SetmanagedInstances;
end;
TInstanceGroupManagersListManagedInstancesResponseClass = Class of TInstanceGroupManagersListManagedInstancesResponse;
{ --------------------------------------------------------------------
TInstanceGroupManagersRecreateInstancesRequest
--------------------------------------------------------------------}
TInstanceGroupManagersRecreateInstancesRequest = Class(TGoogleBaseObject)
Private
Finstances : TStringArray;
Protected
//Property setters
Procedure Setinstances(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property instances : TStringArray Index 0 Read Finstances Write Setinstances;
end;
TInstanceGroupManagersRecreateInstancesRequestClass = Class of TInstanceGroupManagersRecreateInstancesRequest;
{ --------------------------------------------------------------------
TInstanceGroupManagersScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
TInstanceGroupManagersScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
Private
Fkey : String;
Fvalue : String;
Protected
//Property setters
Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property key : String Index 0 Read Fkey Write Setkey;
Property value : String Index 8 Read Fvalue Write Setvalue;
end;
TInstanceGroupManagersScopedListTypewarningTypedataItemClass = Class of TInstanceGroupManagersScopedListTypewarningTypedataItem;
{ --------------------------------------------------------------------
TInstanceGroupManagersScopedListTypewarning
--------------------------------------------------------------------}
TInstanceGroupManagersScopedListTypewarning = Class(TGoogleBaseObject)
Private
Fcode : String;
Fdata : TInstanceGroupManagersScopedListTypewarningTypedataArray;
Fmessage : String;
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
Procedure Setdata(AIndex : Integer; const AValue : TInstanceGroupManagersScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
Property data : TInstanceGroupManagersScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
Property message : String Index 16 Read Fmessage Write Setmessage;
end;
TInstanceGroupManagersScopedListTypewarningClass = Class of TInstanceGroupManagersScopedListTypewarning;
{ --------------------------------------------------------------------
TInstanceGroupManagersScopedList
--------------------------------------------------------------------}
TInstanceGroupManagersScopedList = Class(TGoogleBaseObject)
Private
FinstanceGroupManagers : TInstanceGroupManagersScopedListTypeinstanceGroupManagersArray;
Fwarning : TInstanceGroupManagersScopedListTypewarning;
Protected
//Property setters
Procedure SetinstanceGroupManagers(AIndex : Integer; const AValue : TInstanceGroupManagersScopedListTypeinstanceGroupManagersArray); virtual;
Procedure Setwarning(AIndex : Integer; const AValue : TInstanceGroupManagersScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property instanceGroupManagers : TInstanceGroupManagersScopedListTypeinstanceGroupManagersArray Index 0 Read FinstanceGroupManagers Write SetinstanceGroupManagers;
Property warning : TInstanceGroupManagersScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
end;
TInstanceGroupManagersScopedListClass = Class of TInstanceGroupManagersScopedList;
{ --------------------------------------------------------------------
TInstanceGroupManagersSetInstanceTemplateRequest
--------------------------------------------------------------------}
TInstanceGroupManagersSetInstanceTemplateRequest = Class(TGoogleBaseObject)
Private
FinstanceTemplate : String;
Protected
//Property setters
Procedure SetinstanceTemplate(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property instanceTemplate : String Index 0 Read FinstanceTemplate Write SetinstanceTemplate;
end;
TInstanceGroupManagersSetInstanceTemplateRequestClass = Class of TInstanceGroupManagersSetInstanceTemplateRequest;
{ --------------------------------------------------------------------
TInstanceGroupManagersSetTargetPoolsRequest
--------------------------------------------------------------------}
TInstanceGroupManagersSetTargetPoolsRequest = Class(TGoogleBaseObject)
Private
Ffingerprint : String;
FtargetPools : TStringArray;
Protected
//Property setters
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
Procedure SettargetPools(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property fingerprint : String Index 0 Read Ffingerprint Write Setfingerprint;
Property targetPools : TStringArray Index 8 Read FtargetPools Write SettargetPools;
end;
TInstanceGroupManagersSetTargetPoolsRequestClass = Class of TInstanceGroupManagersSetTargetPoolsRequest;
{ --------------------------------------------------------------------
TInstanceGroupsAddInstancesRequest
--------------------------------------------------------------------}
TInstanceGroupsAddInstancesRequest = Class(TGoogleBaseObject)
Private
Finstances : TInstanceGroupsAddInstancesRequestTypeinstancesArray;
Protected
//Property setters
Procedure Setinstances(AIndex : Integer; const AValue : TInstanceGroupsAddInstancesRequestTypeinstancesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property instances : TInstanceGroupsAddInstancesRequestTypeinstancesArray Index 0 Read Finstances Write Setinstances;
end;
TInstanceGroupsAddInstancesRequestClass = Class of TInstanceGroupsAddInstancesRequest;
{ --------------------------------------------------------------------
TInstanceGroupsListInstances
--------------------------------------------------------------------}
TInstanceGroupsListInstances = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TInstanceGroupsListInstancesTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TInstanceGroupsListInstancesTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TInstanceGroupsListInstancesTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TInstanceGroupsListInstancesClass = Class of TInstanceGroupsListInstances;
{ --------------------------------------------------------------------
TInstanceGroupsListInstancesRequest
--------------------------------------------------------------------}
TInstanceGroupsListInstancesRequest = Class(TGoogleBaseObject)
Private
FinstanceState : String;
Protected
//Property setters
Procedure SetinstanceState(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property instanceState : String Index 0 Read FinstanceState Write SetinstanceState;
end;
TInstanceGroupsListInstancesRequestClass = Class of TInstanceGroupsListInstancesRequest;
{ --------------------------------------------------------------------
TInstanceGroupsRemoveInstancesRequest
--------------------------------------------------------------------}
TInstanceGroupsRemoveInstancesRequest = Class(TGoogleBaseObject)
Private
Finstances : TInstanceGroupsRemoveInstancesRequestTypeinstancesArray;
Protected
//Property setters
Procedure Setinstances(AIndex : Integer; const AValue : TInstanceGroupsRemoveInstancesRequestTypeinstancesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property instances : TInstanceGroupsRemoveInstancesRequestTypeinstancesArray Index 0 Read Finstances Write Setinstances;
end;
TInstanceGroupsRemoveInstancesRequestClass = Class of TInstanceGroupsRemoveInstancesRequest;
{ --------------------------------------------------------------------
TInstanceGroupsScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
TInstanceGroupsScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
Private
Fkey : String;
Fvalue : String;
Protected
//Property setters
Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property key : String Index 0 Read Fkey Write Setkey;
Property value : String Index 8 Read Fvalue Write Setvalue;
end;
TInstanceGroupsScopedListTypewarningTypedataItemClass = Class of TInstanceGroupsScopedListTypewarningTypedataItem;
{ --------------------------------------------------------------------
TInstanceGroupsScopedListTypewarning
--------------------------------------------------------------------}
TInstanceGroupsScopedListTypewarning = Class(TGoogleBaseObject)
Private
Fcode : String;
Fdata : TInstanceGroupsScopedListTypewarningTypedataArray;
Fmessage : String;
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
Procedure Setdata(AIndex : Integer; const AValue : TInstanceGroupsScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
Property data : TInstanceGroupsScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
Property message : String Index 16 Read Fmessage Write Setmessage;
end;
TInstanceGroupsScopedListTypewarningClass = Class of TInstanceGroupsScopedListTypewarning;
{ --------------------------------------------------------------------
TInstanceGroupsScopedList
--------------------------------------------------------------------}
TInstanceGroupsScopedList = Class(TGoogleBaseObject)
Private
FinstanceGroups : TInstanceGroupsScopedListTypeinstanceGroupsArray;
Fwarning : TInstanceGroupsScopedListTypewarning;
Protected
//Property setters
Procedure SetinstanceGroups(AIndex : Integer; const AValue : TInstanceGroupsScopedListTypeinstanceGroupsArray); virtual;
Procedure Setwarning(AIndex : Integer; const AValue : TInstanceGroupsScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property instanceGroups : TInstanceGroupsScopedListTypeinstanceGroupsArray Index 0 Read FinstanceGroups Write SetinstanceGroups;
Property warning : TInstanceGroupsScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
end;
TInstanceGroupsScopedListClass = Class of TInstanceGroupsScopedList;
{ --------------------------------------------------------------------
TInstanceGroupsSetNamedPortsRequest
--------------------------------------------------------------------}
TInstanceGroupsSetNamedPortsRequest = Class(TGoogleBaseObject)
Private
Ffingerprint : String;
FnamedPorts : TInstanceGroupsSetNamedPortsRequestTypenamedPortsArray;
Protected
//Property setters
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
Procedure SetnamedPorts(AIndex : Integer; const AValue : TInstanceGroupsSetNamedPortsRequestTypenamedPortsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property fingerprint : String Index 0 Read Ffingerprint Write Setfingerprint;
Property namedPorts : TInstanceGroupsSetNamedPortsRequestTypenamedPortsArray Index 8 Read FnamedPorts Write SetnamedPorts;
end;
TInstanceGroupsSetNamedPortsRequestClass = Class of TInstanceGroupsSetNamedPortsRequest;
{ --------------------------------------------------------------------
TInstanceList
--------------------------------------------------------------------}
TInstanceList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TInstanceListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TInstanceListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TInstanceListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TInstanceListClass = Class of TInstanceList;
{ --------------------------------------------------------------------
TInstanceMoveRequest
--------------------------------------------------------------------}
TInstanceMoveRequest = Class(TGoogleBaseObject)
Private
FdestinationZone : String;
FtargetInstance : String;
Protected
//Property setters
Procedure SetdestinationZone(AIndex : Integer; const AValue : String); virtual;
Procedure SettargetInstance(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property destinationZone : String Index 0 Read FdestinationZone Write SetdestinationZone;
Property targetInstance : String Index 8 Read FtargetInstance Write SettargetInstance;
end;
TInstanceMoveRequestClass = Class of TInstanceMoveRequest;
{ --------------------------------------------------------------------
TInstanceProperties
--------------------------------------------------------------------}
TInstanceProperties = Class(TGoogleBaseObject)
Private
FcanIpForward : boolean;
Fdescription : String;
Fdisks : TInstancePropertiesTypedisksArray;
FmachineType : String;
Fmetadata : TMetadata;
FnetworkInterfaces : TInstancePropertiesTypenetworkInterfacesArray;
Fscheduling : TScheduling;
FserviceAccounts : TInstancePropertiesTypeserviceAccountsArray;
Ftags : TTags;
Protected
//Property setters
Procedure SetcanIpForward(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setdisks(AIndex : Integer; const AValue : TInstancePropertiesTypedisksArray); virtual;
Procedure SetmachineType(AIndex : Integer; const AValue : String); virtual;
Procedure Setmetadata(AIndex : Integer; const AValue : TMetadata); virtual;
Procedure SetnetworkInterfaces(AIndex : Integer; const AValue : TInstancePropertiesTypenetworkInterfacesArray); virtual;
Procedure Setscheduling(AIndex : Integer; const AValue : TScheduling); virtual;
Procedure SetserviceAccounts(AIndex : Integer; const AValue : TInstancePropertiesTypeserviceAccountsArray); virtual;
Procedure Settags(AIndex : Integer; const AValue : TTags); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property canIpForward : boolean Index 0 Read FcanIpForward Write SetcanIpForward;
Property description : String Index 8 Read Fdescription Write Setdescription;
Property disks : TInstancePropertiesTypedisksArray Index 16 Read Fdisks Write Setdisks;
Property machineType : String Index 24 Read FmachineType Write SetmachineType;
Property metadata : TMetadata Index 32 Read Fmetadata Write Setmetadata;
Property networkInterfaces : TInstancePropertiesTypenetworkInterfacesArray Index 40 Read FnetworkInterfaces Write SetnetworkInterfaces;
Property scheduling : TScheduling Index 48 Read Fscheduling Write Setscheduling;
Property serviceAccounts : TInstancePropertiesTypeserviceAccountsArray Index 56 Read FserviceAccounts Write SetserviceAccounts;
Property tags : TTags Index 64 Read Ftags Write Settags;
end;
TInstancePropertiesClass = Class of TInstanceProperties;
{ --------------------------------------------------------------------
TInstanceReference
--------------------------------------------------------------------}
TInstanceReference = Class(TGoogleBaseObject)
Private
Finstance : String;
Protected
//Property setters
Procedure Setinstance(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property instance : String Index 0 Read Finstance Write Setinstance;
end;
TInstanceReferenceClass = Class of TInstanceReference;
{ --------------------------------------------------------------------
TInstanceTemplate
--------------------------------------------------------------------}
TInstanceTemplate = Class(TGoogleBaseObject)
Private
FcreationTimestamp : String;
Fdescription : String;
Fid : String;
Fkind : String;
Fname : String;
Fproperties : TInstanceProperties;
FselfLink : String;
Protected
//Property setters
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setproperties(AIndex : Integer; const AValue : TInstanceProperties); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
Property description : String Index 8 Read Fdescription Write Setdescription;
Property id : String Index 16 Read Fid Write Setid;
Property kind : String Index 24 Read Fkind Write Setkind;
Property name : String Index 32 Read Fname Write Setname;
Property properties : TInstanceProperties Index 40 Read Fproperties Write Setproperties;
Property selfLink : String Index 48 Read FselfLink Write SetselfLink;
end;
TInstanceTemplateClass = Class of TInstanceTemplate;
{ --------------------------------------------------------------------
TInstanceTemplateList
--------------------------------------------------------------------}
TInstanceTemplateList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TInstanceTemplateListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TInstanceTemplateListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TInstanceTemplateListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TInstanceTemplateListClass = Class of TInstanceTemplateList;
{ --------------------------------------------------------------------
TInstanceWithNamedPorts
--------------------------------------------------------------------}
TInstanceWithNamedPorts = Class(TGoogleBaseObject)
Private
Finstance : String;
FnamedPorts : TInstanceWithNamedPortsTypenamedPortsArray;
Fstatus : String;
Protected
//Property setters
Procedure Setinstance(AIndex : Integer; const AValue : String); virtual;
Procedure SetnamedPorts(AIndex : Integer; const AValue : TInstanceWithNamedPortsTypenamedPortsArray); virtual;
Procedure Setstatus(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 instance : String Index 0 Read Finstance Write Setinstance;
Property namedPorts : TInstanceWithNamedPortsTypenamedPortsArray Index 8 Read FnamedPorts Write SetnamedPorts;
Property status : String Index 16 Read Fstatus Write Setstatus;
end;
TInstanceWithNamedPortsClass = Class of TInstanceWithNamedPorts;
{ --------------------------------------------------------------------
TInstancesScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
TInstancesScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
Private
Fkey : String;
Fvalue : String;
Protected
//Property setters
Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property key : String Index 0 Read Fkey Write Setkey;
Property value : String Index 8 Read Fvalue Write Setvalue;
end;
TInstancesScopedListTypewarningTypedataItemClass = Class of TInstancesScopedListTypewarningTypedataItem;
{ --------------------------------------------------------------------
TInstancesScopedListTypewarning
--------------------------------------------------------------------}
TInstancesScopedListTypewarning = Class(TGoogleBaseObject)
Private
Fcode : String;
Fdata : TInstancesScopedListTypewarningTypedataArray;
Fmessage : String;
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
Procedure Setdata(AIndex : Integer; const AValue : TInstancesScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
Property data : TInstancesScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
Property message : String Index 16 Read Fmessage Write Setmessage;
end;
TInstancesScopedListTypewarningClass = Class of TInstancesScopedListTypewarning;
{ --------------------------------------------------------------------
TInstancesScopedList
--------------------------------------------------------------------}
TInstancesScopedList = Class(TGoogleBaseObject)
Private
Finstances : TInstancesScopedListTypeinstancesArray;
Fwarning : TInstancesScopedListTypewarning;
Protected
//Property setters
Procedure Setinstances(AIndex : Integer; const AValue : TInstancesScopedListTypeinstancesArray); virtual;
Procedure Setwarning(AIndex : Integer; const AValue : TInstancesScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property instances : TInstancesScopedListTypeinstancesArray Index 0 Read Finstances Write Setinstances;
Property warning : TInstancesScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
end;
TInstancesScopedListClass = Class of TInstancesScopedList;
{ --------------------------------------------------------------------
TInstancesSetMachineTypeRequest
--------------------------------------------------------------------}
TInstancesSetMachineTypeRequest = Class(TGoogleBaseObject)
Private
FmachineType : String;
Protected
//Property setters
Procedure SetmachineType(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property machineType : String Index 0 Read FmachineType Write SetmachineType;
end;
TInstancesSetMachineTypeRequestClass = Class of TInstancesSetMachineTypeRequest;
{ --------------------------------------------------------------------
TLicense
--------------------------------------------------------------------}
TLicense = Class(TGoogleBaseObject)
Private
FchargesUseFee : boolean;
Fkind : String;
Fname : String;
FselfLink : String;
Protected
//Property setters
Procedure SetchargesUseFee(AIndex : Integer; const AValue : boolean); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property chargesUseFee : boolean Index 0 Read FchargesUseFee Write SetchargesUseFee;
Property kind : String Index 8 Read Fkind Write Setkind;
Property name : String Index 16 Read Fname Write Setname;
Property selfLink : String Index 24 Read FselfLink Write SetselfLink;
end;
TLicenseClass = Class of TLicense;
{ --------------------------------------------------------------------
TMachineTypeTypescratchDisksItem
--------------------------------------------------------------------}
TMachineTypeTypescratchDisksItem = Class(TGoogleBaseObject)
Private
FdiskGb : integer;
Protected
//Property setters
Procedure SetdiskGb(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property diskGb : integer Index 0 Read FdiskGb Write SetdiskGb;
end;
TMachineTypeTypescratchDisksItemClass = Class of TMachineTypeTypescratchDisksItem;
{ --------------------------------------------------------------------
TMachineType
--------------------------------------------------------------------}
TMachineType = Class(TGoogleBaseObject)
Private
FcreationTimestamp : String;
Fdeprecated : TDeprecationStatus;
Fdescription : String;
FguestCpus : integer;
Fid : String;
FimageSpaceGb : integer;
Fkind : String;
FmaximumPersistentDisks : integer;
FmaximumPersistentDisksSizeGb : String;
FmemoryMb : integer;
Fname : String;
FscratchDisks : TMachineTypeTypescratchDisksArray;
FselfLink : String;
Fzone : String;
Protected
//Property setters
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetguestCpus(AIndex : Integer; const AValue : integer); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetimageSpaceGb(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetmaximumPersistentDisks(AIndex : Integer; const AValue : integer); virtual;
Procedure SetmaximumPersistentDisksSizeGb(AIndex : Integer; const AValue : String); virtual;
Procedure SetmemoryMb(AIndex : Integer; const AValue : integer); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetscratchDisks(AIndex : Integer; const AValue : TMachineTypeTypescratchDisksArray); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setzone(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 creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
Property deprecated : TDeprecationStatus Index 8 Read Fdeprecated Write Setdeprecated;
Property description : String Index 16 Read Fdescription Write Setdescription;
Property guestCpus : integer Index 24 Read FguestCpus Write SetguestCpus;
Property id : String Index 32 Read Fid Write Setid;
Property imageSpaceGb : integer Index 40 Read FimageSpaceGb Write SetimageSpaceGb;
Property kind : String Index 48 Read Fkind Write Setkind;
Property maximumPersistentDisks : integer Index 56 Read FmaximumPersistentDisks Write SetmaximumPersistentDisks;
Property maximumPersistentDisksSizeGb : String Index 64 Read FmaximumPersistentDisksSizeGb Write SetmaximumPersistentDisksSizeGb;
Property memoryMb : integer Index 72 Read FmemoryMb Write SetmemoryMb;
Property name : String Index 80 Read Fname Write Setname;
Property scratchDisks : TMachineTypeTypescratchDisksArray Index 88 Read FscratchDisks Write SetscratchDisks;
Property selfLink : String Index 96 Read FselfLink Write SetselfLink;
Property zone : String Index 104 Read Fzone Write Setzone;
end;
TMachineTypeClass = Class of TMachineType;
{ --------------------------------------------------------------------
TMachineTypeAggregatedListTypeitems
--------------------------------------------------------------------}
TMachineTypeAggregatedListTypeitems = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TMachineTypeAggregatedListTypeitemsClass = Class of TMachineTypeAggregatedListTypeitems;
{ --------------------------------------------------------------------
TMachineTypeAggregatedList
--------------------------------------------------------------------}
TMachineTypeAggregatedList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TMachineTypeAggregatedListTypeitems;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TMachineTypeAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TMachineTypeAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TMachineTypeAggregatedListClass = Class of TMachineTypeAggregatedList;
{ --------------------------------------------------------------------
TMachineTypeList
--------------------------------------------------------------------}
TMachineTypeList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TMachineTypeListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TMachineTypeListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TMachineTypeListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TMachineTypeListClass = Class of TMachineTypeList;
{ --------------------------------------------------------------------
TMachineTypesScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
TMachineTypesScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
Private
Fkey : String;
Fvalue : String;
Protected
//Property setters
Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property key : String Index 0 Read Fkey Write Setkey;
Property value : String Index 8 Read Fvalue Write Setvalue;
end;
TMachineTypesScopedListTypewarningTypedataItemClass = Class of TMachineTypesScopedListTypewarningTypedataItem;
{ --------------------------------------------------------------------
TMachineTypesScopedListTypewarning
--------------------------------------------------------------------}
TMachineTypesScopedListTypewarning = Class(TGoogleBaseObject)
Private
Fcode : String;
Fdata : TMachineTypesScopedListTypewarningTypedataArray;
Fmessage : String;
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
Procedure Setdata(AIndex : Integer; const AValue : TMachineTypesScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
Property data : TMachineTypesScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
Property message : String Index 16 Read Fmessage Write Setmessage;
end;
TMachineTypesScopedListTypewarningClass = Class of TMachineTypesScopedListTypewarning;
{ --------------------------------------------------------------------
TMachineTypesScopedList
--------------------------------------------------------------------}
TMachineTypesScopedList = Class(TGoogleBaseObject)
Private
FmachineTypes : TMachineTypesScopedListTypemachineTypesArray;
Fwarning : TMachineTypesScopedListTypewarning;
Protected
//Property setters
Procedure SetmachineTypes(AIndex : Integer; const AValue : TMachineTypesScopedListTypemachineTypesArray); virtual;
Procedure Setwarning(AIndex : Integer; const AValue : TMachineTypesScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property machineTypes : TMachineTypesScopedListTypemachineTypesArray Index 0 Read FmachineTypes Write SetmachineTypes;
Property warning : TMachineTypesScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
end;
TMachineTypesScopedListClass = Class of TMachineTypesScopedList;
{ --------------------------------------------------------------------
TManagedInstance
--------------------------------------------------------------------}
TManagedInstance = Class(TGoogleBaseObject)
Private
FcurrentAction : String;
Fid : String;
Finstance : String;
FinstanceStatus : String;
FlastAttempt : TManagedInstanceLastAttempt;
Protected
//Property setters
Procedure SetcurrentAction(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setinstance(AIndex : Integer; const AValue : String); virtual;
Procedure SetinstanceStatus(AIndex : Integer; const AValue : String); virtual;
Procedure SetlastAttempt(AIndex : Integer; const AValue : TManagedInstanceLastAttempt); virtual;
Public
Published
Property currentAction : String Index 0 Read FcurrentAction Write SetcurrentAction;
Property id : String Index 8 Read Fid Write Setid;
Property instance : String Index 16 Read Finstance Write Setinstance;
Property instanceStatus : String Index 24 Read FinstanceStatus Write SetinstanceStatus;
Property lastAttempt : TManagedInstanceLastAttempt Index 32 Read FlastAttempt Write SetlastAttempt;
end;
TManagedInstanceClass = Class of TManagedInstance;
{ --------------------------------------------------------------------
TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem
--------------------------------------------------------------------}
TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem = Class(TGoogleBaseObject)
Private
Fcode : String;
Flocation : String;
Fmessage : String;
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property code : String Index 0 Read Fcode Write Setcode;
Property location : String Index 8 Read Flocation Write Setlocation;
Property message : String Index 16 Read Fmessage Write Setmessage;
end;
TManagedInstanceLastAttemptTypeerrorsTypeerrorsItemClass = Class of TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem;
{ --------------------------------------------------------------------
TManagedInstanceLastAttemptTypeerrors
--------------------------------------------------------------------}
TManagedInstanceLastAttemptTypeerrors = Class(TGoogleBaseObject)
Private
Ferrors : TManagedInstanceLastAttemptTypeerrorsTypeerrorsArray;
Protected
//Property setters
Procedure Seterrors(AIndex : Integer; const AValue : TManagedInstanceLastAttemptTypeerrorsTypeerrorsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property errors : TManagedInstanceLastAttemptTypeerrorsTypeerrorsArray Index 0 Read Ferrors Write Seterrors;
end;
TManagedInstanceLastAttemptTypeerrorsClass = Class of TManagedInstanceLastAttemptTypeerrors;
{ --------------------------------------------------------------------
TManagedInstanceLastAttempt
--------------------------------------------------------------------}
TManagedInstanceLastAttempt = Class(TGoogleBaseObject)
Private
Ferrors : TManagedInstanceLastAttemptTypeerrors;
Protected
//Property setters
Procedure Seterrors(AIndex : Integer; const AValue : TManagedInstanceLastAttemptTypeerrors); virtual;
Public
Published
Property errors : TManagedInstanceLastAttemptTypeerrors Index 0 Read Ferrors Write Seterrors;
end;
TManagedInstanceLastAttemptClass = Class of TManagedInstanceLastAttempt;
{ --------------------------------------------------------------------
TMetadataTypeitemsItem
--------------------------------------------------------------------}
TMetadataTypeitemsItem = Class(TGoogleBaseObject)
Private
Fkey : String;
Fvalue : String;
Protected
//Property setters
Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property key : String Index 0 Read Fkey Write Setkey;
Property value : String Index 8 Read Fvalue Write Setvalue;
end;
TMetadataTypeitemsItemClass = Class of TMetadataTypeitemsItem;
{ --------------------------------------------------------------------
TMetadata
--------------------------------------------------------------------}
TMetadata = Class(TGoogleBaseObject)
Private
Ffingerprint : String;
Fitems : TMetadataTypeitemsArray;
Fkind : String;
Protected
//Property setters
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TMetadataTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property fingerprint : String Index 0 Read Ffingerprint Write Setfingerprint;
Property items : TMetadataTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
end;
TMetadataClass = Class of TMetadata;
{ --------------------------------------------------------------------
TNamedPort
--------------------------------------------------------------------}
TNamedPort = Class(TGoogleBaseObject)
Private
Fname : String;
Fport : integer;
Protected
//Property setters
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setport(AIndex : Integer; const AValue : integer); virtual;
Public
Published
Property name : String Index 0 Read Fname Write Setname;
Property port : integer Index 8 Read Fport Write Setport;
end;
TNamedPortClass = Class of TNamedPort;
{ --------------------------------------------------------------------
TNetwork
--------------------------------------------------------------------}
TNetwork = Class(TGoogleBaseObject)
Private
FIPv4Range : String;
FautoCreateSubnetworks : boolean;
FcreationTimestamp : String;
Fdescription : String;
FgatewayIPv4 : String;
Fid : String;
Fkind : String;
Fname : String;
FselfLink : String;
Fsubnetworks : TStringArray;
Protected
//Property setters
Procedure SetIPv4Range(AIndex : Integer; const AValue : String); virtual;
Procedure SetautoCreateSubnetworks(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetgatewayIPv4(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setsubnetworks(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property IPv4Range : String Index 0 Read FIPv4Range Write SetIPv4Range;
Property autoCreateSubnetworks : boolean Index 8 Read FautoCreateSubnetworks Write SetautoCreateSubnetworks;
Property creationTimestamp : String Index 16 Read FcreationTimestamp Write SetcreationTimestamp;
Property description : String Index 24 Read Fdescription Write Setdescription;
Property gatewayIPv4 : String Index 32 Read FgatewayIPv4 Write SetgatewayIPv4;
Property id : String Index 40 Read Fid Write Setid;
Property kind : String Index 48 Read Fkind Write Setkind;
Property name : String Index 56 Read Fname Write Setname;
Property selfLink : String Index 64 Read FselfLink Write SetselfLink;
Property subnetworks : TStringArray Index 72 Read Fsubnetworks Write Setsubnetworks;
end;
TNetworkClass = Class of TNetwork;
{ --------------------------------------------------------------------
TNetworkInterface
--------------------------------------------------------------------}
TNetworkInterface = Class(TGoogleBaseObject)
Private
FaccessConfigs : TNetworkInterfaceTypeaccessConfigsArray;
Fname : String;
Fnetwork : String;
FnetworkIP : String;
Fsubnetwork : String;
Protected
//Property setters
Procedure SetaccessConfigs(AIndex : Integer; const AValue : TNetworkInterfaceTypeaccessConfigsArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
Procedure SetnetworkIP(AIndex : Integer; const AValue : String); virtual;
Procedure Setsubnetwork(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 accessConfigs : TNetworkInterfaceTypeaccessConfigsArray Index 0 Read FaccessConfigs Write SetaccessConfigs;
Property name : String Index 8 Read Fname Write Setname;
Property network : String Index 16 Read Fnetwork Write Setnetwork;
Property networkIP : String Index 24 Read FnetworkIP Write SetnetworkIP;
Property subnetwork : String Index 32 Read Fsubnetwork Write Setsubnetwork;
end;
TNetworkInterfaceClass = Class of TNetworkInterface;
{ --------------------------------------------------------------------
TNetworkList
--------------------------------------------------------------------}
TNetworkList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TNetworkListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TNetworkListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TNetworkListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TNetworkListClass = Class of TNetworkList;
{ --------------------------------------------------------------------
TOperationTypeerrorTypeerrorsItem
--------------------------------------------------------------------}
TOperationTypeerrorTypeerrorsItem = Class(TGoogleBaseObject)
Private
Fcode : String;
Flocation : String;
Fmessage : String;
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property code : String Index 0 Read Fcode Write Setcode;
Property location : String Index 8 Read Flocation Write Setlocation;
Property message : String Index 16 Read Fmessage Write Setmessage;
end;
TOperationTypeerrorTypeerrorsItemClass = Class of TOperationTypeerrorTypeerrorsItem;
{ --------------------------------------------------------------------
TOperationTypeerror
--------------------------------------------------------------------}
TOperationTypeerror = Class(TGoogleBaseObject)
Private
Ferrors : TOperationTypeerrorTypeerrorsArray;
Protected
//Property setters
Procedure Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property errors : TOperationTypeerrorTypeerrorsArray Index 0 Read Ferrors Write Seterrors;
end;
TOperationTypeerrorClass = Class of TOperationTypeerror;
{ --------------------------------------------------------------------
TOperationTypewarningsItemTypedataItem
--------------------------------------------------------------------}
TOperationTypewarningsItemTypedataItem = Class(TGoogleBaseObject)
Private
Fkey : String;
Fvalue : String;
Protected
//Property setters
Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property key : String Index 0 Read Fkey Write Setkey;
Property value : String Index 8 Read Fvalue Write Setvalue;
end;
TOperationTypewarningsItemTypedataItemClass = Class of TOperationTypewarningsItemTypedataItem;
{ --------------------------------------------------------------------
TOperationTypewarningsItem
--------------------------------------------------------------------}
TOperationTypewarningsItem = Class(TGoogleBaseObject)
Private
Fcode : String;
Fdata : TOperationTypewarningsItemTypedataArray;
Fmessage : String;
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
Procedure Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray); virtual;
Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
Property data : TOperationTypewarningsItemTypedataArray Index 8 Read Fdata Write Setdata;
Property message : String Index 16 Read Fmessage Write Setmessage;
end;
TOperationTypewarningsItemClass = Class of TOperationTypewarningsItem;
{ --------------------------------------------------------------------
TOperation
--------------------------------------------------------------------}
TOperation = Class(TGoogleBaseObject)
Private
FclientOperationId : String;
FcreationTimestamp : String;
Fdescription : String;
FendTime : String;
Ferror : TOperationTypeerror;
FhttpErrorMessage : String;
FhttpErrorStatusCode : integer;
Fid : String;
FinsertTime : String;
Fkind : String;
Fname : String;
FoperationType : String;
Fprogress : integer;
Fregion : String;
FselfLink : String;
FstartTime : String;
Fstatus : String;
FstatusMessage : String;
FtargetId : String;
FtargetLink : String;
Fuser : String;
Fwarnings : TOperationTypewarningsArray;
Fzone : String;
Protected
//Property setters
Procedure SetclientOperationId(AIndex : Integer; const AValue : String); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetendTime(AIndex : Integer; const AValue : String); virtual;
Procedure Seterror(AIndex : Integer; const AValue : TOperationTypeerror); virtual;
Procedure SethttpErrorMessage(AIndex : Integer; const AValue : String); virtual;
Procedure SethttpErrorStatusCode(AIndex : Integer; const AValue : integer); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetinsertTime(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetoperationType(AIndex : Integer; const AValue : String); virtual;
Procedure Setprogress(AIndex : Integer; const AValue : integer); virtual;
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetstartTime(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure SetstatusMessage(AIndex : Integer; const AValue : String); virtual;
Procedure SettargetId(AIndex : Integer; const AValue : String); virtual;
Procedure SettargetLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setuser(AIndex : Integer; const AValue : String); virtual;
Procedure Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray); virtual;
Procedure Setzone(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 clientOperationId : String Index 0 Read FclientOperationId Write SetclientOperationId;
Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
Property description : String Index 16 Read Fdescription Write Setdescription;
Property endTime : String Index 24 Read FendTime Write SetendTime;
Property error : TOperationTypeerror Index 32 Read Ferror Write Seterror;
Property httpErrorMessage : String Index 40 Read FhttpErrorMessage Write SethttpErrorMessage;
Property httpErrorStatusCode : integer Index 48 Read FhttpErrorStatusCode Write SethttpErrorStatusCode;
Property id : String Index 56 Read Fid Write Setid;
Property insertTime : String Index 64 Read FinsertTime Write SetinsertTime;
Property kind : String Index 72 Read Fkind Write Setkind;
Property name : String Index 80 Read Fname Write Setname;
Property operationType : String Index 88 Read FoperationType Write SetoperationType;
Property progress : integer Index 96 Read Fprogress Write Setprogress;
Property region : String Index 104 Read Fregion Write Setregion;
Property selfLink : String Index 112 Read FselfLink Write SetselfLink;
Property startTime : String Index 120 Read FstartTime Write SetstartTime;
Property status : String Index 128 Read Fstatus Write Setstatus;
Property statusMessage : String Index 136 Read FstatusMessage Write SetstatusMessage;
Property targetId : String Index 144 Read FtargetId Write SettargetId;
Property targetLink : String Index 152 Read FtargetLink Write SettargetLink;
Property user : String Index 160 Read Fuser Write Setuser;
Property warnings : TOperationTypewarningsArray Index 168 Read Fwarnings Write Setwarnings;
Property zone : String Index 176 Read Fzone Write Setzone;
end;
TOperationClass = Class of TOperation;
{ --------------------------------------------------------------------
TOperationAggregatedListTypeitems
--------------------------------------------------------------------}
TOperationAggregatedListTypeitems = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TOperationAggregatedListTypeitemsClass = Class of TOperationAggregatedListTypeitems;
{ --------------------------------------------------------------------
TOperationAggregatedList
--------------------------------------------------------------------}
TOperationAggregatedList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TOperationAggregatedListTypeitems;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TOperationAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TOperationAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TOperationAggregatedListClass = Class of TOperationAggregatedList;
{ --------------------------------------------------------------------
TOperationList
--------------------------------------------------------------------}
TOperationList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TOperationListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TOperationListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TOperationListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TOperationListClass = Class of TOperationList;
{ --------------------------------------------------------------------
TOperationsScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
TOperationsScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
Private
Fkey : String;
Fvalue : String;
Protected
//Property setters
Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property key : String Index 0 Read Fkey Write Setkey;
Property value : String Index 8 Read Fvalue Write Setvalue;
end;
TOperationsScopedListTypewarningTypedataItemClass = Class of TOperationsScopedListTypewarningTypedataItem;
{ --------------------------------------------------------------------
TOperationsScopedListTypewarning
--------------------------------------------------------------------}
TOperationsScopedListTypewarning = Class(TGoogleBaseObject)
Private
Fcode : String;
Fdata : TOperationsScopedListTypewarningTypedataArray;
Fmessage : String;
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
Procedure Setdata(AIndex : Integer; const AValue : TOperationsScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
Property data : TOperationsScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
Property message : String Index 16 Read Fmessage Write Setmessage;
end;
TOperationsScopedListTypewarningClass = Class of TOperationsScopedListTypewarning;
{ --------------------------------------------------------------------
TOperationsScopedList
--------------------------------------------------------------------}
TOperationsScopedList = Class(TGoogleBaseObject)
Private
Foperations : TOperationsScopedListTypeoperationsArray;
Fwarning : TOperationsScopedListTypewarning;
Protected
//Property setters
Procedure Setoperations(AIndex : Integer; const AValue : TOperationsScopedListTypeoperationsArray); virtual;
Procedure Setwarning(AIndex : Integer; const AValue : TOperationsScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property operations : TOperationsScopedListTypeoperationsArray Index 0 Read Foperations Write Setoperations;
Property warning : TOperationsScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
end;
TOperationsScopedListClass = Class of TOperationsScopedList;
{ --------------------------------------------------------------------
TPathMatcher
--------------------------------------------------------------------}
TPathMatcher = Class(TGoogleBaseObject)
Private
FdefaultService : String;
Fdescription : String;
Fname : String;
FpathRules : TPathMatcherTypepathRulesArray;
Protected
//Property setters
Procedure SetdefaultService(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetpathRules(AIndex : Integer; const AValue : TPathMatcherTypepathRulesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property defaultService : String Index 0 Read FdefaultService Write SetdefaultService;
Property description : String Index 8 Read Fdescription Write Setdescription;
Property name : String Index 16 Read Fname Write Setname;
Property pathRules : TPathMatcherTypepathRulesArray Index 24 Read FpathRules Write SetpathRules;
end;
TPathMatcherClass = Class of TPathMatcher;
{ --------------------------------------------------------------------
TPathRule
--------------------------------------------------------------------}
TPathRule = Class(TGoogleBaseObject)
Private
Fpaths : TStringArray;
Fservice : String;
Protected
//Property setters
Procedure Setpaths(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setservice(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 paths : TStringArray Index 0 Read Fpaths Write Setpaths;
Property service : String Index 8 Read Fservice Write Setservice;
end;
TPathRuleClass = Class of TPathRule;
{ --------------------------------------------------------------------
TProject
--------------------------------------------------------------------}
TProject = Class(TGoogleBaseObject)
Private
FcommonInstanceMetadata : TMetadata;
FcreationTimestamp : String;
Fdescription : String;
FenabledFeatures : TStringArray;
Fid : String;
Fkind : String;
Fname : String;
Fquotas : TProjectTypequotasArray;
FselfLink : String;
FusageExportLocation : TUsageExportLocation;
Protected
//Property setters
Procedure SetcommonInstanceMetadata(AIndex : Integer; const AValue : TMetadata); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetenabledFeatures(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setquotas(AIndex : Integer; const AValue : TProjectTypequotasArray); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetusageExportLocation(AIndex : Integer; const AValue : TUsageExportLocation); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property commonInstanceMetadata : TMetadata Index 0 Read FcommonInstanceMetadata Write SetcommonInstanceMetadata;
Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
Property description : String Index 16 Read Fdescription Write Setdescription;
Property enabledFeatures : TStringArray Index 24 Read FenabledFeatures Write SetenabledFeatures;
Property id : String Index 32 Read Fid Write Setid;
Property kind : String Index 40 Read Fkind Write Setkind;
Property name : String Index 48 Read Fname Write Setname;
Property quotas : TProjectTypequotasArray Index 56 Read Fquotas Write Setquotas;
Property selfLink : String Index 64 Read FselfLink Write SetselfLink;
Property usageExportLocation : TUsageExportLocation Index 72 Read FusageExportLocation Write SetusageExportLocation;
end;
TProjectClass = Class of TProject;
{ --------------------------------------------------------------------
TQuota
--------------------------------------------------------------------}
TQuota = Class(TGoogleBaseObject)
Private
Flimit : double;
Fmetric : String;
Fusage : double;
Protected
//Property setters
Procedure Setlimit(AIndex : Integer; const AValue : double); virtual;
Procedure Setmetric(AIndex : Integer; const AValue : String); virtual;
Procedure Setusage(AIndex : Integer; const AValue : double); virtual;
Public
Published
Property limit : double Index 0 Read Flimit Write Setlimit;
Property metric : String Index 8 Read Fmetric Write Setmetric;
Property usage : double Index 16 Read Fusage Write Setusage;
end;
TQuotaClass = Class of TQuota;
{ --------------------------------------------------------------------
TRegion
--------------------------------------------------------------------}
TRegion = Class(TGoogleBaseObject)
Private
FcreationTimestamp : String;
Fdeprecated : TDeprecationStatus;
Fdescription : String;
Fid : String;
Fkind : String;
Fname : String;
Fquotas : TRegionTypequotasArray;
FselfLink : String;
Fstatus : String;
Fzones : TStringArray;
Protected
//Property setters
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setquotas(AIndex : Integer; const AValue : TRegionTypequotasArray); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure Setzones(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
Property deprecated : TDeprecationStatus Index 8 Read Fdeprecated Write Setdeprecated;
Property description : String Index 16 Read Fdescription Write Setdescription;
Property id : String Index 24 Read Fid Write Setid;
Property kind : String Index 32 Read Fkind Write Setkind;
Property name : String Index 40 Read Fname Write Setname;
Property quotas : TRegionTypequotasArray Index 48 Read Fquotas Write Setquotas;
Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
Property status : String Index 64 Read Fstatus Write Setstatus;
Property zones : TStringArray Index 72 Read Fzones Write Setzones;
end;
TRegionClass = Class of TRegion;
{ --------------------------------------------------------------------
TRegionList
--------------------------------------------------------------------}
TRegionList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TRegionListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TRegionListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TRegionListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TRegionListClass = Class of TRegionList;
{ --------------------------------------------------------------------
TResourceGroupReference
--------------------------------------------------------------------}
TResourceGroupReference = Class(TGoogleBaseObject)
Private
Fgroup : String;
Protected
//Property setters
Procedure Setgroup(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property group : String Index 0 Read Fgroup Write Setgroup;
end;
TResourceGroupReferenceClass = Class of TResourceGroupReference;
{ --------------------------------------------------------------------
TRouteTypewarningsItemTypedataItem
--------------------------------------------------------------------}
TRouteTypewarningsItemTypedataItem = Class(TGoogleBaseObject)
Private
Fkey : String;
Fvalue : String;
Protected
//Property setters
Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property key : String Index 0 Read Fkey Write Setkey;
Property value : String Index 8 Read Fvalue Write Setvalue;
end;
TRouteTypewarningsItemTypedataItemClass = Class of TRouteTypewarningsItemTypedataItem;
{ --------------------------------------------------------------------
TRouteTypewarningsItem
--------------------------------------------------------------------}
TRouteTypewarningsItem = Class(TGoogleBaseObject)
Private
Fcode : String;
Fdata : TRouteTypewarningsItemTypedataArray;
Fmessage : String;
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
Procedure Setdata(AIndex : Integer; const AValue : TRouteTypewarningsItemTypedataArray); virtual;
Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
Property data : TRouteTypewarningsItemTypedataArray Index 8 Read Fdata Write Setdata;
Property message : String Index 16 Read Fmessage Write Setmessage;
end;
TRouteTypewarningsItemClass = Class of TRouteTypewarningsItem;
{ --------------------------------------------------------------------
TRoute
--------------------------------------------------------------------}
TRoute = Class(TGoogleBaseObject)
Private
FcreationTimestamp : String;
Fdescription : String;
FdestRange : String;
Fid : String;
Fkind : String;
Fname : String;
Fnetwork : String;
FnextHopGateway : String;
FnextHopInstance : String;
FnextHopIp : String;
FnextHopNetwork : String;
FnextHopVpnTunnel : String;
Fpriority : integer;
FselfLink : String;
Ftags : TStringArray;
Fwarnings : TRouteTypewarningsArray;
Protected
//Property setters
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetdestRange(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextHopGateway(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextHopInstance(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextHopIp(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextHopNetwork(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextHopVpnTunnel(AIndex : Integer; const AValue : String); virtual;
Procedure Setpriority(AIndex : Integer; const AValue : integer); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Settags(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setwarnings(AIndex : Integer; const AValue : TRouteTypewarningsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
Property description : String Index 8 Read Fdescription Write Setdescription;
Property destRange : String Index 16 Read FdestRange Write SetdestRange;
Property id : String Index 24 Read Fid Write Setid;
Property kind : String Index 32 Read Fkind Write Setkind;
Property name : String Index 40 Read Fname Write Setname;
Property network : String Index 48 Read Fnetwork Write Setnetwork;
Property nextHopGateway : String Index 56 Read FnextHopGateway Write SetnextHopGateway;
Property nextHopInstance : String Index 64 Read FnextHopInstance Write SetnextHopInstance;
Property nextHopIp : String Index 72 Read FnextHopIp Write SetnextHopIp;
Property nextHopNetwork : String Index 80 Read FnextHopNetwork Write SetnextHopNetwork;
Property nextHopVpnTunnel : String Index 88 Read FnextHopVpnTunnel Write SetnextHopVpnTunnel;
Property priority : integer Index 96 Read Fpriority Write Setpriority;
Property selfLink : String Index 104 Read FselfLink Write SetselfLink;
Property tags : TStringArray Index 112 Read Ftags Write Settags;
Property warnings : TRouteTypewarningsArray Index 120 Read Fwarnings Write Setwarnings;
end;
TRouteClass = Class of TRoute;
{ --------------------------------------------------------------------
TRouteList
--------------------------------------------------------------------}
TRouteList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TRouteListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TRouteListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TRouteListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TRouteListClass = Class of TRouteList;
{ --------------------------------------------------------------------
TScheduling
--------------------------------------------------------------------}
TScheduling = Class(TGoogleBaseObject)
Private
FautomaticRestart : boolean;
FonHostMaintenance : String;
Fpreemptible : boolean;
Protected
//Property setters
Procedure SetautomaticRestart(AIndex : Integer; const AValue : boolean); virtual;
Procedure SetonHostMaintenance(AIndex : Integer; const AValue : String); virtual;
Procedure Setpreemptible(AIndex : Integer; const AValue : boolean); virtual;
Public
Published
Property automaticRestart : boolean Index 0 Read FautomaticRestart Write SetautomaticRestart;
Property onHostMaintenance : String Index 8 Read FonHostMaintenance Write SetonHostMaintenance;
Property preemptible : boolean Index 16 Read Fpreemptible Write Setpreemptible;
end;
TSchedulingClass = Class of TScheduling;
{ --------------------------------------------------------------------
TSerialPortOutput
--------------------------------------------------------------------}
TSerialPortOutput = Class(TGoogleBaseObject)
Private
Fcontents : String;
Fkind : String;
FselfLink : String;
Protected
//Property setters
Procedure Setcontents(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property contents : String Index 0 Read Fcontents Write Setcontents;
Property kind : String Index 8 Read Fkind Write Setkind;
Property selfLink : String Index 16 Read FselfLink Write SetselfLink;
end;
TSerialPortOutputClass = Class of TSerialPortOutput;
{ --------------------------------------------------------------------
TServiceAccount
--------------------------------------------------------------------}
TServiceAccount = Class(TGoogleBaseObject)
Private
Femail : String;
Fscopes : TStringArray;
Protected
//Property setters
Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
Procedure Setscopes(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property email : String Index 0 Read Femail Write Setemail;
Property scopes : TStringArray Index 8 Read Fscopes Write Setscopes;
end;
TServiceAccountClass = Class of TServiceAccount;
{ --------------------------------------------------------------------
TSnapshot
--------------------------------------------------------------------}
TSnapshot = Class(TGoogleBaseObject)
Private
FcreationTimestamp : String;
Fdescription : String;
FdiskSizeGb : String;
Fid : String;
Fkind : String;
Flicenses : TStringArray;
Fname : String;
FselfLink : String;
FsourceDisk : String;
FsourceDiskId : String;
Fstatus : String;
FstorageBytes : String;
FstorageBytesStatus : String;
Protected
//Property setters
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetdiskSizeGb(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setlicenses(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetsourceDisk(AIndex : Integer; const AValue : String); virtual;
Procedure SetsourceDiskId(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure SetstorageBytes(AIndex : Integer; const AValue : String); virtual;
Procedure SetstorageBytesStatus(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 creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
Property description : String Index 8 Read Fdescription Write Setdescription;
Property diskSizeGb : String Index 16 Read FdiskSizeGb Write SetdiskSizeGb;
Property id : String Index 24 Read Fid Write Setid;
Property kind : String Index 32 Read Fkind Write Setkind;
Property licenses : TStringArray Index 40 Read Flicenses Write Setlicenses;
Property name : String Index 48 Read Fname Write Setname;
Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
Property sourceDisk : String Index 64 Read FsourceDisk Write SetsourceDisk;
Property sourceDiskId : String Index 72 Read FsourceDiskId Write SetsourceDiskId;
Property status : String Index 80 Read Fstatus Write Setstatus;
Property storageBytes : String Index 88 Read FstorageBytes Write SetstorageBytes;
Property storageBytesStatus : String Index 96 Read FstorageBytesStatus Write SetstorageBytesStatus;
end;
TSnapshotClass = Class of TSnapshot;
{ --------------------------------------------------------------------
TSnapshotList
--------------------------------------------------------------------}
TSnapshotList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TSnapshotListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TSnapshotListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TSnapshotListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TSnapshotListClass = Class of TSnapshotList;
{ --------------------------------------------------------------------
TSslCertificate
--------------------------------------------------------------------}
TSslCertificate = Class(TGoogleBaseObject)
Private
Fcertificate : String;
FcreationTimestamp : String;
Fdescription : String;
Fid : String;
Fkind : String;
Fname : String;
FprivateKey : String;
FselfLink : String;
Protected
//Property setters
Procedure Setcertificate(AIndex : Integer; const AValue : String); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetprivateKey(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property certificate : String Index 0 Read Fcertificate Write Setcertificate;
Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
Property description : String Index 16 Read Fdescription Write Setdescription;
Property id : String Index 24 Read Fid Write Setid;
Property kind : String Index 32 Read Fkind Write Setkind;
Property name : String Index 40 Read Fname Write Setname;
Property privateKey : String Index 48 Read FprivateKey Write SetprivateKey;
Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
end;
TSslCertificateClass = Class of TSslCertificate;
{ --------------------------------------------------------------------
TSslCertificateList
--------------------------------------------------------------------}
TSslCertificateList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TSslCertificateListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TSslCertificateListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TSslCertificateListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TSslCertificateListClass = Class of TSslCertificateList;
{ --------------------------------------------------------------------
TSubnetwork
--------------------------------------------------------------------}
TSubnetwork = Class(TGoogleBaseObject)
Private
FcreationTimestamp : String;
Fdescription : String;
FgatewayAddress : String;
Fid : String;
FipCidrRange : String;
Fkind : String;
Fname : String;
Fnetwork : String;
Fregion : String;
FselfLink : String;
Protected
//Property setters
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetgatewayAddress(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetipCidrRange(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
Property description : String Index 8 Read Fdescription Write Setdescription;
Property gatewayAddress : String Index 16 Read FgatewayAddress Write SetgatewayAddress;
Property id : String Index 24 Read Fid Write Setid;
Property ipCidrRange : String Index 32 Read FipCidrRange Write SetipCidrRange;
Property kind : String Index 40 Read Fkind Write Setkind;
Property name : String Index 48 Read Fname Write Setname;
Property network : String Index 56 Read Fnetwork Write Setnetwork;
Property region : String Index 64 Read Fregion Write Setregion;
Property selfLink : String Index 72 Read FselfLink Write SetselfLink;
end;
TSubnetworkClass = Class of TSubnetwork;
{ --------------------------------------------------------------------
TSubnetworkAggregatedListTypeitems
--------------------------------------------------------------------}
TSubnetworkAggregatedListTypeitems = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TSubnetworkAggregatedListTypeitemsClass = Class of TSubnetworkAggregatedListTypeitems;
{ --------------------------------------------------------------------
TSubnetworkAggregatedList
--------------------------------------------------------------------}
TSubnetworkAggregatedList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TSubnetworkAggregatedListTypeitems;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TSubnetworkAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TSubnetworkAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TSubnetworkAggregatedListClass = Class of TSubnetworkAggregatedList;
{ --------------------------------------------------------------------
TSubnetworkList
--------------------------------------------------------------------}
TSubnetworkList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TSubnetworkListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TSubnetworkListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TSubnetworkListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TSubnetworkListClass = Class of TSubnetworkList;
{ --------------------------------------------------------------------
TSubnetworksScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
TSubnetworksScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
Private
Fkey : String;
Fvalue : String;
Protected
//Property setters
Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property key : String Index 0 Read Fkey Write Setkey;
Property value : String Index 8 Read Fvalue Write Setvalue;
end;
TSubnetworksScopedListTypewarningTypedataItemClass = Class of TSubnetworksScopedListTypewarningTypedataItem;
{ --------------------------------------------------------------------
TSubnetworksScopedListTypewarning
--------------------------------------------------------------------}
TSubnetworksScopedListTypewarning = Class(TGoogleBaseObject)
Private
Fcode : String;
Fdata : TSubnetworksScopedListTypewarningTypedataArray;
Fmessage : String;
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
Procedure Setdata(AIndex : Integer; const AValue : TSubnetworksScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
Property data : TSubnetworksScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
Property message : String Index 16 Read Fmessage Write Setmessage;
end;
TSubnetworksScopedListTypewarningClass = Class of TSubnetworksScopedListTypewarning;
{ --------------------------------------------------------------------
TSubnetworksScopedList
--------------------------------------------------------------------}
TSubnetworksScopedList = Class(TGoogleBaseObject)
Private
Fsubnetworks : TSubnetworksScopedListTypesubnetworksArray;
Fwarning : TSubnetworksScopedListTypewarning;
Protected
//Property setters
Procedure Setsubnetworks(AIndex : Integer; const AValue : TSubnetworksScopedListTypesubnetworksArray); virtual;
Procedure Setwarning(AIndex : Integer; const AValue : TSubnetworksScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property subnetworks : TSubnetworksScopedListTypesubnetworksArray Index 0 Read Fsubnetworks Write Setsubnetworks;
Property warning : TSubnetworksScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
end;
TSubnetworksScopedListClass = Class of TSubnetworksScopedList;
{ --------------------------------------------------------------------
TTags
--------------------------------------------------------------------}
TTags = Class(TGoogleBaseObject)
Private
Ffingerprint : String;
Fitems : TStringArray;
Protected
//Property setters
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property fingerprint : String Index 0 Read Ffingerprint Write Setfingerprint;
Property items : TStringArray Index 8 Read Fitems Write Setitems;
end;
TTagsClass = Class of TTags;
{ --------------------------------------------------------------------
TTargetHttpProxy
--------------------------------------------------------------------}
TTargetHttpProxy = Class(TGoogleBaseObject)
Private
FcreationTimestamp : String;
Fdescription : String;
Fid : String;
Fkind : String;
Fname : String;
FselfLink : String;
FurlMap : String;
Protected
//Property setters
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SeturlMap(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
Property description : String Index 8 Read Fdescription Write Setdescription;
Property id : String Index 16 Read Fid Write Setid;
Property kind : String Index 24 Read Fkind Write Setkind;
Property name : String Index 32 Read Fname Write Setname;
Property selfLink : String Index 40 Read FselfLink Write SetselfLink;
Property urlMap : String Index 48 Read FurlMap Write SeturlMap;
end;
TTargetHttpProxyClass = Class of TTargetHttpProxy;
{ --------------------------------------------------------------------
TTargetHttpProxyList
--------------------------------------------------------------------}
TTargetHttpProxyList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TTargetHttpProxyListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TTargetHttpProxyListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TTargetHttpProxyListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TTargetHttpProxyListClass = Class of TTargetHttpProxyList;
{ --------------------------------------------------------------------
TTargetHttpsProxiesSetSslCertificatesRequest
--------------------------------------------------------------------}
TTargetHttpsProxiesSetSslCertificatesRequest = Class(TGoogleBaseObject)
Private
FsslCertificates : TStringArray;
Protected
//Property setters
Procedure SetsslCertificates(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property sslCertificates : TStringArray Index 0 Read FsslCertificates Write SetsslCertificates;
end;
TTargetHttpsProxiesSetSslCertificatesRequestClass = Class of TTargetHttpsProxiesSetSslCertificatesRequest;
{ --------------------------------------------------------------------
TTargetHttpsProxy
--------------------------------------------------------------------}
TTargetHttpsProxy = Class(TGoogleBaseObject)
Private
FcreationTimestamp : String;
Fdescription : String;
Fid : String;
Fkind : String;
Fname : String;
FselfLink : String;
FsslCertificates : TStringArray;
FurlMap : String;
Protected
//Property setters
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetsslCertificates(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SeturlMap(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 creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
Property description : String Index 8 Read Fdescription Write Setdescription;
Property id : String Index 16 Read Fid Write Setid;
Property kind : String Index 24 Read Fkind Write Setkind;
Property name : String Index 32 Read Fname Write Setname;
Property selfLink : String Index 40 Read FselfLink Write SetselfLink;
Property sslCertificates : TStringArray Index 48 Read FsslCertificates Write SetsslCertificates;
Property urlMap : String Index 56 Read FurlMap Write SeturlMap;
end;
TTargetHttpsProxyClass = Class of TTargetHttpsProxy;
{ --------------------------------------------------------------------
TTargetHttpsProxyList
--------------------------------------------------------------------}
TTargetHttpsProxyList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TTargetHttpsProxyListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TTargetHttpsProxyListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TTargetHttpsProxyListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TTargetHttpsProxyListClass = Class of TTargetHttpsProxyList;
{ --------------------------------------------------------------------
TTargetInstance
--------------------------------------------------------------------}
TTargetInstance = Class(TGoogleBaseObject)
Private
FcreationTimestamp : String;
Fdescription : String;
Fid : String;
Finstance : String;
Fkind : String;
Fname : String;
FnatPolicy : String;
FselfLink : String;
Fzone : String;
Protected
//Property setters
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setinstance(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetnatPolicy(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
Property description : String Index 8 Read Fdescription Write Setdescription;
Property id : String Index 16 Read Fid Write Setid;
Property instance : String Index 24 Read Finstance Write Setinstance;
Property kind : String Index 32 Read Fkind Write Setkind;
Property name : String Index 40 Read Fname Write Setname;
Property natPolicy : String Index 48 Read FnatPolicy Write SetnatPolicy;
Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
Property zone : String Index 64 Read Fzone Write Setzone;
end;
TTargetInstanceClass = Class of TTargetInstance;
{ --------------------------------------------------------------------
TTargetInstanceAggregatedListTypeitems
--------------------------------------------------------------------}
TTargetInstanceAggregatedListTypeitems = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TTargetInstanceAggregatedListTypeitemsClass = Class of TTargetInstanceAggregatedListTypeitems;
{ --------------------------------------------------------------------
TTargetInstanceAggregatedList
--------------------------------------------------------------------}
TTargetInstanceAggregatedList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TTargetInstanceAggregatedListTypeitems;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TTargetInstanceAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TTargetInstanceAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TTargetInstanceAggregatedListClass = Class of TTargetInstanceAggregatedList;
{ --------------------------------------------------------------------
TTargetInstanceList
--------------------------------------------------------------------}
TTargetInstanceList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TTargetInstanceListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TTargetInstanceListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TTargetInstanceListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TTargetInstanceListClass = Class of TTargetInstanceList;
{ --------------------------------------------------------------------
TTargetInstancesScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
TTargetInstancesScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
Private
Fkey : String;
Fvalue : String;
Protected
//Property setters
Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property key : String Index 0 Read Fkey Write Setkey;
Property value : String Index 8 Read Fvalue Write Setvalue;
end;
TTargetInstancesScopedListTypewarningTypedataItemClass = Class of TTargetInstancesScopedListTypewarningTypedataItem;
{ --------------------------------------------------------------------
TTargetInstancesScopedListTypewarning
--------------------------------------------------------------------}
TTargetInstancesScopedListTypewarning = Class(TGoogleBaseObject)
Private
Fcode : String;
Fdata : TTargetInstancesScopedListTypewarningTypedataArray;
Fmessage : String;
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
Procedure Setdata(AIndex : Integer; const AValue : TTargetInstancesScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
Property data : TTargetInstancesScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
Property message : String Index 16 Read Fmessage Write Setmessage;
end;
TTargetInstancesScopedListTypewarningClass = Class of TTargetInstancesScopedListTypewarning;
{ --------------------------------------------------------------------
TTargetInstancesScopedList
--------------------------------------------------------------------}
TTargetInstancesScopedList = Class(TGoogleBaseObject)
Private
FtargetInstances : TTargetInstancesScopedListTypetargetInstancesArray;
Fwarning : TTargetInstancesScopedListTypewarning;
Protected
//Property setters
Procedure SettargetInstances(AIndex : Integer; const AValue : TTargetInstancesScopedListTypetargetInstancesArray); virtual;
Procedure Setwarning(AIndex : Integer; const AValue : TTargetInstancesScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property targetInstances : TTargetInstancesScopedListTypetargetInstancesArray Index 0 Read FtargetInstances Write SettargetInstances;
Property warning : TTargetInstancesScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
end;
TTargetInstancesScopedListClass = Class of TTargetInstancesScopedList;
{ --------------------------------------------------------------------
TTargetPool
--------------------------------------------------------------------}
TTargetPool = Class(TGoogleBaseObject)
Private
FbackupPool : String;
FcreationTimestamp : String;
Fdescription : String;
FfailoverRatio : integer;
FhealthChecks : TStringArray;
Fid : String;
Finstances : TStringArray;
Fkind : String;
Fname : String;
Fregion : String;
FselfLink : String;
FsessionAffinity : String;
Protected
//Property setters
Procedure SetbackupPool(AIndex : Integer; const AValue : String); virtual;
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetfailoverRatio(AIndex : Integer; const AValue : integer); virtual;
Procedure SethealthChecks(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setinstances(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetsessionAffinity(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 backupPool : String Index 0 Read FbackupPool Write SetbackupPool;
Property creationTimestamp : String Index 8 Read FcreationTimestamp Write SetcreationTimestamp;
Property description : String Index 16 Read Fdescription Write Setdescription;
Property failoverRatio : integer Index 24 Read FfailoverRatio Write SetfailoverRatio;
Property healthChecks : TStringArray Index 32 Read FhealthChecks Write SethealthChecks;
Property id : String Index 40 Read Fid Write Setid;
Property instances : TStringArray Index 48 Read Finstances Write Setinstances;
Property kind : String Index 56 Read Fkind Write Setkind;
Property name : String Index 64 Read Fname Write Setname;
Property region : String Index 72 Read Fregion Write Setregion;
Property selfLink : String Index 80 Read FselfLink Write SetselfLink;
Property sessionAffinity : String Index 88 Read FsessionAffinity Write SetsessionAffinity;
end;
TTargetPoolClass = Class of TTargetPool;
{ --------------------------------------------------------------------
TTargetPoolAggregatedListTypeitems
--------------------------------------------------------------------}
TTargetPoolAggregatedListTypeitems = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TTargetPoolAggregatedListTypeitemsClass = Class of TTargetPoolAggregatedListTypeitems;
{ --------------------------------------------------------------------
TTargetPoolAggregatedList
--------------------------------------------------------------------}
TTargetPoolAggregatedList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TTargetPoolAggregatedListTypeitems;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TTargetPoolAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TTargetPoolAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TTargetPoolAggregatedListClass = Class of TTargetPoolAggregatedList;
{ --------------------------------------------------------------------
TTargetPoolInstanceHealth
--------------------------------------------------------------------}
TTargetPoolInstanceHealth = Class(TGoogleBaseObject)
Private
FhealthStatus : TTargetPoolInstanceHealthTypehealthStatusArray;
Fkind : String;
Protected
//Property setters
Procedure SethealthStatus(AIndex : Integer; const AValue : TTargetPoolInstanceHealthTypehealthStatusArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property healthStatus : TTargetPoolInstanceHealthTypehealthStatusArray Index 0 Read FhealthStatus Write SethealthStatus;
Property kind : String Index 8 Read Fkind Write Setkind;
end;
TTargetPoolInstanceHealthClass = Class of TTargetPoolInstanceHealth;
{ --------------------------------------------------------------------
TTargetPoolList
--------------------------------------------------------------------}
TTargetPoolList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TTargetPoolListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TTargetPoolListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TTargetPoolListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TTargetPoolListClass = Class of TTargetPoolList;
{ --------------------------------------------------------------------
TTargetPoolsAddHealthCheckRequest
--------------------------------------------------------------------}
TTargetPoolsAddHealthCheckRequest = Class(TGoogleBaseObject)
Private
FhealthChecks : TTargetPoolsAddHealthCheckRequestTypehealthChecksArray;
Protected
//Property setters
Procedure SethealthChecks(AIndex : Integer; const AValue : TTargetPoolsAddHealthCheckRequestTypehealthChecksArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property healthChecks : TTargetPoolsAddHealthCheckRequestTypehealthChecksArray Index 0 Read FhealthChecks Write SethealthChecks;
end;
TTargetPoolsAddHealthCheckRequestClass = Class of TTargetPoolsAddHealthCheckRequest;
{ --------------------------------------------------------------------
TTargetPoolsAddInstanceRequest
--------------------------------------------------------------------}
TTargetPoolsAddInstanceRequest = Class(TGoogleBaseObject)
Private
Finstances : TTargetPoolsAddInstanceRequestTypeinstancesArray;
Protected
//Property setters
Procedure Setinstances(AIndex : Integer; const AValue : TTargetPoolsAddInstanceRequestTypeinstancesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property instances : TTargetPoolsAddInstanceRequestTypeinstancesArray Index 0 Read Finstances Write Setinstances;
end;
TTargetPoolsAddInstanceRequestClass = Class of TTargetPoolsAddInstanceRequest;
{ --------------------------------------------------------------------
TTargetPoolsRemoveHealthCheckRequest
--------------------------------------------------------------------}
TTargetPoolsRemoveHealthCheckRequest = Class(TGoogleBaseObject)
Private
FhealthChecks : TTargetPoolsRemoveHealthCheckRequestTypehealthChecksArray;
Protected
//Property setters
Procedure SethealthChecks(AIndex : Integer; const AValue : TTargetPoolsRemoveHealthCheckRequestTypehealthChecksArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property healthChecks : TTargetPoolsRemoveHealthCheckRequestTypehealthChecksArray Index 0 Read FhealthChecks Write SethealthChecks;
end;
TTargetPoolsRemoveHealthCheckRequestClass = Class of TTargetPoolsRemoveHealthCheckRequest;
{ --------------------------------------------------------------------
TTargetPoolsRemoveInstanceRequest
--------------------------------------------------------------------}
TTargetPoolsRemoveInstanceRequest = Class(TGoogleBaseObject)
Private
Finstances : TTargetPoolsRemoveInstanceRequestTypeinstancesArray;
Protected
//Property setters
Procedure Setinstances(AIndex : Integer; const AValue : TTargetPoolsRemoveInstanceRequestTypeinstancesArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property instances : TTargetPoolsRemoveInstanceRequestTypeinstancesArray Index 0 Read Finstances Write Setinstances;
end;
TTargetPoolsRemoveInstanceRequestClass = Class of TTargetPoolsRemoveInstanceRequest;
{ --------------------------------------------------------------------
TTargetPoolsScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
TTargetPoolsScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
Private
Fkey : String;
Fvalue : String;
Protected
//Property setters
Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property key : String Index 0 Read Fkey Write Setkey;
Property value : String Index 8 Read Fvalue Write Setvalue;
end;
TTargetPoolsScopedListTypewarningTypedataItemClass = Class of TTargetPoolsScopedListTypewarningTypedataItem;
{ --------------------------------------------------------------------
TTargetPoolsScopedListTypewarning
--------------------------------------------------------------------}
TTargetPoolsScopedListTypewarning = Class(TGoogleBaseObject)
Private
Fcode : String;
Fdata : TTargetPoolsScopedListTypewarningTypedataArray;
Fmessage : String;
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
Procedure Setdata(AIndex : Integer; const AValue : TTargetPoolsScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
Property data : TTargetPoolsScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
Property message : String Index 16 Read Fmessage Write Setmessage;
end;
TTargetPoolsScopedListTypewarningClass = Class of TTargetPoolsScopedListTypewarning;
{ --------------------------------------------------------------------
TTargetPoolsScopedList
--------------------------------------------------------------------}
TTargetPoolsScopedList = Class(TGoogleBaseObject)
Private
FtargetPools : TTargetPoolsScopedListTypetargetPoolsArray;
Fwarning : TTargetPoolsScopedListTypewarning;
Protected
//Property setters
Procedure SettargetPools(AIndex : Integer; const AValue : TTargetPoolsScopedListTypetargetPoolsArray); virtual;
Procedure Setwarning(AIndex : Integer; const AValue : TTargetPoolsScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property targetPools : TTargetPoolsScopedListTypetargetPoolsArray Index 0 Read FtargetPools Write SettargetPools;
Property warning : TTargetPoolsScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
end;
TTargetPoolsScopedListClass = Class of TTargetPoolsScopedList;
{ --------------------------------------------------------------------
TTargetReference
--------------------------------------------------------------------}
TTargetReference = Class(TGoogleBaseObject)
Private
Ftarget : String;
Protected
//Property setters
Procedure Settarget(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property target : String Index 0 Read Ftarget Write Settarget;
end;
TTargetReferenceClass = Class of TTargetReference;
{ --------------------------------------------------------------------
TTargetVpnGateway
--------------------------------------------------------------------}
TTargetVpnGateway = Class(TGoogleBaseObject)
Private
FcreationTimestamp : String;
Fdescription : String;
FforwardingRules : TStringArray;
Fid : String;
Fkind : String;
Fname : String;
Fnetwork : String;
Fregion : String;
FselfLink : String;
Fstatus : String;
Ftunnels : TStringArray;
Protected
//Property setters
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetforwardingRules(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure Settunnels(AIndex : Integer; const AValue : TStringArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
Property description : String Index 8 Read Fdescription Write Setdescription;
Property forwardingRules : TStringArray Index 16 Read FforwardingRules Write SetforwardingRules;
Property id : String Index 24 Read Fid Write Setid;
Property kind : String Index 32 Read Fkind Write Setkind;
Property name : String Index 40 Read Fname Write Setname;
Property network : String Index 48 Read Fnetwork Write Setnetwork;
Property region : String Index 56 Read Fregion Write Setregion;
Property selfLink : String Index 64 Read FselfLink Write SetselfLink;
Property status : String Index 72 Read Fstatus Write Setstatus;
Property tunnels : TStringArray Index 80 Read Ftunnels Write Settunnels;
end;
TTargetVpnGatewayClass = Class of TTargetVpnGateway;
{ --------------------------------------------------------------------
TTargetVpnGatewayAggregatedListTypeitems
--------------------------------------------------------------------}
TTargetVpnGatewayAggregatedListTypeitems = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TTargetVpnGatewayAggregatedListTypeitemsClass = Class of TTargetVpnGatewayAggregatedListTypeitems;
{ --------------------------------------------------------------------
TTargetVpnGatewayAggregatedList
--------------------------------------------------------------------}
TTargetVpnGatewayAggregatedList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TTargetVpnGatewayAggregatedListTypeitems;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TTargetVpnGatewayAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TTargetVpnGatewayAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TTargetVpnGatewayAggregatedListClass = Class of TTargetVpnGatewayAggregatedList;
{ --------------------------------------------------------------------
TTargetVpnGatewayList
--------------------------------------------------------------------}
TTargetVpnGatewayList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TTargetVpnGatewayListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TTargetVpnGatewayListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TTargetVpnGatewayListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TTargetVpnGatewayListClass = Class of TTargetVpnGatewayList;
{ --------------------------------------------------------------------
TTargetVpnGatewaysScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
TTargetVpnGatewaysScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
Private
Fkey : String;
Fvalue : String;
Protected
//Property setters
Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property key : String Index 0 Read Fkey Write Setkey;
Property value : String Index 8 Read Fvalue Write Setvalue;
end;
TTargetVpnGatewaysScopedListTypewarningTypedataItemClass = Class of TTargetVpnGatewaysScopedListTypewarningTypedataItem;
{ --------------------------------------------------------------------
TTargetVpnGatewaysScopedListTypewarning
--------------------------------------------------------------------}
TTargetVpnGatewaysScopedListTypewarning = Class(TGoogleBaseObject)
Private
Fcode : String;
Fdata : TTargetVpnGatewaysScopedListTypewarningTypedataArray;
Fmessage : String;
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
Procedure Setdata(AIndex : Integer; const AValue : TTargetVpnGatewaysScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
Property data : TTargetVpnGatewaysScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
Property message : String Index 16 Read Fmessage Write Setmessage;
end;
TTargetVpnGatewaysScopedListTypewarningClass = Class of TTargetVpnGatewaysScopedListTypewarning;
{ --------------------------------------------------------------------
TTargetVpnGatewaysScopedList
--------------------------------------------------------------------}
TTargetVpnGatewaysScopedList = Class(TGoogleBaseObject)
Private
FtargetVpnGateways : TTargetVpnGatewaysScopedListTypetargetVpnGatewaysArray;
Fwarning : TTargetVpnGatewaysScopedListTypewarning;
Protected
//Property setters
Procedure SettargetVpnGateways(AIndex : Integer; const AValue : TTargetVpnGatewaysScopedListTypetargetVpnGatewaysArray); virtual;
Procedure Setwarning(AIndex : Integer; const AValue : TTargetVpnGatewaysScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property targetVpnGateways : TTargetVpnGatewaysScopedListTypetargetVpnGatewaysArray Index 0 Read FtargetVpnGateways Write SettargetVpnGateways;
Property warning : TTargetVpnGatewaysScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
end;
TTargetVpnGatewaysScopedListClass = Class of TTargetVpnGatewaysScopedList;
{ --------------------------------------------------------------------
TTestFailure
--------------------------------------------------------------------}
TTestFailure = Class(TGoogleBaseObject)
Private
FactualService : String;
FexpectedService : String;
Fhost : String;
Fpath : String;
Protected
//Property setters
Procedure SetactualService(AIndex : Integer; const AValue : String); virtual;
Procedure SetexpectedService(AIndex : Integer; const AValue : String); virtual;
Procedure Sethost(AIndex : Integer; const AValue : String); virtual;
Procedure Setpath(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property actualService : String Index 0 Read FactualService Write SetactualService;
Property expectedService : String Index 8 Read FexpectedService Write SetexpectedService;
Property host : String Index 16 Read Fhost Write Sethost;
Property path : String Index 24 Read Fpath Write Setpath;
end;
TTestFailureClass = Class of TTestFailure;
{ --------------------------------------------------------------------
TUrlMap
--------------------------------------------------------------------}
TUrlMap = Class(TGoogleBaseObject)
Private
FcreationTimestamp : String;
FdefaultService : String;
Fdescription : String;
Ffingerprint : String;
FhostRules : TUrlMapTypehostRulesArray;
Fid : String;
Fkind : String;
Fname : String;
FpathMatchers : TUrlMapTypepathMatchersArray;
FselfLink : String;
Ftests : TUrlMapTypetestsArray;
Protected
//Property setters
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure SetdefaultService(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
Procedure SethostRules(AIndex : Integer; const AValue : TUrlMapTypehostRulesArray); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetpathMatchers(AIndex : Integer; const AValue : TUrlMapTypepathMatchersArray); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Settests(AIndex : Integer; const AValue : TUrlMapTypetestsArray); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
Property defaultService : String Index 8 Read FdefaultService Write SetdefaultService;
Property description : String Index 16 Read Fdescription Write Setdescription;
Property fingerprint : String Index 24 Read Ffingerprint Write Setfingerprint;
Property hostRules : TUrlMapTypehostRulesArray Index 32 Read FhostRules Write SethostRules;
Property id : String Index 40 Read Fid Write Setid;
Property kind : String Index 48 Read Fkind Write Setkind;
Property name : String Index 56 Read Fname Write Setname;
Property pathMatchers : TUrlMapTypepathMatchersArray Index 64 Read FpathMatchers Write SetpathMatchers;
Property selfLink : String Index 72 Read FselfLink Write SetselfLink;
Property tests : TUrlMapTypetestsArray Index 80 Read Ftests Write Settests;
end;
TUrlMapClass = Class of TUrlMap;
{ --------------------------------------------------------------------
TUrlMapList
--------------------------------------------------------------------}
TUrlMapList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TUrlMapListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TUrlMapListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TUrlMapListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TUrlMapListClass = Class of TUrlMapList;
{ --------------------------------------------------------------------
TUrlMapReference
--------------------------------------------------------------------}
TUrlMapReference = Class(TGoogleBaseObject)
Private
FurlMap : String;
Protected
//Property setters
Procedure SeturlMap(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property urlMap : String Index 0 Read FurlMap Write SeturlMap;
end;
TUrlMapReferenceClass = Class of TUrlMapReference;
{ --------------------------------------------------------------------
TUrlMapTest
--------------------------------------------------------------------}
TUrlMapTest = Class(TGoogleBaseObject)
Private
Fdescription : String;
Fhost : String;
Fpath : String;
Fservice : String;
Protected
//Property setters
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Sethost(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 description : String Index 0 Read Fdescription Write Setdescription;
Property host : String Index 8 Read Fhost Write Sethost;
Property path : String Index 16 Read Fpath Write Setpath;
Property service : String Index 24 Read Fservice Write Setservice;
end;
TUrlMapTestClass = Class of TUrlMapTest;
{ --------------------------------------------------------------------
TUrlMapValidationResult
--------------------------------------------------------------------}
TUrlMapValidationResult = Class(TGoogleBaseObject)
Private
FloadErrors : TStringArray;
FloadSucceeded : boolean;
FtestFailures : TUrlMapValidationResultTypetestFailuresArray;
FtestPassed : boolean;
Protected
//Property setters
Procedure SetloadErrors(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure SetloadSucceeded(AIndex : Integer; const AValue : boolean); virtual;
Procedure SettestFailures(AIndex : Integer; const AValue : TUrlMapValidationResultTypetestFailuresArray); virtual;
Procedure SettestPassed(AIndex : Integer; const AValue : boolean); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property loadErrors : TStringArray Index 0 Read FloadErrors Write SetloadErrors;
Property loadSucceeded : boolean Index 8 Read FloadSucceeded Write SetloadSucceeded;
Property testFailures : TUrlMapValidationResultTypetestFailuresArray Index 16 Read FtestFailures Write SettestFailures;
Property testPassed : boolean Index 24 Read FtestPassed Write SettestPassed;
end;
TUrlMapValidationResultClass = Class of TUrlMapValidationResult;
{ --------------------------------------------------------------------
TUrlMapsValidateRequest
--------------------------------------------------------------------}
TUrlMapsValidateRequest = Class(TGoogleBaseObject)
Private
Fresource : TUrlMap;
Protected
//Property setters
Procedure Setresource(AIndex : Integer; const AValue : TUrlMap); virtual;
Public
Published
Property resource : TUrlMap Index 0 Read Fresource Write Setresource;
end;
TUrlMapsValidateRequestClass = Class of TUrlMapsValidateRequest;
{ --------------------------------------------------------------------
TUrlMapsValidateResponse
--------------------------------------------------------------------}
TUrlMapsValidateResponse = Class(TGoogleBaseObject)
Private
Fresult : TUrlMapValidationResult;
Protected
//Property setters
Procedure Setresult(AIndex : Integer; const AValue : TUrlMapValidationResult); virtual;
Public
Published
Property result : TUrlMapValidationResult Index 0 Read Fresult Write Setresult;
end;
TUrlMapsValidateResponseClass = Class of TUrlMapsValidateResponse;
{ --------------------------------------------------------------------
TUsageExportLocation
--------------------------------------------------------------------}
TUsageExportLocation = Class(TGoogleBaseObject)
Private
FbucketName : String;
FreportNamePrefix : String;
Protected
//Property setters
Procedure SetbucketName(AIndex : Integer; const AValue : String); virtual;
Procedure SetreportNamePrefix(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property bucketName : String Index 0 Read FbucketName Write SetbucketName;
Property reportNamePrefix : String Index 8 Read FreportNamePrefix Write SetreportNamePrefix;
end;
TUsageExportLocationClass = Class of TUsageExportLocation;
{ --------------------------------------------------------------------
TVpnTunnel
--------------------------------------------------------------------}
TVpnTunnel = Class(TGoogleBaseObject)
Private
FcreationTimestamp : String;
Fdescription : String;
FdetailedStatus : String;
Fid : String;
FikeVersion : integer;
Fkind : String;
FlocalTrafficSelector : TStringArray;
Fname : String;
FpeerIp : String;
Fregion : String;
FselfLink : String;
FsharedSecret : String;
FsharedSecretHash : String;
Fstatus : String;
FtargetVpnGateway : String;
Protected
//Property setters
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure SetdetailedStatus(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure SetikeVersion(AIndex : Integer; const AValue : integer); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetlocalTrafficSelector(AIndex : Integer; const AValue : TStringArray); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure SetpeerIp(AIndex : Integer; const AValue : String); virtual;
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure SetsharedSecret(AIndex : Integer; const AValue : String); virtual;
Procedure SetsharedSecretHash(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Procedure SettargetVpnGateway(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 creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
Property description : String Index 8 Read Fdescription Write Setdescription;
Property detailedStatus : String Index 16 Read FdetailedStatus Write SetdetailedStatus;
Property id : String Index 24 Read Fid Write Setid;
Property ikeVersion : integer Index 32 Read FikeVersion Write SetikeVersion;
Property kind : String Index 40 Read Fkind Write Setkind;
Property localTrafficSelector : TStringArray Index 48 Read FlocalTrafficSelector Write SetlocalTrafficSelector;
Property name : String Index 56 Read Fname Write Setname;
Property peerIp : String Index 64 Read FpeerIp Write SetpeerIp;
Property region : String Index 72 Read Fregion Write Setregion;
Property selfLink : String Index 80 Read FselfLink Write SetselfLink;
Property sharedSecret : String Index 88 Read FsharedSecret Write SetsharedSecret;
Property sharedSecretHash : String Index 96 Read FsharedSecretHash Write SetsharedSecretHash;
Property status : String Index 104 Read Fstatus Write Setstatus;
Property targetVpnGateway : String Index 112 Read FtargetVpnGateway Write SettargetVpnGateway;
end;
TVpnTunnelClass = Class of TVpnTunnel;
{ --------------------------------------------------------------------
TVpnTunnelAggregatedListTypeitems
--------------------------------------------------------------------}
TVpnTunnelAggregatedListTypeitems = Class(TGoogleBaseObject)
Private
Protected
//Property setters
Public
Class Function AllowAdditionalProperties : Boolean; override;
Published
end;
TVpnTunnelAggregatedListTypeitemsClass = Class of TVpnTunnelAggregatedListTypeitems;
{ --------------------------------------------------------------------
TVpnTunnelAggregatedList
--------------------------------------------------------------------}
TVpnTunnelAggregatedList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TVpnTunnelAggregatedListTypeitems;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TVpnTunnelAggregatedListTypeitems); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TVpnTunnelAggregatedListTypeitems Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TVpnTunnelAggregatedListClass = Class of TVpnTunnelAggregatedList;
{ --------------------------------------------------------------------
TVpnTunnelList
--------------------------------------------------------------------}
TVpnTunnelList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TVpnTunnelListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TVpnTunnelListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TVpnTunnelListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TVpnTunnelListClass = Class of TVpnTunnelList;
{ --------------------------------------------------------------------
TVpnTunnelsScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
TVpnTunnelsScopedListTypewarningTypedataItem = Class(TGoogleBaseObject)
Private
Fkey : String;
Fvalue : String;
Protected
//Property setters
Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property key : String Index 0 Read Fkey Write Setkey;
Property value : String Index 8 Read Fvalue Write Setvalue;
end;
TVpnTunnelsScopedListTypewarningTypedataItemClass = Class of TVpnTunnelsScopedListTypewarningTypedataItem;
{ --------------------------------------------------------------------
TVpnTunnelsScopedListTypewarning
--------------------------------------------------------------------}
TVpnTunnelsScopedListTypewarning = Class(TGoogleBaseObject)
Private
Fcode : String;
Fdata : TVpnTunnelsScopedListTypewarningTypedataArray;
Fmessage : String;
Protected
//Property setters
Procedure Setcode(AIndex : Integer; const AValue : String); virtual;
Procedure Setdata(AIndex : Integer; const AValue : TVpnTunnelsScopedListTypewarningTypedataArray); virtual;
Procedure Setmessage(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 code : String Index 0 Read Fcode Write Setcode;
Property data : TVpnTunnelsScopedListTypewarningTypedataArray Index 8 Read Fdata Write Setdata;
Property message : String Index 16 Read Fmessage Write Setmessage;
end;
TVpnTunnelsScopedListTypewarningClass = Class of TVpnTunnelsScopedListTypewarning;
{ --------------------------------------------------------------------
TVpnTunnelsScopedList
--------------------------------------------------------------------}
TVpnTunnelsScopedList = Class(TGoogleBaseObject)
Private
FvpnTunnels : TVpnTunnelsScopedListTypevpnTunnelsArray;
Fwarning : TVpnTunnelsScopedListTypewarning;
Protected
//Property setters
Procedure SetvpnTunnels(AIndex : Integer; const AValue : TVpnTunnelsScopedListTypevpnTunnelsArray); virtual;
Procedure Setwarning(AIndex : Integer; const AValue : TVpnTunnelsScopedListTypewarning); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property vpnTunnels : TVpnTunnelsScopedListTypevpnTunnelsArray Index 0 Read FvpnTunnels Write SetvpnTunnels;
Property warning : TVpnTunnelsScopedListTypewarning Index 8 Read Fwarning Write Setwarning;
end;
TVpnTunnelsScopedListClass = Class of TVpnTunnelsScopedList;
{ --------------------------------------------------------------------
TZone
--------------------------------------------------------------------}
TZone = Class(TGoogleBaseObject)
Private
FcreationTimestamp : String;
Fdeprecated : TDeprecationStatus;
Fdescription : String;
Fid : String;
Fkind : String;
Fname : String;
Fregion : String;
FselfLink : String;
Fstatus : String;
Protected
//Property setters
Procedure SetcreationTimestamp(AIndex : Integer; const AValue : String); virtual;
Procedure Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus); virtual;
Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure Setname(AIndex : Integer; const AValue : String); virtual;
Procedure Setregion(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
Public
Published
Property creationTimestamp : String Index 0 Read FcreationTimestamp Write SetcreationTimestamp;
Property deprecated : TDeprecationStatus Index 8 Read Fdeprecated Write Setdeprecated;
Property description : String Index 16 Read Fdescription Write Setdescription;
Property id : String Index 24 Read Fid Write Setid;
Property kind : String Index 32 Read Fkind Write Setkind;
Property name : String Index 40 Read Fname Write Setname;
Property region : String Index 48 Read Fregion Write Setregion;
Property selfLink : String Index 56 Read FselfLink Write SetselfLink;
Property status : String Index 64 Read Fstatus Write Setstatus;
end;
TZoneClass = Class of TZone;
{ --------------------------------------------------------------------
TZoneList
--------------------------------------------------------------------}
TZoneList = Class(TGoogleBaseObject)
Private
Fid : String;
Fitems : TZoneListTypeitemsArray;
Fkind : String;
FnextPageToken : String;
FselfLink : String;
Protected
//Property setters
Procedure Setid(AIndex : Integer; const AValue : String); virtual;
Procedure Setitems(AIndex : Integer; const AValue : TZoneListTypeitemsArray); virtual;
Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
{$ENDIF VER2_6}
Public
Published
Property id : String Index 0 Read Fid Write Setid;
Property items : TZoneListTypeitemsArray Index 8 Read Fitems Write Setitems;
Property kind : String Index 16 Read Fkind Write Setkind;
Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
end;
TZoneListClass = Class of TZoneList;
{ --------------------------------------------------------------------
TAddressesResource
--------------------------------------------------------------------}
//Optional query Options for TAddressesResource, method AggregatedList
TAddressesAggregatedListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
//Optional query Options for TAddressesResource, method List
TAddressesListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TAddressesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function AggregatedList(project: string; AQuery : string = '') : TAddressAggregatedList;
Function AggregatedList(project: string; AQuery : TAddressesaggregatedListOptions) : TAddressAggregatedList;
Function Delete(address: string; project: string; region: string) : TOperation;
Function Get(address: string; project: string; region: string) : TAddress;
Function Insert(project: string; region: string; aAddress : TAddress) : TOperation;
Function List(project: string; region: string; AQuery : string = '') : TAddressList;
Function List(project: string; region: string; AQuery : TAddresseslistOptions) : TAddressList;
end;
{ --------------------------------------------------------------------
TAutoscalersResource
--------------------------------------------------------------------}
//Optional query Options for TAutoscalersResource, method AggregatedList
TAutoscalersAggregatedListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
//Optional query Options for TAutoscalersResource, method List
TAutoscalersListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
//Optional query Options for TAutoscalersResource, method Patch
TAutoscalersPatchOptions = Record
autoscaler : String;
end;
//Optional query Options for TAutoscalersResource, method Update
TAutoscalersUpdateOptions = Record
autoscaler : String;
end;
TAutoscalersResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function AggregatedList(project: string; AQuery : string = '') : TAutoscalerAggregatedList;
Function AggregatedList(project: string; AQuery : TAutoscalersaggregatedListOptions) : TAutoscalerAggregatedList;
Function Delete(autoscaler: string; project: string; zone: string) : TOperation;
Function Get(autoscaler: string; project: string; zone: string) : TAutoscaler;
Function Insert(project: string; zone: string; aAutoscaler : TAutoscaler) : TOperation;
Function List(project: string; zone: string; AQuery : string = '') : TAutoscalerList;
Function List(project: string; zone: string; AQuery : TAutoscalerslistOptions) : TAutoscalerList;
Function Patch(project: string; zone: string; aAutoscaler : TAutoscaler; AQuery : string = '') : TOperation;
Function Patch(project: string; zone: string; aAutoscaler : TAutoscaler; AQuery : TAutoscalerspatchOptions) : TOperation;
Function Update(project: string; zone: string; aAutoscaler : TAutoscaler; AQuery : string = '') : TOperation;
Function Update(project: string; zone: string; aAutoscaler : TAutoscaler; AQuery : TAutoscalersupdateOptions) : TOperation;
end;
{ --------------------------------------------------------------------
TBackendServicesResource
--------------------------------------------------------------------}
//Optional query Options for TBackendServicesResource, method List
TBackendServicesListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TBackendServicesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Delete(backendService: string; project: string) : TOperation;
Function Get(backendService: string; project: string) : TBackendService;
Function GetHealth(backendService: string; project: string; aResourceGroupReference : TResourceGroupReference) : TBackendServiceGroupHealth;
Function Insert(project: string; aBackendService : TBackendService) : TOperation;
Function List(project: string; AQuery : string = '') : TBackendServiceList;
Function List(project: string; AQuery : TBackendServiceslistOptions) : TBackendServiceList;
Function Patch(backendService: string; project: string; aBackendService : TBackendService) : TOperation;
Function Update(backendService: string; project: string; aBackendService : TBackendService) : TOperation;
end;
{ --------------------------------------------------------------------
TDiskTypesResource
--------------------------------------------------------------------}
//Optional query Options for TDiskTypesResource, method AggregatedList
TDiskTypesAggregatedListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
//Optional query Options for TDiskTypesResource, method List
TDiskTypesListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TDiskTypesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function AggregatedList(project: string; AQuery : string = '') : TDiskTypeAggregatedList;
Function AggregatedList(project: string; AQuery : TDiskTypesaggregatedListOptions) : TDiskTypeAggregatedList;
Function Get(diskType: string; project: string; zone: string) : TDiskType;
Function List(project: string; zone: string; AQuery : string = '') : TDiskTypeList;
Function List(project: string; zone: string; AQuery : TDiskTypeslistOptions) : TDiskTypeList;
end;
{ --------------------------------------------------------------------
TDisksResource
--------------------------------------------------------------------}
//Optional query Options for TDisksResource, method AggregatedList
TDisksAggregatedListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
//Optional query Options for TDisksResource, method Insert
TDisksInsertOptions = Record
sourceImage : String;
end;
//Optional query Options for TDisksResource, method List
TDisksListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TDisksResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function AggregatedList(project: string; AQuery : string = '') : TDiskAggregatedList;
Function AggregatedList(project: string; AQuery : TDisksaggregatedListOptions) : TDiskAggregatedList;
Function CreateSnapshot(disk: string; project: string; zone: string; aSnapshot : TSnapshot) : TOperation;
Function Delete(disk: string; project: string; zone: string) : TOperation;
Function Get(disk: string; project: string; zone: string) : TDisk;
Function Insert(project: string; zone: string; aDisk : TDisk; AQuery : string = '') : TOperation;
Function Insert(project: string; zone: string; aDisk : TDisk; AQuery : TDisksinsertOptions) : TOperation;
Function List(project: string; zone: string; AQuery : string = '') : TDiskList;
Function List(project: string; zone: string; AQuery : TDiskslistOptions) : TDiskList;
Function Resize(disk: string; project: string; zone: string; aDisksResizeRequest : TDisksResizeRequest) : TOperation;
end;
{ --------------------------------------------------------------------
TFirewallsResource
--------------------------------------------------------------------}
//Optional query Options for TFirewallsResource, method List
TFirewallsListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TFirewallsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Delete(firewall: string; project: string) : TOperation;
Function Get(firewall: string; project: string) : TFirewall;
Function Insert(project: string; aFirewall : TFirewall) : TOperation;
Function List(project: string; AQuery : string = '') : TFirewallList;
Function List(project: string; AQuery : TFirewallslistOptions) : TFirewallList;
Function Patch(firewall: string; project: string; aFirewall : TFirewall) : TOperation;
Function Update(firewall: string; project: string; aFirewall : TFirewall) : TOperation;
end;
{ --------------------------------------------------------------------
TForwardingRulesResource
--------------------------------------------------------------------}
//Optional query Options for TForwardingRulesResource, method AggregatedList
TForwardingRulesAggregatedListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
//Optional query Options for TForwardingRulesResource, method List
TForwardingRulesListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TForwardingRulesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function AggregatedList(project: string; AQuery : string = '') : TForwardingRuleAggregatedList;
Function AggregatedList(project: string; AQuery : TForwardingRulesaggregatedListOptions) : TForwardingRuleAggregatedList;
Function Delete(forwardingRule: string; project: string; region: string) : TOperation;
Function Get(forwardingRule: string; project: string; region: string) : TForwardingRule;
Function Insert(project: string; region: string; aForwardingRule : TForwardingRule) : TOperation;
Function List(project: string; region: string; AQuery : string = '') : TForwardingRuleList;
Function List(project: string; region: string; AQuery : TForwardingRuleslistOptions) : TForwardingRuleList;
Function SetTarget(forwardingRule: string; project: string; region: string; aTargetReference : TTargetReference) : TOperation;
end;
{ --------------------------------------------------------------------
TGlobalAddressesResource
--------------------------------------------------------------------}
//Optional query Options for TGlobalAddressesResource, method List
TGlobalAddressesListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TGlobalAddressesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Delete(address: string; project: string) : TOperation;
Function Get(address: string; project: string) : TAddress;
Function Insert(project: string; aAddress : TAddress) : TOperation;
Function List(project: string; AQuery : string = '') : TAddressList;
Function List(project: string; AQuery : TGlobalAddresseslistOptions) : TAddressList;
end;
{ --------------------------------------------------------------------
TGlobalForwardingRulesResource
--------------------------------------------------------------------}
//Optional query Options for TGlobalForwardingRulesResource, method List
TGlobalForwardingRulesListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TGlobalForwardingRulesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Delete(forwardingRule: string; project: string) : TOperation;
Function Get(forwardingRule: string; project: string) : TForwardingRule;
Function Insert(project: string; aForwardingRule : TForwardingRule) : TOperation;
Function List(project: string; AQuery : string = '') : TForwardingRuleList;
Function List(project: string; AQuery : TGlobalForwardingRuleslistOptions) : TForwardingRuleList;
Function SetTarget(forwardingRule: string; project: string; aTargetReference : TTargetReference) : TOperation;
end;
{ --------------------------------------------------------------------
TGlobalOperationsResource
--------------------------------------------------------------------}
//Optional query Options for TGlobalOperationsResource, method AggregatedList
TGlobalOperationsAggregatedListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
//Optional query Options for TGlobalOperationsResource, method List
TGlobalOperationsListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TGlobalOperationsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function AggregatedList(project: string; AQuery : string = '') : TOperationAggregatedList;
Function AggregatedList(project: string; AQuery : TGlobalOperationsaggregatedListOptions) : TOperationAggregatedList;
Procedure Delete(operation: string; project: string);
Function Get(operation: string; project: string) : TOperation;
Function List(project: string; AQuery : string = '') : TOperationList;
Function List(project: string; AQuery : TGlobalOperationslistOptions) : TOperationList;
end;
{ --------------------------------------------------------------------
THttpHealthChecksResource
--------------------------------------------------------------------}
//Optional query Options for THttpHealthChecksResource, method List
THttpHealthChecksListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
THttpHealthChecksResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Delete(httpHealthCheck: string; project: string) : TOperation;
Function Get(httpHealthCheck: string; project: string) : THttpHealthCheck;
Function Insert(project: string; aHttpHealthCheck : THttpHealthCheck) : TOperation;
Function List(project: string; AQuery : string = '') : THttpHealthCheckList;
Function List(project: string; AQuery : THttpHealthCheckslistOptions) : THttpHealthCheckList;
Function Patch(httpHealthCheck: string; project: string; aHttpHealthCheck : THttpHealthCheck) : TOperation;
Function Update(httpHealthCheck: string; project: string; aHttpHealthCheck : THttpHealthCheck) : TOperation;
end;
{ --------------------------------------------------------------------
THttpsHealthChecksResource
--------------------------------------------------------------------}
//Optional query Options for THttpsHealthChecksResource, method List
THttpsHealthChecksListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
THttpsHealthChecksResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Delete(httpsHealthCheck: string; project: string) : TOperation;
Function Get(httpsHealthCheck: string; project: string) : THttpsHealthCheck;
Function Insert(project: string; aHttpsHealthCheck : THttpsHealthCheck) : TOperation;
Function List(project: string; AQuery : string = '') : THttpsHealthCheckList;
Function List(project: string; AQuery : THttpsHealthCheckslistOptions) : THttpsHealthCheckList;
Function Patch(httpsHealthCheck: string; project: string; aHttpsHealthCheck : THttpsHealthCheck) : TOperation;
Function Update(httpsHealthCheck: string; project: string; aHttpsHealthCheck : THttpsHealthCheck) : TOperation;
end;
{ --------------------------------------------------------------------
TImagesResource
--------------------------------------------------------------------}
//Optional query Options for TImagesResource, method List
TImagesListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TImagesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Delete(image: string; project: string) : TOperation;
Function Deprecate(image: string; project: string; aDeprecationStatus : TDeprecationStatus) : TOperation;
Function Get(image: string; project: string) : TImage;
Function GetFromFamily(family: string; project: string) : TImage;
Function Insert(project: string; aImage : TImage) : TOperation;
Function List(project: string; AQuery : string = '') : TImageList;
Function List(project: string; AQuery : TImageslistOptions) : TImageList;
end;
{ --------------------------------------------------------------------
TInstanceGroupManagersResource
--------------------------------------------------------------------}
//Optional query Options for TInstanceGroupManagersResource, method AggregatedList
TInstanceGroupManagersAggregatedListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
//Optional query Options for TInstanceGroupManagersResource, method List
TInstanceGroupManagersListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
//Optional query Options for TInstanceGroupManagersResource, method Resize
TInstanceGroupManagersResizeOptions = Record
size : integer;
end;
TInstanceGroupManagersResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function AbandonInstances(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersAbandonInstancesRequest : TInstanceGroupManagersAbandonInstancesRequest) : TOperation;
Function AggregatedList(project: string; AQuery : string = '') : TInstanceGroupManagerAggregatedList;
Function AggregatedList(project: string; AQuery : TInstanceGroupManagersaggregatedListOptions) : TInstanceGroupManagerAggregatedList;
Function Delete(instanceGroupManager: string; project: string; zone: string) : TOperation;
Function DeleteInstances(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersDeleteInstancesRequest : TInstanceGroupManagersDeleteInstancesRequest) : TOperation;
Function Get(instanceGroupManager: string; project: string; zone: string) : TInstanceGroupManager;
Function Insert(project: string; zone: string; aInstanceGroupManager : TInstanceGroupManager) : TOperation;
Function List(project: string; zone: string; AQuery : string = '') : TInstanceGroupManagerList;
Function List(project: string; zone: string; AQuery : TInstanceGroupManagerslistOptions) : TInstanceGroupManagerList;
Function ListManagedInstances(instanceGroupManager: string; project: string; zone: string) : TInstanceGroupManagersListManagedInstancesResponse;
Function RecreateInstances(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersRecreateInstancesRequest : TInstanceGroupManagersRecreateInstancesRequest) : TOperation;
Function Resize(instanceGroupManager: string; project: string; zone: string; AQuery : string = '') : TOperation;
Function Resize(instanceGroupManager: string; project: string; zone: string; AQuery : TInstanceGroupManagersresizeOptions) : TOperation;
Function SetInstanceTemplate(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersSetInstanceTemplateRequest : TInstanceGroupManagersSetInstanceTemplateRequest) : TOperation;
Function SetTargetPools(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersSetTargetPoolsRequest : TInstanceGroupManagersSetTargetPoolsRequest) : TOperation;
end;
{ --------------------------------------------------------------------
TInstanceGroupsResource
--------------------------------------------------------------------}
//Optional query Options for TInstanceGroupsResource, method AggregatedList
TInstanceGroupsAggregatedListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
//Optional query Options for TInstanceGroupsResource, method List
TInstanceGroupsListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
//Optional query Options for TInstanceGroupsResource, method ListInstances
TInstanceGroupsListInstancesOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TInstanceGroupsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function AddInstances(instanceGroup: string; project: string; zone: string; aInstanceGroupsAddInstancesRequest : TInstanceGroupsAddInstancesRequest) : TOperation;
Function AggregatedList(project: string; AQuery : string = '') : TInstanceGroupAggregatedList;
Function AggregatedList(project: string; AQuery : TInstanceGroupsaggregatedListOptions) : TInstanceGroupAggregatedList;
Function Delete(instanceGroup: string; project: string; zone: string) : TOperation;
Function Get(instanceGroup: string; project: string; zone: string) : TInstanceGroup;
Function Insert(project: string; zone: string; aInstanceGroup : TInstanceGroup) : TOperation;
Function List(project: string; zone: string; AQuery : string = '') : TInstanceGroupList;
Function List(project: string; zone: string; AQuery : TInstanceGroupslistOptions) : TInstanceGroupList;
Function ListInstances(instanceGroup: string; project: string; zone: string; aInstanceGroupsListInstancesRequest : TInstanceGroupsListInstancesRequest; AQuery : string = '') : TInstanceGroupsListInstances;
Function ListInstances(instanceGroup: string; project: string; zone: string; aInstanceGroupsListInstancesRequest : TInstanceGroupsListInstancesRequest; AQuery : TInstanceGroupslistInstancesOptions) : TInstanceGroupsListInstances;
Function RemoveInstances(instanceGroup: string; project: string; zone: string; aInstanceGroupsRemoveInstancesRequest : TInstanceGroupsRemoveInstancesRequest) : TOperation;
Function SetNamedPorts(instanceGroup: string; project: string; zone: string; aInstanceGroupsSetNamedPortsRequest : TInstanceGroupsSetNamedPortsRequest) : TOperation;
end;
{ --------------------------------------------------------------------
TInstanceTemplatesResource
--------------------------------------------------------------------}
//Optional query Options for TInstanceTemplatesResource, method List
TInstanceTemplatesListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TInstanceTemplatesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Delete(instanceTemplate: string; project: string) : TOperation;
Function Get(instanceTemplate: string; project: string) : TInstanceTemplate;
Function Insert(project: string; aInstanceTemplate : TInstanceTemplate) : TOperation;
Function List(project: string; AQuery : string = '') : TInstanceTemplateList;
Function List(project: string; AQuery : TInstanceTemplateslistOptions) : TInstanceTemplateList;
end;
{ --------------------------------------------------------------------
TInstancesResource
--------------------------------------------------------------------}
//Optional query Options for TInstancesResource, method AddAccessConfig
TInstancesAddAccessConfigOptions = Record
networkInterface : String;
end;
//Optional query Options for TInstancesResource, method AggregatedList
TInstancesAggregatedListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
//Optional query Options for TInstancesResource, method DeleteAccessConfig
TInstancesDeleteAccessConfigOptions = Record
accessConfig : String;
networkInterface : String;
end;
//Optional query Options for TInstancesResource, method DetachDisk
TInstancesDetachDiskOptions = Record
deviceName : String;
end;
//Optional query Options for TInstancesResource, method GetSerialPortOutput
TInstancesGetSerialPortOutputOptions = Record
port : integer;
end;
//Optional query Options for TInstancesResource, method List
TInstancesListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
//Optional query Options for TInstancesResource, method SetDiskAutoDelete
TInstancesSetDiskAutoDeleteOptions = Record
autoDelete : boolean;
deviceName : String;
end;
TInstancesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function AddAccessConfig(instance: string; project: string; zone: string; aAccessConfig : TAccessConfig; AQuery : string = '') : TOperation;
Function AddAccessConfig(instance: string; project: string; zone: string; aAccessConfig : TAccessConfig; AQuery : TInstancesaddAccessConfigOptions) : TOperation;
Function AggregatedList(project: string; AQuery : string = '') : TInstanceAggregatedList;
Function AggregatedList(project: string; AQuery : TInstancesaggregatedListOptions) : TInstanceAggregatedList;
Function AttachDisk(instance: string; project: string; zone: string; aAttachedDisk : TAttachedDisk) : TOperation;
Function Delete(instance: string; project: string; zone: string) : TOperation;
Function DeleteAccessConfig(instance: string; project: string; zone: string; AQuery : string = '') : TOperation;
Function DeleteAccessConfig(instance: string; project: string; zone: string; AQuery : TInstancesdeleteAccessConfigOptions) : TOperation;
Function DetachDisk(instance: string; project: string; zone: string; AQuery : string = '') : TOperation;
Function DetachDisk(instance: string; project: string; zone: string; AQuery : TInstancesdetachDiskOptions) : TOperation;
Function Get(instance: string; project: string; zone: string) : TInstance;
Function GetSerialPortOutput(instance: string; project: string; zone: string; AQuery : string = '') : TSerialPortOutput;
Function GetSerialPortOutput(instance: string; project: string; zone: string; AQuery : TInstancesgetSerialPortOutputOptions) : TSerialPortOutput;
Function Insert(project: string; zone: string; aInstance : TInstance) : TOperation;
Function List(project: string; zone: string; AQuery : string = '') : TInstanceList;
Function List(project: string; zone: string; AQuery : TInstanceslistOptions) : TInstanceList;
Function Reset(instance: string; project: string; zone: string) : TOperation;
Function SetDiskAutoDelete(instance: string; project: string; zone: string; AQuery : string = '') : TOperation;
Function SetDiskAutoDelete(instance: string; project: string; zone: string; AQuery : TInstancessetDiskAutoDeleteOptions) : TOperation;
Function SetMachineType(instance: string; project: string; zone: string; aInstancesSetMachineTypeRequest : TInstancesSetMachineTypeRequest) : TOperation;
Function SetMetadata(instance: string; project: string; zone: string; aMetadata : TMetadata) : TOperation;
Function SetScheduling(instance: string; project: string; zone: string; aScheduling : TScheduling) : TOperation;
Function SetTags(instance: string; project: string; zone: string; aTags : TTags) : TOperation;
Function Start(instance: string; project: string; zone: string) : TOperation;
Function Stop(instance: string; project: string; zone: string) : TOperation;
end;
{ --------------------------------------------------------------------
TLicensesResource
--------------------------------------------------------------------}
TLicensesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Get(license: string; project: string) : TLicense;
end;
{ --------------------------------------------------------------------
TMachineTypesResource
--------------------------------------------------------------------}
//Optional query Options for TMachineTypesResource, method AggregatedList
TMachineTypesAggregatedListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
//Optional query Options for TMachineTypesResource, method List
TMachineTypesListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TMachineTypesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function AggregatedList(project: string; AQuery : string = '') : TMachineTypeAggregatedList;
Function AggregatedList(project: string; AQuery : TMachineTypesaggregatedListOptions) : TMachineTypeAggregatedList;
Function Get(machineType: string; project: string; zone: string) : TMachineType;
Function List(project: string; zone: string; AQuery : string = '') : TMachineTypeList;
Function List(project: string; zone: string; AQuery : TMachineTypeslistOptions) : TMachineTypeList;
end;
{ --------------------------------------------------------------------
TNetworksResource
--------------------------------------------------------------------}
//Optional query Options for TNetworksResource, method List
TNetworksListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TNetworksResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Delete(network: string; project: string) : TOperation;
Function Get(network: string; project: string) : TNetwork;
Function Insert(project: string; aNetwork : TNetwork) : TOperation;
Function List(project: string; AQuery : string = '') : TNetworkList;
Function List(project: string; AQuery : TNetworkslistOptions) : TNetworkList;
end;
{ --------------------------------------------------------------------
TProjectsResource
--------------------------------------------------------------------}
TProjectsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Get(project: string) : TProject;
Function MoveDisk(project: string; aDiskMoveRequest : TDiskMoveRequest) : TOperation;
Function MoveInstance(project: string; aInstanceMoveRequest : TInstanceMoveRequest) : TOperation;
Function SetCommonInstanceMetadata(project: string; aMetadata : TMetadata) : TOperation;
Function SetUsageExportBucket(project: string; aUsageExportLocation : TUsageExportLocation) : TOperation;
end;
{ --------------------------------------------------------------------
TRegionOperationsResource
--------------------------------------------------------------------}
//Optional query Options for TRegionOperationsResource, method List
TRegionOperationsListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TRegionOperationsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Procedure Delete(operation: string; project: string; region: string);
Function Get(operation: string; project: string; region: string) : TOperation;
Function List(project: string; region: string; AQuery : string = '') : TOperationList;
Function List(project: string; region: string; AQuery : TRegionOperationslistOptions) : TOperationList;
end;
{ --------------------------------------------------------------------
TRegionsResource
--------------------------------------------------------------------}
//Optional query Options for TRegionsResource, method List
TRegionsListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TRegionsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Get(project: string; region: string) : TRegion;
Function List(project: string; AQuery : string = '') : TRegionList;
Function List(project: string; AQuery : TRegionslistOptions) : TRegionList;
end;
{ --------------------------------------------------------------------
TRoutesResource
--------------------------------------------------------------------}
//Optional query Options for TRoutesResource, method List
TRoutesListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TRoutesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Delete(project: string; route: string) : TOperation;
Function Get(project: string; route: string) : TRoute;
Function Insert(project: string; aRoute : TRoute) : TOperation;
Function List(project: string; AQuery : string = '') : TRouteList;
Function List(project: string; AQuery : TRouteslistOptions) : TRouteList;
end;
{ --------------------------------------------------------------------
TSnapshotsResource
--------------------------------------------------------------------}
//Optional query Options for TSnapshotsResource, method List
TSnapshotsListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TSnapshotsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Delete(project: string; snapshot: string) : TOperation;
Function Get(project: string; snapshot: string) : TSnapshot;
Function List(project: string; AQuery : string = '') : TSnapshotList;
Function List(project: string; AQuery : TSnapshotslistOptions) : TSnapshotList;
end;
{ --------------------------------------------------------------------
TSslCertificatesResource
--------------------------------------------------------------------}
//Optional query Options for TSslCertificatesResource, method List
TSslCertificatesListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TSslCertificatesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Delete(project: string; sslCertificate: string) : TOperation;
Function Get(project: string; sslCertificate: string) : TSslCertificate;
Function Insert(project: string; aSslCertificate : TSslCertificate) : TOperation;
Function List(project: string; AQuery : string = '') : TSslCertificateList;
Function List(project: string; AQuery : TSslCertificateslistOptions) : TSslCertificateList;
end;
{ --------------------------------------------------------------------
TSubnetworksResource
--------------------------------------------------------------------}
//Optional query Options for TSubnetworksResource, method AggregatedList
TSubnetworksAggregatedListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
//Optional query Options for TSubnetworksResource, method List
TSubnetworksListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TSubnetworksResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function AggregatedList(project: string; AQuery : string = '') : TSubnetworkAggregatedList;
Function AggregatedList(project: string; AQuery : TSubnetworksaggregatedListOptions) : TSubnetworkAggregatedList;
Function Delete(project: string; region: string; subnetwork: string) : TOperation;
Function Get(project: string; region: string; subnetwork: string) : TSubnetwork;
Function Insert(project: string; region: string; aSubnetwork : TSubnetwork) : TOperation;
Function List(project: string; region: string; AQuery : string = '') : TSubnetworkList;
Function List(project: string; region: string; AQuery : TSubnetworkslistOptions) : TSubnetworkList;
end;
{ --------------------------------------------------------------------
TTargetHttpProxiesResource
--------------------------------------------------------------------}
//Optional query Options for TTargetHttpProxiesResource, method List
TTargetHttpProxiesListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TTargetHttpProxiesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Delete(project: string; targetHttpProxy: string) : TOperation;
Function Get(project: string; targetHttpProxy: string) : TTargetHttpProxy;
Function Insert(project: string; aTargetHttpProxy : TTargetHttpProxy) : TOperation;
Function List(project: string; AQuery : string = '') : TTargetHttpProxyList;
Function List(project: string; AQuery : TTargetHttpProxieslistOptions) : TTargetHttpProxyList;
Function SetUrlMap(project: string; targetHttpProxy: string; aUrlMapReference : TUrlMapReference) : TOperation;
end;
{ --------------------------------------------------------------------
TTargetHttpsProxiesResource
--------------------------------------------------------------------}
//Optional query Options for TTargetHttpsProxiesResource, method List
TTargetHttpsProxiesListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TTargetHttpsProxiesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Delete(project: string; targetHttpsProxy: string) : TOperation;
Function Get(project: string; targetHttpsProxy: string) : TTargetHttpsProxy;
Function Insert(project: string; aTargetHttpsProxy : TTargetHttpsProxy) : TOperation;
Function List(project: string; AQuery : string = '') : TTargetHttpsProxyList;
Function List(project: string; AQuery : TTargetHttpsProxieslistOptions) : TTargetHttpsProxyList;
Function SetSslCertificates(project: string; targetHttpsProxy: string; aTargetHttpsProxiesSetSslCertificatesRequest : TTargetHttpsProxiesSetSslCertificatesRequest) : TOperation;
Function SetUrlMap(project: string; targetHttpsProxy: string; aUrlMapReference : TUrlMapReference) : TOperation;
end;
{ --------------------------------------------------------------------
TTargetInstancesResource
--------------------------------------------------------------------}
//Optional query Options for TTargetInstancesResource, method AggregatedList
TTargetInstancesAggregatedListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
//Optional query Options for TTargetInstancesResource, method List
TTargetInstancesListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TTargetInstancesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function AggregatedList(project: string; AQuery : string = '') : TTargetInstanceAggregatedList;
Function AggregatedList(project: string; AQuery : TTargetInstancesaggregatedListOptions) : TTargetInstanceAggregatedList;
Function Delete(project: string; targetInstance: string; zone: string) : TOperation;
Function Get(project: string; targetInstance: string; zone: string) : TTargetInstance;
Function Insert(project: string; zone: string; aTargetInstance : TTargetInstance) : TOperation;
Function List(project: string; zone: string; AQuery : string = '') : TTargetInstanceList;
Function List(project: string; zone: string; AQuery : TTargetInstanceslistOptions) : TTargetInstanceList;
end;
{ --------------------------------------------------------------------
TTargetPoolsResource
--------------------------------------------------------------------}
//Optional query Options for TTargetPoolsResource, method AggregatedList
TTargetPoolsAggregatedListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
//Optional query Options for TTargetPoolsResource, method List
TTargetPoolsListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
//Optional query Options for TTargetPoolsResource, method SetBackup
TTargetPoolsSetBackupOptions = Record
failoverRatio : integer;
end;
TTargetPoolsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function AddHealthCheck(project: string; region: string; targetPool: string; aTargetPoolsAddHealthCheckRequest : TTargetPoolsAddHealthCheckRequest) : TOperation;
Function AddInstance(project: string; region: string; targetPool: string; aTargetPoolsAddInstanceRequest : TTargetPoolsAddInstanceRequest) : TOperation;
Function AggregatedList(project: string; AQuery : string = '') : TTargetPoolAggregatedList;
Function AggregatedList(project: string; AQuery : TTargetPoolsaggregatedListOptions) : TTargetPoolAggregatedList;
Function Delete(project: string; region: string; targetPool: string) : TOperation;
Function Get(project: string; region: string; targetPool: string) : TTargetPool;
Function GetHealth(project: string; region: string; targetPool: string; aInstanceReference : TInstanceReference) : TTargetPoolInstanceHealth;
Function Insert(project: string; region: string; aTargetPool : TTargetPool) : TOperation;
Function List(project: string; region: string; AQuery : string = '') : TTargetPoolList;
Function List(project: string; region: string; AQuery : TTargetPoolslistOptions) : TTargetPoolList;
Function RemoveHealthCheck(project: string; region: string; targetPool: string; aTargetPoolsRemoveHealthCheckRequest : TTargetPoolsRemoveHealthCheckRequest) : TOperation;
Function RemoveInstance(project: string; region: string; targetPool: string; aTargetPoolsRemoveInstanceRequest : TTargetPoolsRemoveInstanceRequest) : TOperation;
Function SetBackup(project: string; region: string; targetPool: string; aTargetReference : TTargetReference; AQuery : string = '') : TOperation;
Function SetBackup(project: string; region: string; targetPool: string; aTargetReference : TTargetReference; AQuery : TTargetPoolssetBackupOptions) : TOperation;
end;
{ --------------------------------------------------------------------
TTargetVpnGatewaysResource
--------------------------------------------------------------------}
//Optional query Options for TTargetVpnGatewaysResource, method AggregatedList
TTargetVpnGatewaysAggregatedListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
//Optional query Options for TTargetVpnGatewaysResource, method List
TTargetVpnGatewaysListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TTargetVpnGatewaysResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function AggregatedList(project: string; AQuery : string = '') : TTargetVpnGatewayAggregatedList;
Function AggregatedList(project: string; AQuery : TTargetVpnGatewaysaggregatedListOptions) : TTargetVpnGatewayAggregatedList;
Function Delete(project: string; region: string; targetVpnGateway: string) : TOperation;
Function Get(project: string; region: string; targetVpnGateway: string) : TTargetVpnGateway;
Function Insert(project: string; region: string; aTargetVpnGateway : TTargetVpnGateway) : TOperation;
Function List(project: string; region: string; AQuery : string = '') : TTargetVpnGatewayList;
Function List(project: string; region: string; AQuery : TTargetVpnGatewayslistOptions) : TTargetVpnGatewayList;
end;
{ --------------------------------------------------------------------
TUrlMapsResource
--------------------------------------------------------------------}
//Optional query Options for TUrlMapsResource, method List
TUrlMapsListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TUrlMapsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Delete(project: string; urlMap: string) : TOperation;
Function Get(project: string; urlMap: string) : TUrlMap;
Function Insert(project: string; aUrlMap : TUrlMap) : TOperation;
Function List(project: string; AQuery : string = '') : TUrlMapList;
Function List(project: string; AQuery : TUrlMapslistOptions) : TUrlMapList;
Function Patch(project: string; urlMap: string; aUrlMap : TUrlMap) : TOperation;
Function Update(project: string; urlMap: string; aUrlMap : TUrlMap) : TOperation;
Function Validate(project: string; urlMap: string; aUrlMapsValidateRequest : TUrlMapsValidateRequest) : TUrlMapsValidateResponse;
end;
{ --------------------------------------------------------------------
TVpnTunnelsResource
--------------------------------------------------------------------}
//Optional query Options for TVpnTunnelsResource, method AggregatedList
TVpnTunnelsAggregatedListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
//Optional query Options for TVpnTunnelsResource, method List
TVpnTunnelsListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TVpnTunnelsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function AggregatedList(project: string; AQuery : string = '') : TVpnTunnelAggregatedList;
Function AggregatedList(project: string; AQuery : TVpnTunnelsaggregatedListOptions) : TVpnTunnelAggregatedList;
Function Delete(project: string; region: string; vpnTunnel: string) : TOperation;
Function Get(project: string; region: string; vpnTunnel: string) : TVpnTunnel;
Function Insert(project: string; region: string; aVpnTunnel : TVpnTunnel) : TOperation;
Function List(project: string; region: string; AQuery : string = '') : TVpnTunnelList;
Function List(project: string; region: string; AQuery : TVpnTunnelslistOptions) : TVpnTunnelList;
end;
{ --------------------------------------------------------------------
TZoneOperationsResource
--------------------------------------------------------------------}
//Optional query Options for TZoneOperationsResource, method List
TZoneOperationsListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TZoneOperationsResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Procedure Delete(operation: string; project: string; zone: string);
Function Get(operation: string; project: string; zone: string) : TOperation;
Function List(project: string; zone: string; AQuery : string = '') : TOperationList;
Function List(project: string; zone: string; AQuery : TZoneOperationslistOptions) : TOperationList;
end;
{ --------------------------------------------------------------------
TZonesResource
--------------------------------------------------------------------}
//Optional query Options for TZonesResource, method List
TZonesListOptions = Record
filter : String;
maxResults : integer;
pageToken : String;
end;
TZonesResource = Class(TGoogleResource)
Public
Class Function ResourceName : String; override;
Class Function DefaultAPI : TGoogleAPIClass; override;
Function Get(project: string; zone: string) : TZone;
Function List(project: string; AQuery : string = '') : TZoneList;
Function List(project: string; AQuery : TZoneslistOptions) : TZoneList;
end;
{ --------------------------------------------------------------------
TComputeAPI
--------------------------------------------------------------------}
TComputeAPI = Class(TGoogleAPI)
Private
FAddressesInstance : TAddressesResource;
FAutoscalersInstance : TAutoscalersResource;
FBackendServicesInstance : TBackendServicesResource;
FDiskTypesInstance : TDiskTypesResource;
FDisksInstance : TDisksResource;
FFirewallsInstance : TFirewallsResource;
FForwardingRulesInstance : TForwardingRulesResource;
FGlobalAddressesInstance : TGlobalAddressesResource;
FGlobalForwardingRulesInstance : TGlobalForwardingRulesResource;
FGlobalOperationsInstance : TGlobalOperationsResource;
FHttpHealthChecksInstance : THttpHealthChecksResource;
FHttpsHealthChecksInstance : THttpsHealthChecksResource;
FImagesInstance : TImagesResource;
FInstanceGroupManagersInstance : TInstanceGroupManagersResource;
FInstanceGroupsInstance : TInstanceGroupsResource;
FInstanceTemplatesInstance : TInstanceTemplatesResource;
FInstancesInstance : TInstancesResource;
FLicensesInstance : TLicensesResource;
FMachineTypesInstance : TMachineTypesResource;
FNetworksInstance : TNetworksResource;
FProjectsInstance : TProjectsResource;
FRegionOperationsInstance : TRegionOperationsResource;
FRegionsInstance : TRegionsResource;
FRoutesInstance : TRoutesResource;
FSnapshotsInstance : TSnapshotsResource;
FSslCertificatesInstance : TSslCertificatesResource;
FSubnetworksInstance : TSubnetworksResource;
FTargetHttpProxiesInstance : TTargetHttpProxiesResource;
FTargetHttpsProxiesInstance : TTargetHttpsProxiesResource;
FTargetInstancesInstance : TTargetInstancesResource;
FTargetPoolsInstance : TTargetPoolsResource;
FTargetVpnGatewaysInstance : TTargetVpnGatewaysResource;
FUrlMapsInstance : TUrlMapsResource;
FVpnTunnelsInstance : TVpnTunnelsResource;
FZoneOperationsInstance : TZoneOperationsResource;
FZonesInstance : TZonesResource;
Function GetAddressesInstance : TAddressesResource;virtual;
Function GetAutoscalersInstance : TAutoscalersResource;virtual;
Function GetBackendServicesInstance : TBackendServicesResource;virtual;
Function GetDiskTypesInstance : TDiskTypesResource;virtual;
Function GetDisksInstance : TDisksResource;virtual;
Function GetFirewallsInstance : TFirewallsResource;virtual;
Function GetForwardingRulesInstance : TForwardingRulesResource;virtual;
Function GetGlobalAddressesInstance : TGlobalAddressesResource;virtual;
Function GetGlobalForwardingRulesInstance : TGlobalForwardingRulesResource;virtual;
Function GetGlobalOperationsInstance : TGlobalOperationsResource;virtual;
Function GetHttpHealthChecksInstance : THttpHealthChecksResource;virtual;
Function GetHttpsHealthChecksInstance : THttpsHealthChecksResource;virtual;
Function GetImagesInstance : TImagesResource;virtual;
Function GetInstanceGroupManagersInstance : TInstanceGroupManagersResource;virtual;
Function GetInstanceGroupsInstance : TInstanceGroupsResource;virtual;
Function GetInstanceTemplatesInstance : TInstanceTemplatesResource;virtual;
Function GetInstancesInstance : TInstancesResource;virtual;
Function GetLicensesInstance : TLicensesResource;virtual;
Function GetMachineTypesInstance : TMachineTypesResource;virtual;
Function GetNetworksInstance : TNetworksResource;virtual;
Function GetProjectsInstance : TProjectsResource;virtual;
Function GetRegionOperationsInstance : TRegionOperationsResource;virtual;
Function GetRegionsInstance : TRegionsResource;virtual;
Function GetRoutesInstance : TRoutesResource;virtual;
Function GetSnapshotsInstance : TSnapshotsResource;virtual;
Function GetSslCertificatesInstance : TSslCertificatesResource;virtual;
Function GetSubnetworksInstance : TSubnetworksResource;virtual;
Function GetTargetHttpProxiesInstance : TTargetHttpProxiesResource;virtual;
Function GetTargetHttpsProxiesInstance : TTargetHttpsProxiesResource;virtual;
Function GetTargetInstancesInstance : TTargetInstancesResource;virtual;
Function GetTargetPoolsInstance : TTargetPoolsResource;virtual;
Function GetTargetVpnGatewaysInstance : TTargetVpnGatewaysResource;virtual;
Function GetUrlMapsInstance : TUrlMapsResource;virtual;
Function GetVpnTunnelsInstance : TVpnTunnelsResource;virtual;
Function GetZoneOperationsInstance : TZoneOperationsResource;virtual;
Function GetZonesInstance : TZonesResource;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 CreateAddressesResource(AOwner : TComponent) : TAddressesResource;virtual;overload;
Function CreateAddressesResource : TAddressesResource;virtual;overload;
Function CreateAutoscalersResource(AOwner : TComponent) : TAutoscalersResource;virtual;overload;
Function CreateAutoscalersResource : TAutoscalersResource;virtual;overload;
Function CreateBackendServicesResource(AOwner : TComponent) : TBackendServicesResource;virtual;overload;
Function CreateBackendServicesResource : TBackendServicesResource;virtual;overload;
Function CreateDiskTypesResource(AOwner : TComponent) : TDiskTypesResource;virtual;overload;
Function CreateDiskTypesResource : TDiskTypesResource;virtual;overload;
Function CreateDisksResource(AOwner : TComponent) : TDisksResource;virtual;overload;
Function CreateDisksResource : TDisksResource;virtual;overload;
Function CreateFirewallsResource(AOwner : TComponent) : TFirewallsResource;virtual;overload;
Function CreateFirewallsResource : TFirewallsResource;virtual;overload;
Function CreateForwardingRulesResource(AOwner : TComponent) : TForwardingRulesResource;virtual;overload;
Function CreateForwardingRulesResource : TForwardingRulesResource;virtual;overload;
Function CreateGlobalAddressesResource(AOwner : TComponent) : TGlobalAddressesResource;virtual;overload;
Function CreateGlobalAddressesResource : TGlobalAddressesResource;virtual;overload;
Function CreateGlobalForwardingRulesResource(AOwner : TComponent) : TGlobalForwardingRulesResource;virtual;overload;
Function CreateGlobalForwardingRulesResource : TGlobalForwardingRulesResource;virtual;overload;
Function CreateGlobalOperationsResource(AOwner : TComponent) : TGlobalOperationsResource;virtual;overload;
Function CreateGlobalOperationsResource : TGlobalOperationsResource;virtual;overload;
Function CreateHttpHealthChecksResource(AOwner : TComponent) : THttpHealthChecksResource;virtual;overload;
Function CreateHttpHealthChecksResource : THttpHealthChecksResource;virtual;overload;
Function CreateHttpsHealthChecksResource(AOwner : TComponent) : THttpsHealthChecksResource;virtual;overload;
Function CreateHttpsHealthChecksResource : THttpsHealthChecksResource;virtual;overload;
Function CreateImagesResource(AOwner : TComponent) : TImagesResource;virtual;overload;
Function CreateImagesResource : TImagesResource;virtual;overload;
Function CreateInstanceGroupManagersResource(AOwner : TComponent) : TInstanceGroupManagersResource;virtual;overload;
Function CreateInstanceGroupManagersResource : TInstanceGroupManagersResource;virtual;overload;
Function CreateInstanceGroupsResource(AOwner : TComponent) : TInstanceGroupsResource;virtual;overload;
Function CreateInstanceGroupsResource : TInstanceGroupsResource;virtual;overload;
Function CreateInstanceTemplatesResource(AOwner : TComponent) : TInstanceTemplatesResource;virtual;overload;
Function CreateInstanceTemplatesResource : TInstanceTemplatesResource;virtual;overload;
Function CreateInstancesResource(AOwner : TComponent) : TInstancesResource;virtual;overload;
Function CreateInstancesResource : TInstancesResource;virtual;overload;
Function CreateLicensesResource(AOwner : TComponent) : TLicensesResource;virtual;overload;
Function CreateLicensesResource : TLicensesResource;virtual;overload;
Function CreateMachineTypesResource(AOwner : TComponent) : TMachineTypesResource;virtual;overload;
Function CreateMachineTypesResource : TMachineTypesResource;virtual;overload;
Function CreateNetworksResource(AOwner : TComponent) : TNetworksResource;virtual;overload;
Function CreateNetworksResource : TNetworksResource;virtual;overload;
Function CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload;
Function CreateProjectsResource : TProjectsResource;virtual;overload;
Function CreateRegionOperationsResource(AOwner : TComponent) : TRegionOperationsResource;virtual;overload;
Function CreateRegionOperationsResource : TRegionOperationsResource;virtual;overload;
Function CreateRegionsResource(AOwner : TComponent) : TRegionsResource;virtual;overload;
Function CreateRegionsResource : TRegionsResource;virtual;overload;
Function CreateRoutesResource(AOwner : TComponent) : TRoutesResource;virtual;overload;
Function CreateRoutesResource : TRoutesResource;virtual;overload;
Function CreateSnapshotsResource(AOwner : TComponent) : TSnapshotsResource;virtual;overload;
Function CreateSnapshotsResource : TSnapshotsResource;virtual;overload;
Function CreateSslCertificatesResource(AOwner : TComponent) : TSslCertificatesResource;virtual;overload;
Function CreateSslCertificatesResource : TSslCertificatesResource;virtual;overload;
Function CreateSubnetworksResource(AOwner : TComponent) : TSubnetworksResource;virtual;overload;
Function CreateSubnetworksResource : TSubnetworksResource;virtual;overload;
Function CreateTargetHttpProxiesResource(AOwner : TComponent) : TTargetHttpProxiesResource;virtual;overload;
Function CreateTargetHttpProxiesResource : TTargetHttpProxiesResource;virtual;overload;
Function CreateTargetHttpsProxiesResource(AOwner : TComponent) : TTargetHttpsProxiesResource;virtual;overload;
Function CreateTargetHttpsProxiesResource : TTargetHttpsProxiesResource;virtual;overload;
Function CreateTargetInstancesResource(AOwner : TComponent) : TTargetInstancesResource;virtual;overload;
Function CreateTargetInstancesResource : TTargetInstancesResource;virtual;overload;
Function CreateTargetPoolsResource(AOwner : TComponent) : TTargetPoolsResource;virtual;overload;
Function CreateTargetPoolsResource : TTargetPoolsResource;virtual;overload;
Function CreateTargetVpnGatewaysResource(AOwner : TComponent) : TTargetVpnGatewaysResource;virtual;overload;
Function CreateTargetVpnGatewaysResource : TTargetVpnGatewaysResource;virtual;overload;
Function CreateUrlMapsResource(AOwner : TComponent) : TUrlMapsResource;virtual;overload;
Function CreateUrlMapsResource : TUrlMapsResource;virtual;overload;
Function CreateVpnTunnelsResource(AOwner : TComponent) : TVpnTunnelsResource;virtual;overload;
Function CreateVpnTunnelsResource : TVpnTunnelsResource;virtual;overload;
Function CreateZoneOperationsResource(AOwner : TComponent) : TZoneOperationsResource;virtual;overload;
Function CreateZoneOperationsResource : TZoneOperationsResource;virtual;overload;
Function CreateZonesResource(AOwner : TComponent) : TZonesResource;virtual;overload;
Function CreateZonesResource : TZonesResource;virtual;overload;
//Add default on-demand instances for resources
Property AddressesResource : TAddressesResource Read GetAddressesInstance;
Property AutoscalersResource : TAutoscalersResource Read GetAutoscalersInstance;
Property BackendServicesResource : TBackendServicesResource Read GetBackendServicesInstance;
Property DiskTypesResource : TDiskTypesResource Read GetDiskTypesInstance;
Property DisksResource : TDisksResource Read GetDisksInstance;
Property FirewallsResource : TFirewallsResource Read GetFirewallsInstance;
Property ForwardingRulesResource : TForwardingRulesResource Read GetForwardingRulesInstance;
Property GlobalAddressesResource : TGlobalAddressesResource Read GetGlobalAddressesInstance;
Property GlobalForwardingRulesResource : TGlobalForwardingRulesResource Read GetGlobalForwardingRulesInstance;
Property GlobalOperationsResource : TGlobalOperationsResource Read GetGlobalOperationsInstance;
Property HttpHealthChecksResource : THttpHealthChecksResource Read GetHttpHealthChecksInstance;
Property HttpsHealthChecksResource : THttpsHealthChecksResource Read GetHttpsHealthChecksInstance;
Property ImagesResource : TImagesResource Read GetImagesInstance;
Property InstanceGroupManagersResource : TInstanceGroupManagersResource Read GetInstanceGroupManagersInstance;
Property InstanceGroupsResource : TInstanceGroupsResource Read GetInstanceGroupsInstance;
Property InstanceTemplatesResource : TInstanceTemplatesResource Read GetInstanceTemplatesInstance;
Property InstancesResource : TInstancesResource Read GetInstancesInstance;
Property LicensesResource : TLicensesResource Read GetLicensesInstance;
Property MachineTypesResource : TMachineTypesResource Read GetMachineTypesInstance;
Property NetworksResource : TNetworksResource Read GetNetworksInstance;
Property ProjectsResource : TProjectsResource Read GetProjectsInstance;
Property RegionOperationsResource : TRegionOperationsResource Read GetRegionOperationsInstance;
Property RegionsResource : TRegionsResource Read GetRegionsInstance;
Property RoutesResource : TRoutesResource Read GetRoutesInstance;
Property SnapshotsResource : TSnapshotsResource Read GetSnapshotsInstance;
Property SslCertificatesResource : TSslCertificatesResource Read GetSslCertificatesInstance;
Property SubnetworksResource : TSubnetworksResource Read GetSubnetworksInstance;
Property TargetHttpProxiesResource : TTargetHttpProxiesResource Read GetTargetHttpProxiesInstance;
Property TargetHttpsProxiesResource : TTargetHttpsProxiesResource Read GetTargetHttpsProxiesInstance;
Property TargetInstancesResource : TTargetInstancesResource Read GetTargetInstancesInstance;
Property TargetPoolsResource : TTargetPoolsResource Read GetTargetPoolsInstance;
Property TargetVpnGatewaysResource : TTargetVpnGatewaysResource Read GetTargetVpnGatewaysInstance;
Property UrlMapsResource : TUrlMapsResource Read GetUrlMapsInstance;
Property VpnTunnelsResource : TVpnTunnelsResource Read GetVpnTunnelsInstance;
Property ZoneOperationsResource : TZoneOperationsResource Read GetZoneOperationsInstance;
Property ZonesResource : TZonesResource Read GetZonesInstance;
end;
implementation
{ --------------------------------------------------------------------
TAccessConfig
--------------------------------------------------------------------}
Procedure TAccessConfig.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAccessConfig.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAccessConfig.SetnatIP(AIndex : Integer; const AValue : String);
begin
If (FnatIP=AValue) then exit;
FnatIP:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAccessConfig.Set_type(AIndex : Integer; const AValue : String);
begin
If (F_type=AValue) then exit;
F_type:=AValue;
MarkPropertyChanged(AIndex);
end;
Class Function TAccessConfig.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
'_type' : Result:='type';
else
Result:=Inherited ExportPropertyName(AName);
end;
end;
{ --------------------------------------------------------------------
TAddress
--------------------------------------------------------------------}
Procedure TAddress.Setaddress(AIndex : Integer; const AValue : String);
begin
If (Faddress=AValue) then exit;
Faddress:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAddress.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAddress.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAddress.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAddress.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAddress.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAddress.Setregion(AIndex : Integer; const AValue : String);
begin
If (Fregion=AValue) then exit;
Fregion:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAddress.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAddress.Setstatus(AIndex : Integer; const AValue : String);
begin
If (Fstatus=AValue) then exit;
Fstatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAddress.Setusers(AIndex : Integer; const AValue : TStringArray);
begin
If (Fusers=AValue) then exit;
Fusers:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TAddress.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'users' : SetLength(Fusers,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TAddressAggregatedListTypeitems
--------------------------------------------------------------------}
Class Function TAddressAggregatedListTypeitems.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TAddressAggregatedList
--------------------------------------------------------------------}
Procedure TAddressAggregatedList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAddressAggregatedList.Setitems(AIndex : Integer; const AValue : TAddressAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAddressAggregatedList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAddressAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAddressAggregatedList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TAddressList
--------------------------------------------------------------------}
Procedure TAddressList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAddressList.Setitems(AIndex : Integer; const AValue : TAddressListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAddressList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAddressList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAddressList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TAddressList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TAddressesScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
Procedure TAddressesScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String);
begin
If (Fkey=AValue) then exit;
Fkey:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAddressesScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
begin
If (Fvalue=AValue) then exit;
Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TAddressesScopedListTypewarning
--------------------------------------------------------------------}
Procedure TAddressesScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String);
begin
If (Fcode=AValue) then exit;
Fcode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAddressesScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TAddressesScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
Fdata:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAddressesScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String);
begin
If (Fmessage=AValue) then exit;
Fmessage:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TAddressesScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'data' : SetLength(Fdata,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TAddressesScopedList
--------------------------------------------------------------------}
Procedure TAddressesScopedList.Setaddresses(AIndex : Integer; const AValue : TAddressesScopedListTypeaddressesArray);
begin
If (Faddresses=AValue) then exit;
Faddresses:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAddressesScopedList.Setwarning(AIndex : Integer; const AValue : TAddressesScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
Fwarning:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TAddressesScopedList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'addresses' : SetLength(Faddresses,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TAttachedDisk
--------------------------------------------------------------------}
Procedure TAttachedDisk.SetautoDelete(AIndex : Integer; const AValue : boolean);
begin
If (FautoDelete=AValue) then exit;
FautoDelete:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAttachedDisk.Setboot(AIndex : Integer; const AValue : boolean);
begin
If (Fboot=AValue) then exit;
Fboot:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAttachedDisk.SetdeviceName(AIndex : Integer; const AValue : String);
begin
If (FdeviceName=AValue) then exit;
FdeviceName:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAttachedDisk.Setindex(AIndex : Integer; const AValue : integer);
begin
If (Findex=AValue) then exit;
Findex:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAttachedDisk.SetinitializeParams(AIndex : Integer; const AValue : TAttachedDiskInitializeParams);
begin
If (FinitializeParams=AValue) then exit;
FinitializeParams:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAttachedDisk.Set_interface(AIndex : Integer; const AValue : String);
begin
If (F_interface=AValue) then exit;
F_interface:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAttachedDisk.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAttachedDisk.Setlicenses(AIndex : Integer; const AValue : TStringArray);
begin
If (Flicenses=AValue) then exit;
Flicenses:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAttachedDisk.Setmode(AIndex : Integer; const AValue : String);
begin
If (Fmode=AValue) then exit;
Fmode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAttachedDisk.Setsource(AIndex : Integer; const AValue : String);
begin
If (Fsource=AValue) then exit;
Fsource:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAttachedDisk.Set_type(AIndex : Integer; const AValue : String);
begin
If (F_type=AValue) then exit;
F_type:=AValue;
MarkPropertyChanged(AIndex);
end;
Class Function TAttachedDisk.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
'_interface' : Result:='interface';
'_type' : Result:='type';
else
Result:=Inherited ExportPropertyName(AName);
end;
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TAttachedDisk.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'licenses' : SetLength(Flicenses,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TAttachedDiskInitializeParams
--------------------------------------------------------------------}
Procedure TAttachedDiskInitializeParams.SetdiskName(AIndex : Integer; const AValue : String);
begin
If (FdiskName=AValue) then exit;
FdiskName:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAttachedDiskInitializeParams.SetdiskSizeGb(AIndex : Integer; const AValue : String);
begin
If (FdiskSizeGb=AValue) then exit;
FdiskSizeGb:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAttachedDiskInitializeParams.SetdiskType(AIndex : Integer; const AValue : String);
begin
If (FdiskType=AValue) then exit;
FdiskType:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAttachedDiskInitializeParams.SetsourceImage(AIndex : Integer; const AValue : String);
begin
If (FsourceImage=AValue) then exit;
FsourceImage:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TAutoscaler
--------------------------------------------------------------------}
Procedure TAutoscaler.SetautoscalingPolicy(AIndex : Integer; const AValue : TAutoscalingPolicy);
begin
If (FautoscalingPolicy=AValue) then exit;
FautoscalingPolicy:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscaler.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscaler.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscaler.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscaler.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscaler.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscaler.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscaler.Settarget(AIndex : Integer; const AValue : String);
begin
If (Ftarget=AValue) then exit;
Ftarget:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscaler.Setzone(AIndex : Integer; const AValue : String);
begin
If (Fzone=AValue) then exit;
Fzone:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TAutoscalerAggregatedListTypeitems
--------------------------------------------------------------------}
Class Function TAutoscalerAggregatedListTypeitems.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TAutoscalerAggregatedList
--------------------------------------------------------------------}
Procedure TAutoscalerAggregatedList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscalerAggregatedList.Setitems(AIndex : Integer; const AValue : TAutoscalerAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscalerAggregatedList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscalerAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscalerAggregatedList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TAutoscalerList
--------------------------------------------------------------------}
Procedure TAutoscalerList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscalerList.Setitems(AIndex : Integer; const AValue : TAutoscalerListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscalerList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscalerList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscalerList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TAutoscalerList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TAutoscalersScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
Procedure TAutoscalersScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String);
begin
If (Fkey=AValue) then exit;
Fkey:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscalersScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
begin
If (Fvalue=AValue) then exit;
Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TAutoscalersScopedListTypewarning
--------------------------------------------------------------------}
Procedure TAutoscalersScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String);
begin
If (Fcode=AValue) then exit;
Fcode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscalersScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TAutoscalersScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
Fdata:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscalersScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String);
begin
If (Fmessage=AValue) then exit;
Fmessage:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TAutoscalersScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'data' : SetLength(Fdata,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TAutoscalersScopedList
--------------------------------------------------------------------}
Procedure TAutoscalersScopedList.Setautoscalers(AIndex : Integer; const AValue : TAutoscalersScopedListTypeautoscalersArray);
begin
If (Fautoscalers=AValue) then exit;
Fautoscalers:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscalersScopedList.Setwarning(AIndex : Integer; const AValue : TAutoscalersScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
Fwarning:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TAutoscalersScopedList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'autoscalers' : SetLength(Fautoscalers,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TAutoscalingPolicy
--------------------------------------------------------------------}
Procedure TAutoscalingPolicy.SetcoolDownPeriodSec(AIndex : Integer; const AValue : integer);
begin
If (FcoolDownPeriodSec=AValue) then exit;
FcoolDownPeriodSec:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscalingPolicy.SetcpuUtilization(AIndex : Integer; const AValue : TAutoscalingPolicyCpuUtilization);
begin
If (FcpuUtilization=AValue) then exit;
FcpuUtilization:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscalingPolicy.SetcustomMetricUtilizations(AIndex : Integer; const AValue : TAutoscalingPolicyTypecustomMetricUtilizationsArray);
begin
If (FcustomMetricUtilizations=AValue) then exit;
FcustomMetricUtilizations:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscalingPolicy.SetloadBalancingUtilization(AIndex : Integer; const AValue : TAutoscalingPolicyLoadBalancingUtilization);
begin
If (FloadBalancingUtilization=AValue) then exit;
FloadBalancingUtilization:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscalingPolicy.SetmaxNumReplicas(AIndex : Integer; const AValue : integer);
begin
If (FmaxNumReplicas=AValue) then exit;
FmaxNumReplicas:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscalingPolicy.SetminNumReplicas(AIndex : Integer; const AValue : integer);
begin
If (FminNumReplicas=AValue) then exit;
FminNumReplicas:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TAutoscalingPolicy.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'custommetricutilizations' : SetLength(FcustomMetricUtilizations,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TAutoscalingPolicyCpuUtilization
--------------------------------------------------------------------}
Procedure TAutoscalingPolicyCpuUtilization.SetutilizationTarget(AIndex : Integer; const AValue : double);
begin
If (FutilizationTarget=AValue) then exit;
FutilizationTarget:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TAutoscalingPolicyCustomMetricUtilization
--------------------------------------------------------------------}
Procedure TAutoscalingPolicyCustomMetricUtilization.Setmetric(AIndex : Integer; const AValue : String);
begin
If (Fmetric=AValue) then exit;
Fmetric:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscalingPolicyCustomMetricUtilization.SetutilizationTarget(AIndex : Integer; const AValue : double);
begin
If (FutilizationTarget=AValue) then exit;
FutilizationTarget:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TAutoscalingPolicyCustomMetricUtilization.SetutilizationTargetType(AIndex : Integer; const AValue : String);
begin
If (FutilizationTargetType=AValue) then exit;
FutilizationTargetType:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TAutoscalingPolicyLoadBalancingUtilization
--------------------------------------------------------------------}
Procedure TAutoscalingPolicyLoadBalancingUtilization.SetutilizationTarget(AIndex : Integer; const AValue : double);
begin
If (FutilizationTarget=AValue) then exit;
FutilizationTarget:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TBackend
--------------------------------------------------------------------}
Procedure TBackend.SetbalancingMode(AIndex : Integer; const AValue : String);
begin
If (FbalancingMode=AValue) then exit;
FbalancingMode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBackend.SetcapacityScaler(AIndex : Integer; const AValue : integer);
begin
If (FcapacityScaler=AValue) then exit;
FcapacityScaler:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBackend.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBackend.Setgroup(AIndex : Integer; const AValue : String);
begin
If (Fgroup=AValue) then exit;
Fgroup:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBackend.SetmaxRate(AIndex : Integer; const AValue : integer);
begin
If (FmaxRate=AValue) then exit;
FmaxRate:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBackend.SetmaxRatePerInstance(AIndex : Integer; const AValue : integer);
begin
If (FmaxRatePerInstance=AValue) then exit;
FmaxRatePerInstance:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBackend.SetmaxUtilization(AIndex : Integer; const AValue : integer);
begin
If (FmaxUtilization=AValue) then exit;
FmaxUtilization:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TBackendService
--------------------------------------------------------------------}
Procedure TBackendService.Setbackends(AIndex : Integer; const AValue : TBackendServiceTypebackendsArray);
begin
If (Fbackends=AValue) then exit;
Fbackends:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBackendService.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBackendService.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBackendService.Setfingerprint(AIndex : Integer; const AValue : String);
begin
If (Ffingerprint=AValue) then exit;
Ffingerprint:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBackendService.SethealthChecks(AIndex : Integer; const AValue : TStringArray);
begin
If (FhealthChecks=AValue) then exit;
FhealthChecks:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBackendService.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBackendService.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBackendService.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBackendService.Setport(AIndex : Integer; const AValue : integer);
begin
If (Fport=AValue) then exit;
Fport:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBackendService.SetportName(AIndex : Integer; const AValue : String);
begin
If (FportName=AValue) then exit;
FportName:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBackendService.Setprotocol(AIndex : Integer; const AValue : String);
begin
If (Fprotocol=AValue) then exit;
Fprotocol:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBackendService.Setregion(AIndex : Integer; const AValue : String);
begin
If (Fregion=AValue) then exit;
Fregion:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBackendService.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBackendService.SettimeoutSec(AIndex : Integer; const AValue : integer);
begin
If (FtimeoutSec=AValue) then exit;
FtimeoutSec:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TBackendService.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'backends' : SetLength(Fbackends,ALength);
'healthchecks' : SetLength(FhealthChecks,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TBackendServiceGroupHealth
--------------------------------------------------------------------}
Procedure TBackendServiceGroupHealth.SethealthStatus(AIndex : Integer; const AValue : TBackendServiceGroupHealthTypehealthStatusArray);
begin
If (FhealthStatus=AValue) then exit;
FhealthStatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBackendServiceGroupHealth.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TBackendServiceGroupHealth.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'healthstatus' : SetLength(FhealthStatus,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TBackendServiceList
--------------------------------------------------------------------}
Procedure TBackendServiceList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBackendServiceList.Setitems(AIndex : Integer; const AValue : TBackendServiceListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBackendServiceList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBackendServiceList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TBackendServiceList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TBackendServiceList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TDeprecationStatus
--------------------------------------------------------------------}
Procedure TDeprecationStatus.Setdeleted(AIndex : Integer; const AValue : String);
begin
If (Fdeleted=AValue) then exit;
Fdeleted:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDeprecationStatus.Setdeprecated(AIndex : Integer; const AValue : String);
begin
If (Fdeprecated=AValue) then exit;
Fdeprecated:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDeprecationStatus.Setobsolete(AIndex : Integer; const AValue : String);
begin
If (Fobsolete=AValue) then exit;
Fobsolete:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDeprecationStatus.Setreplacement(AIndex : Integer; const AValue : String);
begin
If (Freplacement=AValue) then exit;
Freplacement:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDeprecationStatus.Setstate(AIndex : Integer; const AValue : String);
begin
If (Fstate=AValue) then exit;
Fstate:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TDisk
--------------------------------------------------------------------}
Procedure TDisk.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDisk.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDisk.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDisk.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDisk.SetlastAttachTimestamp(AIndex : Integer; const AValue : String);
begin
If (FlastAttachTimestamp=AValue) then exit;
FlastAttachTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDisk.SetlastDetachTimestamp(AIndex : Integer; const AValue : String);
begin
If (FlastDetachTimestamp=AValue) then exit;
FlastDetachTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDisk.Setlicenses(AIndex : Integer; const AValue : TStringArray);
begin
If (Flicenses=AValue) then exit;
Flicenses:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDisk.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDisk.Setoptions(AIndex : Integer; const AValue : String);
begin
If (Foptions=AValue) then exit;
Foptions:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDisk.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDisk.SetsizeGb(AIndex : Integer; const AValue : String);
begin
If (FsizeGb=AValue) then exit;
FsizeGb:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDisk.SetsourceImage(AIndex : Integer; const AValue : String);
begin
If (FsourceImage=AValue) then exit;
FsourceImage:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDisk.SetsourceImageId(AIndex : Integer; const AValue : String);
begin
If (FsourceImageId=AValue) then exit;
FsourceImageId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDisk.SetsourceSnapshot(AIndex : Integer; const AValue : String);
begin
If (FsourceSnapshot=AValue) then exit;
FsourceSnapshot:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDisk.SetsourceSnapshotId(AIndex : Integer; const AValue : String);
begin
If (FsourceSnapshotId=AValue) then exit;
FsourceSnapshotId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDisk.Setstatus(AIndex : Integer; const AValue : String);
begin
If (Fstatus=AValue) then exit;
Fstatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDisk.Set_type(AIndex : Integer; const AValue : String);
begin
If (F_type=AValue) then exit;
F_type:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDisk.Setusers(AIndex : Integer; const AValue : TStringArray);
begin
If (Fusers=AValue) then exit;
Fusers:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDisk.Setzone(AIndex : Integer; const AValue : String);
begin
If (Fzone=AValue) then exit;
Fzone:=AValue;
MarkPropertyChanged(AIndex);
end;
Class Function TDisk.ExportPropertyName(Const AName : String) :String;
begin
Case AName of
'_type' : Result:='type';
else
Result:=Inherited ExportPropertyName(AName);
end;
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TDisk.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'licenses' : SetLength(Flicenses,ALength);
'users' : SetLength(Fusers,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TDiskAggregatedListTypeitems
--------------------------------------------------------------------}
Class Function TDiskAggregatedListTypeitems.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TDiskAggregatedList
--------------------------------------------------------------------}
Procedure TDiskAggregatedList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskAggregatedList.Setitems(AIndex : Integer; const AValue : TDiskAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskAggregatedList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskAggregatedList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TDiskList
--------------------------------------------------------------------}
Procedure TDiskList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskList.Setitems(AIndex : Integer; const AValue : TDiskListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TDiskList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TDiskMoveRequest
--------------------------------------------------------------------}
Procedure TDiskMoveRequest.SetdestinationZone(AIndex : Integer; const AValue : String);
begin
If (FdestinationZone=AValue) then exit;
FdestinationZone:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskMoveRequest.SettargetDisk(AIndex : Integer; const AValue : String);
begin
If (FtargetDisk=AValue) then exit;
FtargetDisk:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TDiskType
--------------------------------------------------------------------}
Procedure TDiskType.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskType.SetdefaultDiskSizeGb(AIndex : Integer; const AValue : String);
begin
If (FdefaultDiskSizeGb=AValue) then exit;
FdefaultDiskSizeGb:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskType.Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus);
begin
If (Fdeprecated=AValue) then exit;
Fdeprecated:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskType.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskType.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskType.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskType.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskType.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskType.SetvalidDiskSize(AIndex : Integer; const AValue : String);
begin
If (FvalidDiskSize=AValue) then exit;
FvalidDiskSize:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskType.Setzone(AIndex : Integer; const AValue : String);
begin
If (Fzone=AValue) then exit;
Fzone:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TDiskTypeAggregatedListTypeitems
--------------------------------------------------------------------}
Class Function TDiskTypeAggregatedListTypeitems.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TDiskTypeAggregatedList
--------------------------------------------------------------------}
Procedure TDiskTypeAggregatedList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskTypeAggregatedList.Setitems(AIndex : Integer; const AValue : TDiskTypeAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskTypeAggregatedList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskTypeAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskTypeAggregatedList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TDiskTypeList
--------------------------------------------------------------------}
Procedure TDiskTypeList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskTypeList.Setitems(AIndex : Integer; const AValue : TDiskTypeListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskTypeList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskTypeList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskTypeList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TDiskTypeList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TDiskTypesScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
Procedure TDiskTypesScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String);
begin
If (Fkey=AValue) then exit;
Fkey:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskTypesScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
begin
If (Fvalue=AValue) then exit;
Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TDiskTypesScopedListTypewarning
--------------------------------------------------------------------}
Procedure TDiskTypesScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String);
begin
If (Fcode=AValue) then exit;
Fcode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskTypesScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TDiskTypesScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
Fdata:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskTypesScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String);
begin
If (Fmessage=AValue) then exit;
Fmessage:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TDiskTypesScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'data' : SetLength(Fdata,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TDiskTypesScopedList
--------------------------------------------------------------------}
Procedure TDiskTypesScopedList.SetdiskTypes(AIndex : Integer; const AValue : TDiskTypesScopedListTypediskTypesArray);
begin
If (FdiskTypes=AValue) then exit;
FdiskTypes:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDiskTypesScopedList.Setwarning(AIndex : Integer; const AValue : TDiskTypesScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
Fwarning:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TDiskTypesScopedList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'disktypes' : SetLength(FdiskTypes,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TDisksResizeRequest
--------------------------------------------------------------------}
Procedure TDisksResizeRequest.SetsizeGb(AIndex : Integer; const AValue : String);
begin
If (FsizeGb=AValue) then exit;
FsizeGb:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TDisksScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
Procedure TDisksScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String);
begin
If (Fkey=AValue) then exit;
Fkey:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDisksScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
begin
If (Fvalue=AValue) then exit;
Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TDisksScopedListTypewarning
--------------------------------------------------------------------}
Procedure TDisksScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String);
begin
If (Fcode=AValue) then exit;
Fcode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDisksScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TDisksScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
Fdata:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDisksScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String);
begin
If (Fmessage=AValue) then exit;
Fmessage:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TDisksScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'data' : SetLength(Fdata,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TDisksScopedList
--------------------------------------------------------------------}
Procedure TDisksScopedList.Setdisks(AIndex : Integer; const AValue : TDisksScopedListTypedisksArray);
begin
If (Fdisks=AValue) then exit;
Fdisks:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TDisksScopedList.Setwarning(AIndex : Integer; const AValue : TDisksScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
Fwarning:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TDisksScopedList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'disks' : SetLength(Fdisks,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TFirewallTypeallowedItem
--------------------------------------------------------------------}
Procedure TFirewallTypeallowedItem.SetIPProtocol(AIndex : Integer; const AValue : String);
begin
If (FIPProtocol=AValue) then exit;
FIPProtocol:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFirewallTypeallowedItem.Setports(AIndex : Integer; const AValue : TStringArray);
begin
If (Fports=AValue) then exit;
Fports:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TFirewallTypeallowedItem.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'ports' : SetLength(Fports,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TFirewall
--------------------------------------------------------------------}
Procedure TFirewall.Setallowed(AIndex : Integer; const AValue : TFirewallTypeallowedArray);
begin
If (Fallowed=AValue) then exit;
Fallowed:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFirewall.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFirewall.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFirewall.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFirewall.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFirewall.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFirewall.Setnetwork(AIndex : Integer; const AValue : String);
begin
If (Fnetwork=AValue) then exit;
Fnetwork:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFirewall.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFirewall.SetsourceRanges(AIndex : Integer; const AValue : TStringArray);
begin
If (FsourceRanges=AValue) then exit;
FsourceRanges:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFirewall.SetsourceTags(AIndex : Integer; const AValue : TStringArray);
begin
If (FsourceTags=AValue) then exit;
FsourceTags:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFirewall.SettargetTags(AIndex : Integer; const AValue : TStringArray);
begin
If (FtargetTags=AValue) then exit;
FtargetTags:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TFirewall.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'allowed' : SetLength(Fallowed,ALength);
'sourceranges' : SetLength(FsourceRanges,ALength);
'sourcetags' : SetLength(FsourceTags,ALength);
'targettags' : SetLength(FtargetTags,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TFirewallList
--------------------------------------------------------------------}
Procedure TFirewallList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFirewallList.Setitems(AIndex : Integer; const AValue : TFirewallListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFirewallList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFirewallList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TFirewallList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TFirewallList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TForwardingRule
--------------------------------------------------------------------}
Procedure TForwardingRule.SetIPAddress(AIndex : Integer; const AValue : String);
begin
If (FIPAddress=AValue) then exit;
FIPAddress:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TForwardingRule.SetIPProtocol(AIndex : Integer; const AValue : String);
begin
If (FIPProtocol=AValue) then exit;
FIPProtocol:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TForwardingRule.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TForwardingRule.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TForwardingRule.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TForwardingRule.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TForwardingRule.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TForwardingRule.SetportRange(AIndex : Integer; const AValue : String);
begin
If (FportRange=AValue) then exit;
FportRange:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TForwardingRule.Setregion(AIndex : Integer; const AValue : String);
begin
If (Fregion=AValue) then exit;
Fregion:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TForwardingRule.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TForwardingRule.Settarget(AIndex : Integer; const AValue : String);
begin
If (Ftarget=AValue) then exit;
Ftarget:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TForwardingRuleAggregatedListTypeitems
--------------------------------------------------------------------}
Class Function TForwardingRuleAggregatedListTypeitems.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TForwardingRuleAggregatedList
--------------------------------------------------------------------}
Procedure TForwardingRuleAggregatedList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TForwardingRuleAggregatedList.Setitems(AIndex : Integer; const AValue : TForwardingRuleAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TForwardingRuleAggregatedList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TForwardingRuleAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TForwardingRuleAggregatedList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TForwardingRuleList
--------------------------------------------------------------------}
Procedure TForwardingRuleList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TForwardingRuleList.Setitems(AIndex : Integer; const AValue : TForwardingRuleListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TForwardingRuleList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TForwardingRuleList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TForwardingRuleList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TForwardingRuleList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TForwardingRulesScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
Procedure TForwardingRulesScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String);
begin
If (Fkey=AValue) then exit;
Fkey:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TForwardingRulesScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
begin
If (Fvalue=AValue) then exit;
Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TForwardingRulesScopedListTypewarning
--------------------------------------------------------------------}
Procedure TForwardingRulesScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String);
begin
If (Fcode=AValue) then exit;
Fcode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TForwardingRulesScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TForwardingRulesScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
Fdata:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TForwardingRulesScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String);
begin
If (Fmessage=AValue) then exit;
Fmessage:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TForwardingRulesScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'data' : SetLength(Fdata,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TForwardingRulesScopedList
--------------------------------------------------------------------}
Procedure TForwardingRulesScopedList.SetforwardingRules(AIndex : Integer; const AValue : TForwardingRulesScopedListTypeforwardingRulesArray);
begin
If (FforwardingRules=AValue) then exit;
FforwardingRules:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TForwardingRulesScopedList.Setwarning(AIndex : Integer; const AValue : TForwardingRulesScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
Fwarning:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TForwardingRulesScopedList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'forwardingrules' : SetLength(FforwardingRules,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
THealthCheckReference
--------------------------------------------------------------------}
Procedure THealthCheckReference.SethealthCheck(AIndex : Integer; const AValue : String);
begin
If (FhealthCheck=AValue) then exit;
FhealthCheck:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
THealthStatus
--------------------------------------------------------------------}
Procedure THealthStatus.SethealthState(AIndex : Integer; const AValue : String);
begin
If (FhealthState=AValue) then exit;
FhealthState:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THealthStatus.Setinstance(AIndex : Integer; const AValue : String);
begin
If (Finstance=AValue) then exit;
Finstance:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THealthStatus.SetipAddress(AIndex : Integer; const AValue : String);
begin
If (FipAddress=AValue) then exit;
FipAddress:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THealthStatus.Setport(AIndex : Integer; const AValue : integer);
begin
If (Fport=AValue) then exit;
Fport:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
THostRule
--------------------------------------------------------------------}
Procedure THostRule.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THostRule.Sethosts(AIndex : Integer; const AValue : TStringArray);
begin
If (Fhosts=AValue) then exit;
Fhosts:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THostRule.SetpathMatcher(AIndex : Integer; const AValue : String);
begin
If (FpathMatcher=AValue) then exit;
FpathMatcher:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure THostRule.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'hosts' : SetLength(Fhosts,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
THttpHealthCheck
--------------------------------------------------------------------}
Procedure THttpHealthCheck.SetcheckIntervalSec(AIndex : Integer; const AValue : integer);
begin
If (FcheckIntervalSec=AValue) then exit;
FcheckIntervalSec:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpHealthCheck.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpHealthCheck.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpHealthCheck.SethealthyThreshold(AIndex : Integer; const AValue : integer);
begin
If (FhealthyThreshold=AValue) then exit;
FhealthyThreshold:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpHealthCheck.Sethost(AIndex : Integer; const AValue : String);
begin
If (Fhost=AValue) then exit;
Fhost:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpHealthCheck.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpHealthCheck.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpHealthCheck.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpHealthCheck.Setport(AIndex : Integer; const AValue : integer);
begin
If (Fport=AValue) then exit;
Fport:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpHealthCheck.SetrequestPath(AIndex : Integer; const AValue : String);
begin
If (FrequestPath=AValue) then exit;
FrequestPath:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpHealthCheck.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpHealthCheck.SettimeoutSec(AIndex : Integer; const AValue : integer);
begin
If (FtimeoutSec=AValue) then exit;
FtimeoutSec:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpHealthCheck.SetunhealthyThreshold(AIndex : Integer; const AValue : integer);
begin
If (FunhealthyThreshold=AValue) then exit;
FunhealthyThreshold:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
THttpHealthCheckList
--------------------------------------------------------------------}
Procedure THttpHealthCheckList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpHealthCheckList.Setitems(AIndex : Integer; const AValue : THttpHealthCheckListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpHealthCheckList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpHealthCheckList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpHealthCheckList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure THttpHealthCheckList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
THttpsHealthCheck
--------------------------------------------------------------------}
Procedure THttpsHealthCheck.SetcheckIntervalSec(AIndex : Integer; const AValue : integer);
begin
If (FcheckIntervalSec=AValue) then exit;
FcheckIntervalSec:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpsHealthCheck.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpsHealthCheck.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpsHealthCheck.SethealthyThreshold(AIndex : Integer; const AValue : integer);
begin
If (FhealthyThreshold=AValue) then exit;
FhealthyThreshold:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpsHealthCheck.Sethost(AIndex : Integer; const AValue : String);
begin
If (Fhost=AValue) then exit;
Fhost:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpsHealthCheck.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpsHealthCheck.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpsHealthCheck.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpsHealthCheck.Setport(AIndex : Integer; const AValue : integer);
begin
If (Fport=AValue) then exit;
Fport:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpsHealthCheck.SetrequestPath(AIndex : Integer; const AValue : String);
begin
If (FrequestPath=AValue) then exit;
FrequestPath:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpsHealthCheck.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpsHealthCheck.SettimeoutSec(AIndex : Integer; const AValue : integer);
begin
If (FtimeoutSec=AValue) then exit;
FtimeoutSec:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpsHealthCheck.SetunhealthyThreshold(AIndex : Integer; const AValue : integer);
begin
If (FunhealthyThreshold=AValue) then exit;
FunhealthyThreshold:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
THttpsHealthCheckList
--------------------------------------------------------------------}
Procedure THttpsHealthCheckList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpsHealthCheckList.Setitems(AIndex : Integer; const AValue : THttpsHealthCheckListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpsHealthCheckList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpsHealthCheckList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure THttpsHealthCheckList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure THttpsHealthCheckList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TImageTyperawDisk
--------------------------------------------------------------------}
Procedure TImageTyperawDisk.SetcontainerType(AIndex : Integer; const AValue : String);
begin
If (FcontainerType=AValue) then exit;
FcontainerType:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageTyperawDisk.Setsha1Checksum(AIndex : Integer; const AValue : String);
begin
If (Fsha1Checksum=AValue) then exit;
Fsha1Checksum:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageTyperawDisk.Setsource(AIndex : Integer; const AValue : String);
begin
If (Fsource=AValue) then exit;
Fsource:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TImage
--------------------------------------------------------------------}
Procedure TImage.SetarchiveSizeBytes(AIndex : Integer; const AValue : String);
begin
If (FarchiveSizeBytes=AValue) then exit;
FarchiveSizeBytes:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImage.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImage.Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus);
begin
If (Fdeprecated=AValue) then exit;
Fdeprecated:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImage.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImage.SetdiskSizeGb(AIndex : Integer; const AValue : String);
begin
If (FdiskSizeGb=AValue) then exit;
FdiskSizeGb:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImage.Setfamily(AIndex : Integer; const AValue : String);
begin
If (Ffamily=AValue) then exit;
Ffamily:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImage.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImage.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImage.Setlicenses(AIndex : Integer; const AValue : TStringArray);
begin
If (Flicenses=AValue) then exit;
Flicenses:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImage.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImage.SetrawDisk(AIndex : Integer; const AValue : TImageTyperawDisk);
begin
If (FrawDisk=AValue) then exit;
FrawDisk:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImage.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImage.SetsourceDisk(AIndex : Integer; const AValue : String);
begin
If (FsourceDisk=AValue) then exit;
FsourceDisk:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImage.SetsourceDiskId(AIndex : Integer; const AValue : String);
begin
If (FsourceDiskId=AValue) then exit;
FsourceDiskId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImage.SetsourceType(AIndex : Integer; const AValue : String);
begin
If (FsourceType=AValue) then exit;
FsourceType:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImage.Setstatus(AIndex : Integer; const AValue : String);
begin
If (Fstatus=AValue) then exit;
Fstatus:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TImage.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'licenses' : SetLength(Flicenses,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TImageList
--------------------------------------------------------------------}
Procedure TImageList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageList.Setitems(AIndex : Integer; const AValue : TImageListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TImageList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TImageList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstance
--------------------------------------------------------------------}
Procedure TInstance.SetcanIpForward(AIndex : Integer; const AValue : boolean);
begin
If (FcanIpForward=AValue) then exit;
FcanIpForward:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.SetcpuPlatform(AIndex : Integer; const AValue : String);
begin
If (FcpuPlatform=AValue) then exit;
FcpuPlatform:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.Setdisks(AIndex : Integer; const AValue : TInstanceTypedisksArray);
begin
If (Fdisks=AValue) then exit;
Fdisks:=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.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.SetmachineType(AIndex : Integer; const AValue : String);
begin
If (FmachineType=AValue) then exit;
FmachineType:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.Setmetadata(AIndex : Integer; const AValue : TMetadata);
begin
If (Fmetadata=AValue) then exit;
Fmetadata:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.SetnetworkInterfaces(AIndex : Integer; const AValue : TInstanceTypenetworkInterfacesArray);
begin
If (FnetworkInterfaces=AValue) then exit;
FnetworkInterfaces:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.Setscheduling(AIndex : Integer; const AValue : TScheduling);
begin
If (Fscheduling=AValue) then exit;
Fscheduling:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.SetserviceAccounts(AIndex : Integer; const AValue : TInstanceTypeserviceAccountsArray);
begin
If (FserviceAccounts=AValue) then exit;
FserviceAccounts:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.Setstatus(AIndex : Integer; const AValue : String);
begin
If (Fstatus=AValue) then exit;
Fstatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.SetstatusMessage(AIndex : Integer; const AValue : String);
begin
If (FstatusMessage=AValue) then exit;
FstatusMessage:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.Settags(AIndex : Integer; const AValue : TTags);
begin
If (Ftags=AValue) then exit;
Ftags:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstance.Setzone(AIndex : Integer; const AValue : String);
begin
If (Fzone=AValue) then exit;
Fzone:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstance.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'disks' : SetLength(Fdisks,ALength);
'networkinterfaces' : SetLength(FnetworkInterfaces,ALength);
'serviceaccounts' : SetLength(FserviceAccounts,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstanceAggregatedListTypeitems
--------------------------------------------------------------------}
Class Function TInstanceAggregatedListTypeitems.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TInstanceAggregatedList
--------------------------------------------------------------------}
Procedure TInstanceAggregatedList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceAggregatedList.Setitems(AIndex : Integer; const AValue : TInstanceAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceAggregatedList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceAggregatedList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TInstanceGroup
--------------------------------------------------------------------}
Procedure TInstanceGroup.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroup.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroup.Setfingerprint(AIndex : Integer; const AValue : String);
begin
If (Ffingerprint=AValue) then exit;
Ffingerprint:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroup.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroup.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroup.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroup.SetnamedPorts(AIndex : Integer; const AValue : TInstanceGroupTypenamedPortsArray);
begin
If (FnamedPorts=AValue) then exit;
FnamedPorts:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroup.Setnetwork(AIndex : Integer; const AValue : String);
begin
If (Fnetwork=AValue) then exit;
Fnetwork:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroup.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroup.Setsize(AIndex : Integer; const AValue : integer);
begin
If (Fsize=AValue) then exit;
Fsize:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroup.Setsubnetwork(AIndex : Integer; const AValue : String);
begin
If (Fsubnetwork=AValue) then exit;
Fsubnetwork:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroup.Setzone(AIndex : Integer; const AValue : String);
begin
If (Fzone=AValue) then exit;
Fzone:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroup.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'namedports' : SetLength(FnamedPorts,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstanceGroupAggregatedListTypeitems
--------------------------------------------------------------------}
Class Function TInstanceGroupAggregatedListTypeitems.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TInstanceGroupAggregatedList
--------------------------------------------------------------------}
Procedure TInstanceGroupAggregatedList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupAggregatedList.Setitems(AIndex : Integer; const AValue : TInstanceGroupAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupAggregatedList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupAggregatedList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TInstanceGroupList
--------------------------------------------------------------------}
Procedure TInstanceGroupList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupList.Setitems(AIndex : Integer; const AValue : TInstanceGroupListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstanceGroupManager
--------------------------------------------------------------------}
Procedure TInstanceGroupManager.SetbaseInstanceName(AIndex : Integer; const AValue : String);
begin
If (FbaseInstanceName=AValue) then exit;
FbaseInstanceName:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManager.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManager.SetcurrentActions(AIndex : Integer; const AValue : TInstanceGroupManagerActionsSummary);
begin
If (FcurrentActions=AValue) then exit;
FcurrentActions:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManager.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManager.Setfingerprint(AIndex : Integer; const AValue : String);
begin
If (Ffingerprint=AValue) then exit;
Ffingerprint:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManager.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManager.SetinstanceGroup(AIndex : Integer; const AValue : String);
begin
If (FinstanceGroup=AValue) then exit;
FinstanceGroup:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManager.SetinstanceTemplate(AIndex : Integer; const AValue : String);
begin
If (FinstanceTemplate=AValue) then exit;
FinstanceTemplate:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManager.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManager.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManager.SetnamedPorts(AIndex : Integer; const AValue : TInstanceGroupManagerTypenamedPortsArray);
begin
If (FnamedPorts=AValue) then exit;
FnamedPorts:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManager.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManager.SettargetPools(AIndex : Integer; const AValue : TStringArray);
begin
If (FtargetPools=AValue) then exit;
FtargetPools:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManager.SettargetSize(AIndex : Integer; const AValue : integer);
begin
If (FtargetSize=AValue) then exit;
FtargetSize:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManager.Setzone(AIndex : Integer; const AValue : String);
begin
If (Fzone=AValue) then exit;
Fzone:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupManager.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'namedports' : SetLength(FnamedPorts,ALength);
'targetpools' : SetLength(FtargetPools,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstanceGroupManagerActionsSummary
--------------------------------------------------------------------}
Procedure TInstanceGroupManagerActionsSummary.Setabandoning(AIndex : Integer; const AValue : integer);
begin
If (Fabandoning=AValue) then exit;
Fabandoning:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManagerActionsSummary.Setcreating(AIndex : Integer; const AValue : integer);
begin
If (Fcreating=AValue) then exit;
Fcreating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManagerActionsSummary.Setdeleting(AIndex : Integer; const AValue : integer);
begin
If (Fdeleting=AValue) then exit;
Fdeleting:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManagerActionsSummary.Setnone(AIndex : Integer; const AValue : integer);
begin
If (Fnone=AValue) then exit;
Fnone:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManagerActionsSummary.Setrecreating(AIndex : Integer; const AValue : integer);
begin
If (Frecreating=AValue) then exit;
Frecreating:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManagerActionsSummary.Setrefreshing(AIndex : Integer; const AValue : integer);
begin
If (Frefreshing=AValue) then exit;
Frefreshing:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManagerActionsSummary.Setrestarting(AIndex : Integer; const AValue : integer);
begin
If (Frestarting=AValue) then exit;
Frestarting:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TInstanceGroupManagerAggregatedListTypeitems
--------------------------------------------------------------------}
Class Function TInstanceGroupManagerAggregatedListTypeitems.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TInstanceGroupManagerAggregatedList
--------------------------------------------------------------------}
Procedure TInstanceGroupManagerAggregatedList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManagerAggregatedList.Setitems(AIndex : Integer; const AValue : TInstanceGroupManagerAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManagerAggregatedList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManagerAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManagerAggregatedList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TInstanceGroupManagerList
--------------------------------------------------------------------}
Procedure TInstanceGroupManagerList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManagerList.Setitems(AIndex : Integer; const AValue : TInstanceGroupManagerListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManagerList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManagerList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManagerList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupManagerList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstanceGroupManagersAbandonInstancesRequest
--------------------------------------------------------------------}
Procedure TInstanceGroupManagersAbandonInstancesRequest.Setinstances(AIndex : Integer; const AValue : TStringArray);
begin
If (Finstances=AValue) then exit;
Finstances:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupManagersAbandonInstancesRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'instances' : SetLength(Finstances,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstanceGroupManagersDeleteInstancesRequest
--------------------------------------------------------------------}
Procedure TInstanceGroupManagersDeleteInstancesRequest.Setinstances(AIndex : Integer; const AValue : TStringArray);
begin
If (Finstances=AValue) then exit;
Finstances:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupManagersDeleteInstancesRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'instances' : SetLength(Finstances,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstanceGroupManagersListManagedInstancesResponse
--------------------------------------------------------------------}
Procedure TInstanceGroupManagersListManagedInstancesResponse.SetmanagedInstances(AIndex : Integer; const AValue : TInstanceGroupManagersListManagedInstancesResponseTypemanagedInstancesArray);
begin
If (FmanagedInstances=AValue) then exit;
FmanagedInstances:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupManagersListManagedInstancesResponse.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'managedinstances' : SetLength(FmanagedInstances,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstanceGroupManagersRecreateInstancesRequest
--------------------------------------------------------------------}
Procedure TInstanceGroupManagersRecreateInstancesRequest.Setinstances(AIndex : Integer; const AValue : TStringArray);
begin
If (Finstances=AValue) then exit;
Finstances:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupManagersRecreateInstancesRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'instances' : SetLength(Finstances,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstanceGroupManagersScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
Procedure TInstanceGroupManagersScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String);
begin
If (Fkey=AValue) then exit;
Fkey:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManagersScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
begin
If (Fvalue=AValue) then exit;
Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TInstanceGroupManagersScopedListTypewarning
--------------------------------------------------------------------}
Procedure TInstanceGroupManagersScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String);
begin
If (Fcode=AValue) then exit;
Fcode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManagersScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TInstanceGroupManagersScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
Fdata:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManagersScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String);
begin
If (Fmessage=AValue) then exit;
Fmessage:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupManagersScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'data' : SetLength(Fdata,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstanceGroupManagersScopedList
--------------------------------------------------------------------}
Procedure TInstanceGroupManagersScopedList.SetinstanceGroupManagers(AIndex : Integer; const AValue : TInstanceGroupManagersScopedListTypeinstanceGroupManagersArray);
begin
If (FinstanceGroupManagers=AValue) then exit;
FinstanceGroupManagers:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManagersScopedList.Setwarning(AIndex : Integer; const AValue : TInstanceGroupManagersScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
Fwarning:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupManagersScopedList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'instancegroupmanagers' : SetLength(FinstanceGroupManagers,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstanceGroupManagersSetInstanceTemplateRequest
--------------------------------------------------------------------}
Procedure TInstanceGroupManagersSetInstanceTemplateRequest.SetinstanceTemplate(AIndex : Integer; const AValue : String);
begin
If (FinstanceTemplate=AValue) then exit;
FinstanceTemplate:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TInstanceGroupManagersSetTargetPoolsRequest
--------------------------------------------------------------------}
Procedure TInstanceGroupManagersSetTargetPoolsRequest.Setfingerprint(AIndex : Integer; const AValue : String);
begin
If (Ffingerprint=AValue) then exit;
Ffingerprint:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupManagersSetTargetPoolsRequest.SettargetPools(AIndex : Integer; const AValue : TStringArray);
begin
If (FtargetPools=AValue) then exit;
FtargetPools:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupManagersSetTargetPoolsRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'targetpools' : SetLength(FtargetPools,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstanceGroupsAddInstancesRequest
--------------------------------------------------------------------}
Procedure TInstanceGroupsAddInstancesRequest.Setinstances(AIndex : Integer; const AValue : TInstanceGroupsAddInstancesRequestTypeinstancesArray);
begin
If (Finstances=AValue) then exit;
Finstances:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupsAddInstancesRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'instances' : SetLength(Finstances,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstanceGroupsListInstances
--------------------------------------------------------------------}
Procedure TInstanceGroupsListInstances.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupsListInstances.Setitems(AIndex : Integer; const AValue : TInstanceGroupsListInstancesTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupsListInstances.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupsListInstances.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupsListInstances.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupsListInstances.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstanceGroupsListInstancesRequest
--------------------------------------------------------------------}
Procedure TInstanceGroupsListInstancesRequest.SetinstanceState(AIndex : Integer; const AValue : String);
begin
If (FinstanceState=AValue) then exit;
FinstanceState:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TInstanceGroupsRemoveInstancesRequest
--------------------------------------------------------------------}
Procedure TInstanceGroupsRemoveInstancesRequest.Setinstances(AIndex : Integer; const AValue : TInstanceGroupsRemoveInstancesRequestTypeinstancesArray);
begin
If (Finstances=AValue) then exit;
Finstances:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupsRemoveInstancesRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'instances' : SetLength(Finstances,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstanceGroupsScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
Procedure TInstanceGroupsScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String);
begin
If (Fkey=AValue) then exit;
Fkey:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupsScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
begin
If (Fvalue=AValue) then exit;
Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TInstanceGroupsScopedListTypewarning
--------------------------------------------------------------------}
Procedure TInstanceGroupsScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String);
begin
If (Fcode=AValue) then exit;
Fcode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupsScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TInstanceGroupsScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
Fdata:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupsScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String);
begin
If (Fmessage=AValue) then exit;
Fmessage:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupsScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'data' : SetLength(Fdata,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstanceGroupsScopedList
--------------------------------------------------------------------}
Procedure TInstanceGroupsScopedList.SetinstanceGroups(AIndex : Integer; const AValue : TInstanceGroupsScopedListTypeinstanceGroupsArray);
begin
If (FinstanceGroups=AValue) then exit;
FinstanceGroups:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupsScopedList.Setwarning(AIndex : Integer; const AValue : TInstanceGroupsScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
Fwarning:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupsScopedList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'instancegroups' : SetLength(FinstanceGroups,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstanceGroupsSetNamedPortsRequest
--------------------------------------------------------------------}
Procedure TInstanceGroupsSetNamedPortsRequest.Setfingerprint(AIndex : Integer; const AValue : String);
begin
If (Ffingerprint=AValue) then exit;
Ffingerprint:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceGroupsSetNamedPortsRequest.SetnamedPorts(AIndex : Integer; const AValue : TInstanceGroupsSetNamedPortsRequestTypenamedPortsArray);
begin
If (FnamedPorts=AValue) then exit;
FnamedPorts:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceGroupsSetNamedPortsRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'namedports' : SetLength(FnamedPorts,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstanceList
--------------------------------------------------------------------}
Procedure TInstanceList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceList.Setitems(AIndex : Integer; const AValue : TInstanceListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstanceMoveRequest
--------------------------------------------------------------------}
Procedure TInstanceMoveRequest.SetdestinationZone(AIndex : Integer; const AValue : String);
begin
If (FdestinationZone=AValue) then exit;
FdestinationZone:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceMoveRequest.SettargetInstance(AIndex : Integer; const AValue : String);
begin
If (FtargetInstance=AValue) then exit;
FtargetInstance:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TInstanceProperties
--------------------------------------------------------------------}
Procedure TInstanceProperties.SetcanIpForward(AIndex : Integer; const AValue : boolean);
begin
If (FcanIpForward=AValue) then exit;
FcanIpForward:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceProperties.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceProperties.Setdisks(AIndex : Integer; const AValue : TInstancePropertiesTypedisksArray);
begin
If (Fdisks=AValue) then exit;
Fdisks:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceProperties.SetmachineType(AIndex : Integer; const AValue : String);
begin
If (FmachineType=AValue) then exit;
FmachineType:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceProperties.Setmetadata(AIndex : Integer; const AValue : TMetadata);
begin
If (Fmetadata=AValue) then exit;
Fmetadata:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceProperties.SetnetworkInterfaces(AIndex : Integer; const AValue : TInstancePropertiesTypenetworkInterfacesArray);
begin
If (FnetworkInterfaces=AValue) then exit;
FnetworkInterfaces:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceProperties.Setscheduling(AIndex : Integer; const AValue : TScheduling);
begin
If (Fscheduling=AValue) then exit;
Fscheduling:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceProperties.SetserviceAccounts(AIndex : Integer; const AValue : TInstancePropertiesTypeserviceAccountsArray);
begin
If (FserviceAccounts=AValue) then exit;
FserviceAccounts:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceProperties.Settags(AIndex : Integer; const AValue : TTags);
begin
If (Ftags=AValue) then exit;
Ftags:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceProperties.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'disks' : SetLength(Fdisks,ALength);
'networkinterfaces' : SetLength(FnetworkInterfaces,ALength);
'serviceaccounts' : SetLength(FserviceAccounts,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstanceReference
--------------------------------------------------------------------}
Procedure TInstanceReference.Setinstance(AIndex : Integer; const AValue : String);
begin
If (Finstance=AValue) then exit;
Finstance:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TInstanceTemplate
--------------------------------------------------------------------}
Procedure TInstanceTemplate.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceTemplate.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceTemplate.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceTemplate.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceTemplate.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceTemplate.Setproperties(AIndex : Integer; const AValue : TInstanceProperties);
begin
If (Fproperties=AValue) then exit;
Fproperties:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceTemplate.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TInstanceTemplateList
--------------------------------------------------------------------}
Procedure TInstanceTemplateList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceTemplateList.Setitems(AIndex : Integer; const AValue : TInstanceTemplateListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceTemplateList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceTemplateList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceTemplateList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceTemplateList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstanceWithNamedPorts
--------------------------------------------------------------------}
Procedure TInstanceWithNamedPorts.Setinstance(AIndex : Integer; const AValue : String);
begin
If (Finstance=AValue) then exit;
Finstance:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceWithNamedPorts.SetnamedPorts(AIndex : Integer; const AValue : TInstanceWithNamedPortsTypenamedPortsArray);
begin
If (FnamedPorts=AValue) then exit;
FnamedPorts:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstanceWithNamedPorts.Setstatus(AIndex : Integer; const AValue : String);
begin
If (Fstatus=AValue) then exit;
Fstatus:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstanceWithNamedPorts.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'namedports' : SetLength(FnamedPorts,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstancesScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
Procedure TInstancesScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String);
begin
If (Fkey=AValue) then exit;
Fkey:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstancesScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
begin
If (Fvalue=AValue) then exit;
Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TInstancesScopedListTypewarning
--------------------------------------------------------------------}
Procedure TInstancesScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String);
begin
If (Fcode=AValue) then exit;
Fcode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstancesScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TInstancesScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
Fdata:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstancesScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String);
begin
If (Fmessage=AValue) then exit;
Fmessage:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstancesScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'data' : SetLength(Fdata,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstancesScopedList
--------------------------------------------------------------------}
Procedure TInstancesScopedList.Setinstances(AIndex : Integer; const AValue : TInstancesScopedListTypeinstancesArray);
begin
If (Finstances=AValue) then exit;
Finstances:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TInstancesScopedList.Setwarning(AIndex : Integer; const AValue : TInstancesScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
Fwarning:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TInstancesScopedList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'instances' : SetLength(Finstances,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TInstancesSetMachineTypeRequest
--------------------------------------------------------------------}
Procedure TInstancesSetMachineTypeRequest.SetmachineType(AIndex : Integer; const AValue : String);
begin
If (FmachineType=AValue) then exit;
FmachineType:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TLicense
--------------------------------------------------------------------}
Procedure TLicense.SetchargesUseFee(AIndex : Integer; const AValue : boolean);
begin
If (FchargesUseFee=AValue) then exit;
FchargesUseFee:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLicense.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLicense.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TLicense.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TMachineTypeTypescratchDisksItem
--------------------------------------------------------------------}
Procedure TMachineTypeTypescratchDisksItem.SetdiskGb(AIndex : Integer; const AValue : integer);
begin
If (FdiskGb=AValue) then exit;
FdiskGb:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TMachineType
--------------------------------------------------------------------}
Procedure TMachineType.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMachineType.Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus);
begin
If (Fdeprecated=AValue) then exit;
Fdeprecated:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMachineType.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMachineType.SetguestCpus(AIndex : Integer; const AValue : integer);
begin
If (FguestCpus=AValue) then exit;
FguestCpus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMachineType.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMachineType.SetimageSpaceGb(AIndex : Integer; const AValue : integer);
begin
If (FimageSpaceGb=AValue) then exit;
FimageSpaceGb:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMachineType.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMachineType.SetmaximumPersistentDisks(AIndex : Integer; const AValue : integer);
begin
If (FmaximumPersistentDisks=AValue) then exit;
FmaximumPersistentDisks:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMachineType.SetmaximumPersistentDisksSizeGb(AIndex : Integer; const AValue : String);
begin
If (FmaximumPersistentDisksSizeGb=AValue) then exit;
FmaximumPersistentDisksSizeGb:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMachineType.SetmemoryMb(AIndex : Integer; const AValue : integer);
begin
If (FmemoryMb=AValue) then exit;
FmemoryMb:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMachineType.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMachineType.SetscratchDisks(AIndex : Integer; const AValue : TMachineTypeTypescratchDisksArray);
begin
If (FscratchDisks=AValue) then exit;
FscratchDisks:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMachineType.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMachineType.Setzone(AIndex : Integer; const AValue : String);
begin
If (Fzone=AValue) then exit;
Fzone:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TMachineType.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'scratchdisks' : SetLength(FscratchDisks,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TMachineTypeAggregatedListTypeitems
--------------------------------------------------------------------}
Class Function TMachineTypeAggregatedListTypeitems.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TMachineTypeAggregatedList
--------------------------------------------------------------------}
Procedure TMachineTypeAggregatedList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMachineTypeAggregatedList.Setitems(AIndex : Integer; const AValue : TMachineTypeAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMachineTypeAggregatedList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMachineTypeAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMachineTypeAggregatedList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TMachineTypeList
--------------------------------------------------------------------}
Procedure TMachineTypeList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMachineTypeList.Setitems(AIndex : Integer; const AValue : TMachineTypeListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMachineTypeList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMachineTypeList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMachineTypeList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TMachineTypeList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TMachineTypesScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
Procedure TMachineTypesScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String);
begin
If (Fkey=AValue) then exit;
Fkey:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMachineTypesScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
begin
If (Fvalue=AValue) then exit;
Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TMachineTypesScopedListTypewarning
--------------------------------------------------------------------}
Procedure TMachineTypesScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String);
begin
If (Fcode=AValue) then exit;
Fcode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMachineTypesScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TMachineTypesScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
Fdata:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMachineTypesScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String);
begin
If (Fmessage=AValue) then exit;
Fmessage:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TMachineTypesScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'data' : SetLength(Fdata,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TMachineTypesScopedList
--------------------------------------------------------------------}
Procedure TMachineTypesScopedList.SetmachineTypes(AIndex : Integer; const AValue : TMachineTypesScopedListTypemachineTypesArray);
begin
If (FmachineTypes=AValue) then exit;
FmachineTypes:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMachineTypesScopedList.Setwarning(AIndex : Integer; const AValue : TMachineTypesScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
Fwarning:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TMachineTypesScopedList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'machinetypes' : SetLength(FmachineTypes,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TManagedInstance
--------------------------------------------------------------------}
Procedure TManagedInstance.SetcurrentAction(AIndex : Integer; const AValue : String);
begin
If (FcurrentAction=AValue) then exit;
FcurrentAction:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TManagedInstance.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TManagedInstance.Setinstance(AIndex : Integer; const AValue : String);
begin
If (Finstance=AValue) then exit;
Finstance:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TManagedInstance.SetinstanceStatus(AIndex : Integer; const AValue : String);
begin
If (FinstanceStatus=AValue) then exit;
FinstanceStatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TManagedInstance.SetlastAttempt(AIndex : Integer; const AValue : TManagedInstanceLastAttempt);
begin
If (FlastAttempt=AValue) then exit;
FlastAttempt:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem
--------------------------------------------------------------------}
Procedure TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem.Setcode(AIndex : Integer; const AValue : String);
begin
If (Fcode=AValue) then exit;
Fcode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem.Setlocation(AIndex : Integer; const AValue : String);
begin
If (Flocation=AValue) then exit;
Flocation:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem.Setmessage(AIndex : Integer; const AValue : String);
begin
If (Fmessage=AValue) then exit;
Fmessage:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TManagedInstanceLastAttemptTypeerrors
--------------------------------------------------------------------}
Procedure TManagedInstanceLastAttemptTypeerrors.Seterrors(AIndex : Integer; const AValue : TManagedInstanceLastAttemptTypeerrorsTypeerrorsArray);
begin
If (Ferrors=AValue) then exit;
Ferrors:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TManagedInstanceLastAttemptTypeerrors.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'errors' : SetLength(Ferrors,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TManagedInstanceLastAttempt
--------------------------------------------------------------------}
Procedure TManagedInstanceLastAttempt.Seterrors(AIndex : Integer; const AValue : TManagedInstanceLastAttemptTypeerrors);
begin
If (Ferrors=AValue) then exit;
Ferrors:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TMetadataTypeitemsItem
--------------------------------------------------------------------}
Procedure TMetadataTypeitemsItem.Setkey(AIndex : Integer; const AValue : String);
begin
If (Fkey=AValue) then exit;
Fkey:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMetadataTypeitemsItem.Setvalue(AIndex : Integer; const AValue : String);
begin
If (Fvalue=AValue) then exit;
Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TMetadata
--------------------------------------------------------------------}
Procedure TMetadata.Setfingerprint(AIndex : Integer; const AValue : String);
begin
If (Ffingerprint=AValue) then exit;
Ffingerprint:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMetadata.Setitems(AIndex : Integer; const AValue : TMetadataTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TMetadata.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TMetadata.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TNamedPort
--------------------------------------------------------------------}
Procedure TNamedPort.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TNamedPort.Setport(AIndex : Integer; const AValue : integer);
begin
If (Fport=AValue) then exit;
Fport:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TNetwork
--------------------------------------------------------------------}
Procedure TNetwork.SetIPv4Range(AIndex : Integer; const AValue : String);
begin
If (FIPv4Range=AValue) then exit;
FIPv4Range:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TNetwork.SetautoCreateSubnetworks(AIndex : Integer; const AValue : boolean);
begin
If (FautoCreateSubnetworks=AValue) then exit;
FautoCreateSubnetworks:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TNetwork.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TNetwork.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TNetwork.SetgatewayIPv4(AIndex : Integer; const AValue : String);
begin
If (FgatewayIPv4=AValue) then exit;
FgatewayIPv4:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TNetwork.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TNetwork.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TNetwork.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TNetwork.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TNetwork.Setsubnetworks(AIndex : Integer; const AValue : TStringArray);
begin
If (Fsubnetworks=AValue) then exit;
Fsubnetworks:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TNetwork.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'subnetworks' : SetLength(Fsubnetworks,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TNetworkInterface
--------------------------------------------------------------------}
Procedure TNetworkInterface.SetaccessConfigs(AIndex : Integer; const AValue : TNetworkInterfaceTypeaccessConfigsArray);
begin
If (FaccessConfigs=AValue) then exit;
FaccessConfigs:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TNetworkInterface.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TNetworkInterface.Setnetwork(AIndex : Integer; const AValue : String);
begin
If (Fnetwork=AValue) then exit;
Fnetwork:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TNetworkInterface.SetnetworkIP(AIndex : Integer; const AValue : String);
begin
If (FnetworkIP=AValue) then exit;
FnetworkIP:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TNetworkInterface.Setsubnetwork(AIndex : Integer; const AValue : String);
begin
If (Fsubnetwork=AValue) then exit;
Fsubnetwork:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TNetworkInterface.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'accessconfigs' : SetLength(FaccessConfigs,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TNetworkList
--------------------------------------------------------------------}
Procedure TNetworkList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TNetworkList.Setitems(AIndex : Integer; const AValue : TNetworkListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TNetworkList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TNetworkList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TNetworkList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TNetworkList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TOperationTypeerrorTypeerrorsItem
--------------------------------------------------------------------}
Procedure TOperationTypeerrorTypeerrorsItem.Setcode(AIndex : Integer; const AValue : String);
begin
If (Fcode=AValue) then exit;
Fcode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationTypeerrorTypeerrorsItem.Setlocation(AIndex : Integer; const AValue : String);
begin
If (Flocation=AValue) then exit;
Flocation:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationTypeerrorTypeerrorsItem.Setmessage(AIndex : Integer; const AValue : String);
begin
If (Fmessage=AValue) then exit;
Fmessage:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TOperationTypeerror
--------------------------------------------------------------------}
Procedure TOperationTypeerror.Seterrors(AIndex : Integer; const AValue : TOperationTypeerrorTypeerrorsArray);
begin
If (Ferrors=AValue) then exit;
Ferrors:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TOperationTypeerror.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'errors' : SetLength(Ferrors,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TOperationTypewarningsItemTypedataItem
--------------------------------------------------------------------}
Procedure TOperationTypewarningsItemTypedataItem.Setkey(AIndex : Integer; const AValue : String);
begin
If (Fkey=AValue) then exit;
Fkey:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
begin
If (Fvalue=AValue) then exit;
Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TOperationTypewarningsItem
--------------------------------------------------------------------}
Procedure TOperationTypewarningsItem.Setcode(AIndex : Integer; const AValue : String);
begin
If (Fcode=AValue) then exit;
Fcode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationTypewarningsItem.Setdata(AIndex : Integer; const AValue : TOperationTypewarningsItemTypedataArray);
begin
If (Fdata=AValue) then exit;
Fdata:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationTypewarningsItem.Setmessage(AIndex : Integer; const AValue : String);
begin
If (Fmessage=AValue) then exit;
Fmessage:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TOperationTypewarningsItem.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'data' : SetLength(Fdata,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TOperation
--------------------------------------------------------------------}
Procedure TOperation.SetclientOperationId(AIndex : Integer; const AValue : String);
begin
If (FclientOperationId=AValue) then exit;
FclientOperationId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.SetendTime(AIndex : Integer; const AValue : String);
begin
If (FendTime=AValue) then exit;
FendTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.Seterror(AIndex : Integer; const AValue : TOperationTypeerror);
begin
If (Ferror=AValue) then exit;
Ferror:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.SethttpErrorMessage(AIndex : Integer; const AValue : String);
begin
If (FhttpErrorMessage=AValue) then exit;
FhttpErrorMessage:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.SethttpErrorStatusCode(AIndex : Integer; const AValue : integer);
begin
If (FhttpErrorStatusCode=AValue) then exit;
FhttpErrorStatusCode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.SetinsertTime(AIndex : Integer; const AValue : String);
begin
If (FinsertTime=AValue) then exit;
FinsertTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.SetoperationType(AIndex : Integer; const AValue : String);
begin
If (FoperationType=AValue) then exit;
FoperationType:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.Setprogress(AIndex : Integer; const AValue : integer);
begin
If (Fprogress=AValue) then exit;
Fprogress:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.Setregion(AIndex : Integer; const AValue : String);
begin
If (Fregion=AValue) then exit;
Fregion:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.SetstartTime(AIndex : Integer; const AValue : String);
begin
If (FstartTime=AValue) then exit;
FstartTime:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.Setstatus(AIndex : Integer; const AValue : String);
begin
If (Fstatus=AValue) then exit;
Fstatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.SetstatusMessage(AIndex : Integer; const AValue : String);
begin
If (FstatusMessage=AValue) then exit;
FstatusMessage:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.SettargetId(AIndex : Integer; const AValue : String);
begin
If (FtargetId=AValue) then exit;
FtargetId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.SettargetLink(AIndex : Integer; const AValue : String);
begin
If (FtargetLink=AValue) then exit;
FtargetLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.Setuser(AIndex : Integer; const AValue : String);
begin
If (Fuser=AValue) then exit;
Fuser:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.Setwarnings(AIndex : Integer; const AValue : TOperationTypewarningsArray);
begin
If (Fwarnings=AValue) then exit;
Fwarnings:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperation.Setzone(AIndex : Integer; const AValue : String);
begin
If (Fzone=AValue) then exit;
Fzone:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TOperation.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'warnings' : SetLength(Fwarnings,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TOperationAggregatedListTypeitems
--------------------------------------------------------------------}
Class Function TOperationAggregatedListTypeitems.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TOperationAggregatedList
--------------------------------------------------------------------}
Procedure TOperationAggregatedList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationAggregatedList.Setitems(AIndex : Integer; const AValue : TOperationAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationAggregatedList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationAggregatedList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TOperationList
--------------------------------------------------------------------}
Procedure TOperationList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationList.Setitems(AIndex : Integer; const AValue : TOperationListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TOperationList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TOperationsScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
Procedure TOperationsScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String);
begin
If (Fkey=AValue) then exit;
Fkey:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationsScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
begin
If (Fvalue=AValue) then exit;
Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TOperationsScopedListTypewarning
--------------------------------------------------------------------}
Procedure TOperationsScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String);
begin
If (Fcode=AValue) then exit;
Fcode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationsScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TOperationsScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
Fdata:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationsScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String);
begin
If (Fmessage=AValue) then exit;
Fmessage:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TOperationsScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'data' : SetLength(Fdata,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TOperationsScopedList
--------------------------------------------------------------------}
Procedure TOperationsScopedList.Setoperations(AIndex : Integer; const AValue : TOperationsScopedListTypeoperationsArray);
begin
If (Foperations=AValue) then exit;
Foperations:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TOperationsScopedList.Setwarning(AIndex : Integer; const AValue : TOperationsScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
Fwarning:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TOperationsScopedList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'operations' : SetLength(Foperations,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TPathMatcher
--------------------------------------------------------------------}
Procedure TPathMatcher.SetdefaultService(AIndex : Integer; const AValue : String);
begin
If (FdefaultService=AValue) then exit;
FdefaultService:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPathMatcher.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPathMatcher.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPathMatcher.SetpathRules(AIndex : Integer; const AValue : TPathMatcherTypepathRulesArray);
begin
If (FpathRules=AValue) then exit;
FpathRules:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TPathMatcher.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'pathrules' : SetLength(FpathRules,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TPathRule
--------------------------------------------------------------------}
Procedure TPathRule.Setpaths(AIndex : Integer; const AValue : TStringArray);
begin
If (Fpaths=AValue) then exit;
Fpaths:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TPathRule.Setservice(AIndex : Integer; const AValue : String);
begin
If (Fservice=AValue) then exit;
Fservice:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TPathRule.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'paths' : SetLength(Fpaths,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TProject
--------------------------------------------------------------------}
Procedure TProject.SetcommonInstanceMetadata(AIndex : Integer; const AValue : TMetadata);
begin
If (FcommonInstanceMetadata=AValue) then exit;
FcommonInstanceMetadata:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TProject.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TProject.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TProject.SetenabledFeatures(AIndex : Integer; const AValue : TStringArray);
begin
If (FenabledFeatures=AValue) then exit;
FenabledFeatures:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TProject.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TProject.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TProject.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TProject.Setquotas(AIndex : Integer; const AValue : TProjectTypequotasArray);
begin
If (Fquotas=AValue) then exit;
Fquotas:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TProject.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TProject.SetusageExportLocation(AIndex : Integer; const AValue : TUsageExportLocation);
begin
If (FusageExportLocation=AValue) then exit;
FusageExportLocation:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TProject.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'enabledfeatures' : SetLength(FenabledFeatures,ALength);
'quotas' : SetLength(Fquotas,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TQuota
--------------------------------------------------------------------}
Procedure TQuota.Setlimit(AIndex : Integer; const AValue : double);
begin
If (Flimit=AValue) then exit;
Flimit:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TQuota.Setmetric(AIndex : Integer; const AValue : String);
begin
If (Fmetric=AValue) then exit;
Fmetric:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TQuota.Setusage(AIndex : Integer; const AValue : double);
begin
If (Fusage=AValue) then exit;
Fusage:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TRegion
--------------------------------------------------------------------}
Procedure TRegion.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRegion.Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus);
begin
If (Fdeprecated=AValue) then exit;
Fdeprecated:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRegion.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRegion.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRegion.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRegion.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRegion.Setquotas(AIndex : Integer; const AValue : TRegionTypequotasArray);
begin
If (Fquotas=AValue) then exit;
Fquotas:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRegion.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRegion.Setstatus(AIndex : Integer; const AValue : String);
begin
If (Fstatus=AValue) then exit;
Fstatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRegion.Setzones(AIndex : Integer; const AValue : TStringArray);
begin
If (Fzones=AValue) then exit;
Fzones:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TRegion.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'quotas' : SetLength(Fquotas,ALength);
'zones' : SetLength(Fzones,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TRegionList
--------------------------------------------------------------------}
Procedure TRegionList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRegionList.Setitems(AIndex : Integer; const AValue : TRegionListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRegionList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRegionList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRegionList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TRegionList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TResourceGroupReference
--------------------------------------------------------------------}
Procedure TResourceGroupReference.Setgroup(AIndex : Integer; const AValue : String);
begin
If (Fgroup=AValue) then exit;
Fgroup:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TRouteTypewarningsItemTypedataItem
--------------------------------------------------------------------}
Procedure TRouteTypewarningsItemTypedataItem.Setkey(AIndex : Integer; const AValue : String);
begin
If (Fkey=AValue) then exit;
Fkey:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRouteTypewarningsItemTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
begin
If (Fvalue=AValue) then exit;
Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TRouteTypewarningsItem
--------------------------------------------------------------------}
Procedure TRouteTypewarningsItem.Setcode(AIndex : Integer; const AValue : String);
begin
If (Fcode=AValue) then exit;
Fcode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRouteTypewarningsItem.Setdata(AIndex : Integer; const AValue : TRouteTypewarningsItemTypedataArray);
begin
If (Fdata=AValue) then exit;
Fdata:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRouteTypewarningsItem.Setmessage(AIndex : Integer; const AValue : String);
begin
If (Fmessage=AValue) then exit;
Fmessage:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TRouteTypewarningsItem.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'data' : SetLength(Fdata,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TRoute
--------------------------------------------------------------------}
Procedure TRoute.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRoute.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRoute.SetdestRange(AIndex : Integer; const AValue : String);
begin
If (FdestRange=AValue) then exit;
FdestRange:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRoute.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRoute.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRoute.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRoute.Setnetwork(AIndex : Integer; const AValue : String);
begin
If (Fnetwork=AValue) then exit;
Fnetwork:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRoute.SetnextHopGateway(AIndex : Integer; const AValue : String);
begin
If (FnextHopGateway=AValue) then exit;
FnextHopGateway:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRoute.SetnextHopInstance(AIndex : Integer; const AValue : String);
begin
If (FnextHopInstance=AValue) then exit;
FnextHopInstance:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRoute.SetnextHopIp(AIndex : Integer; const AValue : String);
begin
If (FnextHopIp=AValue) then exit;
FnextHopIp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRoute.SetnextHopNetwork(AIndex : Integer; const AValue : String);
begin
If (FnextHopNetwork=AValue) then exit;
FnextHopNetwork:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRoute.SetnextHopVpnTunnel(AIndex : Integer; const AValue : String);
begin
If (FnextHopVpnTunnel=AValue) then exit;
FnextHopVpnTunnel:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRoute.Setpriority(AIndex : Integer; const AValue : integer);
begin
If (Fpriority=AValue) then exit;
Fpriority:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRoute.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRoute.Settags(AIndex : Integer; const AValue : TStringArray);
begin
If (Ftags=AValue) then exit;
Ftags:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRoute.Setwarnings(AIndex : Integer; const AValue : TRouteTypewarningsArray);
begin
If (Fwarnings=AValue) then exit;
Fwarnings:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TRoute.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'tags' : SetLength(Ftags,ALength);
'warnings' : SetLength(Fwarnings,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TRouteList
--------------------------------------------------------------------}
Procedure TRouteList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRouteList.Setitems(AIndex : Integer; const AValue : TRouteListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRouteList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRouteList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TRouteList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TRouteList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TScheduling
--------------------------------------------------------------------}
Procedure TScheduling.SetautomaticRestart(AIndex : Integer; const AValue : boolean);
begin
If (FautomaticRestart=AValue) then exit;
FautomaticRestart:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TScheduling.SetonHostMaintenance(AIndex : Integer; const AValue : String);
begin
If (FonHostMaintenance=AValue) then exit;
FonHostMaintenance:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TScheduling.Setpreemptible(AIndex : Integer; const AValue : boolean);
begin
If (Fpreemptible=AValue) then exit;
Fpreemptible:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TSerialPortOutput
--------------------------------------------------------------------}
Procedure TSerialPortOutput.Setcontents(AIndex : Integer; const AValue : String);
begin
If (Fcontents=AValue) then exit;
Fcontents:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSerialPortOutput.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSerialPortOutput.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TServiceAccount
--------------------------------------------------------------------}
Procedure TServiceAccount.Setemail(AIndex : Integer; const AValue : String);
begin
If (Femail=AValue) then exit;
Femail:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TServiceAccount.Setscopes(AIndex : Integer; const AValue : TStringArray);
begin
If (Fscopes=AValue) then exit;
Fscopes:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TServiceAccount.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'scopes' : SetLength(Fscopes,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TSnapshot
--------------------------------------------------------------------}
Procedure TSnapshot.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSnapshot.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSnapshot.SetdiskSizeGb(AIndex : Integer; const AValue : String);
begin
If (FdiskSizeGb=AValue) then exit;
FdiskSizeGb:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSnapshot.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSnapshot.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSnapshot.Setlicenses(AIndex : Integer; const AValue : TStringArray);
begin
If (Flicenses=AValue) then exit;
Flicenses:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSnapshot.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSnapshot.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSnapshot.SetsourceDisk(AIndex : Integer; const AValue : String);
begin
If (FsourceDisk=AValue) then exit;
FsourceDisk:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSnapshot.SetsourceDiskId(AIndex : Integer; const AValue : String);
begin
If (FsourceDiskId=AValue) then exit;
FsourceDiskId:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSnapshot.Setstatus(AIndex : Integer; const AValue : String);
begin
If (Fstatus=AValue) then exit;
Fstatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSnapshot.SetstorageBytes(AIndex : Integer; const AValue : String);
begin
If (FstorageBytes=AValue) then exit;
FstorageBytes:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSnapshot.SetstorageBytesStatus(AIndex : Integer; const AValue : String);
begin
If (FstorageBytesStatus=AValue) then exit;
FstorageBytesStatus:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TSnapshot.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'licenses' : SetLength(Flicenses,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TSnapshotList
--------------------------------------------------------------------}
Procedure TSnapshotList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSnapshotList.Setitems(AIndex : Integer; const AValue : TSnapshotListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSnapshotList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSnapshotList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSnapshotList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TSnapshotList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TSslCertificate
--------------------------------------------------------------------}
Procedure TSslCertificate.Setcertificate(AIndex : Integer; const AValue : String);
begin
If (Fcertificate=AValue) then exit;
Fcertificate:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSslCertificate.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSslCertificate.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSslCertificate.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSslCertificate.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSslCertificate.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSslCertificate.SetprivateKey(AIndex : Integer; const AValue : String);
begin
If (FprivateKey=AValue) then exit;
FprivateKey:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSslCertificate.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TSslCertificateList
--------------------------------------------------------------------}
Procedure TSslCertificateList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSslCertificateList.Setitems(AIndex : Integer; const AValue : TSslCertificateListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSslCertificateList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSslCertificateList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSslCertificateList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TSslCertificateList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TSubnetwork
--------------------------------------------------------------------}
Procedure TSubnetwork.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubnetwork.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubnetwork.SetgatewayAddress(AIndex : Integer; const AValue : String);
begin
If (FgatewayAddress=AValue) then exit;
FgatewayAddress:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubnetwork.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubnetwork.SetipCidrRange(AIndex : Integer; const AValue : String);
begin
If (FipCidrRange=AValue) then exit;
FipCidrRange:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubnetwork.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubnetwork.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubnetwork.Setnetwork(AIndex : Integer; const AValue : String);
begin
If (Fnetwork=AValue) then exit;
Fnetwork:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubnetwork.Setregion(AIndex : Integer; const AValue : String);
begin
If (Fregion=AValue) then exit;
Fregion:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubnetwork.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TSubnetworkAggregatedListTypeitems
--------------------------------------------------------------------}
Class Function TSubnetworkAggregatedListTypeitems.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TSubnetworkAggregatedList
--------------------------------------------------------------------}
Procedure TSubnetworkAggregatedList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubnetworkAggregatedList.Setitems(AIndex : Integer; const AValue : TSubnetworkAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubnetworkAggregatedList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubnetworkAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubnetworkAggregatedList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TSubnetworkList
--------------------------------------------------------------------}
Procedure TSubnetworkList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubnetworkList.Setitems(AIndex : Integer; const AValue : TSubnetworkListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubnetworkList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubnetworkList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubnetworkList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TSubnetworkList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TSubnetworksScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
Procedure TSubnetworksScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String);
begin
If (Fkey=AValue) then exit;
Fkey:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubnetworksScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
begin
If (Fvalue=AValue) then exit;
Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TSubnetworksScopedListTypewarning
--------------------------------------------------------------------}
Procedure TSubnetworksScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String);
begin
If (Fcode=AValue) then exit;
Fcode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubnetworksScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TSubnetworksScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
Fdata:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubnetworksScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String);
begin
If (Fmessage=AValue) then exit;
Fmessage:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TSubnetworksScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'data' : SetLength(Fdata,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TSubnetworksScopedList
--------------------------------------------------------------------}
Procedure TSubnetworksScopedList.Setsubnetworks(AIndex : Integer; const AValue : TSubnetworksScopedListTypesubnetworksArray);
begin
If (Fsubnetworks=AValue) then exit;
Fsubnetworks:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TSubnetworksScopedList.Setwarning(AIndex : Integer; const AValue : TSubnetworksScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
Fwarning:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TSubnetworksScopedList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'subnetworks' : SetLength(Fsubnetworks,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTags
--------------------------------------------------------------------}
Procedure TTags.Setfingerprint(AIndex : Integer; const AValue : String);
begin
If (Ffingerprint=AValue) then exit;
Ffingerprint:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTags.Setitems(AIndex : Integer; const AValue : TStringArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTags.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTargetHttpProxy
--------------------------------------------------------------------}
Procedure TTargetHttpProxy.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetHttpProxy.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetHttpProxy.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetHttpProxy.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetHttpProxy.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetHttpProxy.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetHttpProxy.SeturlMap(AIndex : Integer; const AValue : String);
begin
If (FurlMap=AValue) then exit;
FurlMap:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TTargetHttpProxyList
--------------------------------------------------------------------}
Procedure TTargetHttpProxyList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetHttpProxyList.Setitems(AIndex : Integer; const AValue : TTargetHttpProxyListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetHttpProxyList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetHttpProxyList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetHttpProxyList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetHttpProxyList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTargetHttpsProxiesSetSslCertificatesRequest
--------------------------------------------------------------------}
Procedure TTargetHttpsProxiesSetSslCertificatesRequest.SetsslCertificates(AIndex : Integer; const AValue : TStringArray);
begin
If (FsslCertificates=AValue) then exit;
FsslCertificates:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetHttpsProxiesSetSslCertificatesRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'sslcertificates' : SetLength(FsslCertificates,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTargetHttpsProxy
--------------------------------------------------------------------}
Procedure TTargetHttpsProxy.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetHttpsProxy.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetHttpsProxy.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetHttpsProxy.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetHttpsProxy.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetHttpsProxy.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetHttpsProxy.SetsslCertificates(AIndex : Integer; const AValue : TStringArray);
begin
If (FsslCertificates=AValue) then exit;
FsslCertificates:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetHttpsProxy.SeturlMap(AIndex : Integer; const AValue : String);
begin
If (FurlMap=AValue) then exit;
FurlMap:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetHttpsProxy.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'sslcertificates' : SetLength(FsslCertificates,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTargetHttpsProxyList
--------------------------------------------------------------------}
Procedure TTargetHttpsProxyList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetHttpsProxyList.Setitems(AIndex : Integer; const AValue : TTargetHttpsProxyListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetHttpsProxyList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetHttpsProxyList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetHttpsProxyList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetHttpsProxyList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTargetInstance
--------------------------------------------------------------------}
Procedure TTargetInstance.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetInstance.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetInstance.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetInstance.Setinstance(AIndex : Integer; const AValue : String);
begin
If (Finstance=AValue) then exit;
Finstance:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetInstance.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetInstance.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetInstance.SetnatPolicy(AIndex : Integer; const AValue : String);
begin
If (FnatPolicy=AValue) then exit;
FnatPolicy:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetInstance.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetInstance.Setzone(AIndex : Integer; const AValue : String);
begin
If (Fzone=AValue) then exit;
Fzone:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TTargetInstanceAggregatedListTypeitems
--------------------------------------------------------------------}
Class Function TTargetInstanceAggregatedListTypeitems.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TTargetInstanceAggregatedList
--------------------------------------------------------------------}
Procedure TTargetInstanceAggregatedList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetInstanceAggregatedList.Setitems(AIndex : Integer; const AValue : TTargetInstanceAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetInstanceAggregatedList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetInstanceAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetInstanceAggregatedList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TTargetInstanceList
--------------------------------------------------------------------}
Procedure TTargetInstanceList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetInstanceList.Setitems(AIndex : Integer; const AValue : TTargetInstanceListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetInstanceList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetInstanceList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetInstanceList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetInstanceList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTargetInstancesScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
Procedure TTargetInstancesScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String);
begin
If (Fkey=AValue) then exit;
Fkey:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetInstancesScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
begin
If (Fvalue=AValue) then exit;
Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TTargetInstancesScopedListTypewarning
--------------------------------------------------------------------}
Procedure TTargetInstancesScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String);
begin
If (Fcode=AValue) then exit;
Fcode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetInstancesScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TTargetInstancesScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
Fdata:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetInstancesScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String);
begin
If (Fmessage=AValue) then exit;
Fmessage:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetInstancesScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'data' : SetLength(Fdata,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTargetInstancesScopedList
--------------------------------------------------------------------}
Procedure TTargetInstancesScopedList.SettargetInstances(AIndex : Integer; const AValue : TTargetInstancesScopedListTypetargetInstancesArray);
begin
If (FtargetInstances=AValue) then exit;
FtargetInstances:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetInstancesScopedList.Setwarning(AIndex : Integer; const AValue : TTargetInstancesScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
Fwarning:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetInstancesScopedList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'targetinstances' : SetLength(FtargetInstances,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTargetPool
--------------------------------------------------------------------}
Procedure TTargetPool.SetbackupPool(AIndex : Integer; const AValue : String);
begin
If (FbackupPool=AValue) then exit;
FbackupPool:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetPool.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetPool.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetPool.SetfailoverRatio(AIndex : Integer; const AValue : integer);
begin
If (FfailoverRatio=AValue) then exit;
FfailoverRatio:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetPool.SethealthChecks(AIndex : Integer; const AValue : TStringArray);
begin
If (FhealthChecks=AValue) then exit;
FhealthChecks:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetPool.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetPool.Setinstances(AIndex : Integer; const AValue : TStringArray);
begin
If (Finstances=AValue) then exit;
Finstances:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetPool.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetPool.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetPool.Setregion(AIndex : Integer; const AValue : String);
begin
If (Fregion=AValue) then exit;
Fregion:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetPool.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetPool.SetsessionAffinity(AIndex : Integer; const AValue : String);
begin
If (FsessionAffinity=AValue) then exit;
FsessionAffinity:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetPool.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'healthchecks' : SetLength(FhealthChecks,ALength);
'instances' : SetLength(Finstances,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTargetPoolAggregatedListTypeitems
--------------------------------------------------------------------}
Class Function TTargetPoolAggregatedListTypeitems.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TTargetPoolAggregatedList
--------------------------------------------------------------------}
Procedure TTargetPoolAggregatedList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetPoolAggregatedList.Setitems(AIndex : Integer; const AValue : TTargetPoolAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetPoolAggregatedList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetPoolAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetPoolAggregatedList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TTargetPoolInstanceHealth
--------------------------------------------------------------------}
Procedure TTargetPoolInstanceHealth.SethealthStatus(AIndex : Integer; const AValue : TTargetPoolInstanceHealthTypehealthStatusArray);
begin
If (FhealthStatus=AValue) then exit;
FhealthStatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetPoolInstanceHealth.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetPoolInstanceHealth.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'healthstatus' : SetLength(FhealthStatus,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTargetPoolList
--------------------------------------------------------------------}
Procedure TTargetPoolList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetPoolList.Setitems(AIndex : Integer; const AValue : TTargetPoolListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetPoolList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetPoolList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetPoolList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetPoolList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTargetPoolsAddHealthCheckRequest
--------------------------------------------------------------------}
Procedure TTargetPoolsAddHealthCheckRequest.SethealthChecks(AIndex : Integer; const AValue : TTargetPoolsAddHealthCheckRequestTypehealthChecksArray);
begin
If (FhealthChecks=AValue) then exit;
FhealthChecks:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetPoolsAddHealthCheckRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'healthchecks' : SetLength(FhealthChecks,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTargetPoolsAddInstanceRequest
--------------------------------------------------------------------}
Procedure TTargetPoolsAddInstanceRequest.Setinstances(AIndex : Integer; const AValue : TTargetPoolsAddInstanceRequestTypeinstancesArray);
begin
If (Finstances=AValue) then exit;
Finstances:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetPoolsAddInstanceRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'instances' : SetLength(Finstances,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTargetPoolsRemoveHealthCheckRequest
--------------------------------------------------------------------}
Procedure TTargetPoolsRemoveHealthCheckRequest.SethealthChecks(AIndex : Integer; const AValue : TTargetPoolsRemoveHealthCheckRequestTypehealthChecksArray);
begin
If (FhealthChecks=AValue) then exit;
FhealthChecks:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetPoolsRemoveHealthCheckRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'healthchecks' : SetLength(FhealthChecks,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTargetPoolsRemoveInstanceRequest
--------------------------------------------------------------------}
Procedure TTargetPoolsRemoveInstanceRequest.Setinstances(AIndex : Integer; const AValue : TTargetPoolsRemoveInstanceRequestTypeinstancesArray);
begin
If (Finstances=AValue) then exit;
Finstances:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetPoolsRemoveInstanceRequest.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'instances' : SetLength(Finstances,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTargetPoolsScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
Procedure TTargetPoolsScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String);
begin
If (Fkey=AValue) then exit;
Fkey:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetPoolsScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
begin
If (Fvalue=AValue) then exit;
Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TTargetPoolsScopedListTypewarning
--------------------------------------------------------------------}
Procedure TTargetPoolsScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String);
begin
If (Fcode=AValue) then exit;
Fcode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetPoolsScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TTargetPoolsScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
Fdata:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetPoolsScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String);
begin
If (Fmessage=AValue) then exit;
Fmessage:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetPoolsScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'data' : SetLength(Fdata,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTargetPoolsScopedList
--------------------------------------------------------------------}
Procedure TTargetPoolsScopedList.SettargetPools(AIndex : Integer; const AValue : TTargetPoolsScopedListTypetargetPoolsArray);
begin
If (FtargetPools=AValue) then exit;
FtargetPools:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetPoolsScopedList.Setwarning(AIndex : Integer; const AValue : TTargetPoolsScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
Fwarning:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetPoolsScopedList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'targetpools' : SetLength(FtargetPools,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTargetReference
--------------------------------------------------------------------}
Procedure TTargetReference.Settarget(AIndex : Integer; const AValue : String);
begin
If (Ftarget=AValue) then exit;
Ftarget:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TTargetVpnGateway
--------------------------------------------------------------------}
Procedure TTargetVpnGateway.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetVpnGateway.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetVpnGateway.SetforwardingRules(AIndex : Integer; const AValue : TStringArray);
begin
If (FforwardingRules=AValue) then exit;
FforwardingRules:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetVpnGateway.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetVpnGateway.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetVpnGateway.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetVpnGateway.Setnetwork(AIndex : Integer; const AValue : String);
begin
If (Fnetwork=AValue) then exit;
Fnetwork:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetVpnGateway.Setregion(AIndex : Integer; const AValue : String);
begin
If (Fregion=AValue) then exit;
Fregion:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetVpnGateway.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetVpnGateway.Setstatus(AIndex : Integer; const AValue : String);
begin
If (Fstatus=AValue) then exit;
Fstatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetVpnGateway.Settunnels(AIndex : Integer; const AValue : TStringArray);
begin
If (Ftunnels=AValue) then exit;
Ftunnels:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetVpnGateway.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'forwardingrules' : SetLength(FforwardingRules,ALength);
'tunnels' : SetLength(Ftunnels,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTargetVpnGatewayAggregatedListTypeitems
--------------------------------------------------------------------}
Class Function TTargetVpnGatewayAggregatedListTypeitems.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TTargetVpnGatewayAggregatedList
--------------------------------------------------------------------}
Procedure TTargetVpnGatewayAggregatedList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetVpnGatewayAggregatedList.Setitems(AIndex : Integer; const AValue : TTargetVpnGatewayAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetVpnGatewayAggregatedList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetVpnGatewayAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetVpnGatewayAggregatedList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TTargetVpnGatewayList
--------------------------------------------------------------------}
Procedure TTargetVpnGatewayList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetVpnGatewayList.Setitems(AIndex : Integer; const AValue : TTargetVpnGatewayListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetVpnGatewayList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetVpnGatewayList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetVpnGatewayList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetVpnGatewayList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTargetVpnGatewaysScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
Procedure TTargetVpnGatewaysScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String);
begin
If (Fkey=AValue) then exit;
Fkey:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetVpnGatewaysScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
begin
If (Fvalue=AValue) then exit;
Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TTargetVpnGatewaysScopedListTypewarning
--------------------------------------------------------------------}
Procedure TTargetVpnGatewaysScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String);
begin
If (Fcode=AValue) then exit;
Fcode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetVpnGatewaysScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TTargetVpnGatewaysScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
Fdata:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetVpnGatewaysScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String);
begin
If (Fmessage=AValue) then exit;
Fmessage:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetVpnGatewaysScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'data' : SetLength(Fdata,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTargetVpnGatewaysScopedList
--------------------------------------------------------------------}
Procedure TTargetVpnGatewaysScopedList.SettargetVpnGateways(AIndex : Integer; const AValue : TTargetVpnGatewaysScopedListTypetargetVpnGatewaysArray);
begin
If (FtargetVpnGateways=AValue) then exit;
FtargetVpnGateways:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTargetVpnGatewaysScopedList.Setwarning(AIndex : Integer; const AValue : TTargetVpnGatewaysScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
Fwarning:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TTargetVpnGatewaysScopedList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'targetvpngateways' : SetLength(FtargetVpnGateways,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TTestFailure
--------------------------------------------------------------------}
Procedure TTestFailure.SetactualService(AIndex : Integer; const AValue : String);
begin
If (FactualService=AValue) then exit;
FactualService:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTestFailure.SetexpectedService(AIndex : Integer; const AValue : String);
begin
If (FexpectedService=AValue) then exit;
FexpectedService:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTestFailure.Sethost(AIndex : Integer; const AValue : String);
begin
If (Fhost=AValue) then exit;
Fhost:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TTestFailure.Setpath(AIndex : Integer; const AValue : String);
begin
If (Fpath=AValue) then exit;
Fpath:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TUrlMap
--------------------------------------------------------------------}
Procedure TUrlMap.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMap.SetdefaultService(AIndex : Integer; const AValue : String);
begin
If (FdefaultService=AValue) then exit;
FdefaultService:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMap.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMap.Setfingerprint(AIndex : Integer; const AValue : String);
begin
If (Ffingerprint=AValue) then exit;
Ffingerprint:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMap.SethostRules(AIndex : Integer; const AValue : TUrlMapTypehostRulesArray);
begin
If (FhostRules=AValue) then exit;
FhostRules:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMap.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMap.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMap.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMap.SetpathMatchers(AIndex : Integer; const AValue : TUrlMapTypepathMatchersArray);
begin
If (FpathMatchers=AValue) then exit;
FpathMatchers:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMap.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMap.Settests(AIndex : Integer; const AValue : TUrlMapTypetestsArray);
begin
If (Ftests=AValue) then exit;
Ftests:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TUrlMap.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'hostrules' : SetLength(FhostRules,ALength);
'pathmatchers' : SetLength(FpathMatchers,ALength);
'tests' : SetLength(Ftests,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TUrlMapList
--------------------------------------------------------------------}
Procedure TUrlMapList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMapList.Setitems(AIndex : Integer; const AValue : TUrlMapListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMapList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMapList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMapList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TUrlMapList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TUrlMapReference
--------------------------------------------------------------------}
Procedure TUrlMapReference.SeturlMap(AIndex : Integer; const AValue : String);
begin
If (FurlMap=AValue) then exit;
FurlMap:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TUrlMapTest
--------------------------------------------------------------------}
Procedure TUrlMapTest.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMapTest.Sethost(AIndex : Integer; const AValue : String);
begin
If (Fhost=AValue) then exit;
Fhost:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMapTest.Setpath(AIndex : Integer; const AValue : String);
begin
If (Fpath=AValue) then exit;
Fpath:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMapTest.Setservice(AIndex : Integer; const AValue : String);
begin
If (Fservice=AValue) then exit;
Fservice:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TUrlMapValidationResult
--------------------------------------------------------------------}
Procedure TUrlMapValidationResult.SetloadErrors(AIndex : Integer; const AValue : TStringArray);
begin
If (FloadErrors=AValue) then exit;
FloadErrors:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMapValidationResult.SetloadSucceeded(AIndex : Integer; const AValue : boolean);
begin
If (FloadSucceeded=AValue) then exit;
FloadSucceeded:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMapValidationResult.SettestFailures(AIndex : Integer; const AValue : TUrlMapValidationResultTypetestFailuresArray);
begin
If (FtestFailures=AValue) then exit;
FtestFailures:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUrlMapValidationResult.SettestPassed(AIndex : Integer; const AValue : boolean);
begin
If (FtestPassed=AValue) then exit;
FtestPassed:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TUrlMapValidationResult.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'loaderrors' : SetLength(FloadErrors,ALength);
'testfailures' : SetLength(FtestFailures,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TUrlMapsValidateRequest
--------------------------------------------------------------------}
Procedure TUrlMapsValidateRequest.Setresource(AIndex : Integer; const AValue : TUrlMap);
begin
If (Fresource=AValue) then exit;
Fresource:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TUrlMapsValidateResponse
--------------------------------------------------------------------}
Procedure TUrlMapsValidateResponse.Setresult(AIndex : Integer; const AValue : TUrlMapValidationResult);
begin
If (Fresult=AValue) then exit;
Fresult:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TUsageExportLocation
--------------------------------------------------------------------}
Procedure TUsageExportLocation.SetbucketName(AIndex : Integer; const AValue : String);
begin
If (FbucketName=AValue) then exit;
FbucketName:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TUsageExportLocation.SetreportNamePrefix(AIndex : Integer; const AValue : String);
begin
If (FreportNamePrefix=AValue) then exit;
FreportNamePrefix:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TVpnTunnel
--------------------------------------------------------------------}
Procedure TVpnTunnel.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnel.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnel.SetdetailedStatus(AIndex : Integer; const AValue : String);
begin
If (FdetailedStatus=AValue) then exit;
FdetailedStatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnel.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnel.SetikeVersion(AIndex : Integer; const AValue : integer);
begin
If (FikeVersion=AValue) then exit;
FikeVersion:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnel.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnel.SetlocalTrafficSelector(AIndex : Integer; const AValue : TStringArray);
begin
If (FlocalTrafficSelector=AValue) then exit;
FlocalTrafficSelector:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnel.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnel.SetpeerIp(AIndex : Integer; const AValue : String);
begin
If (FpeerIp=AValue) then exit;
FpeerIp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnel.Setregion(AIndex : Integer; const AValue : String);
begin
If (Fregion=AValue) then exit;
Fregion:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnel.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnel.SetsharedSecret(AIndex : Integer; const AValue : String);
begin
If (FsharedSecret=AValue) then exit;
FsharedSecret:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnel.SetsharedSecretHash(AIndex : Integer; const AValue : String);
begin
If (FsharedSecretHash=AValue) then exit;
FsharedSecretHash:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnel.Setstatus(AIndex : Integer; const AValue : String);
begin
If (Fstatus=AValue) then exit;
Fstatus:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnel.SettargetVpnGateway(AIndex : Integer; const AValue : String);
begin
If (FtargetVpnGateway=AValue) then exit;
FtargetVpnGateway:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TVpnTunnel.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'localtrafficselector' : SetLength(FlocalTrafficSelector,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TVpnTunnelAggregatedListTypeitems
--------------------------------------------------------------------}
Class Function TVpnTunnelAggregatedListTypeitems.AllowAdditionalProperties : Boolean;
begin
Result:=True;
end;
{ --------------------------------------------------------------------
TVpnTunnelAggregatedList
--------------------------------------------------------------------}
Procedure TVpnTunnelAggregatedList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnelAggregatedList.Setitems(AIndex : Integer; const AValue : TVpnTunnelAggregatedListTypeitems);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnelAggregatedList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnelAggregatedList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnelAggregatedList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TVpnTunnelList
--------------------------------------------------------------------}
Procedure TVpnTunnelList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnelList.Setitems(AIndex : Integer; const AValue : TVpnTunnelListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnelList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnelList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnelList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TVpnTunnelList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TVpnTunnelsScopedListTypewarningTypedataItem
--------------------------------------------------------------------}
Procedure TVpnTunnelsScopedListTypewarningTypedataItem.Setkey(AIndex : Integer; const AValue : String);
begin
If (Fkey=AValue) then exit;
Fkey:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnelsScopedListTypewarningTypedataItem.Setvalue(AIndex : Integer; const AValue : String);
begin
If (Fvalue=AValue) then exit;
Fvalue:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TVpnTunnelsScopedListTypewarning
--------------------------------------------------------------------}
Procedure TVpnTunnelsScopedListTypewarning.Setcode(AIndex : Integer; const AValue : String);
begin
If (Fcode=AValue) then exit;
Fcode:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnelsScopedListTypewarning.Setdata(AIndex : Integer; const AValue : TVpnTunnelsScopedListTypewarningTypedataArray);
begin
If (Fdata=AValue) then exit;
Fdata:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnelsScopedListTypewarning.Setmessage(AIndex : Integer; const AValue : String);
begin
If (Fmessage=AValue) then exit;
Fmessage:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TVpnTunnelsScopedListTypewarning.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'data' : SetLength(Fdata,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TVpnTunnelsScopedList
--------------------------------------------------------------------}
Procedure TVpnTunnelsScopedList.SetvpnTunnels(AIndex : Integer; const AValue : TVpnTunnelsScopedListTypevpnTunnelsArray);
begin
If (FvpnTunnels=AValue) then exit;
FvpnTunnels:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TVpnTunnelsScopedList.Setwarning(AIndex : Integer; const AValue : TVpnTunnelsScopedListTypewarning);
begin
If (Fwarning=AValue) then exit;
Fwarning:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TVpnTunnelsScopedList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'vpntunnels' : SetLength(FvpnTunnels,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TZone
--------------------------------------------------------------------}
Procedure TZone.SetcreationTimestamp(AIndex : Integer; const AValue : String);
begin
If (FcreationTimestamp=AValue) then exit;
FcreationTimestamp:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TZone.Setdeprecated(AIndex : Integer; const AValue : TDeprecationStatus);
begin
If (Fdeprecated=AValue) then exit;
Fdeprecated:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TZone.Setdescription(AIndex : Integer; const AValue : String);
begin
If (Fdescription=AValue) then exit;
Fdescription:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TZone.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TZone.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TZone.Setname(AIndex : Integer; const AValue : String);
begin
If (Fname=AValue) then exit;
Fname:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TZone.Setregion(AIndex : Integer; const AValue : String);
begin
If (Fregion=AValue) then exit;
Fregion:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TZone.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TZone.Setstatus(AIndex : Integer; const AValue : String);
begin
If (Fstatus=AValue) then exit;
Fstatus:=AValue;
MarkPropertyChanged(AIndex);
end;
{ --------------------------------------------------------------------
TZoneList
--------------------------------------------------------------------}
Procedure TZoneList.Setid(AIndex : Integer; const AValue : String);
begin
If (Fid=AValue) then exit;
Fid:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TZoneList.Setitems(AIndex : Integer; const AValue : TZoneListTypeitemsArray);
begin
If (Fitems=AValue) then exit;
Fitems:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TZoneList.Setkind(AIndex : Integer; const AValue : String);
begin
If (Fkind=AValue) then exit;
Fkind:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TZoneList.SetnextPageToken(AIndex : Integer; const AValue : String);
begin
If (FnextPageToken=AValue) then exit;
FnextPageToken:=AValue;
MarkPropertyChanged(AIndex);
end;
Procedure TZoneList.SetselfLink(AIndex : Integer; const AValue : String);
begin
If (FselfLink=AValue) then exit;
FselfLink:=AValue;
MarkPropertyChanged(AIndex);
end;
//2.6.4. bug workaround
{$IFDEF VER2_6}
Procedure TZoneList.SetArrayLength(Const AName : String; ALength : Longint);
begin
Case AName of
'items' : SetLength(Fitems,ALength);
else
Inherited SetArrayLength(AName,ALength);
end;
end;
{$ENDIF VER2_6}
{ --------------------------------------------------------------------
TAddressesResource
--------------------------------------------------------------------}
Class Function TAddressesResource.ResourceName : String;
begin
Result:='addresses';
end;
Class Function TAddressesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TAddressesResource.AggregatedList(project: string; AQuery : string = '') : TAddressAggregatedList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/aggregated/addresses';
_Methodid = 'compute.addresses.aggregatedList';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAddressAggregatedList) as TAddressAggregatedList;
end;
Function TAddressesResource.AggregatedList(project: string; AQuery : TAddressesaggregatedListOptions) : TAddressAggregatedList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=AggregatedList(project,_Q);
end;
Function TAddressesResource.Delete(address: string; project: string; region: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/regions/{region}/addresses/{address}';
_Methodid = 'compute.addresses.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['address',address,'project',project,'region',region]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TAddressesResource.Get(address: string; project: string; region: string) : TAddress;
Const
_HTTPMethod = 'GET';
_Path = '{project}/regions/{region}/addresses/{address}';
_Methodid = 'compute.addresses.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['address',address,'project',project,'region',region]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAddress) as TAddress;
end;
Function TAddressesResource.Insert(project: string; region: string; aAddress : TAddress) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/regions/{region}/addresses';
_Methodid = 'compute.addresses.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region]);
Result:=ServiceCall(_HTTPMethod,_P,'',aAddress,TOperation) as TOperation;
end;
Function TAddressesResource.List(project: string; region: string; AQuery : string = '') : TAddressList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/regions/{region}/addresses';
_Methodid = 'compute.addresses.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAddressList) as TAddressList;
end;
Function TAddressesResource.List(project: string; region: string; AQuery : TAddresseslistOptions) : TAddressList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,region,_Q);
end;
{ --------------------------------------------------------------------
TAutoscalersResource
--------------------------------------------------------------------}
Class Function TAutoscalersResource.ResourceName : String;
begin
Result:='autoscalers';
end;
Class Function TAutoscalersResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TAutoscalersResource.AggregatedList(project: string; AQuery : string = '') : TAutoscalerAggregatedList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/aggregated/autoscalers';
_Methodid = 'compute.autoscalers.aggregatedList';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAutoscalerAggregatedList) as TAutoscalerAggregatedList;
end;
Function TAutoscalersResource.AggregatedList(project: string; AQuery : TAutoscalersaggregatedListOptions) : TAutoscalerAggregatedList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=AggregatedList(project,_Q);
end;
Function TAutoscalersResource.Delete(autoscaler: string; project: string; zone: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/zones/{zone}/autoscalers/{autoscaler}';
_Methodid = 'compute.autoscalers.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['autoscaler',autoscaler,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TAutoscalersResource.Get(autoscaler: string; project: string; zone: string) : TAutoscaler;
Const
_HTTPMethod = 'GET';
_Path = '{project}/zones/{zone}/autoscalers/{autoscaler}';
_Methodid = 'compute.autoscalers.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['autoscaler',autoscaler,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAutoscaler) as TAutoscaler;
end;
Function TAutoscalersResource.Insert(project: string; zone: string; aAutoscaler : TAutoscaler) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/autoscalers';
_Methodid = 'compute.autoscalers.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',aAutoscaler,TOperation) as TOperation;
end;
Function TAutoscalersResource.List(project: string; zone: string; AQuery : string = '') : TAutoscalerList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/zones/{zone}/autoscalers';
_Methodid = 'compute.autoscalers.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAutoscalerList) as TAutoscalerList;
end;
Function TAutoscalersResource.List(project: string; zone: string; AQuery : TAutoscalerslistOptions) : TAutoscalerList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,zone,_Q);
end;
Function TAutoscalersResource.Patch(project: string; zone: string; aAutoscaler : TAutoscaler; AQuery : string = '') : TOperation;
Const
_HTTPMethod = 'PATCH';
_Path = '{project}/zones/{zone}/autoscalers';
_Methodid = 'compute.autoscalers.patch';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,aAutoscaler,TOperation) as TOperation;
end;
Function TAutoscalersResource.Patch(project: string; zone: string; aAutoscaler : TAutoscaler; AQuery : TAutoscalerspatchOptions) : TOperation;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'autoscaler',AQuery.autoscaler);
Result:=Patch(project,zone,aAutoscaler,_Q);
end;
Function TAutoscalersResource.Update(project: string; zone: string; aAutoscaler : TAutoscaler; AQuery : string = '') : TOperation;
Const
_HTTPMethod = 'PUT';
_Path = '{project}/zones/{zone}/autoscalers';
_Methodid = 'compute.autoscalers.update';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,aAutoscaler,TOperation) as TOperation;
end;
Function TAutoscalersResource.Update(project: string; zone: string; aAutoscaler : TAutoscaler; AQuery : TAutoscalersupdateOptions) : TOperation;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'autoscaler',AQuery.autoscaler);
Result:=Update(project,zone,aAutoscaler,_Q);
end;
{ --------------------------------------------------------------------
TBackendServicesResource
--------------------------------------------------------------------}
Class Function TBackendServicesResource.ResourceName : String;
begin
Result:='backendServices';
end;
Class Function TBackendServicesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TBackendServicesResource.Delete(backendService: string; project: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/global/backendServices/{backendService}';
_Methodid = 'compute.backendServices.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['backendService',backendService,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TBackendServicesResource.Get(backendService: string; project: string) : TBackendService;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/backendServices/{backendService}';
_Methodid = 'compute.backendServices.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['backendService',backendService,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TBackendService) as TBackendService;
end;
Function TBackendServicesResource.GetHealth(backendService: string; project: string; aResourceGroupReference : TResourceGroupReference) : TBackendServiceGroupHealth;
Const
_HTTPMethod = 'POST';
_Path = '{project}/global/backendServices/{backendService}/getHealth';
_Methodid = 'compute.backendServices.getHealth';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['backendService',backendService,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aResourceGroupReference,TBackendServiceGroupHealth) as TBackendServiceGroupHealth;
end;
Function TBackendServicesResource.Insert(project: string; aBackendService : TBackendService) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/global/backendServices';
_Methodid = 'compute.backendServices.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aBackendService,TOperation) as TOperation;
end;
Function TBackendServicesResource.List(project: string; AQuery : string = '') : TBackendServiceList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/backendServices';
_Methodid = 'compute.backendServices.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TBackendServiceList) as TBackendServiceList;
end;
Function TBackendServicesResource.List(project: string; AQuery : TBackendServiceslistOptions) : TBackendServiceList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,_Q);
end;
Function TBackendServicesResource.Patch(backendService: string; project: string; aBackendService : TBackendService) : TOperation;
Const
_HTTPMethod = 'PATCH';
_Path = '{project}/global/backendServices/{backendService}';
_Methodid = 'compute.backendServices.patch';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['backendService',backendService,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aBackendService,TOperation) as TOperation;
end;
Function TBackendServicesResource.Update(backendService: string; project: string; aBackendService : TBackendService) : TOperation;
Const
_HTTPMethod = 'PUT';
_Path = '{project}/global/backendServices/{backendService}';
_Methodid = 'compute.backendServices.update';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['backendService',backendService,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aBackendService,TOperation) as TOperation;
end;
{ --------------------------------------------------------------------
TDiskTypesResource
--------------------------------------------------------------------}
Class Function TDiskTypesResource.ResourceName : String;
begin
Result:='diskTypes';
end;
Class Function TDiskTypesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TDiskTypesResource.AggregatedList(project: string; AQuery : string = '') : TDiskTypeAggregatedList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/aggregated/diskTypes';
_Methodid = 'compute.diskTypes.aggregatedList';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TDiskTypeAggregatedList) as TDiskTypeAggregatedList;
end;
Function TDiskTypesResource.AggregatedList(project: string; AQuery : TDiskTypesaggregatedListOptions) : TDiskTypeAggregatedList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=AggregatedList(project,_Q);
end;
Function TDiskTypesResource.Get(diskType: string; project: string; zone: string) : TDiskType;
Const
_HTTPMethod = 'GET';
_Path = '{project}/zones/{zone}/diskTypes/{diskType}';
_Methodid = 'compute.diskTypes.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['diskType',diskType,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TDiskType) as TDiskType;
end;
Function TDiskTypesResource.List(project: string; zone: string; AQuery : string = '') : TDiskTypeList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/zones/{zone}/diskTypes';
_Methodid = 'compute.diskTypes.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TDiskTypeList) as TDiskTypeList;
end;
Function TDiskTypesResource.List(project: string; zone: string; AQuery : TDiskTypeslistOptions) : TDiskTypeList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,zone,_Q);
end;
{ --------------------------------------------------------------------
TDisksResource
--------------------------------------------------------------------}
Class Function TDisksResource.ResourceName : String;
begin
Result:='disks';
end;
Class Function TDisksResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TDisksResource.AggregatedList(project: string; AQuery : string = '') : TDiskAggregatedList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/aggregated/disks';
_Methodid = 'compute.disks.aggregatedList';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TDiskAggregatedList) as TDiskAggregatedList;
end;
Function TDisksResource.AggregatedList(project: string; AQuery : TDisksaggregatedListOptions) : TDiskAggregatedList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=AggregatedList(project,_Q);
end;
Function TDisksResource.CreateSnapshot(disk: string; project: string; zone: string; aSnapshot : TSnapshot) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/disks/{disk}/createSnapshot';
_Methodid = 'compute.disks.createSnapshot';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['disk',disk,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',aSnapshot,TOperation) as TOperation;
end;
Function TDisksResource.Delete(disk: string; project: string; zone: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/zones/{zone}/disks/{disk}';
_Methodid = 'compute.disks.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['disk',disk,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TDisksResource.Get(disk: string; project: string; zone: string) : TDisk;
Const
_HTTPMethod = 'GET';
_Path = '{project}/zones/{zone}/disks/{disk}';
_Methodid = 'compute.disks.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['disk',disk,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TDisk) as TDisk;
end;
Function TDisksResource.Insert(project: string; zone: string; aDisk : TDisk; AQuery : string = '') : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/disks';
_Methodid = 'compute.disks.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,aDisk,TOperation) as TOperation;
end;
Function TDisksResource.Insert(project: string; zone: string; aDisk : TDisk; AQuery : TDisksinsertOptions) : TOperation;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'sourceImage',AQuery.sourceImage);
Result:=Insert(project,zone,aDisk,_Q);
end;
Function TDisksResource.List(project: string; zone: string; AQuery : string = '') : TDiskList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/zones/{zone}/disks';
_Methodid = 'compute.disks.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TDiskList) as TDiskList;
end;
Function TDisksResource.List(project: string; zone: string; AQuery : TDiskslistOptions) : TDiskList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,zone,_Q);
end;
Function TDisksResource.Resize(disk: string; project: string; zone: string; aDisksResizeRequest : TDisksResizeRequest) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/disks/{disk}/resize';
_Methodid = 'compute.disks.resize';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['disk',disk,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',aDisksResizeRequest,TOperation) as TOperation;
end;
{ --------------------------------------------------------------------
TFirewallsResource
--------------------------------------------------------------------}
Class Function TFirewallsResource.ResourceName : String;
begin
Result:='firewalls';
end;
Class Function TFirewallsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TFirewallsResource.Delete(firewall: string; project: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/global/firewalls/{firewall}';
_Methodid = 'compute.firewalls.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['firewall',firewall,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TFirewallsResource.Get(firewall: string; project: string) : TFirewall;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/firewalls/{firewall}';
_Methodid = 'compute.firewalls.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['firewall',firewall,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TFirewall) as TFirewall;
end;
Function TFirewallsResource.Insert(project: string; aFirewall : TFirewall) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/global/firewalls';
_Methodid = 'compute.firewalls.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aFirewall,TOperation) as TOperation;
end;
Function TFirewallsResource.List(project: string; AQuery : string = '') : TFirewallList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/firewalls';
_Methodid = 'compute.firewalls.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TFirewallList) as TFirewallList;
end;
Function TFirewallsResource.List(project: string; AQuery : TFirewallslistOptions) : TFirewallList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,_Q);
end;
Function TFirewallsResource.Patch(firewall: string; project: string; aFirewall : TFirewall) : TOperation;
Const
_HTTPMethod = 'PATCH';
_Path = '{project}/global/firewalls/{firewall}';
_Methodid = 'compute.firewalls.patch';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['firewall',firewall,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aFirewall,TOperation) as TOperation;
end;
Function TFirewallsResource.Update(firewall: string; project: string; aFirewall : TFirewall) : TOperation;
Const
_HTTPMethod = 'PUT';
_Path = '{project}/global/firewalls/{firewall}';
_Methodid = 'compute.firewalls.update';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['firewall',firewall,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aFirewall,TOperation) as TOperation;
end;
{ --------------------------------------------------------------------
TForwardingRulesResource
--------------------------------------------------------------------}
Class Function TForwardingRulesResource.ResourceName : String;
begin
Result:='forwardingRules';
end;
Class Function TForwardingRulesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TForwardingRulesResource.AggregatedList(project: string; AQuery : string = '') : TForwardingRuleAggregatedList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/aggregated/forwardingRules';
_Methodid = 'compute.forwardingRules.aggregatedList';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TForwardingRuleAggregatedList) as TForwardingRuleAggregatedList;
end;
Function TForwardingRulesResource.AggregatedList(project: string; AQuery : TForwardingRulesaggregatedListOptions) : TForwardingRuleAggregatedList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=AggregatedList(project,_Q);
end;
Function TForwardingRulesResource.Delete(forwardingRule: string; project: string; region: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/regions/{region}/forwardingRules/{forwardingRule}';
_Methodid = 'compute.forwardingRules.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['forwardingRule',forwardingRule,'project',project,'region',region]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TForwardingRulesResource.Get(forwardingRule: string; project: string; region: string) : TForwardingRule;
Const
_HTTPMethod = 'GET';
_Path = '{project}/regions/{region}/forwardingRules/{forwardingRule}';
_Methodid = 'compute.forwardingRules.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['forwardingRule',forwardingRule,'project',project,'region',region]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TForwardingRule) as TForwardingRule;
end;
Function TForwardingRulesResource.Insert(project: string; region: string; aForwardingRule : TForwardingRule) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/regions/{region}/forwardingRules';
_Methodid = 'compute.forwardingRules.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region]);
Result:=ServiceCall(_HTTPMethod,_P,'',aForwardingRule,TOperation) as TOperation;
end;
Function TForwardingRulesResource.List(project: string; region: string; AQuery : string = '') : TForwardingRuleList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/regions/{region}/forwardingRules';
_Methodid = 'compute.forwardingRules.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TForwardingRuleList) as TForwardingRuleList;
end;
Function TForwardingRulesResource.List(project: string; region: string; AQuery : TForwardingRuleslistOptions) : TForwardingRuleList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,region,_Q);
end;
Function TForwardingRulesResource.SetTarget(forwardingRule: string; project: string; region: string; aTargetReference : TTargetReference) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/regions/{region}/forwardingRules/{forwardingRule}/setTarget';
_Methodid = 'compute.forwardingRules.setTarget';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['forwardingRule',forwardingRule,'project',project,'region',region]);
Result:=ServiceCall(_HTTPMethod,_P,'',aTargetReference,TOperation) as TOperation;
end;
{ --------------------------------------------------------------------
TGlobalAddressesResource
--------------------------------------------------------------------}
Class Function TGlobalAddressesResource.ResourceName : String;
begin
Result:='globalAddresses';
end;
Class Function TGlobalAddressesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TGlobalAddressesResource.Delete(address: string; project: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/global/addresses/{address}';
_Methodid = 'compute.globalAddresses.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['address',address,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TGlobalAddressesResource.Get(address: string; project: string) : TAddress;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/addresses/{address}';
_Methodid = 'compute.globalAddresses.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['address',address,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAddress) as TAddress;
end;
Function TGlobalAddressesResource.Insert(project: string; aAddress : TAddress) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/global/addresses';
_Methodid = 'compute.globalAddresses.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aAddress,TOperation) as TOperation;
end;
Function TGlobalAddressesResource.List(project: string; AQuery : string = '') : TAddressList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/addresses';
_Methodid = 'compute.globalAddresses.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAddressList) as TAddressList;
end;
Function TGlobalAddressesResource.List(project: string; AQuery : TGlobalAddresseslistOptions) : TAddressList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,_Q);
end;
{ --------------------------------------------------------------------
TGlobalForwardingRulesResource
--------------------------------------------------------------------}
Class Function TGlobalForwardingRulesResource.ResourceName : String;
begin
Result:='globalForwardingRules';
end;
Class Function TGlobalForwardingRulesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TGlobalForwardingRulesResource.Delete(forwardingRule: string; project: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/global/forwardingRules/{forwardingRule}';
_Methodid = 'compute.globalForwardingRules.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['forwardingRule',forwardingRule,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TGlobalForwardingRulesResource.Get(forwardingRule: string; project: string) : TForwardingRule;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/forwardingRules/{forwardingRule}';
_Methodid = 'compute.globalForwardingRules.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['forwardingRule',forwardingRule,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TForwardingRule) as TForwardingRule;
end;
Function TGlobalForwardingRulesResource.Insert(project: string; aForwardingRule : TForwardingRule) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/global/forwardingRules';
_Methodid = 'compute.globalForwardingRules.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aForwardingRule,TOperation) as TOperation;
end;
Function TGlobalForwardingRulesResource.List(project: string; AQuery : string = '') : TForwardingRuleList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/forwardingRules';
_Methodid = 'compute.globalForwardingRules.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TForwardingRuleList) as TForwardingRuleList;
end;
Function TGlobalForwardingRulesResource.List(project: string; AQuery : TGlobalForwardingRuleslistOptions) : TForwardingRuleList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,_Q);
end;
Function TGlobalForwardingRulesResource.SetTarget(forwardingRule: string; project: string; aTargetReference : TTargetReference) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/global/forwardingRules/{forwardingRule}/setTarget';
_Methodid = 'compute.globalForwardingRules.setTarget';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['forwardingRule',forwardingRule,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aTargetReference,TOperation) as TOperation;
end;
{ --------------------------------------------------------------------
TGlobalOperationsResource
--------------------------------------------------------------------}
Class Function TGlobalOperationsResource.ResourceName : String;
begin
Result:='globalOperations';
end;
Class Function TGlobalOperationsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TGlobalOperationsResource.AggregatedList(project: string; AQuery : string = '') : TOperationAggregatedList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/aggregated/operations';
_Methodid = 'compute.globalOperations.aggregatedList';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TOperationAggregatedList) as TOperationAggregatedList;
end;
Function TGlobalOperationsResource.AggregatedList(project: string; AQuery : TGlobalOperationsaggregatedListOptions) : TOperationAggregatedList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=AggregatedList(project,_Q);
end;
Procedure TGlobalOperationsResource.Delete(operation: string; project: string);
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/global/operations/{operation}';
_Methodid = 'compute.globalOperations.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['operation',operation,'project',project]);
ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
end;
Function TGlobalOperationsResource.Get(operation: string; project: string) : TOperation;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/operations/{operation}';
_Methodid = 'compute.globalOperations.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['operation',operation,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TGlobalOperationsResource.List(project: string; AQuery : string = '') : TOperationList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/operations';
_Methodid = 'compute.globalOperations.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TOperationList) as TOperationList;
end;
Function TGlobalOperationsResource.List(project: string; AQuery : TGlobalOperationslistOptions) : TOperationList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,_Q);
end;
{ --------------------------------------------------------------------
THttpHealthChecksResource
--------------------------------------------------------------------}
Class Function THttpHealthChecksResource.ResourceName : String;
begin
Result:='httpHealthChecks';
end;
Class Function THttpHealthChecksResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function THttpHealthChecksResource.Delete(httpHealthCheck: string; project: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/global/httpHealthChecks/{httpHealthCheck}';
_Methodid = 'compute.httpHealthChecks.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['httpHealthCheck',httpHealthCheck,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function THttpHealthChecksResource.Get(httpHealthCheck: string; project: string) : THttpHealthCheck;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/httpHealthChecks/{httpHealthCheck}';
_Methodid = 'compute.httpHealthChecks.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['httpHealthCheck',httpHealthCheck,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,THttpHealthCheck) as THttpHealthCheck;
end;
Function THttpHealthChecksResource.Insert(project: string; aHttpHealthCheck : THttpHealthCheck) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/global/httpHealthChecks';
_Methodid = 'compute.httpHealthChecks.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aHttpHealthCheck,TOperation) as TOperation;
end;
Function THttpHealthChecksResource.List(project: string; AQuery : string = '') : THttpHealthCheckList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/httpHealthChecks';
_Methodid = 'compute.httpHealthChecks.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,THttpHealthCheckList) as THttpHealthCheckList;
end;
Function THttpHealthChecksResource.List(project: string; AQuery : THttpHealthCheckslistOptions) : THttpHealthCheckList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,_Q);
end;
Function THttpHealthChecksResource.Patch(httpHealthCheck: string; project: string; aHttpHealthCheck : THttpHealthCheck) : TOperation;
Const
_HTTPMethod = 'PATCH';
_Path = '{project}/global/httpHealthChecks/{httpHealthCheck}';
_Methodid = 'compute.httpHealthChecks.patch';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['httpHealthCheck',httpHealthCheck,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aHttpHealthCheck,TOperation) as TOperation;
end;
Function THttpHealthChecksResource.Update(httpHealthCheck: string; project: string; aHttpHealthCheck : THttpHealthCheck) : TOperation;
Const
_HTTPMethod = 'PUT';
_Path = '{project}/global/httpHealthChecks/{httpHealthCheck}';
_Methodid = 'compute.httpHealthChecks.update';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['httpHealthCheck',httpHealthCheck,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aHttpHealthCheck,TOperation) as TOperation;
end;
{ --------------------------------------------------------------------
THttpsHealthChecksResource
--------------------------------------------------------------------}
Class Function THttpsHealthChecksResource.ResourceName : String;
begin
Result:='httpsHealthChecks';
end;
Class Function THttpsHealthChecksResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function THttpsHealthChecksResource.Delete(httpsHealthCheck: string; project: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/global/httpsHealthChecks/{httpsHealthCheck}';
_Methodid = 'compute.httpsHealthChecks.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['httpsHealthCheck',httpsHealthCheck,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function THttpsHealthChecksResource.Get(httpsHealthCheck: string; project: string) : THttpsHealthCheck;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/httpsHealthChecks/{httpsHealthCheck}';
_Methodid = 'compute.httpsHealthChecks.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['httpsHealthCheck',httpsHealthCheck,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,THttpsHealthCheck) as THttpsHealthCheck;
end;
Function THttpsHealthChecksResource.Insert(project: string; aHttpsHealthCheck : THttpsHealthCheck) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/global/httpsHealthChecks';
_Methodid = 'compute.httpsHealthChecks.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aHttpsHealthCheck,TOperation) as TOperation;
end;
Function THttpsHealthChecksResource.List(project: string; AQuery : string = '') : THttpsHealthCheckList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/httpsHealthChecks';
_Methodid = 'compute.httpsHealthChecks.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,THttpsHealthCheckList) as THttpsHealthCheckList;
end;
Function THttpsHealthChecksResource.List(project: string; AQuery : THttpsHealthCheckslistOptions) : THttpsHealthCheckList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,_Q);
end;
Function THttpsHealthChecksResource.Patch(httpsHealthCheck: string; project: string; aHttpsHealthCheck : THttpsHealthCheck) : TOperation;
Const
_HTTPMethod = 'PATCH';
_Path = '{project}/global/httpsHealthChecks/{httpsHealthCheck}';
_Methodid = 'compute.httpsHealthChecks.patch';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['httpsHealthCheck',httpsHealthCheck,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aHttpsHealthCheck,TOperation) as TOperation;
end;
Function THttpsHealthChecksResource.Update(httpsHealthCheck: string; project: string; aHttpsHealthCheck : THttpsHealthCheck) : TOperation;
Const
_HTTPMethod = 'PUT';
_Path = '{project}/global/httpsHealthChecks/{httpsHealthCheck}';
_Methodid = 'compute.httpsHealthChecks.update';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['httpsHealthCheck',httpsHealthCheck,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aHttpsHealthCheck,TOperation) as TOperation;
end;
{ --------------------------------------------------------------------
TImagesResource
--------------------------------------------------------------------}
Class Function TImagesResource.ResourceName : String;
begin
Result:='images';
end;
Class Function TImagesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TImagesResource.Delete(image: string; project: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/global/images/{image}';
_Methodid = 'compute.images.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['image',image,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TImagesResource.Deprecate(image: string; project: string; aDeprecationStatus : TDeprecationStatus) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/global/images/{image}/deprecate';
_Methodid = 'compute.images.deprecate';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['image',image,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aDeprecationStatus,TOperation) as TOperation;
end;
Function TImagesResource.Get(image: string; project: string) : TImage;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/images/{image}';
_Methodid = 'compute.images.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['image',image,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TImage) as TImage;
end;
Function TImagesResource.GetFromFamily(family: string; project: string) : TImage;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/images/family/{family}';
_Methodid = 'compute.images.getFromFamily';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['family',family,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TImage) as TImage;
end;
Function TImagesResource.Insert(project: string; aImage : TImage) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/global/images';
_Methodid = 'compute.images.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aImage,TOperation) as TOperation;
end;
Function TImagesResource.List(project: string; AQuery : string = '') : TImageList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/images';
_Methodid = 'compute.images.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TImageList) as TImageList;
end;
Function TImagesResource.List(project: string; AQuery : TImageslistOptions) : TImageList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,_Q);
end;
{ --------------------------------------------------------------------
TInstanceGroupManagersResource
--------------------------------------------------------------------}
Class Function TInstanceGroupManagersResource.ResourceName : String;
begin
Result:='instanceGroupManagers';
end;
Class Function TInstanceGroupManagersResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TInstanceGroupManagersResource.AbandonInstances(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersAbandonInstancesRequest : TInstanceGroupManagersAbandonInstancesRequest) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}/abandonInstances';
_Methodid = 'compute.instanceGroupManagers.abandonInstances';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupManagersAbandonInstancesRequest,TOperation) as TOperation;
end;
Function TInstanceGroupManagersResource.AggregatedList(project: string; AQuery : string = '') : TInstanceGroupManagerAggregatedList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/aggregated/instanceGroupManagers';
_Methodid = 'compute.instanceGroupManagers.aggregatedList';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TInstanceGroupManagerAggregatedList) as TInstanceGroupManagerAggregatedList;
end;
Function TInstanceGroupManagersResource.AggregatedList(project: string; AQuery : TInstanceGroupManagersaggregatedListOptions) : TInstanceGroupManagerAggregatedList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=AggregatedList(project,_Q);
end;
Function TInstanceGroupManagersResource.Delete(instanceGroupManager: string; project: string; zone: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}';
_Methodid = 'compute.instanceGroupManagers.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TInstanceGroupManagersResource.DeleteInstances(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersDeleteInstancesRequest : TInstanceGroupManagersDeleteInstancesRequest) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}/deleteInstances';
_Methodid = 'compute.instanceGroupManagers.deleteInstances';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupManagersDeleteInstancesRequest,TOperation) as TOperation;
end;
Function TInstanceGroupManagersResource.Get(instanceGroupManager: string; project: string; zone: string) : TInstanceGroupManager;
Const
_HTTPMethod = 'GET';
_Path = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}';
_Methodid = 'compute.instanceGroupManagers.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TInstanceGroupManager) as TInstanceGroupManager;
end;
Function TInstanceGroupManagersResource.Insert(project: string; zone: string; aInstanceGroupManager : TInstanceGroupManager) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instanceGroupManagers';
_Methodid = 'compute.instanceGroupManagers.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupManager,TOperation) as TOperation;
end;
Function TInstanceGroupManagersResource.List(project: string; zone: string; AQuery : string = '') : TInstanceGroupManagerList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/zones/{zone}/instanceGroupManagers';
_Methodid = 'compute.instanceGroupManagers.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TInstanceGroupManagerList) as TInstanceGroupManagerList;
end;
Function TInstanceGroupManagersResource.List(project: string; zone: string; AQuery : TInstanceGroupManagerslistOptions) : TInstanceGroupManagerList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,zone,_Q);
end;
Function TInstanceGroupManagersResource.ListManagedInstances(instanceGroupManager: string; project: string; zone: string) : TInstanceGroupManagersListManagedInstancesResponse;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}/listManagedInstances';
_Methodid = 'compute.instanceGroupManagers.listManagedInstances';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TInstanceGroupManagersListManagedInstancesResponse) as TInstanceGroupManagersListManagedInstancesResponse;
end;
Function TInstanceGroupManagersResource.RecreateInstances(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersRecreateInstancesRequest : TInstanceGroupManagersRecreateInstancesRequest) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}/recreateInstances';
_Methodid = 'compute.instanceGroupManagers.recreateInstances';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupManagersRecreateInstancesRequest,TOperation) as TOperation;
end;
Function TInstanceGroupManagersResource.Resize(instanceGroupManager: string; project: string; zone: string; AQuery : string = '') : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}/resize';
_Methodid = 'compute.instanceGroupManagers.resize';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TOperation) as TOperation;
end;
Function TInstanceGroupManagersResource.Resize(instanceGroupManager: string; project: string; zone: string; AQuery : TInstanceGroupManagersresizeOptions) : TOperation;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'size',AQuery.size);
Result:=Resize(instanceGroupManager,project,zone,_Q);
end;
Function TInstanceGroupManagersResource.SetInstanceTemplate(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersSetInstanceTemplateRequest : TInstanceGroupManagersSetInstanceTemplateRequest) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}/setInstanceTemplate';
_Methodid = 'compute.instanceGroupManagers.setInstanceTemplate';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupManagersSetInstanceTemplateRequest,TOperation) as TOperation;
end;
Function TInstanceGroupManagersResource.SetTargetPools(instanceGroupManager: string; project: string; zone: string; aInstanceGroupManagersSetTargetPoolsRequest : TInstanceGroupManagersSetTargetPoolsRequest) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instanceGroupManagers/{instanceGroupManager}/setTargetPools';
_Methodid = 'compute.instanceGroupManagers.setTargetPools';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instanceGroupManager',instanceGroupManager,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupManagersSetTargetPoolsRequest,TOperation) as TOperation;
end;
{ --------------------------------------------------------------------
TInstanceGroupsResource
--------------------------------------------------------------------}
Class Function TInstanceGroupsResource.ResourceName : String;
begin
Result:='instanceGroups';
end;
Class Function TInstanceGroupsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TInstanceGroupsResource.AddInstances(instanceGroup: string; project: string; zone: string; aInstanceGroupsAddInstancesRequest : TInstanceGroupsAddInstancesRequest) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instanceGroups/{instanceGroup}/addInstances';
_Methodid = 'compute.instanceGroups.addInstances';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instanceGroup',instanceGroup,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupsAddInstancesRequest,TOperation) as TOperation;
end;
Function TInstanceGroupsResource.AggregatedList(project: string; AQuery : string = '') : TInstanceGroupAggregatedList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/aggregated/instanceGroups';
_Methodid = 'compute.instanceGroups.aggregatedList';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TInstanceGroupAggregatedList) as TInstanceGroupAggregatedList;
end;
Function TInstanceGroupsResource.AggregatedList(project: string; AQuery : TInstanceGroupsaggregatedListOptions) : TInstanceGroupAggregatedList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=AggregatedList(project,_Q);
end;
Function TInstanceGroupsResource.Delete(instanceGroup: string; project: string; zone: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/zones/{zone}/instanceGroups/{instanceGroup}';
_Methodid = 'compute.instanceGroups.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instanceGroup',instanceGroup,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TInstanceGroupsResource.Get(instanceGroup: string; project: string; zone: string) : TInstanceGroup;
Const
_HTTPMethod = 'GET';
_Path = '{project}/zones/{zone}/instanceGroups/{instanceGroup}';
_Methodid = 'compute.instanceGroups.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instanceGroup',instanceGroup,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TInstanceGroup) as TInstanceGroup;
end;
Function TInstanceGroupsResource.Insert(project: string; zone: string; aInstanceGroup : TInstanceGroup) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instanceGroups';
_Methodid = 'compute.instanceGroups.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroup,TOperation) as TOperation;
end;
Function TInstanceGroupsResource.List(project: string; zone: string; AQuery : string = '') : TInstanceGroupList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/zones/{zone}/instanceGroups';
_Methodid = 'compute.instanceGroups.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TInstanceGroupList) as TInstanceGroupList;
end;
Function TInstanceGroupsResource.List(project: string; zone: string; AQuery : TInstanceGroupslistOptions) : TInstanceGroupList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,zone,_Q);
end;
Function TInstanceGroupsResource.ListInstances(instanceGroup: string; project: string; zone: string; aInstanceGroupsListInstancesRequest : TInstanceGroupsListInstancesRequest; AQuery : string = '') : TInstanceGroupsListInstances;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instanceGroups/{instanceGroup}/listInstances';
_Methodid = 'compute.instanceGroups.listInstances';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instanceGroup',instanceGroup,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,aInstanceGroupsListInstancesRequest,TInstanceGroupsListInstances) as TInstanceGroupsListInstances;
end;
Function TInstanceGroupsResource.ListInstances(instanceGroup: string; project: string; zone: string; aInstanceGroupsListInstancesRequest : TInstanceGroupsListInstancesRequest; AQuery : TInstanceGroupslistInstancesOptions) : TInstanceGroupsListInstances;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=ListInstances(instanceGroup,project,zone,aInstanceGroupsListInstancesRequest,_Q);
end;
Function TInstanceGroupsResource.RemoveInstances(instanceGroup: string; project: string; zone: string; aInstanceGroupsRemoveInstancesRequest : TInstanceGroupsRemoveInstancesRequest) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instanceGroups/{instanceGroup}/removeInstances';
_Methodid = 'compute.instanceGroups.removeInstances';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instanceGroup',instanceGroup,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupsRemoveInstancesRequest,TOperation) as TOperation;
end;
Function TInstanceGroupsResource.SetNamedPorts(instanceGroup: string; project: string; zone: string; aInstanceGroupsSetNamedPortsRequest : TInstanceGroupsSetNamedPortsRequest) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instanceGroups/{instanceGroup}/setNamedPorts';
_Methodid = 'compute.instanceGroups.setNamedPorts';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instanceGroup',instanceGroup,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceGroupsSetNamedPortsRequest,TOperation) as TOperation;
end;
{ --------------------------------------------------------------------
TInstanceTemplatesResource
--------------------------------------------------------------------}
Class Function TInstanceTemplatesResource.ResourceName : String;
begin
Result:='instanceTemplates';
end;
Class Function TInstanceTemplatesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TInstanceTemplatesResource.Delete(instanceTemplate: string; project: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/global/instanceTemplates/{instanceTemplate}';
_Methodid = 'compute.instanceTemplates.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instanceTemplate',instanceTemplate,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TInstanceTemplatesResource.Get(instanceTemplate: string; project: string) : TInstanceTemplate;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/instanceTemplates/{instanceTemplate}';
_Methodid = 'compute.instanceTemplates.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instanceTemplate',instanceTemplate,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TInstanceTemplate) as TInstanceTemplate;
end;
Function TInstanceTemplatesResource.Insert(project: string; aInstanceTemplate : TInstanceTemplate) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/global/instanceTemplates';
_Methodid = 'compute.instanceTemplates.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceTemplate,TOperation) as TOperation;
end;
Function TInstanceTemplatesResource.List(project: string; AQuery : string = '') : TInstanceTemplateList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/instanceTemplates';
_Methodid = 'compute.instanceTemplates.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TInstanceTemplateList) as TInstanceTemplateList;
end;
Function TInstanceTemplatesResource.List(project: string; AQuery : TInstanceTemplateslistOptions) : TInstanceTemplateList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,_Q);
end;
{ --------------------------------------------------------------------
TInstancesResource
--------------------------------------------------------------------}
Class Function TInstancesResource.ResourceName : String;
begin
Result:='instances';
end;
Class Function TInstancesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TInstancesResource.AddAccessConfig(instance: string; project: string; zone: string; aAccessConfig : TAccessConfig; AQuery : string = '') : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instances/{instance}/addAccessConfig';
_Methodid = 'compute.instances.addAccessConfig';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,aAccessConfig,TOperation) as TOperation;
end;
Function TInstancesResource.AddAccessConfig(instance: string; project: string; zone: string; aAccessConfig : TAccessConfig; AQuery : TInstancesaddAccessConfigOptions) : TOperation;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'networkInterface',AQuery.networkInterface);
Result:=AddAccessConfig(instance,project,zone,aAccessConfig,_Q);
end;
Function TInstancesResource.AggregatedList(project: string; AQuery : string = '') : TInstanceAggregatedList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/aggregated/instances';
_Methodid = 'compute.instances.aggregatedList';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TInstanceAggregatedList) as TInstanceAggregatedList;
end;
Function TInstancesResource.AggregatedList(project: string; AQuery : TInstancesaggregatedListOptions) : TInstanceAggregatedList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=AggregatedList(project,_Q);
end;
Function TInstancesResource.AttachDisk(instance: string; project: string; zone: string; aAttachedDisk : TAttachedDisk) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instances/{instance}/attachDisk';
_Methodid = 'compute.instances.attachDisk';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',aAttachedDisk,TOperation) as TOperation;
end;
Function TInstancesResource.Delete(instance: string; project: string; zone: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/zones/{zone}/instances/{instance}';
_Methodid = 'compute.instances.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TInstancesResource.DeleteAccessConfig(instance: string; project: string; zone: string; AQuery : string = '') : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instances/{instance}/deleteAccessConfig';
_Methodid = 'compute.instances.deleteAccessConfig';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TOperation) as TOperation;
end;
Function TInstancesResource.DeleteAccessConfig(instance: string; project: string; zone: string; AQuery : TInstancesdeleteAccessConfigOptions) : TOperation;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'accessConfig',AQuery.accessConfig);
AddToQuery(_Q,'networkInterface',AQuery.networkInterface);
Result:=DeleteAccessConfig(instance,project,zone,_Q);
end;
Function TInstancesResource.DetachDisk(instance: string; project: string; zone: string; AQuery : string = '') : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instances/{instance}/detachDisk';
_Methodid = 'compute.instances.detachDisk';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TOperation) as TOperation;
end;
Function TInstancesResource.DetachDisk(instance: string; project: string; zone: string; AQuery : TInstancesdetachDiskOptions) : TOperation;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'deviceName',AQuery.deviceName);
Result:=DetachDisk(instance,project,zone,_Q);
end;
Function TInstancesResource.Get(instance: string; project: string; zone: string) : TInstance;
Const
_HTTPMethod = 'GET';
_Path = '{project}/zones/{zone}/instances/{instance}';
_Methodid = 'compute.instances.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TInstance) as TInstance;
end;
Function TInstancesResource.GetSerialPortOutput(instance: string; project: string; zone: string; AQuery : string = '') : TSerialPortOutput;
Const
_HTTPMethod = 'GET';
_Path = '{project}/zones/{zone}/instances/{instance}/serialPort';
_Methodid = 'compute.instances.getSerialPortOutput';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TSerialPortOutput) as TSerialPortOutput;
end;
Function TInstancesResource.GetSerialPortOutput(instance: string; project: string; zone: string; AQuery : TInstancesgetSerialPortOutputOptions) : TSerialPortOutput;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'port',AQuery.port);
Result:=GetSerialPortOutput(instance,project,zone,_Q);
end;
Function TInstancesResource.Insert(project: string; zone: string; aInstance : TInstance) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instances';
_Methodid = 'compute.instances.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',aInstance,TOperation) as TOperation;
end;
Function TInstancesResource.List(project: string; zone: string; AQuery : string = '') : TInstanceList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/zones/{zone}/instances';
_Methodid = 'compute.instances.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TInstanceList) as TInstanceList;
end;
Function TInstancesResource.List(project: string; zone: string; AQuery : TInstanceslistOptions) : TInstanceList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,zone,_Q);
end;
Function TInstancesResource.Reset(instance: string; project: string; zone: string) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instances/{instance}/reset';
_Methodid = 'compute.instances.reset';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TInstancesResource.SetDiskAutoDelete(instance: string; project: string; zone: string; AQuery : string = '') : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instances/{instance}/setDiskAutoDelete';
_Methodid = 'compute.instances.setDiskAutoDelete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TOperation) as TOperation;
end;
Function TInstancesResource.SetDiskAutoDelete(instance: string; project: string; zone: string; AQuery : TInstancessetDiskAutoDeleteOptions) : TOperation;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'autoDelete',AQuery.autoDelete);
AddToQuery(_Q,'deviceName',AQuery.deviceName);
Result:=SetDiskAutoDelete(instance,project,zone,_Q);
end;
Function TInstancesResource.SetMachineType(instance: string; project: string; zone: string; aInstancesSetMachineTypeRequest : TInstancesSetMachineTypeRequest) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instances/{instance}/setMachineType';
_Methodid = 'compute.instances.setMachineType';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',aInstancesSetMachineTypeRequest,TOperation) as TOperation;
end;
Function TInstancesResource.SetMetadata(instance: string; project: string; zone: string; aMetadata : TMetadata) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instances/{instance}/setMetadata';
_Methodid = 'compute.instances.setMetadata';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',aMetadata,TOperation) as TOperation;
end;
Function TInstancesResource.SetScheduling(instance: string; project: string; zone: string; aScheduling : TScheduling) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instances/{instance}/setScheduling';
_Methodid = 'compute.instances.setScheduling';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',aScheduling,TOperation) as TOperation;
end;
Function TInstancesResource.SetTags(instance: string; project: string; zone: string; aTags : TTags) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instances/{instance}/setTags';
_Methodid = 'compute.instances.setTags';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',aTags,TOperation) as TOperation;
end;
Function TInstancesResource.Start(instance: string; project: string; zone: string) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instances/{instance}/start';
_Methodid = 'compute.instances.start';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TInstancesResource.Stop(instance: string; project: string; zone: string) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/instances/{instance}/stop';
_Methodid = 'compute.instances.stop';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['instance',instance,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
{ --------------------------------------------------------------------
TLicensesResource
--------------------------------------------------------------------}
Class Function TLicensesResource.ResourceName : String;
begin
Result:='licenses';
end;
Class Function TLicensesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TLicensesResource.Get(license: string; project: string) : TLicense;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/licenses/{license}';
_Methodid = 'compute.licenses.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['license',license,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TLicense) as TLicense;
end;
{ --------------------------------------------------------------------
TMachineTypesResource
--------------------------------------------------------------------}
Class Function TMachineTypesResource.ResourceName : String;
begin
Result:='machineTypes';
end;
Class Function TMachineTypesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TMachineTypesResource.AggregatedList(project: string; AQuery : string = '') : TMachineTypeAggregatedList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/aggregated/machineTypes';
_Methodid = 'compute.machineTypes.aggregatedList';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TMachineTypeAggregatedList) as TMachineTypeAggregatedList;
end;
Function TMachineTypesResource.AggregatedList(project: string; AQuery : TMachineTypesaggregatedListOptions) : TMachineTypeAggregatedList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=AggregatedList(project,_Q);
end;
Function TMachineTypesResource.Get(machineType: string; project: string; zone: string) : TMachineType;
Const
_HTTPMethod = 'GET';
_Path = '{project}/zones/{zone}/machineTypes/{machineType}';
_Methodid = 'compute.machineTypes.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['machineType',machineType,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TMachineType) as TMachineType;
end;
Function TMachineTypesResource.List(project: string; zone: string; AQuery : string = '') : TMachineTypeList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/zones/{zone}/machineTypes';
_Methodid = 'compute.machineTypes.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TMachineTypeList) as TMachineTypeList;
end;
Function TMachineTypesResource.List(project: string; zone: string; AQuery : TMachineTypeslistOptions) : TMachineTypeList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,zone,_Q);
end;
{ --------------------------------------------------------------------
TNetworksResource
--------------------------------------------------------------------}
Class Function TNetworksResource.ResourceName : String;
begin
Result:='networks';
end;
Class Function TNetworksResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TNetworksResource.Delete(network: string; project: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/global/networks/{network}';
_Methodid = 'compute.networks.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['network',network,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TNetworksResource.Get(network: string; project: string) : TNetwork;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/networks/{network}';
_Methodid = 'compute.networks.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['network',network,'project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TNetwork) as TNetwork;
end;
Function TNetworksResource.Insert(project: string; aNetwork : TNetwork) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/global/networks';
_Methodid = 'compute.networks.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aNetwork,TOperation) as TOperation;
end;
Function TNetworksResource.List(project: string; AQuery : string = '') : TNetworkList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/networks';
_Methodid = 'compute.networks.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TNetworkList) as TNetworkList;
end;
Function TNetworksResource.List(project: string; AQuery : TNetworkslistOptions) : TNetworkList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,_Q);
end;
{ --------------------------------------------------------------------
TProjectsResource
--------------------------------------------------------------------}
Class Function TProjectsResource.ResourceName : String;
begin
Result:='projects';
end;
Class Function TProjectsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TProjectsResource.Get(project: string) : TProject;
Const
_HTTPMethod = 'GET';
_Path = '{project}';
_Methodid = 'compute.projects.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TProject) as TProject;
end;
Function TProjectsResource.MoveDisk(project: string; aDiskMoveRequest : TDiskMoveRequest) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/moveDisk';
_Methodid = 'compute.projects.moveDisk';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aDiskMoveRequest,TOperation) as TOperation;
end;
Function TProjectsResource.MoveInstance(project: string; aInstanceMoveRequest : TInstanceMoveRequest) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/moveInstance';
_Methodid = 'compute.projects.moveInstance';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceMoveRequest,TOperation) as TOperation;
end;
Function TProjectsResource.SetCommonInstanceMetadata(project: string; aMetadata : TMetadata) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/setCommonInstanceMetadata';
_Methodid = 'compute.projects.setCommonInstanceMetadata';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aMetadata,TOperation) as TOperation;
end;
Function TProjectsResource.SetUsageExportBucket(project: string; aUsageExportLocation : TUsageExportLocation) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/setUsageExportBucket';
_Methodid = 'compute.projects.setUsageExportBucket';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aUsageExportLocation,TOperation) as TOperation;
end;
{ --------------------------------------------------------------------
TRegionOperationsResource
--------------------------------------------------------------------}
Class Function TRegionOperationsResource.ResourceName : String;
begin
Result:='regionOperations';
end;
Class Function TRegionOperationsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Procedure TRegionOperationsResource.Delete(operation: string; project: string; region: string);
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/regions/{region}/operations/{operation}';
_Methodid = 'compute.regionOperations.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['operation',operation,'project',project,'region',region]);
ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
end;
Function TRegionOperationsResource.Get(operation: string; project: string; region: string) : TOperation;
Const
_HTTPMethod = 'GET';
_Path = '{project}/regions/{region}/operations/{operation}';
_Methodid = 'compute.regionOperations.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['operation',operation,'project',project,'region',region]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TRegionOperationsResource.List(project: string; region: string; AQuery : string = '') : TOperationList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/regions/{region}/operations';
_Methodid = 'compute.regionOperations.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TOperationList) as TOperationList;
end;
Function TRegionOperationsResource.List(project: string; region: string; AQuery : TRegionOperationslistOptions) : TOperationList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,region,_Q);
end;
{ --------------------------------------------------------------------
TRegionsResource
--------------------------------------------------------------------}
Class Function TRegionsResource.ResourceName : String;
begin
Result:='regions';
end;
Class Function TRegionsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TRegionsResource.Get(project: string; region: string) : TRegion;
Const
_HTTPMethod = 'GET';
_Path = '{project}/regions/{region}';
_Methodid = 'compute.regions.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TRegion) as TRegion;
end;
Function TRegionsResource.List(project: string; AQuery : string = '') : TRegionList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/regions';
_Methodid = 'compute.regions.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TRegionList) as TRegionList;
end;
Function TRegionsResource.List(project: string; AQuery : TRegionslistOptions) : TRegionList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,_Q);
end;
{ --------------------------------------------------------------------
TRoutesResource
--------------------------------------------------------------------}
Class Function TRoutesResource.ResourceName : String;
begin
Result:='routes';
end;
Class Function TRoutesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TRoutesResource.Delete(project: string; route: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/global/routes/{route}';
_Methodid = 'compute.routes.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'route',route]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TRoutesResource.Get(project: string; route: string) : TRoute;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/routes/{route}';
_Methodid = 'compute.routes.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'route',route]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TRoute) as TRoute;
end;
Function TRoutesResource.Insert(project: string; aRoute : TRoute) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/global/routes';
_Methodid = 'compute.routes.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aRoute,TOperation) as TOperation;
end;
Function TRoutesResource.List(project: string; AQuery : string = '') : TRouteList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/routes';
_Methodid = 'compute.routes.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TRouteList) as TRouteList;
end;
Function TRoutesResource.List(project: string; AQuery : TRouteslistOptions) : TRouteList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,_Q);
end;
{ --------------------------------------------------------------------
TSnapshotsResource
--------------------------------------------------------------------}
Class Function TSnapshotsResource.ResourceName : String;
begin
Result:='snapshots';
end;
Class Function TSnapshotsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TSnapshotsResource.Delete(project: string; snapshot: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/global/snapshots/{snapshot}';
_Methodid = 'compute.snapshots.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'snapshot',snapshot]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TSnapshotsResource.Get(project: string; snapshot: string) : TSnapshot;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/snapshots/{snapshot}';
_Methodid = 'compute.snapshots.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'snapshot',snapshot]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TSnapshot) as TSnapshot;
end;
Function TSnapshotsResource.List(project: string; AQuery : string = '') : TSnapshotList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/snapshots';
_Methodid = 'compute.snapshots.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TSnapshotList) as TSnapshotList;
end;
Function TSnapshotsResource.List(project: string; AQuery : TSnapshotslistOptions) : TSnapshotList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,_Q);
end;
{ --------------------------------------------------------------------
TSslCertificatesResource
--------------------------------------------------------------------}
Class Function TSslCertificatesResource.ResourceName : String;
begin
Result:='sslCertificates';
end;
Class Function TSslCertificatesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TSslCertificatesResource.Delete(project: string; sslCertificate: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/global/sslCertificates/{sslCertificate}';
_Methodid = 'compute.sslCertificates.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'sslCertificate',sslCertificate]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TSslCertificatesResource.Get(project: string; sslCertificate: string) : TSslCertificate;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/sslCertificates/{sslCertificate}';
_Methodid = 'compute.sslCertificates.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'sslCertificate',sslCertificate]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TSslCertificate) as TSslCertificate;
end;
Function TSslCertificatesResource.Insert(project: string; aSslCertificate : TSslCertificate) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/global/sslCertificates';
_Methodid = 'compute.sslCertificates.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aSslCertificate,TOperation) as TOperation;
end;
Function TSslCertificatesResource.List(project: string; AQuery : string = '') : TSslCertificateList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/sslCertificates';
_Methodid = 'compute.sslCertificates.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TSslCertificateList) as TSslCertificateList;
end;
Function TSslCertificatesResource.List(project: string; AQuery : TSslCertificateslistOptions) : TSslCertificateList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,_Q);
end;
{ --------------------------------------------------------------------
TSubnetworksResource
--------------------------------------------------------------------}
Class Function TSubnetworksResource.ResourceName : String;
begin
Result:='subnetworks';
end;
Class Function TSubnetworksResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TSubnetworksResource.AggregatedList(project: string; AQuery : string = '') : TSubnetworkAggregatedList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/aggregated/subnetworks';
_Methodid = 'compute.subnetworks.aggregatedList';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TSubnetworkAggregatedList) as TSubnetworkAggregatedList;
end;
Function TSubnetworksResource.AggregatedList(project: string; AQuery : TSubnetworksaggregatedListOptions) : TSubnetworkAggregatedList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=AggregatedList(project,_Q);
end;
Function TSubnetworksResource.Delete(project: string; region: string; subnetwork: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/regions/{region}/subnetworks/{subnetwork}';
_Methodid = 'compute.subnetworks.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region,'subnetwork',subnetwork]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TSubnetworksResource.Get(project: string; region: string; subnetwork: string) : TSubnetwork;
Const
_HTTPMethod = 'GET';
_Path = '{project}/regions/{region}/subnetworks/{subnetwork}';
_Methodid = 'compute.subnetworks.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region,'subnetwork',subnetwork]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TSubnetwork) as TSubnetwork;
end;
Function TSubnetworksResource.Insert(project: string; region: string; aSubnetwork : TSubnetwork) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/regions/{region}/subnetworks';
_Methodid = 'compute.subnetworks.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region]);
Result:=ServiceCall(_HTTPMethod,_P,'',aSubnetwork,TOperation) as TOperation;
end;
Function TSubnetworksResource.List(project: string; region: string; AQuery : string = '') : TSubnetworkList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/regions/{region}/subnetworks';
_Methodid = 'compute.subnetworks.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TSubnetworkList) as TSubnetworkList;
end;
Function TSubnetworksResource.List(project: string; region: string; AQuery : TSubnetworkslistOptions) : TSubnetworkList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,region,_Q);
end;
{ --------------------------------------------------------------------
TTargetHttpProxiesResource
--------------------------------------------------------------------}
Class Function TTargetHttpProxiesResource.ResourceName : String;
begin
Result:='targetHttpProxies';
end;
Class Function TTargetHttpProxiesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TTargetHttpProxiesResource.Delete(project: string; targetHttpProxy: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/global/targetHttpProxies/{targetHttpProxy}';
_Methodid = 'compute.targetHttpProxies.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'targetHttpProxy',targetHttpProxy]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TTargetHttpProxiesResource.Get(project: string; targetHttpProxy: string) : TTargetHttpProxy;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/targetHttpProxies/{targetHttpProxy}';
_Methodid = 'compute.targetHttpProxies.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'targetHttpProxy',targetHttpProxy]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TTargetHttpProxy) as TTargetHttpProxy;
end;
Function TTargetHttpProxiesResource.Insert(project: string; aTargetHttpProxy : TTargetHttpProxy) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/global/targetHttpProxies';
_Methodid = 'compute.targetHttpProxies.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aTargetHttpProxy,TOperation) as TOperation;
end;
Function TTargetHttpProxiesResource.List(project: string; AQuery : string = '') : TTargetHttpProxyList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/targetHttpProxies';
_Methodid = 'compute.targetHttpProxies.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTargetHttpProxyList) as TTargetHttpProxyList;
end;
Function TTargetHttpProxiesResource.List(project: string; AQuery : TTargetHttpProxieslistOptions) : TTargetHttpProxyList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,_Q);
end;
Function TTargetHttpProxiesResource.SetUrlMap(project: string; targetHttpProxy: string; aUrlMapReference : TUrlMapReference) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/targetHttpProxies/{targetHttpProxy}/setUrlMap';
_Methodid = 'compute.targetHttpProxies.setUrlMap';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'targetHttpProxy',targetHttpProxy]);
Result:=ServiceCall(_HTTPMethod,_P,'',aUrlMapReference,TOperation) as TOperation;
end;
{ --------------------------------------------------------------------
TTargetHttpsProxiesResource
--------------------------------------------------------------------}
Class Function TTargetHttpsProxiesResource.ResourceName : String;
begin
Result:='targetHttpsProxies';
end;
Class Function TTargetHttpsProxiesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TTargetHttpsProxiesResource.Delete(project: string; targetHttpsProxy: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/global/targetHttpsProxies/{targetHttpsProxy}';
_Methodid = 'compute.targetHttpsProxies.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'targetHttpsProxy',targetHttpsProxy]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TTargetHttpsProxiesResource.Get(project: string; targetHttpsProxy: string) : TTargetHttpsProxy;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/targetHttpsProxies/{targetHttpsProxy}';
_Methodid = 'compute.targetHttpsProxies.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'targetHttpsProxy',targetHttpsProxy]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TTargetHttpsProxy) as TTargetHttpsProxy;
end;
Function TTargetHttpsProxiesResource.Insert(project: string; aTargetHttpsProxy : TTargetHttpsProxy) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/global/targetHttpsProxies';
_Methodid = 'compute.targetHttpsProxies.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aTargetHttpsProxy,TOperation) as TOperation;
end;
Function TTargetHttpsProxiesResource.List(project: string; AQuery : string = '') : TTargetHttpsProxyList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/targetHttpsProxies';
_Methodid = 'compute.targetHttpsProxies.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTargetHttpsProxyList) as TTargetHttpsProxyList;
end;
Function TTargetHttpsProxiesResource.List(project: string; AQuery : TTargetHttpsProxieslistOptions) : TTargetHttpsProxyList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,_Q);
end;
Function TTargetHttpsProxiesResource.SetSslCertificates(project: string; targetHttpsProxy: string; aTargetHttpsProxiesSetSslCertificatesRequest : TTargetHttpsProxiesSetSslCertificatesRequest) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/targetHttpsProxies/{targetHttpsProxy}/setSslCertificates';
_Methodid = 'compute.targetHttpsProxies.setSslCertificates';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'targetHttpsProxy',targetHttpsProxy]);
Result:=ServiceCall(_HTTPMethod,_P,'',aTargetHttpsProxiesSetSslCertificatesRequest,TOperation) as TOperation;
end;
Function TTargetHttpsProxiesResource.SetUrlMap(project: string; targetHttpsProxy: string; aUrlMapReference : TUrlMapReference) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/targetHttpsProxies/{targetHttpsProxy}/setUrlMap';
_Methodid = 'compute.targetHttpsProxies.setUrlMap';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'targetHttpsProxy',targetHttpsProxy]);
Result:=ServiceCall(_HTTPMethod,_P,'',aUrlMapReference,TOperation) as TOperation;
end;
{ --------------------------------------------------------------------
TTargetInstancesResource
--------------------------------------------------------------------}
Class Function TTargetInstancesResource.ResourceName : String;
begin
Result:='targetInstances';
end;
Class Function TTargetInstancesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TTargetInstancesResource.AggregatedList(project: string; AQuery : string = '') : TTargetInstanceAggregatedList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/aggregated/targetInstances';
_Methodid = 'compute.targetInstances.aggregatedList';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTargetInstanceAggregatedList) as TTargetInstanceAggregatedList;
end;
Function TTargetInstancesResource.AggregatedList(project: string; AQuery : TTargetInstancesaggregatedListOptions) : TTargetInstanceAggregatedList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=AggregatedList(project,_Q);
end;
Function TTargetInstancesResource.Delete(project: string; targetInstance: string; zone: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/zones/{zone}/targetInstances/{targetInstance}';
_Methodid = 'compute.targetInstances.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'targetInstance',targetInstance,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TTargetInstancesResource.Get(project: string; targetInstance: string; zone: string) : TTargetInstance;
Const
_HTTPMethod = 'GET';
_Path = '{project}/zones/{zone}/targetInstances/{targetInstance}';
_Methodid = 'compute.targetInstances.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'targetInstance',targetInstance,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TTargetInstance) as TTargetInstance;
end;
Function TTargetInstancesResource.Insert(project: string; zone: string; aTargetInstance : TTargetInstance) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/zones/{zone}/targetInstances';
_Methodid = 'compute.targetInstances.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',aTargetInstance,TOperation) as TOperation;
end;
Function TTargetInstancesResource.List(project: string; zone: string; AQuery : string = '') : TTargetInstanceList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/zones/{zone}/targetInstances';
_Methodid = 'compute.targetInstances.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTargetInstanceList) as TTargetInstanceList;
end;
Function TTargetInstancesResource.List(project: string; zone: string; AQuery : TTargetInstanceslistOptions) : TTargetInstanceList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,zone,_Q);
end;
{ --------------------------------------------------------------------
TTargetPoolsResource
--------------------------------------------------------------------}
Class Function TTargetPoolsResource.ResourceName : String;
begin
Result:='targetPools';
end;
Class Function TTargetPoolsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TTargetPoolsResource.AddHealthCheck(project: string; region: string; targetPool: string; aTargetPoolsAddHealthCheckRequest : TTargetPoolsAddHealthCheckRequest) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/regions/{region}/targetPools/{targetPool}/addHealthCheck';
_Methodid = 'compute.targetPools.addHealthCheck';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region,'targetPool',targetPool]);
Result:=ServiceCall(_HTTPMethod,_P,'',aTargetPoolsAddHealthCheckRequest,TOperation) as TOperation;
end;
Function TTargetPoolsResource.AddInstance(project: string; region: string; targetPool: string; aTargetPoolsAddInstanceRequest : TTargetPoolsAddInstanceRequest) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/regions/{region}/targetPools/{targetPool}/addInstance';
_Methodid = 'compute.targetPools.addInstance';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region,'targetPool',targetPool]);
Result:=ServiceCall(_HTTPMethod,_P,'',aTargetPoolsAddInstanceRequest,TOperation) as TOperation;
end;
Function TTargetPoolsResource.AggregatedList(project: string; AQuery : string = '') : TTargetPoolAggregatedList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/aggregated/targetPools';
_Methodid = 'compute.targetPools.aggregatedList';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTargetPoolAggregatedList) as TTargetPoolAggregatedList;
end;
Function TTargetPoolsResource.AggregatedList(project: string; AQuery : TTargetPoolsaggregatedListOptions) : TTargetPoolAggregatedList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=AggregatedList(project,_Q);
end;
Function TTargetPoolsResource.Delete(project: string; region: string; targetPool: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/regions/{region}/targetPools/{targetPool}';
_Methodid = 'compute.targetPools.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region,'targetPool',targetPool]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TTargetPoolsResource.Get(project: string; region: string; targetPool: string) : TTargetPool;
Const
_HTTPMethod = 'GET';
_Path = '{project}/regions/{region}/targetPools/{targetPool}';
_Methodid = 'compute.targetPools.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region,'targetPool',targetPool]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TTargetPool) as TTargetPool;
end;
Function TTargetPoolsResource.GetHealth(project: string; region: string; targetPool: string; aInstanceReference : TInstanceReference) : TTargetPoolInstanceHealth;
Const
_HTTPMethod = 'POST';
_Path = '{project}/regions/{region}/targetPools/{targetPool}/getHealth';
_Methodid = 'compute.targetPools.getHealth';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region,'targetPool',targetPool]);
Result:=ServiceCall(_HTTPMethod,_P,'',aInstanceReference,TTargetPoolInstanceHealth) as TTargetPoolInstanceHealth;
end;
Function TTargetPoolsResource.Insert(project: string; region: string; aTargetPool : TTargetPool) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/regions/{region}/targetPools';
_Methodid = 'compute.targetPools.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region]);
Result:=ServiceCall(_HTTPMethod,_P,'',aTargetPool,TOperation) as TOperation;
end;
Function TTargetPoolsResource.List(project: string; region: string; AQuery : string = '') : TTargetPoolList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/regions/{region}/targetPools';
_Methodid = 'compute.targetPools.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTargetPoolList) as TTargetPoolList;
end;
Function TTargetPoolsResource.List(project: string; region: string; AQuery : TTargetPoolslistOptions) : TTargetPoolList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,region,_Q);
end;
Function TTargetPoolsResource.RemoveHealthCheck(project: string; region: string; targetPool: string; aTargetPoolsRemoveHealthCheckRequest : TTargetPoolsRemoveHealthCheckRequest) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/regions/{region}/targetPools/{targetPool}/removeHealthCheck';
_Methodid = 'compute.targetPools.removeHealthCheck';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region,'targetPool',targetPool]);
Result:=ServiceCall(_HTTPMethod,_P,'',aTargetPoolsRemoveHealthCheckRequest,TOperation) as TOperation;
end;
Function TTargetPoolsResource.RemoveInstance(project: string; region: string; targetPool: string; aTargetPoolsRemoveInstanceRequest : TTargetPoolsRemoveInstanceRequest) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/regions/{region}/targetPools/{targetPool}/removeInstance';
_Methodid = 'compute.targetPools.removeInstance';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region,'targetPool',targetPool]);
Result:=ServiceCall(_HTTPMethod,_P,'',aTargetPoolsRemoveInstanceRequest,TOperation) as TOperation;
end;
Function TTargetPoolsResource.SetBackup(project: string; region: string; targetPool: string; aTargetReference : TTargetReference; AQuery : string = '') : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/regions/{region}/targetPools/{targetPool}/setBackup';
_Methodid = 'compute.targetPools.setBackup';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region,'targetPool',targetPool]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,aTargetReference,TOperation) as TOperation;
end;
Function TTargetPoolsResource.SetBackup(project: string; region: string; targetPool: string; aTargetReference : TTargetReference; AQuery : TTargetPoolssetBackupOptions) : TOperation;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'failoverRatio',AQuery.failoverRatio);
Result:=SetBackup(project,region,targetPool,aTargetReference,_Q);
end;
{ --------------------------------------------------------------------
TTargetVpnGatewaysResource
--------------------------------------------------------------------}
Class Function TTargetVpnGatewaysResource.ResourceName : String;
begin
Result:='targetVpnGateways';
end;
Class Function TTargetVpnGatewaysResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TTargetVpnGatewaysResource.AggregatedList(project: string; AQuery : string = '') : TTargetVpnGatewayAggregatedList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/aggregated/targetVpnGateways';
_Methodid = 'compute.targetVpnGateways.aggregatedList';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTargetVpnGatewayAggregatedList) as TTargetVpnGatewayAggregatedList;
end;
Function TTargetVpnGatewaysResource.AggregatedList(project: string; AQuery : TTargetVpnGatewaysaggregatedListOptions) : TTargetVpnGatewayAggregatedList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=AggregatedList(project,_Q);
end;
Function TTargetVpnGatewaysResource.Delete(project: string; region: string; targetVpnGateway: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/regions/{region}/targetVpnGateways/{targetVpnGateway}';
_Methodid = 'compute.targetVpnGateways.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region,'targetVpnGateway',targetVpnGateway]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TTargetVpnGatewaysResource.Get(project: string; region: string; targetVpnGateway: string) : TTargetVpnGateway;
Const
_HTTPMethod = 'GET';
_Path = '{project}/regions/{region}/targetVpnGateways/{targetVpnGateway}';
_Methodid = 'compute.targetVpnGateways.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region,'targetVpnGateway',targetVpnGateway]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TTargetVpnGateway) as TTargetVpnGateway;
end;
Function TTargetVpnGatewaysResource.Insert(project: string; region: string; aTargetVpnGateway : TTargetVpnGateway) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/regions/{region}/targetVpnGateways';
_Methodid = 'compute.targetVpnGateways.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region]);
Result:=ServiceCall(_HTTPMethod,_P,'',aTargetVpnGateway,TOperation) as TOperation;
end;
Function TTargetVpnGatewaysResource.List(project: string; region: string; AQuery : string = '') : TTargetVpnGatewayList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/regions/{region}/targetVpnGateways';
_Methodid = 'compute.targetVpnGateways.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTargetVpnGatewayList) as TTargetVpnGatewayList;
end;
Function TTargetVpnGatewaysResource.List(project: string; region: string; AQuery : TTargetVpnGatewayslistOptions) : TTargetVpnGatewayList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,region,_Q);
end;
{ --------------------------------------------------------------------
TUrlMapsResource
--------------------------------------------------------------------}
Class Function TUrlMapsResource.ResourceName : String;
begin
Result:='urlMaps';
end;
Class Function TUrlMapsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TUrlMapsResource.Delete(project: string; urlMap: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/global/urlMaps/{urlMap}';
_Methodid = 'compute.urlMaps.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'urlMap',urlMap]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TUrlMapsResource.Get(project: string; urlMap: string) : TUrlMap;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/urlMaps/{urlMap}';
_Methodid = 'compute.urlMaps.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'urlMap',urlMap]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TUrlMap) as TUrlMap;
end;
Function TUrlMapsResource.Insert(project: string; aUrlMap : TUrlMap) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/global/urlMaps';
_Methodid = 'compute.urlMaps.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,'',aUrlMap,TOperation) as TOperation;
end;
Function TUrlMapsResource.List(project: string; AQuery : string = '') : TUrlMapList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/global/urlMaps';
_Methodid = 'compute.urlMaps.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TUrlMapList) as TUrlMapList;
end;
Function TUrlMapsResource.List(project: string; AQuery : TUrlMapslistOptions) : TUrlMapList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,_Q);
end;
Function TUrlMapsResource.Patch(project: string; urlMap: string; aUrlMap : TUrlMap) : TOperation;
Const
_HTTPMethod = 'PATCH';
_Path = '{project}/global/urlMaps/{urlMap}';
_Methodid = 'compute.urlMaps.patch';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'urlMap',urlMap]);
Result:=ServiceCall(_HTTPMethod,_P,'',aUrlMap,TOperation) as TOperation;
end;
Function TUrlMapsResource.Update(project: string; urlMap: string; aUrlMap : TUrlMap) : TOperation;
Const
_HTTPMethod = 'PUT';
_Path = '{project}/global/urlMaps/{urlMap}';
_Methodid = 'compute.urlMaps.update';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'urlMap',urlMap]);
Result:=ServiceCall(_HTTPMethod,_P,'',aUrlMap,TOperation) as TOperation;
end;
Function TUrlMapsResource.Validate(project: string; urlMap: string; aUrlMapsValidateRequest : TUrlMapsValidateRequest) : TUrlMapsValidateResponse;
Const
_HTTPMethod = 'POST';
_Path = '{project}/global/urlMaps/{urlMap}/validate';
_Methodid = 'compute.urlMaps.validate';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'urlMap',urlMap]);
Result:=ServiceCall(_HTTPMethod,_P,'',aUrlMapsValidateRequest,TUrlMapsValidateResponse) as TUrlMapsValidateResponse;
end;
{ --------------------------------------------------------------------
TVpnTunnelsResource
--------------------------------------------------------------------}
Class Function TVpnTunnelsResource.ResourceName : String;
begin
Result:='vpnTunnels';
end;
Class Function TVpnTunnelsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TVpnTunnelsResource.AggregatedList(project: string; AQuery : string = '') : TVpnTunnelAggregatedList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/aggregated/vpnTunnels';
_Methodid = 'compute.vpnTunnels.aggregatedList';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TVpnTunnelAggregatedList) as TVpnTunnelAggregatedList;
end;
Function TVpnTunnelsResource.AggregatedList(project: string; AQuery : TVpnTunnelsaggregatedListOptions) : TVpnTunnelAggregatedList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=AggregatedList(project,_Q);
end;
Function TVpnTunnelsResource.Delete(project: string; region: string; vpnTunnel: string) : TOperation;
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/regions/{region}/vpnTunnels/{vpnTunnel}';
_Methodid = 'compute.vpnTunnels.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region,'vpnTunnel',vpnTunnel]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TVpnTunnelsResource.Get(project: string; region: string; vpnTunnel: string) : TVpnTunnel;
Const
_HTTPMethod = 'GET';
_Path = '{project}/regions/{region}/vpnTunnels/{vpnTunnel}';
_Methodid = 'compute.vpnTunnels.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region,'vpnTunnel',vpnTunnel]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TVpnTunnel) as TVpnTunnel;
end;
Function TVpnTunnelsResource.Insert(project: string; region: string; aVpnTunnel : TVpnTunnel) : TOperation;
Const
_HTTPMethod = 'POST';
_Path = '{project}/regions/{region}/vpnTunnels';
_Methodid = 'compute.vpnTunnels.insert';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region]);
Result:=ServiceCall(_HTTPMethod,_P,'',aVpnTunnel,TOperation) as TOperation;
end;
Function TVpnTunnelsResource.List(project: string; region: string; AQuery : string = '') : TVpnTunnelList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/regions/{region}/vpnTunnels';
_Methodid = 'compute.vpnTunnels.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'region',region]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TVpnTunnelList) as TVpnTunnelList;
end;
Function TVpnTunnelsResource.List(project: string; region: string; AQuery : TVpnTunnelslistOptions) : TVpnTunnelList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,region,_Q);
end;
{ --------------------------------------------------------------------
TZoneOperationsResource
--------------------------------------------------------------------}
Class Function TZoneOperationsResource.ResourceName : String;
begin
Result:='zoneOperations';
end;
Class Function TZoneOperationsResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Procedure TZoneOperationsResource.Delete(operation: string; project: string; zone: string);
Const
_HTTPMethod = 'DELETE';
_Path = '{project}/zones/{zone}/operations/{operation}';
_Methodid = 'compute.zoneOperations.delete';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['operation',operation,'project',project,'zone',zone]);
ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
end;
Function TZoneOperationsResource.Get(operation: string; project: string; zone: string) : TOperation;
Const
_HTTPMethod = 'GET';
_Path = '{project}/zones/{zone}/operations/{operation}';
_Methodid = 'compute.zoneOperations.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['operation',operation,'project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
end;
Function TZoneOperationsResource.List(project: string; zone: string; AQuery : string = '') : TOperationList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/zones/{zone}/operations';
_Methodid = 'compute.zoneOperations.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TOperationList) as TOperationList;
end;
Function TZoneOperationsResource.List(project: string; zone: string; AQuery : TZoneOperationslistOptions) : TOperationList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,zone,_Q);
end;
{ --------------------------------------------------------------------
TZonesResource
--------------------------------------------------------------------}
Class Function TZonesResource.ResourceName : String;
begin
Result:='zones';
end;
Class Function TZonesResource.DefaultAPI : TGoogleAPIClass;
begin
Result:=TcomputeAPI;
end;
Function TZonesResource.Get(project: string; zone: string) : TZone;
Const
_HTTPMethod = 'GET';
_Path = '{project}/zones/{zone}';
_Methodid = 'compute.zones.get';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project,'zone',zone]);
Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TZone) as TZone;
end;
Function TZonesResource.List(project: string; AQuery : string = '') : TZoneList;
Const
_HTTPMethod = 'GET';
_Path = '{project}/zones';
_Methodid = 'compute.zones.list';
Var
_P : String;
begin
_P:=SubstitutePath(_Path,['project',project]);
Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TZoneList) as TZoneList;
end;
Function TZonesResource.List(project: string; AQuery : TZoneslistOptions) : TZoneList;
Var
_Q : String;
begin
_Q:='';
AddToQuery(_Q,'filter',AQuery.filter);
AddToQuery(_Q,'maxResults',AQuery.maxResults);
AddToQuery(_Q,'pageToken',AQuery.pageToken);
Result:=List(project,_Q);
end;
{ --------------------------------------------------------------------
TComputeAPI
--------------------------------------------------------------------}
Class Function TComputeAPI.APIName : String;
begin
Result:='compute';
end;
Class Function TComputeAPI.APIVersion : String;
begin
Result:='v1';
end;
Class Function TComputeAPI.APIRevision : String;
begin
Result:='20160509';
end;
Class Function TComputeAPI.APIID : String;
begin
Result:='compute:v1';
end;
Class Function TComputeAPI.APITitle : String;
begin
Result:='Compute Engine API';
end;
Class Function TComputeAPI.APIDescription : String;
begin
Result:='Creates and runs virtual machines on Google Cloud Platform.';
end;
Class Function TComputeAPI.APIOwnerDomain : String;
begin
Result:='google.com';
end;
Class Function TComputeAPI.APIOwnerName : String;
begin
Result:='Google';
end;
Class Function TComputeAPI.APIIcon16 : String;
begin
Result:='https://www.google.com/images/icons/product/compute_engine-16.png';
end;
Class Function TComputeAPI.APIIcon32 : String;
begin
Result:='https://www.google.com/images/icons/product/compute_engine-32.png';
end;
Class Function TComputeAPI.APIdocumentationLink : String;
begin
Result:='https://developers.google.com/compute/docs/reference/latest/';
end;
Class Function TComputeAPI.APIrootUrl : string;
begin
Result:='https://www.googleapis.com/';
end;
Class Function TComputeAPI.APIbasePath : string;
begin
Result:='/compute/v1/projects/';
end;
Class Function TComputeAPI.APIbaseURL : String;
begin
Result:='https://www.googleapis.com/compute/v1/projects/';
end;
Class Function TComputeAPI.APIProtocol : string;
begin
Result:='rest';
end;
Class Function TComputeAPI.APIservicePath : string;
begin
Result:='compute/v1/projects/';
end;
Class Function TComputeAPI.APIbatchPath : String;
begin
Result:='batch';
end;
Class Function TComputeAPI.APIAuthScopes : TScopeInfoArray;
begin
SetLength(Result,6);
Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
Result[0].Description:='View and manage your data across Google Cloud Platform services';
Result[1].Name:='https://www.googleapis.com/auth/compute';
Result[1].Description:='View and manage your Google Compute Engine resources';
Result[2].Name:='https://www.googleapis.com/auth/compute.readonly';
Result[2].Description:='View your Google Compute Engine resources';
Result[3].Name:='https://www.googleapis.com/auth/devstorage.full_control';
Result[3].Description:='Manage your data and permissions in Google Cloud Storage';
Result[4].Name:='https://www.googleapis.com/auth/devstorage.read_only';
Result[4].Description:='View your data in Google Cloud Storage';
Result[5].Name:='https://www.googleapis.com/auth/devstorage.read_write';
Result[5].Description:='Manage your data in Google Cloud Storage';
end;
Class Function TComputeAPI.APINeedsAuth : Boolean;
begin
Result:=True;
end;
Class Procedure TComputeAPI.RegisterAPIResources;
begin
TAccessConfig.RegisterObject;
TAddress.RegisterObject;
TAddressAggregatedListTypeitems.RegisterObject;
TAddressAggregatedList.RegisterObject;
TAddressList.RegisterObject;
TAddressesScopedListTypewarningTypedataItem.RegisterObject;
TAddressesScopedListTypewarning.RegisterObject;
TAddressesScopedList.RegisterObject;
TAttachedDisk.RegisterObject;
TAttachedDiskInitializeParams.RegisterObject;
TAutoscaler.RegisterObject;
TAutoscalerAggregatedListTypeitems.RegisterObject;
TAutoscalerAggregatedList.RegisterObject;
TAutoscalerList.RegisterObject;
TAutoscalersScopedListTypewarningTypedataItem.RegisterObject;
TAutoscalersScopedListTypewarning.RegisterObject;
TAutoscalersScopedList.RegisterObject;
TAutoscalingPolicy.RegisterObject;
TAutoscalingPolicyCpuUtilization.RegisterObject;
TAutoscalingPolicyCustomMetricUtilization.RegisterObject;
TAutoscalingPolicyLoadBalancingUtilization.RegisterObject;
TBackend.RegisterObject;
TBackendService.RegisterObject;
TBackendServiceGroupHealth.RegisterObject;
TBackendServiceList.RegisterObject;
TDeprecationStatus.RegisterObject;
TDisk.RegisterObject;
TDiskAggregatedListTypeitems.RegisterObject;
TDiskAggregatedList.RegisterObject;
TDiskList.RegisterObject;
TDiskMoveRequest.RegisterObject;
TDiskType.RegisterObject;
TDiskTypeAggregatedListTypeitems.RegisterObject;
TDiskTypeAggregatedList.RegisterObject;
TDiskTypeList.RegisterObject;
TDiskTypesScopedListTypewarningTypedataItem.RegisterObject;
TDiskTypesScopedListTypewarning.RegisterObject;
TDiskTypesScopedList.RegisterObject;
TDisksResizeRequest.RegisterObject;
TDisksScopedListTypewarningTypedataItem.RegisterObject;
TDisksScopedListTypewarning.RegisterObject;
TDisksScopedList.RegisterObject;
TFirewallTypeallowedItem.RegisterObject;
TFirewall.RegisterObject;
TFirewallList.RegisterObject;
TForwardingRule.RegisterObject;
TForwardingRuleAggregatedListTypeitems.RegisterObject;
TForwardingRuleAggregatedList.RegisterObject;
TForwardingRuleList.RegisterObject;
TForwardingRulesScopedListTypewarningTypedataItem.RegisterObject;
TForwardingRulesScopedListTypewarning.RegisterObject;
TForwardingRulesScopedList.RegisterObject;
THealthCheckReference.RegisterObject;
THealthStatus.RegisterObject;
THostRule.RegisterObject;
THttpHealthCheck.RegisterObject;
THttpHealthCheckList.RegisterObject;
THttpsHealthCheck.RegisterObject;
THttpsHealthCheckList.RegisterObject;
TImageTyperawDisk.RegisterObject;
TImage.RegisterObject;
TImageList.RegisterObject;
TInstance.RegisterObject;
TInstanceAggregatedListTypeitems.RegisterObject;
TInstanceAggregatedList.RegisterObject;
TInstanceGroup.RegisterObject;
TInstanceGroupAggregatedListTypeitems.RegisterObject;
TInstanceGroupAggregatedList.RegisterObject;
TInstanceGroupList.RegisterObject;
TInstanceGroupManager.RegisterObject;
TInstanceGroupManagerActionsSummary.RegisterObject;
TInstanceGroupManagerAggregatedListTypeitems.RegisterObject;
TInstanceGroupManagerAggregatedList.RegisterObject;
TInstanceGroupManagerList.RegisterObject;
TInstanceGroupManagersAbandonInstancesRequest.RegisterObject;
TInstanceGroupManagersDeleteInstancesRequest.RegisterObject;
TInstanceGroupManagersListManagedInstancesResponse.RegisterObject;
TInstanceGroupManagersRecreateInstancesRequest.RegisterObject;
TInstanceGroupManagersScopedListTypewarningTypedataItem.RegisterObject;
TInstanceGroupManagersScopedListTypewarning.RegisterObject;
TInstanceGroupManagersScopedList.RegisterObject;
TInstanceGroupManagersSetInstanceTemplateRequest.RegisterObject;
TInstanceGroupManagersSetTargetPoolsRequest.RegisterObject;
TInstanceGroupsAddInstancesRequest.RegisterObject;
TInstanceGroupsListInstances.RegisterObject;
TInstanceGroupsListInstancesRequest.RegisterObject;
TInstanceGroupsRemoveInstancesRequest.RegisterObject;
TInstanceGroupsScopedListTypewarningTypedataItem.RegisterObject;
TInstanceGroupsScopedListTypewarning.RegisterObject;
TInstanceGroupsScopedList.RegisterObject;
TInstanceGroupsSetNamedPortsRequest.RegisterObject;
TInstanceList.RegisterObject;
TInstanceMoveRequest.RegisterObject;
TInstanceProperties.RegisterObject;
TInstanceReference.RegisterObject;
TInstanceTemplate.RegisterObject;
TInstanceTemplateList.RegisterObject;
TInstanceWithNamedPorts.RegisterObject;
TInstancesScopedListTypewarningTypedataItem.RegisterObject;
TInstancesScopedListTypewarning.RegisterObject;
TInstancesScopedList.RegisterObject;
TInstancesSetMachineTypeRequest.RegisterObject;
TLicense.RegisterObject;
TMachineTypeTypescratchDisksItem.RegisterObject;
TMachineType.RegisterObject;
TMachineTypeAggregatedListTypeitems.RegisterObject;
TMachineTypeAggregatedList.RegisterObject;
TMachineTypeList.RegisterObject;
TMachineTypesScopedListTypewarningTypedataItem.RegisterObject;
TMachineTypesScopedListTypewarning.RegisterObject;
TMachineTypesScopedList.RegisterObject;
TManagedInstance.RegisterObject;
TManagedInstanceLastAttemptTypeerrorsTypeerrorsItem.RegisterObject;
TManagedInstanceLastAttemptTypeerrors.RegisterObject;
TManagedInstanceLastAttempt.RegisterObject;
TMetadataTypeitemsItem.RegisterObject;
TMetadata.RegisterObject;
TNamedPort.RegisterObject;
TNetwork.RegisterObject;
TNetworkInterface.RegisterObject;
TNetworkList.RegisterObject;
TOperationTypeerrorTypeerrorsItem.RegisterObject;
TOperationTypeerror.RegisterObject;
TOperationTypewarningsItemTypedataItem.RegisterObject;
TOperationTypewarningsItem.RegisterObject;
TOperation.RegisterObject;
TOperationAggregatedListTypeitems.RegisterObject;
TOperationAggregatedList.RegisterObject;
TOperationList.RegisterObject;
TOperationsScopedListTypewarningTypedataItem.RegisterObject;
TOperationsScopedListTypewarning.RegisterObject;
TOperationsScopedList.RegisterObject;
TPathMatcher.RegisterObject;
TPathRule.RegisterObject;
TProject.RegisterObject;
TQuota.RegisterObject;
TRegion.RegisterObject;
TRegionList.RegisterObject;
TResourceGroupReference.RegisterObject;
TRouteTypewarningsItemTypedataItem.RegisterObject;
TRouteTypewarningsItem.RegisterObject;
TRoute.RegisterObject;
TRouteList.RegisterObject;
TScheduling.RegisterObject;
TSerialPortOutput.RegisterObject;
TServiceAccount.RegisterObject;
TSnapshot.RegisterObject;
TSnapshotList.RegisterObject;
TSslCertificate.RegisterObject;
TSslCertificateList.RegisterObject;
TSubnetwork.RegisterObject;
TSubnetworkAggregatedListTypeitems.RegisterObject;
TSubnetworkAggregatedList.RegisterObject;
TSubnetworkList.RegisterObject;
TSubnetworksScopedListTypewarningTypedataItem.RegisterObject;
TSubnetworksScopedListTypewarning.RegisterObject;
TSubnetworksScopedList.RegisterObject;
TTags.RegisterObject;
TTargetHttpProxy.RegisterObject;
TTargetHttpProxyList.RegisterObject;
TTargetHttpsProxiesSetSslCertificatesRequest.RegisterObject;
TTargetHttpsProxy.RegisterObject;
TTargetHttpsProxyList.RegisterObject;
TTargetInstance.RegisterObject;
TTargetInstanceAggregatedListTypeitems.RegisterObject;
TTargetInstanceAggregatedList.RegisterObject;
TTargetInstanceList.RegisterObject;
TTargetInstancesScopedListTypewarningTypedataItem.RegisterObject;
TTargetInstancesScopedListTypewarning.RegisterObject;
TTargetInstancesScopedList.RegisterObject;
TTargetPool.RegisterObject;
TTargetPoolAggregatedListTypeitems.RegisterObject;
TTargetPoolAggregatedList.RegisterObject;
TTargetPoolInstanceHealth.RegisterObject;
TTargetPoolList.RegisterObject;
TTargetPoolsAddHealthCheckRequest.RegisterObject;
TTargetPoolsAddInstanceRequest.RegisterObject;
TTargetPoolsRemoveHealthCheckRequest.RegisterObject;
TTargetPoolsRemoveInstanceRequest.RegisterObject;
TTargetPoolsScopedListTypewarningTypedataItem.RegisterObject;
TTargetPoolsScopedListTypewarning.RegisterObject;
TTargetPoolsScopedList.RegisterObject;
TTargetReference.RegisterObject;
TTargetVpnGateway.RegisterObject;
TTargetVpnGatewayAggregatedListTypeitems.RegisterObject;
TTargetVpnGatewayAggregatedList.RegisterObject;
TTargetVpnGatewayList.RegisterObject;
TTargetVpnGatewaysScopedListTypewarningTypedataItem.RegisterObject;
TTargetVpnGatewaysScopedListTypewarning.RegisterObject;
TTargetVpnGatewaysScopedList.RegisterObject;
TTestFailure.RegisterObject;
TUrlMap.RegisterObject;
TUrlMapList.RegisterObject;
TUrlMapReference.RegisterObject;
TUrlMapTest.RegisterObject;
TUrlMapValidationResult.RegisterObject;
TUrlMapsValidateRequest.RegisterObject;
TUrlMapsValidateResponse.RegisterObject;
TUsageExportLocation.RegisterObject;
TVpnTunnel.RegisterObject;
TVpnTunnelAggregatedListTypeitems.RegisterObject;
TVpnTunnelAggregatedList.RegisterObject;
TVpnTunnelList.RegisterObject;
TVpnTunnelsScopedListTypewarningTypedataItem.RegisterObject;
TVpnTunnelsScopedListTypewarning.RegisterObject;
TVpnTunnelsScopedList.RegisterObject;
TZone.RegisterObject;
TZoneList.RegisterObject;
end;
Function TComputeAPI.GetAddressesInstance : TAddressesResource;
begin
if (FAddressesInstance=Nil) then
FAddressesInstance:=CreateAddressesResource;
Result:=FAddressesInstance;
end;
Function TComputeAPI.CreateAddressesResource : TAddressesResource;
begin
Result:=CreateAddressesResource(Self);
end;
Function TComputeAPI.CreateAddressesResource(AOwner : TComponent) : TAddressesResource;
begin
Result:=TAddressesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetAutoscalersInstance : TAutoscalersResource;
begin
if (FAutoscalersInstance=Nil) then
FAutoscalersInstance:=CreateAutoscalersResource;
Result:=FAutoscalersInstance;
end;
Function TComputeAPI.CreateAutoscalersResource : TAutoscalersResource;
begin
Result:=CreateAutoscalersResource(Self);
end;
Function TComputeAPI.CreateAutoscalersResource(AOwner : TComponent) : TAutoscalersResource;
begin
Result:=TAutoscalersResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetBackendServicesInstance : TBackendServicesResource;
begin
if (FBackendServicesInstance=Nil) then
FBackendServicesInstance:=CreateBackendServicesResource;
Result:=FBackendServicesInstance;
end;
Function TComputeAPI.CreateBackendServicesResource : TBackendServicesResource;
begin
Result:=CreateBackendServicesResource(Self);
end;
Function TComputeAPI.CreateBackendServicesResource(AOwner : TComponent) : TBackendServicesResource;
begin
Result:=TBackendServicesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetDiskTypesInstance : TDiskTypesResource;
begin
if (FDiskTypesInstance=Nil) then
FDiskTypesInstance:=CreateDiskTypesResource;
Result:=FDiskTypesInstance;
end;
Function TComputeAPI.CreateDiskTypesResource : TDiskTypesResource;
begin
Result:=CreateDiskTypesResource(Self);
end;
Function TComputeAPI.CreateDiskTypesResource(AOwner : TComponent) : TDiskTypesResource;
begin
Result:=TDiskTypesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetDisksInstance : TDisksResource;
begin
if (FDisksInstance=Nil) then
FDisksInstance:=CreateDisksResource;
Result:=FDisksInstance;
end;
Function TComputeAPI.CreateDisksResource : TDisksResource;
begin
Result:=CreateDisksResource(Self);
end;
Function TComputeAPI.CreateDisksResource(AOwner : TComponent) : TDisksResource;
begin
Result:=TDisksResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetFirewallsInstance : TFirewallsResource;
begin
if (FFirewallsInstance=Nil) then
FFirewallsInstance:=CreateFirewallsResource;
Result:=FFirewallsInstance;
end;
Function TComputeAPI.CreateFirewallsResource : TFirewallsResource;
begin
Result:=CreateFirewallsResource(Self);
end;
Function TComputeAPI.CreateFirewallsResource(AOwner : TComponent) : TFirewallsResource;
begin
Result:=TFirewallsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetForwardingRulesInstance : TForwardingRulesResource;
begin
if (FForwardingRulesInstance=Nil) then
FForwardingRulesInstance:=CreateForwardingRulesResource;
Result:=FForwardingRulesInstance;
end;
Function TComputeAPI.CreateForwardingRulesResource : TForwardingRulesResource;
begin
Result:=CreateForwardingRulesResource(Self);
end;
Function TComputeAPI.CreateForwardingRulesResource(AOwner : TComponent) : TForwardingRulesResource;
begin
Result:=TForwardingRulesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetGlobalAddressesInstance : TGlobalAddressesResource;
begin
if (FGlobalAddressesInstance=Nil) then
FGlobalAddressesInstance:=CreateGlobalAddressesResource;
Result:=FGlobalAddressesInstance;
end;
Function TComputeAPI.CreateGlobalAddressesResource : TGlobalAddressesResource;
begin
Result:=CreateGlobalAddressesResource(Self);
end;
Function TComputeAPI.CreateGlobalAddressesResource(AOwner : TComponent) : TGlobalAddressesResource;
begin
Result:=TGlobalAddressesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetGlobalForwardingRulesInstance : TGlobalForwardingRulesResource;
begin
if (FGlobalForwardingRulesInstance=Nil) then
FGlobalForwardingRulesInstance:=CreateGlobalForwardingRulesResource;
Result:=FGlobalForwardingRulesInstance;
end;
Function TComputeAPI.CreateGlobalForwardingRulesResource : TGlobalForwardingRulesResource;
begin
Result:=CreateGlobalForwardingRulesResource(Self);
end;
Function TComputeAPI.CreateGlobalForwardingRulesResource(AOwner : TComponent) : TGlobalForwardingRulesResource;
begin
Result:=TGlobalForwardingRulesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetGlobalOperationsInstance : TGlobalOperationsResource;
begin
if (FGlobalOperationsInstance=Nil) then
FGlobalOperationsInstance:=CreateGlobalOperationsResource;
Result:=FGlobalOperationsInstance;
end;
Function TComputeAPI.CreateGlobalOperationsResource : TGlobalOperationsResource;
begin
Result:=CreateGlobalOperationsResource(Self);
end;
Function TComputeAPI.CreateGlobalOperationsResource(AOwner : TComponent) : TGlobalOperationsResource;
begin
Result:=TGlobalOperationsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetHttpHealthChecksInstance : THttpHealthChecksResource;
begin
if (FHttpHealthChecksInstance=Nil) then
FHttpHealthChecksInstance:=CreateHttpHealthChecksResource;
Result:=FHttpHealthChecksInstance;
end;
Function TComputeAPI.CreateHttpHealthChecksResource : THttpHealthChecksResource;
begin
Result:=CreateHttpHealthChecksResource(Self);
end;
Function TComputeAPI.CreateHttpHealthChecksResource(AOwner : TComponent) : THttpHealthChecksResource;
begin
Result:=THttpHealthChecksResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetHttpsHealthChecksInstance : THttpsHealthChecksResource;
begin
if (FHttpsHealthChecksInstance=Nil) then
FHttpsHealthChecksInstance:=CreateHttpsHealthChecksResource;
Result:=FHttpsHealthChecksInstance;
end;
Function TComputeAPI.CreateHttpsHealthChecksResource : THttpsHealthChecksResource;
begin
Result:=CreateHttpsHealthChecksResource(Self);
end;
Function TComputeAPI.CreateHttpsHealthChecksResource(AOwner : TComponent) : THttpsHealthChecksResource;
begin
Result:=THttpsHealthChecksResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetImagesInstance : TImagesResource;
begin
if (FImagesInstance=Nil) then
FImagesInstance:=CreateImagesResource;
Result:=FImagesInstance;
end;
Function TComputeAPI.CreateImagesResource : TImagesResource;
begin
Result:=CreateImagesResource(Self);
end;
Function TComputeAPI.CreateImagesResource(AOwner : TComponent) : TImagesResource;
begin
Result:=TImagesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetInstanceGroupManagersInstance : TInstanceGroupManagersResource;
begin
if (FInstanceGroupManagersInstance=Nil) then
FInstanceGroupManagersInstance:=CreateInstanceGroupManagersResource;
Result:=FInstanceGroupManagersInstance;
end;
Function TComputeAPI.CreateInstanceGroupManagersResource : TInstanceGroupManagersResource;
begin
Result:=CreateInstanceGroupManagersResource(Self);
end;
Function TComputeAPI.CreateInstanceGroupManagersResource(AOwner : TComponent) : TInstanceGroupManagersResource;
begin
Result:=TInstanceGroupManagersResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetInstanceGroupsInstance : TInstanceGroupsResource;
begin
if (FInstanceGroupsInstance=Nil) then
FInstanceGroupsInstance:=CreateInstanceGroupsResource;
Result:=FInstanceGroupsInstance;
end;
Function TComputeAPI.CreateInstanceGroupsResource : TInstanceGroupsResource;
begin
Result:=CreateInstanceGroupsResource(Self);
end;
Function TComputeAPI.CreateInstanceGroupsResource(AOwner : TComponent) : TInstanceGroupsResource;
begin
Result:=TInstanceGroupsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetInstanceTemplatesInstance : TInstanceTemplatesResource;
begin
if (FInstanceTemplatesInstance=Nil) then
FInstanceTemplatesInstance:=CreateInstanceTemplatesResource;
Result:=FInstanceTemplatesInstance;
end;
Function TComputeAPI.CreateInstanceTemplatesResource : TInstanceTemplatesResource;
begin
Result:=CreateInstanceTemplatesResource(Self);
end;
Function TComputeAPI.CreateInstanceTemplatesResource(AOwner : TComponent) : TInstanceTemplatesResource;
begin
Result:=TInstanceTemplatesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetInstancesInstance : TInstancesResource;
begin
if (FInstancesInstance=Nil) then
FInstancesInstance:=CreateInstancesResource;
Result:=FInstancesInstance;
end;
Function TComputeAPI.CreateInstancesResource : TInstancesResource;
begin
Result:=CreateInstancesResource(Self);
end;
Function TComputeAPI.CreateInstancesResource(AOwner : TComponent) : TInstancesResource;
begin
Result:=TInstancesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetLicensesInstance : TLicensesResource;
begin
if (FLicensesInstance=Nil) then
FLicensesInstance:=CreateLicensesResource;
Result:=FLicensesInstance;
end;
Function TComputeAPI.CreateLicensesResource : TLicensesResource;
begin
Result:=CreateLicensesResource(Self);
end;
Function TComputeAPI.CreateLicensesResource(AOwner : TComponent) : TLicensesResource;
begin
Result:=TLicensesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetMachineTypesInstance : TMachineTypesResource;
begin
if (FMachineTypesInstance=Nil) then
FMachineTypesInstance:=CreateMachineTypesResource;
Result:=FMachineTypesInstance;
end;
Function TComputeAPI.CreateMachineTypesResource : TMachineTypesResource;
begin
Result:=CreateMachineTypesResource(Self);
end;
Function TComputeAPI.CreateMachineTypesResource(AOwner : TComponent) : TMachineTypesResource;
begin
Result:=TMachineTypesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetNetworksInstance : TNetworksResource;
begin
if (FNetworksInstance=Nil) then
FNetworksInstance:=CreateNetworksResource;
Result:=FNetworksInstance;
end;
Function TComputeAPI.CreateNetworksResource : TNetworksResource;
begin
Result:=CreateNetworksResource(Self);
end;
Function TComputeAPI.CreateNetworksResource(AOwner : TComponent) : TNetworksResource;
begin
Result:=TNetworksResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetProjectsInstance : TProjectsResource;
begin
if (FProjectsInstance=Nil) then
FProjectsInstance:=CreateProjectsResource;
Result:=FProjectsInstance;
end;
Function TComputeAPI.CreateProjectsResource : TProjectsResource;
begin
Result:=CreateProjectsResource(Self);
end;
Function TComputeAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource;
begin
Result:=TProjectsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetRegionOperationsInstance : TRegionOperationsResource;
begin
if (FRegionOperationsInstance=Nil) then
FRegionOperationsInstance:=CreateRegionOperationsResource;
Result:=FRegionOperationsInstance;
end;
Function TComputeAPI.CreateRegionOperationsResource : TRegionOperationsResource;
begin
Result:=CreateRegionOperationsResource(Self);
end;
Function TComputeAPI.CreateRegionOperationsResource(AOwner : TComponent) : TRegionOperationsResource;
begin
Result:=TRegionOperationsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetRegionsInstance : TRegionsResource;
begin
if (FRegionsInstance=Nil) then
FRegionsInstance:=CreateRegionsResource;
Result:=FRegionsInstance;
end;
Function TComputeAPI.CreateRegionsResource : TRegionsResource;
begin
Result:=CreateRegionsResource(Self);
end;
Function TComputeAPI.CreateRegionsResource(AOwner : TComponent) : TRegionsResource;
begin
Result:=TRegionsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetRoutesInstance : TRoutesResource;
begin
if (FRoutesInstance=Nil) then
FRoutesInstance:=CreateRoutesResource;
Result:=FRoutesInstance;
end;
Function TComputeAPI.CreateRoutesResource : TRoutesResource;
begin
Result:=CreateRoutesResource(Self);
end;
Function TComputeAPI.CreateRoutesResource(AOwner : TComponent) : TRoutesResource;
begin
Result:=TRoutesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetSnapshotsInstance : TSnapshotsResource;
begin
if (FSnapshotsInstance=Nil) then
FSnapshotsInstance:=CreateSnapshotsResource;
Result:=FSnapshotsInstance;
end;
Function TComputeAPI.CreateSnapshotsResource : TSnapshotsResource;
begin
Result:=CreateSnapshotsResource(Self);
end;
Function TComputeAPI.CreateSnapshotsResource(AOwner : TComponent) : TSnapshotsResource;
begin
Result:=TSnapshotsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetSslCertificatesInstance : TSslCertificatesResource;
begin
if (FSslCertificatesInstance=Nil) then
FSslCertificatesInstance:=CreateSslCertificatesResource;
Result:=FSslCertificatesInstance;
end;
Function TComputeAPI.CreateSslCertificatesResource : TSslCertificatesResource;
begin
Result:=CreateSslCertificatesResource(Self);
end;
Function TComputeAPI.CreateSslCertificatesResource(AOwner : TComponent) : TSslCertificatesResource;
begin
Result:=TSslCertificatesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetSubnetworksInstance : TSubnetworksResource;
begin
if (FSubnetworksInstance=Nil) then
FSubnetworksInstance:=CreateSubnetworksResource;
Result:=FSubnetworksInstance;
end;
Function TComputeAPI.CreateSubnetworksResource : TSubnetworksResource;
begin
Result:=CreateSubnetworksResource(Self);
end;
Function TComputeAPI.CreateSubnetworksResource(AOwner : TComponent) : TSubnetworksResource;
begin
Result:=TSubnetworksResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetTargetHttpProxiesInstance : TTargetHttpProxiesResource;
begin
if (FTargetHttpProxiesInstance=Nil) then
FTargetHttpProxiesInstance:=CreateTargetHttpProxiesResource;
Result:=FTargetHttpProxiesInstance;
end;
Function TComputeAPI.CreateTargetHttpProxiesResource : TTargetHttpProxiesResource;
begin
Result:=CreateTargetHttpProxiesResource(Self);
end;
Function TComputeAPI.CreateTargetHttpProxiesResource(AOwner : TComponent) : TTargetHttpProxiesResource;
begin
Result:=TTargetHttpProxiesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetTargetHttpsProxiesInstance : TTargetHttpsProxiesResource;
begin
if (FTargetHttpsProxiesInstance=Nil) then
FTargetHttpsProxiesInstance:=CreateTargetHttpsProxiesResource;
Result:=FTargetHttpsProxiesInstance;
end;
Function TComputeAPI.CreateTargetHttpsProxiesResource : TTargetHttpsProxiesResource;
begin
Result:=CreateTargetHttpsProxiesResource(Self);
end;
Function TComputeAPI.CreateTargetHttpsProxiesResource(AOwner : TComponent) : TTargetHttpsProxiesResource;
begin
Result:=TTargetHttpsProxiesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetTargetInstancesInstance : TTargetInstancesResource;
begin
if (FTargetInstancesInstance=Nil) then
FTargetInstancesInstance:=CreateTargetInstancesResource;
Result:=FTargetInstancesInstance;
end;
Function TComputeAPI.CreateTargetInstancesResource : TTargetInstancesResource;
begin
Result:=CreateTargetInstancesResource(Self);
end;
Function TComputeAPI.CreateTargetInstancesResource(AOwner : TComponent) : TTargetInstancesResource;
begin
Result:=TTargetInstancesResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetTargetPoolsInstance : TTargetPoolsResource;
begin
if (FTargetPoolsInstance=Nil) then
FTargetPoolsInstance:=CreateTargetPoolsResource;
Result:=FTargetPoolsInstance;
end;
Function TComputeAPI.CreateTargetPoolsResource : TTargetPoolsResource;
begin
Result:=CreateTargetPoolsResource(Self);
end;
Function TComputeAPI.CreateTargetPoolsResource(AOwner : TComponent) : TTargetPoolsResource;
begin
Result:=TTargetPoolsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetTargetVpnGatewaysInstance : TTargetVpnGatewaysResource;
begin
if (FTargetVpnGatewaysInstance=Nil) then
FTargetVpnGatewaysInstance:=CreateTargetVpnGatewaysResource;
Result:=FTargetVpnGatewaysInstance;
end;
Function TComputeAPI.CreateTargetVpnGatewaysResource : TTargetVpnGatewaysResource;
begin
Result:=CreateTargetVpnGatewaysResource(Self);
end;
Function TComputeAPI.CreateTargetVpnGatewaysResource(AOwner : TComponent) : TTargetVpnGatewaysResource;
begin
Result:=TTargetVpnGatewaysResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetUrlMapsInstance : TUrlMapsResource;
begin
if (FUrlMapsInstance=Nil) then
FUrlMapsInstance:=CreateUrlMapsResource;
Result:=FUrlMapsInstance;
end;
Function TComputeAPI.CreateUrlMapsResource : TUrlMapsResource;
begin
Result:=CreateUrlMapsResource(Self);
end;
Function TComputeAPI.CreateUrlMapsResource(AOwner : TComponent) : TUrlMapsResource;
begin
Result:=TUrlMapsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetVpnTunnelsInstance : TVpnTunnelsResource;
begin
if (FVpnTunnelsInstance=Nil) then
FVpnTunnelsInstance:=CreateVpnTunnelsResource;
Result:=FVpnTunnelsInstance;
end;
Function TComputeAPI.CreateVpnTunnelsResource : TVpnTunnelsResource;
begin
Result:=CreateVpnTunnelsResource(Self);
end;
Function TComputeAPI.CreateVpnTunnelsResource(AOwner : TComponent) : TVpnTunnelsResource;
begin
Result:=TVpnTunnelsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetZoneOperationsInstance : TZoneOperationsResource;
begin
if (FZoneOperationsInstance=Nil) then
FZoneOperationsInstance:=CreateZoneOperationsResource;
Result:=FZoneOperationsInstance;
end;
Function TComputeAPI.CreateZoneOperationsResource : TZoneOperationsResource;
begin
Result:=CreateZoneOperationsResource(Self);
end;
Function TComputeAPI.CreateZoneOperationsResource(AOwner : TComponent) : TZoneOperationsResource;
begin
Result:=TZoneOperationsResource.Create(AOwner);
Result.API:=Self.API;
end;
Function TComputeAPI.GetZonesInstance : TZonesResource;
begin
if (FZonesInstance=Nil) then
FZonesInstance:=CreateZonesResource;
Result:=FZonesInstance;
end;
Function TComputeAPI.CreateZonesResource : TZonesResource;
begin
Result:=CreateZonesResource(Self);
end;
Function TComputeAPI.CreateZonesResource(AOwner : TComponent) : TZonesResource;
begin
Result:=TZonesResource.Create(AOwner);
Result.API:=Self.API;
end;
initialization
TComputeAPI.RegisterAPI;
end.