123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361 |
- unit googlecontainer;
- {$MODE objfpc}
- {$H+}
- interface
- uses sysutils, classes, googleservice, restbase, googlebase;
- type
-
- //Top-level schema types
- TListClustersResponse = Class;
- TCluster = Class;
- TNodeConfig = Class;
- TMasterAuth = Class;
- TAddonsConfig = Class;
- THttpLoadBalancing = Class;
- THorizontalPodAutoscaling = Class;
- TNodePool = Class;
- TCreateClusterRequest = Class;
- TOperation = Class;
- TUpdateClusterRequest = Class;
- TClusterUpdate = Class;
- TListOperationsResponse = Class;
- TServerConfig = Class;
- TListNodePoolsResponse = Class;
- TCreateNodePoolRequest = Class;
- TListClustersResponseArray = Array of TListClustersResponse;
- TClusterArray = Array of TCluster;
- TNodeConfigArray = Array of TNodeConfig;
- TMasterAuthArray = Array of TMasterAuth;
- TAddonsConfigArray = Array of TAddonsConfig;
- THttpLoadBalancingArray = Array of THttpLoadBalancing;
- THorizontalPodAutoscalingArray = Array of THorizontalPodAutoscaling;
- TNodePoolArray = Array of TNodePool;
- TCreateClusterRequestArray = Array of TCreateClusterRequest;
- TOperationArray = Array of TOperation;
- TUpdateClusterRequestArray = Array of TUpdateClusterRequest;
- TClusterUpdateArray = Array of TClusterUpdate;
- TListOperationsResponseArray = Array of TListOperationsResponse;
- TServerConfigArray = Array of TServerConfig;
- TListNodePoolsResponseArray = Array of TListNodePoolsResponse;
- TCreateNodePoolRequestArray = Array of TCreateNodePoolRequest;
- //Anonymous types, using auto-generated names
- TNodeConfigTypemetadata = Class;
- TListClustersResponseTypeclustersArray = Array of TCluster;
- TClusterTypenodePoolsArray = Array of TNodePool;
- TListOperationsResponseTypeoperationsArray = Array of TOperation;
- TListNodePoolsResponseTypenodePoolsArray = Array of TNodePool;
-
- { --------------------------------------------------------------------
- TListClustersResponse
- --------------------------------------------------------------------}
-
- TListClustersResponse = Class(TGoogleBaseObject)
- Private
- Fclusters : TListClustersResponseTypeclustersArray;
- FmissingZones : TStringArray;
- Protected
- //Property setters
- Procedure Setclusters(AIndex : Integer; const AValue : TListClustersResponseTypeclustersArray); virtual;
- Procedure SetmissingZones(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 clusters : TListClustersResponseTypeclustersArray Index 0 Read Fclusters Write Setclusters;
- Property missingZones : TStringArray Index 8 Read FmissingZones Write SetmissingZones;
- end;
- TListClustersResponseClass = Class of TListClustersResponse;
-
- { --------------------------------------------------------------------
- TCluster
- --------------------------------------------------------------------}
-
- TCluster = Class(TGoogleBaseObject)
- Private
- Fname : String;
- Fdescription : String;
- FinitialNodeCount : integer;
- FnodeConfig : TNodeConfig;
- FmasterAuth : TMasterAuth;
- FloggingService : String;
- FmonitoringService : String;
- Fnetwork : String;
- FclusterIpv4Cidr : String;
- FaddonsConfig : TAddonsConfig;
- Fsubnetwork : String;
- FnodePools : TClusterTypenodePoolsArray;
- Flocations : TStringArray;
- FselfLink : String;
- Fzone : String;
- Fendpoint : String;
- FinitialClusterVersion : String;
- FcurrentMasterVersion : String;
- FcurrentNodeVersion : String;
- FcreateTime : String;
- Fstatus : String;
- FstatusMessage : String;
- FnodeIpv4CidrSize : integer;
- FservicesIpv4Cidr : String;
- FinstanceGroupUrls : TStringArray;
- FcurrentNodeCount : integer;
- Protected
- //Property setters
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetinitialNodeCount(AIndex : Integer; const AValue : integer); virtual;
- Procedure SetnodeConfig(AIndex : Integer; const AValue : TNodeConfig); virtual;
- Procedure SetmasterAuth(AIndex : Integer; const AValue : TMasterAuth); virtual;
- Procedure SetloggingService(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmonitoringService(AIndex : Integer; const AValue : String); virtual;
- Procedure Setnetwork(AIndex : Integer; const AValue : String); virtual;
- Procedure SetclusterIpv4Cidr(AIndex : Integer; const AValue : String); virtual;
- Procedure SetaddonsConfig(AIndex : Integer; const AValue : TAddonsConfig); virtual;
- Procedure Setsubnetwork(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnodePools(AIndex : Integer; const AValue : TClusterTypenodePoolsArray); virtual;
- Procedure Setlocations(AIndex : Integer; const AValue : TStringArray); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
- Procedure Setendpoint(AIndex : Integer; const AValue : String); virtual;
- Procedure SetinitialClusterVersion(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcurrentMasterVersion(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcurrentNodeVersion(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcreateTime(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstatusMessage(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnodeIpv4CidrSize(AIndex : Integer; const AValue : integer); virtual;
- Procedure SetservicesIpv4Cidr(AIndex : Integer; const AValue : String); virtual;
- Procedure SetinstanceGroupUrls(AIndex : Integer; const AValue : TStringArray); virtual;
- Procedure SetcurrentNodeCount(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 name : String Index 0 Read Fname Write Setname;
- Property description : String Index 8 Read Fdescription Write Setdescription;
- Property initialNodeCount : integer Index 16 Read FinitialNodeCount Write SetinitialNodeCount;
- Property nodeConfig : TNodeConfig Index 24 Read FnodeConfig Write SetnodeConfig;
- Property masterAuth : TMasterAuth Index 32 Read FmasterAuth Write SetmasterAuth;
- Property loggingService : String Index 40 Read FloggingService Write SetloggingService;
- Property monitoringService : String Index 48 Read FmonitoringService Write SetmonitoringService;
- Property network : String Index 56 Read Fnetwork Write Setnetwork;
- Property clusterIpv4Cidr : String Index 64 Read FclusterIpv4Cidr Write SetclusterIpv4Cidr;
- Property addonsConfig : TAddonsConfig Index 72 Read FaddonsConfig Write SetaddonsConfig;
- Property subnetwork : String Index 80 Read Fsubnetwork Write Setsubnetwork;
- Property nodePools : TClusterTypenodePoolsArray Index 88 Read FnodePools Write SetnodePools;
- Property locations : TStringArray Index 96 Read Flocations Write Setlocations;
- Property selfLink : String Index 104 Read FselfLink Write SetselfLink;
- Property zone : String Index 112 Read Fzone Write Setzone;
- Property endpoint : String Index 120 Read Fendpoint Write Setendpoint;
- Property initialClusterVersion : String Index 128 Read FinitialClusterVersion Write SetinitialClusterVersion;
- Property currentMasterVersion : String Index 136 Read FcurrentMasterVersion Write SetcurrentMasterVersion;
- Property currentNodeVersion : String Index 144 Read FcurrentNodeVersion Write SetcurrentNodeVersion;
- Property createTime : String Index 152 Read FcreateTime Write SetcreateTime;
- Property status : String Index 160 Read Fstatus Write Setstatus;
- Property statusMessage : String Index 168 Read FstatusMessage Write SetstatusMessage;
- Property nodeIpv4CidrSize : integer Index 176 Read FnodeIpv4CidrSize Write SetnodeIpv4CidrSize;
- Property servicesIpv4Cidr : String Index 184 Read FservicesIpv4Cidr Write SetservicesIpv4Cidr;
- Property instanceGroupUrls : TStringArray Index 192 Read FinstanceGroupUrls Write SetinstanceGroupUrls;
- Property currentNodeCount : integer Index 200 Read FcurrentNodeCount Write SetcurrentNodeCount;
- end;
- TClusterClass = Class of TCluster;
-
- { --------------------------------------------------------------------
- TNodeConfigTypemetadata
- --------------------------------------------------------------------}
-
- TNodeConfigTypemetadata = Class(TGoogleBaseObject)
- Private
- Protected
- //Property setters
- Public
- Class Function AllowAdditionalProperties : Boolean; override;
- Published
- end;
- TNodeConfigTypemetadataClass = Class of TNodeConfigTypemetadata;
-
- { --------------------------------------------------------------------
- TNodeConfig
- --------------------------------------------------------------------}
-
- TNodeConfig = Class(TGoogleBaseObject)
- Private
- FmachineType : String;
- FdiskSizeGb : integer;
- FoauthScopes : TStringArray;
- Fmetadata : TNodeConfigTypemetadata;
- Protected
- //Property setters
- Procedure SetmachineType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdiskSizeGb(AIndex : Integer; const AValue : integer); virtual;
- Procedure SetoauthScopes(AIndex : Integer; const AValue : TStringArray); virtual;
- Procedure Setmetadata(AIndex : Integer; const AValue : TNodeConfigTypemetadata); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property machineType : String Index 0 Read FmachineType Write SetmachineType;
- Property diskSizeGb : integer Index 8 Read FdiskSizeGb Write SetdiskSizeGb;
- Property oauthScopes : TStringArray Index 16 Read FoauthScopes Write SetoauthScopes;
- Property metadata : TNodeConfigTypemetadata Index 24 Read Fmetadata Write Setmetadata;
- end;
- TNodeConfigClass = Class of TNodeConfig;
-
- { --------------------------------------------------------------------
- TMasterAuth
- --------------------------------------------------------------------}
-
- TMasterAuth = Class(TGoogleBaseObject)
- Private
- Fusername : String;
- Fpassword : String;
- FclusterCaCertificate : String;
- FclientCertificate : String;
- FclientKey : String;
- Protected
- //Property setters
- Procedure Setusername(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpassword(AIndex : Integer; const AValue : String); virtual;
- Procedure SetclusterCaCertificate(AIndex : Integer; const AValue : String); virtual;
- Procedure SetclientCertificate(AIndex : Integer; const AValue : String); virtual;
- Procedure SetclientKey(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property username : String Index 0 Read Fusername Write Setusername;
- Property password : String Index 8 Read Fpassword Write Setpassword;
- Property clusterCaCertificate : String Index 16 Read FclusterCaCertificate Write SetclusterCaCertificate;
- Property clientCertificate : String Index 24 Read FclientCertificate Write SetclientCertificate;
- Property clientKey : String Index 32 Read FclientKey Write SetclientKey;
- end;
- TMasterAuthClass = Class of TMasterAuth;
-
- { --------------------------------------------------------------------
- TAddonsConfig
- --------------------------------------------------------------------}
-
- TAddonsConfig = Class(TGoogleBaseObject)
- Private
- FhttpLoadBalancing : THttpLoadBalancing;
- FhorizontalPodAutoscaling : THorizontalPodAutoscaling;
- Protected
- //Property setters
- Procedure SethttpLoadBalancing(AIndex : Integer; const AValue : THttpLoadBalancing); virtual;
- Procedure SethorizontalPodAutoscaling(AIndex : Integer; const AValue : THorizontalPodAutoscaling); virtual;
- Public
- Published
- Property httpLoadBalancing : THttpLoadBalancing Index 0 Read FhttpLoadBalancing Write SethttpLoadBalancing;
- Property horizontalPodAutoscaling : THorizontalPodAutoscaling Index 8 Read FhorizontalPodAutoscaling Write SethorizontalPodAutoscaling;
- end;
- TAddonsConfigClass = Class of TAddonsConfig;
-
- { --------------------------------------------------------------------
- THttpLoadBalancing
- --------------------------------------------------------------------}
-
- THttpLoadBalancing = Class(TGoogleBaseObject)
- Private
- Fdisabled : boolean;
- Protected
- //Property setters
- Procedure Setdisabled(AIndex : Integer; const AValue : boolean); virtual;
- Public
- Published
- Property disabled : boolean Index 0 Read Fdisabled Write Setdisabled;
- end;
- THttpLoadBalancingClass = Class of THttpLoadBalancing;
-
- { --------------------------------------------------------------------
- THorizontalPodAutoscaling
- --------------------------------------------------------------------}
-
- THorizontalPodAutoscaling = Class(TGoogleBaseObject)
- Private
- Fdisabled : boolean;
- Protected
- //Property setters
- Procedure Setdisabled(AIndex : Integer; const AValue : boolean); virtual;
- Public
- Published
- Property disabled : boolean Index 0 Read Fdisabled Write Setdisabled;
- end;
- THorizontalPodAutoscalingClass = Class of THorizontalPodAutoscaling;
-
- { --------------------------------------------------------------------
- TNodePool
- --------------------------------------------------------------------}
-
- TNodePool = Class(TGoogleBaseObject)
- Private
- Fname : String;
- Fconfig : TNodeConfig;
- FinitialNodeCount : integer;
- FselfLink : String;
- Fversion : String;
- FinstanceGroupUrls : TStringArray;
- Fstatus : String;
- FstatusMessage : String;
- Protected
- //Property setters
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setconfig(AIndex : Integer; const AValue : TNodeConfig); virtual;
- Procedure SetinitialNodeCount(AIndex : Integer; const AValue : integer); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setversion(AIndex : Integer; const AValue : String); virtual;
- Procedure SetinstanceGroupUrls(AIndex : Integer; const AValue : TStringArray); virtual;
- Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstatusMessage(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property name : String Index 0 Read Fname Write Setname;
- Property config : TNodeConfig Index 8 Read Fconfig Write Setconfig;
- Property initialNodeCount : integer Index 16 Read FinitialNodeCount Write SetinitialNodeCount;
- Property selfLink : String Index 24 Read FselfLink Write SetselfLink;
- Property version : String Index 32 Read Fversion Write Setversion;
- Property instanceGroupUrls : TStringArray Index 40 Read FinstanceGroupUrls Write SetinstanceGroupUrls;
- Property status : String Index 48 Read Fstatus Write Setstatus;
- Property statusMessage : String Index 56 Read FstatusMessage Write SetstatusMessage;
- end;
- TNodePoolClass = Class of TNodePool;
-
- { --------------------------------------------------------------------
- TCreateClusterRequest
- --------------------------------------------------------------------}
-
- TCreateClusterRequest = Class(TGoogleBaseObject)
- Private
- Fcluster : TCluster;
- Protected
- //Property setters
- Procedure Setcluster(AIndex : Integer; const AValue : TCluster); virtual;
- Public
- Published
- Property cluster : TCluster Index 0 Read Fcluster Write Setcluster;
- end;
- TCreateClusterRequestClass = Class of TCreateClusterRequest;
-
- { --------------------------------------------------------------------
- TOperation
- --------------------------------------------------------------------}
-
- TOperation = Class(TGoogleBaseObject)
- Private
- Fname : String;
- Fzone : String;
- FoperationType : String;
- Fstatus : String;
- Fdetail : String;
- FstatusMessage : String;
- FselfLink : String;
- FtargetLink : String;
- Protected
- //Property setters
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setzone(AIndex : Integer; const AValue : String); virtual;
- Procedure SetoperationType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdetail(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstatusMessage(AIndex : Integer; const AValue : String); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SettargetLink(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property name : String Index 0 Read Fname Write Setname;
- Property zone : String Index 8 Read Fzone Write Setzone;
- Property operationType : String Index 16 Read FoperationType Write SetoperationType;
- Property status : String Index 24 Read Fstatus Write Setstatus;
- Property detail : String Index 32 Read Fdetail Write Setdetail;
- Property statusMessage : String Index 40 Read FstatusMessage Write SetstatusMessage;
- Property selfLink : String Index 48 Read FselfLink Write SetselfLink;
- Property targetLink : String Index 56 Read FtargetLink Write SettargetLink;
- end;
- TOperationClass = Class of TOperation;
-
- { --------------------------------------------------------------------
- TUpdateClusterRequest
- --------------------------------------------------------------------}
-
- TUpdateClusterRequest = Class(TGoogleBaseObject)
- Private
- Fupdate : TClusterUpdate;
- Protected
- //Property setters
- Procedure Setupdate(AIndex : Integer; const AValue : TClusterUpdate); virtual;
- Public
- Published
- Property update : TClusterUpdate Index 0 Read Fupdate Write Setupdate;
- end;
- TUpdateClusterRequestClass = Class of TUpdateClusterRequest;
-
- { --------------------------------------------------------------------
- TClusterUpdate
- --------------------------------------------------------------------}
-
- TClusterUpdate = Class(TGoogleBaseObject)
- Private
- FdesiredNodeVersion : String;
- FdesiredMonitoringService : String;
- FdesiredAddonsConfig : TAddonsConfig;
- FdesiredNodePoolId : String;
- FdesiredMasterVersion : String;
- Protected
- //Property setters
- Procedure SetdesiredNodeVersion(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdesiredMonitoringService(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdesiredAddonsConfig(AIndex : Integer; const AValue : TAddonsConfig); virtual;
- Procedure SetdesiredNodePoolId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdesiredMasterVersion(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property desiredNodeVersion : String Index 0 Read FdesiredNodeVersion Write SetdesiredNodeVersion;
- Property desiredMonitoringService : String Index 8 Read FdesiredMonitoringService Write SetdesiredMonitoringService;
- Property desiredAddonsConfig : TAddonsConfig Index 16 Read FdesiredAddonsConfig Write SetdesiredAddonsConfig;
- Property desiredNodePoolId : String Index 24 Read FdesiredNodePoolId Write SetdesiredNodePoolId;
- Property desiredMasterVersion : String Index 32 Read FdesiredMasterVersion Write SetdesiredMasterVersion;
- end;
- TClusterUpdateClass = Class of TClusterUpdate;
-
- { --------------------------------------------------------------------
- TListOperationsResponse
- --------------------------------------------------------------------}
-
- TListOperationsResponse = Class(TGoogleBaseObject)
- Private
- Foperations : TListOperationsResponseTypeoperationsArray;
- FmissingZones : TStringArray;
- Protected
- //Property setters
- Procedure Setoperations(AIndex : Integer; const AValue : TListOperationsResponseTypeoperationsArray); virtual;
- Procedure SetmissingZones(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 operations : TListOperationsResponseTypeoperationsArray Index 0 Read Foperations Write Setoperations;
- Property missingZones : TStringArray Index 8 Read FmissingZones Write SetmissingZones;
- end;
- TListOperationsResponseClass = Class of TListOperationsResponse;
-
- { --------------------------------------------------------------------
- TServerConfig
- --------------------------------------------------------------------}
-
- TServerConfig = Class(TGoogleBaseObject)
- Private
- FdefaultClusterVersion : String;
- FvalidNodeVersions : TStringArray;
- FdefaultImageFamily : String;
- FvalidImageFamilies : TStringArray;
- Protected
- //Property setters
- Procedure SetdefaultClusterVersion(AIndex : Integer; const AValue : String); virtual;
- Procedure SetvalidNodeVersions(AIndex : Integer; const AValue : TStringArray); virtual;
- Procedure SetdefaultImageFamily(AIndex : Integer; const AValue : String); virtual;
- Procedure SetvalidImageFamilies(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 defaultClusterVersion : String Index 0 Read FdefaultClusterVersion Write SetdefaultClusterVersion;
- Property validNodeVersions : TStringArray Index 8 Read FvalidNodeVersions Write SetvalidNodeVersions;
- Property defaultImageFamily : String Index 16 Read FdefaultImageFamily Write SetdefaultImageFamily;
- Property validImageFamilies : TStringArray Index 24 Read FvalidImageFamilies Write SetvalidImageFamilies;
- end;
- TServerConfigClass = Class of TServerConfig;
-
- { --------------------------------------------------------------------
- TListNodePoolsResponse
- --------------------------------------------------------------------}
-
- TListNodePoolsResponse = Class(TGoogleBaseObject)
- Private
- FnodePools : TListNodePoolsResponseTypenodePoolsArray;
- Protected
- //Property setters
- Procedure SetnodePools(AIndex : Integer; const AValue : TListNodePoolsResponseTypenodePoolsArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property nodePools : TListNodePoolsResponseTypenodePoolsArray Index 0 Read FnodePools Write SetnodePools;
- end;
- TListNodePoolsResponseClass = Class of TListNodePoolsResponse;
-
- { --------------------------------------------------------------------
- TCreateNodePoolRequest
- --------------------------------------------------------------------}
-
- TCreateNodePoolRequest = Class(TGoogleBaseObject)
- Private
- FnodePool : TNodePool;
- Protected
- //Property setters
- Procedure SetnodePool(AIndex : Integer; const AValue : TNodePool); virtual;
- Public
- Published
- Property nodePool : TNodePool Index 0 Read FnodePool Write SetnodePool;
- end;
- TCreateNodePoolRequestClass = Class of TCreateNodePoolRequest;
-
- { --------------------------------------------------------------------
- TProjectsZonesClustersNodePoolsResource
- --------------------------------------------------------------------}
-
- TProjectsZonesClustersNodePoolsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function List(projectId: string; zone: string; clusterId: string) : TListNodePoolsResponse;
- Function Get(projectId: string; zone: string; clusterId: string; nodePoolId: string) : TNodePool;
- Function Create(projectId: string; zone: string; clusterId: string; aCreateNodePoolRequest : TCreateNodePoolRequest) : TOperation;overload;
- Function Delete(projectId: string; zone: string; clusterId: string; nodePoolId: string) : TOperation;
- end;
-
-
- { --------------------------------------------------------------------
- TProjectsZonesClustersResource
- --------------------------------------------------------------------}
-
- TProjectsZonesClustersResource = Class(TGoogleResource)
- Private
- FNodePoolsInstance : TProjectsZonesClustersNodePoolsResource;
- Function GetNodePoolsInstance : TProjectsZonesClustersNodePoolsResource;virtual;
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function List(projectId: string; zone: string) : TListClustersResponse;
- Function Get(projectId: string; zone: string; clusterId: string) : TCluster;
- Function Create(projectId: string; zone: string; aCreateClusterRequest : TCreateClusterRequest) : TOperation;overload;
- Function Update(projectId: string; zone: string; clusterId: string; aUpdateClusterRequest : TUpdateClusterRequest) : TOperation;
- Function Delete(projectId: string; zone: string; clusterId: string) : TOperation;
- Function CreateNodePoolsResource(AOwner : TComponent) : TProjectsZonesClustersNodePoolsResource;virtual;overload;
- Function CreateNodePoolsResource : TProjectsZonesClustersNodePoolsResource;virtual;overload;
- Property NodePoolsResource : TProjectsZonesClustersNodePoolsResource Read GetNodePoolsInstance;
- end;
-
-
- { --------------------------------------------------------------------
- TProjectsZonesOperationsResource
- --------------------------------------------------------------------}
-
- TProjectsZonesOperationsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function List(projectId: string; zone: string) : TListOperationsResponse;
- Function Get(projectId: string; zone: string; operationId: string) : TOperation;
- end;
-
-
- { --------------------------------------------------------------------
- TProjectsZonesResource
- --------------------------------------------------------------------}
-
- TProjectsZonesResource = Class(TGoogleResource)
- Private
- FClustersNodePoolsInstance : TProjectsZonesClustersNodePoolsResource;
- FClustersInstance : TProjectsZonesClustersResource;
- FOperationsInstance : TProjectsZonesOperationsResource;
- Function GetClustersNodePoolsInstance : TProjectsZonesClustersNodePoolsResource;virtual;
- Function GetClustersInstance : TProjectsZonesClustersResource;virtual;
- Function GetOperationsInstance : TProjectsZonesOperationsResource;virtual;
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function GetServerconfig(projectId: string; zone: string) : TServerConfig;
- Function CreateClustersNodePoolsResource(AOwner : TComponent) : TProjectsZonesClustersNodePoolsResource;virtual;overload;
- Function CreateClustersNodePoolsResource : TProjectsZonesClustersNodePoolsResource;virtual;overload;
- Function CreateClustersResource(AOwner : TComponent) : TProjectsZonesClustersResource;virtual;overload;
- Function CreateClustersResource : TProjectsZonesClustersResource;virtual;overload;
- Function CreateOperationsResource(AOwner : TComponent) : TProjectsZonesOperationsResource;virtual;overload;
- Function CreateOperationsResource : TProjectsZonesOperationsResource;virtual;overload;
- Property ClustersNodePoolsResource : TProjectsZonesClustersNodePoolsResource Read GetClustersNodePoolsInstance;
- Property ClustersResource : TProjectsZonesClustersResource Read GetClustersInstance;
- Property OperationsResource : TProjectsZonesOperationsResource Read GetOperationsInstance;
- end;
-
-
- { --------------------------------------------------------------------
- TProjectsResource
- --------------------------------------------------------------------}
-
- TProjectsResource = Class(TGoogleResource)
- Private
- FZonesClustersNodePoolsInstance : TProjectsZonesClustersNodePoolsResource;
- FZonesClustersInstance : TProjectsZonesClustersResource;
- FZonesOperationsInstance : TProjectsZonesOperationsResource;
- FZonesInstance : TProjectsZonesResource;
- Function GetZonesClustersNodePoolsInstance : TProjectsZonesClustersNodePoolsResource;virtual;
- Function GetZonesClustersInstance : TProjectsZonesClustersResource;virtual;
- Function GetZonesOperationsInstance : TProjectsZonesOperationsResource;virtual;
- Function GetZonesInstance : TProjectsZonesResource;virtual;
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function CreateZonesClustersNodePoolsResource(AOwner : TComponent) : TProjectsZonesClustersNodePoolsResource;virtual;overload;
- Function CreateZonesClustersNodePoolsResource : TProjectsZonesClustersNodePoolsResource;virtual;overload;
- Function CreateZonesClustersResource(AOwner : TComponent) : TProjectsZonesClustersResource;virtual;overload;
- Function CreateZonesClustersResource : TProjectsZonesClustersResource;virtual;overload;
- Function CreateZonesOperationsResource(AOwner : TComponent) : TProjectsZonesOperationsResource;virtual;overload;
- Function CreateZonesOperationsResource : TProjectsZonesOperationsResource;virtual;overload;
- Function CreateZonesResource(AOwner : TComponent) : TProjectsZonesResource;virtual;overload;
- Function CreateZonesResource : TProjectsZonesResource;virtual;overload;
- Property ZonesClustersNodePoolsResource : TProjectsZonesClustersNodePoolsResource Read GetZonesClustersNodePoolsInstance;
- Property ZonesClustersResource : TProjectsZonesClustersResource Read GetZonesClustersInstance;
- Property ZonesOperationsResource : TProjectsZonesOperationsResource Read GetZonesOperationsInstance;
- Property ZonesResource : TProjectsZonesResource Read GetZonesInstance;
- end;
-
-
- { --------------------------------------------------------------------
- TContainerAPI
- --------------------------------------------------------------------}
-
- TContainerAPI = Class(TGoogleAPI)
- Private
- FProjectsZonesClustersNodePoolsInstance : TProjectsZonesClustersNodePoolsResource;
- FProjectsZonesClustersInstance : TProjectsZonesClustersResource;
- FProjectsZonesOperationsInstance : TProjectsZonesOperationsResource;
- FProjectsZonesInstance : TProjectsZonesResource;
- FProjectsInstance : TProjectsResource;
- Function GetProjectsZonesClustersNodePoolsInstance : TProjectsZonesClustersNodePoolsResource;virtual;
- Function GetProjectsZonesClustersInstance : TProjectsZonesClustersResource;virtual;
- Function GetProjectsZonesOperationsInstance : TProjectsZonesOperationsResource;virtual;
- Function GetProjectsZonesInstance : TProjectsZonesResource;virtual;
- Function GetProjectsInstance : TProjectsResource;virtual;
- Public
- //Override class functions with API info
- Class Function APIName : String; override;
- Class Function APIVersion : String; override;
- Class Function APIRevision : String; override;
- Class Function APIID : String; override;
- Class Function APITitle : String; override;
- Class Function APIDescription : String; override;
- Class Function APIOwnerDomain : String; override;
- Class Function APIOwnerName : String; override;
- Class Function APIIcon16 : String; override;
- Class Function APIIcon32 : String; override;
- Class Function APIdocumentationLink : String; override;
- Class Function APIrootUrl : string; override;
- Class Function APIbasePath : string;override;
- Class Function APIbaseURL : String;override;
- Class Function APIProtocol : string;override;
- Class Function APIservicePath : string;override;
- Class Function APIbatchPath : String;override;
- Class Function APIAuthScopes : TScopeInfoArray;override;
- Class Function APINeedsAuth : Boolean;override;
- Class Procedure RegisterAPIResources; override;
- //Add create function for resources
- Function CreateProjectsZonesClustersNodePoolsResource(AOwner : TComponent) : TProjectsZonesClustersNodePoolsResource;virtual;overload;
- Function CreateProjectsZonesClustersNodePoolsResource : TProjectsZonesClustersNodePoolsResource;virtual;overload;
- Function CreateProjectsZonesClustersResource(AOwner : TComponent) : TProjectsZonesClustersResource;virtual;overload;
- Function CreateProjectsZonesClustersResource : TProjectsZonesClustersResource;virtual;overload;
- Function CreateProjectsZonesOperationsResource(AOwner : TComponent) : TProjectsZonesOperationsResource;virtual;overload;
- Function CreateProjectsZonesOperationsResource : TProjectsZonesOperationsResource;virtual;overload;
- Function CreateProjectsZonesResource(AOwner : TComponent) : TProjectsZonesResource;virtual;overload;
- Function CreateProjectsZonesResource : TProjectsZonesResource;virtual;overload;
- Function CreateProjectsResource(AOwner : TComponent) : TProjectsResource;virtual;overload;
- Function CreateProjectsResource : TProjectsResource;virtual;overload;
- //Add default on-demand instances for resources
- Property ProjectsZonesClustersNodePoolsResource : TProjectsZonesClustersNodePoolsResource Read GetProjectsZonesClustersNodePoolsInstance;
- Property ProjectsZonesClustersResource : TProjectsZonesClustersResource Read GetProjectsZonesClustersInstance;
- Property ProjectsZonesOperationsResource : TProjectsZonesOperationsResource Read GetProjectsZonesOperationsInstance;
- Property ProjectsZonesResource : TProjectsZonesResource Read GetProjectsZonesInstance;
- Property ProjectsResource : TProjectsResource Read GetProjectsInstance;
- end;
- implementation
- { --------------------------------------------------------------------
- TListClustersResponse
- --------------------------------------------------------------------}
- Procedure TListClustersResponse.Setclusters(AIndex : Integer; const AValue : TListClustersResponseTypeclustersArray);
- begin
- If (Fclusters=AValue) then exit;
- Fclusters:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TListClustersResponse.SetmissingZones(AIndex : Integer; const AValue : TStringArray);
- begin
- If (FmissingZones=AValue) then exit;
- FmissingZones:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TListClustersResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'clusters' : SetLength(Fclusters,ALength);
- 'missingzones' : SetLength(FmissingZones,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TCluster
- --------------------------------------------------------------------}
- Procedure TCluster.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCluster.Setdescription(AIndex : Integer; const AValue : String);
- begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCluster.SetinitialNodeCount(AIndex : Integer; const AValue : integer);
- begin
- If (FinitialNodeCount=AValue) then exit;
- FinitialNodeCount:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCluster.SetnodeConfig(AIndex : Integer; const AValue : TNodeConfig);
- begin
- If (FnodeConfig=AValue) then exit;
- FnodeConfig:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCluster.SetmasterAuth(AIndex : Integer; const AValue : TMasterAuth);
- begin
- If (FmasterAuth=AValue) then exit;
- FmasterAuth:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCluster.SetloggingService(AIndex : Integer; const AValue : String);
- begin
- If (FloggingService=AValue) then exit;
- FloggingService:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCluster.SetmonitoringService(AIndex : Integer; const AValue : String);
- begin
- If (FmonitoringService=AValue) then exit;
- FmonitoringService:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCluster.Setnetwork(AIndex : Integer; const AValue : String);
- begin
- If (Fnetwork=AValue) then exit;
- Fnetwork:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCluster.SetclusterIpv4Cidr(AIndex : Integer; const AValue : String);
- begin
- If (FclusterIpv4Cidr=AValue) then exit;
- FclusterIpv4Cidr:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCluster.SetaddonsConfig(AIndex : Integer; const AValue : TAddonsConfig);
- begin
- If (FaddonsConfig=AValue) then exit;
- FaddonsConfig:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCluster.Setsubnetwork(AIndex : Integer; const AValue : String);
- begin
- If (Fsubnetwork=AValue) then exit;
- Fsubnetwork:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCluster.SetnodePools(AIndex : Integer; const AValue : TClusterTypenodePoolsArray);
- begin
- If (FnodePools=AValue) then exit;
- FnodePools:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCluster.Setlocations(AIndex : Integer; const AValue : TStringArray);
- begin
- If (Flocations=AValue) then exit;
- Flocations:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCluster.SetselfLink(AIndex : Integer; const AValue : String);
- begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCluster.Setzone(AIndex : Integer; const AValue : String);
- begin
- If (Fzone=AValue) then exit;
- Fzone:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCluster.Setendpoint(AIndex : Integer; const AValue : String);
- begin
- If (Fendpoint=AValue) then exit;
- Fendpoint:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCluster.SetinitialClusterVersion(AIndex : Integer; const AValue : String);
- begin
- If (FinitialClusterVersion=AValue) then exit;
- FinitialClusterVersion:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCluster.SetcurrentMasterVersion(AIndex : Integer; const AValue : String);
- begin
- If (FcurrentMasterVersion=AValue) then exit;
- FcurrentMasterVersion:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCluster.SetcurrentNodeVersion(AIndex : Integer; const AValue : String);
- begin
- If (FcurrentNodeVersion=AValue) then exit;
- FcurrentNodeVersion:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCluster.SetcreateTime(AIndex : Integer; const AValue : String);
- begin
- If (FcreateTime=AValue) then exit;
- FcreateTime:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCluster.Setstatus(AIndex : Integer; const AValue : String);
- begin
- If (Fstatus=AValue) then exit;
- Fstatus:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCluster.SetstatusMessage(AIndex : Integer; const AValue : String);
- begin
- If (FstatusMessage=AValue) then exit;
- FstatusMessage:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCluster.SetnodeIpv4CidrSize(AIndex : Integer; const AValue : integer);
- begin
- If (FnodeIpv4CidrSize=AValue) then exit;
- FnodeIpv4CidrSize:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCluster.SetservicesIpv4Cidr(AIndex : Integer; const AValue : String);
- begin
- If (FservicesIpv4Cidr=AValue) then exit;
- FservicesIpv4Cidr:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCluster.SetinstanceGroupUrls(AIndex : Integer; const AValue : TStringArray);
- begin
- If (FinstanceGroupUrls=AValue) then exit;
- FinstanceGroupUrls:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCluster.SetcurrentNodeCount(AIndex : Integer; const AValue : integer);
- begin
- If (FcurrentNodeCount=AValue) then exit;
- FcurrentNodeCount:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TCluster.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'nodepools' : SetLength(FnodePools,ALength);
- 'locations' : SetLength(Flocations,ALength);
- 'instancegroupurls' : SetLength(FinstanceGroupUrls,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TNodeConfigTypemetadata
- --------------------------------------------------------------------}
- Class Function TNodeConfigTypemetadata.AllowAdditionalProperties : Boolean;
- begin
- Result:=True;
- end;
- { --------------------------------------------------------------------
- TNodeConfig
- --------------------------------------------------------------------}
- Procedure TNodeConfig.SetmachineType(AIndex : Integer; const AValue : String);
- begin
- If (FmachineType=AValue) then exit;
- FmachineType:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TNodeConfig.SetdiskSizeGb(AIndex : Integer; const AValue : integer);
- begin
- If (FdiskSizeGb=AValue) then exit;
- FdiskSizeGb:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TNodeConfig.SetoauthScopes(AIndex : Integer; const AValue : TStringArray);
- begin
- If (FoauthScopes=AValue) then exit;
- FoauthScopes:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TNodeConfig.Setmetadata(AIndex : Integer; const AValue : TNodeConfigTypemetadata);
- begin
- If (Fmetadata=AValue) then exit;
- Fmetadata:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TNodeConfig.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'oauthscopes' : SetLength(FoauthScopes,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TMasterAuth
- --------------------------------------------------------------------}
- Procedure TMasterAuth.Setusername(AIndex : Integer; const AValue : String);
- begin
- If (Fusername=AValue) then exit;
- Fusername:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMasterAuth.Setpassword(AIndex : Integer; const AValue : String);
- begin
- If (Fpassword=AValue) then exit;
- Fpassword:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMasterAuth.SetclusterCaCertificate(AIndex : Integer; const AValue : String);
- begin
- If (FclusterCaCertificate=AValue) then exit;
- FclusterCaCertificate:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMasterAuth.SetclientCertificate(AIndex : Integer; const AValue : String);
- begin
- If (FclientCertificate=AValue) then exit;
- FclientCertificate:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMasterAuth.SetclientKey(AIndex : Integer; const AValue : String);
- begin
- If (FclientKey=AValue) then exit;
- FclientKey:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TAddonsConfig
- --------------------------------------------------------------------}
- Procedure TAddonsConfig.SethttpLoadBalancing(AIndex : Integer; const AValue : THttpLoadBalancing);
- begin
- If (FhttpLoadBalancing=AValue) then exit;
- FhttpLoadBalancing:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAddonsConfig.SethorizontalPodAutoscaling(AIndex : Integer; const AValue : THorizontalPodAutoscaling);
- begin
- If (FhorizontalPodAutoscaling=AValue) then exit;
- FhorizontalPodAutoscaling:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- THttpLoadBalancing
- --------------------------------------------------------------------}
- Procedure THttpLoadBalancing.Setdisabled(AIndex : Integer; const AValue : boolean);
- begin
- If (Fdisabled=AValue) then exit;
- Fdisabled:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- THorizontalPodAutoscaling
- --------------------------------------------------------------------}
- Procedure THorizontalPodAutoscaling.Setdisabled(AIndex : Integer; const AValue : boolean);
- begin
- If (Fdisabled=AValue) then exit;
- Fdisabled:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TNodePool
- --------------------------------------------------------------------}
- Procedure TNodePool.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TNodePool.Setconfig(AIndex : Integer; const AValue : TNodeConfig);
- begin
- If (Fconfig=AValue) then exit;
- Fconfig:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TNodePool.SetinitialNodeCount(AIndex : Integer; const AValue : integer);
- begin
- If (FinitialNodeCount=AValue) then exit;
- FinitialNodeCount:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TNodePool.SetselfLink(AIndex : Integer; const AValue : String);
- begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TNodePool.Setversion(AIndex : Integer; const AValue : String);
- begin
- If (Fversion=AValue) then exit;
- Fversion:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TNodePool.SetinstanceGroupUrls(AIndex : Integer; const AValue : TStringArray);
- begin
- If (FinstanceGroupUrls=AValue) then exit;
- FinstanceGroupUrls:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TNodePool.Setstatus(AIndex : Integer; const AValue : String);
- begin
- If (Fstatus=AValue) then exit;
- Fstatus:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TNodePool.SetstatusMessage(AIndex : Integer; const AValue : String);
- begin
- If (FstatusMessage=AValue) then exit;
- FstatusMessage:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TNodePool.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'instancegroupurls' : SetLength(FinstanceGroupUrls,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TCreateClusterRequest
- --------------------------------------------------------------------}
- Procedure TCreateClusterRequest.Setcluster(AIndex : Integer; const AValue : TCluster);
- begin
- If (Fcluster=AValue) then exit;
- Fcluster:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TOperation
- --------------------------------------------------------------------}
- Procedure TOperation.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TOperation.Setzone(AIndex : Integer; const AValue : String);
- begin
- If (Fzone=AValue) then exit;
- Fzone:=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.Setstatus(AIndex : Integer; const AValue : String);
- begin
- If (Fstatus=AValue) then exit;
- Fstatus:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TOperation.Setdetail(AIndex : Integer; const AValue : String);
- begin
- If (Fdetail=AValue) then exit;
- Fdetail:=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.SetselfLink(AIndex : Integer; const AValue : String);
- begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TOperation.SettargetLink(AIndex : Integer; const AValue : String);
- begin
- If (FtargetLink=AValue) then exit;
- FtargetLink:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TUpdateClusterRequest
- --------------------------------------------------------------------}
- Procedure TUpdateClusterRequest.Setupdate(AIndex : Integer; const AValue : TClusterUpdate);
- begin
- If (Fupdate=AValue) then exit;
- Fupdate:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TClusterUpdate
- --------------------------------------------------------------------}
- Procedure TClusterUpdate.SetdesiredNodeVersion(AIndex : Integer; const AValue : String);
- begin
- If (FdesiredNodeVersion=AValue) then exit;
- FdesiredNodeVersion:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TClusterUpdate.SetdesiredMonitoringService(AIndex : Integer; const AValue : String);
- begin
- If (FdesiredMonitoringService=AValue) then exit;
- FdesiredMonitoringService:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TClusterUpdate.SetdesiredAddonsConfig(AIndex : Integer; const AValue : TAddonsConfig);
- begin
- If (FdesiredAddonsConfig=AValue) then exit;
- FdesiredAddonsConfig:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TClusterUpdate.SetdesiredNodePoolId(AIndex : Integer; const AValue : String);
- begin
- If (FdesiredNodePoolId=AValue) then exit;
- FdesiredNodePoolId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TClusterUpdate.SetdesiredMasterVersion(AIndex : Integer; const AValue : String);
- begin
- If (FdesiredMasterVersion=AValue) then exit;
- FdesiredMasterVersion:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TListOperationsResponse
- --------------------------------------------------------------------}
- Procedure TListOperationsResponse.Setoperations(AIndex : Integer; const AValue : TListOperationsResponseTypeoperationsArray);
- begin
- If (Foperations=AValue) then exit;
- Foperations:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TListOperationsResponse.SetmissingZones(AIndex : Integer; const AValue : TStringArray);
- begin
- If (FmissingZones=AValue) then exit;
- FmissingZones:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TListOperationsResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'operations' : SetLength(Foperations,ALength);
- 'missingzones' : SetLength(FmissingZones,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TServerConfig
- --------------------------------------------------------------------}
- Procedure TServerConfig.SetdefaultClusterVersion(AIndex : Integer; const AValue : String);
- begin
- If (FdefaultClusterVersion=AValue) then exit;
- FdefaultClusterVersion:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TServerConfig.SetvalidNodeVersions(AIndex : Integer; const AValue : TStringArray);
- begin
- If (FvalidNodeVersions=AValue) then exit;
- FvalidNodeVersions:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TServerConfig.SetdefaultImageFamily(AIndex : Integer; const AValue : String);
- begin
- If (FdefaultImageFamily=AValue) then exit;
- FdefaultImageFamily:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TServerConfig.SetvalidImageFamilies(AIndex : Integer; const AValue : TStringArray);
- begin
- If (FvalidImageFamilies=AValue) then exit;
- FvalidImageFamilies:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TServerConfig.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'validnodeversions' : SetLength(FvalidNodeVersions,ALength);
- 'validimagefamilies' : SetLength(FvalidImageFamilies,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TListNodePoolsResponse
- --------------------------------------------------------------------}
- Procedure TListNodePoolsResponse.SetnodePools(AIndex : Integer; const AValue : TListNodePoolsResponseTypenodePoolsArray);
- begin
- If (FnodePools=AValue) then exit;
- FnodePools:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TListNodePoolsResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'nodepools' : SetLength(FnodePools,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TCreateNodePoolRequest
- --------------------------------------------------------------------}
- Procedure TCreateNodePoolRequest.SetnodePool(AIndex : Integer; const AValue : TNodePool);
- begin
- If (FnodePool=AValue) then exit;
- FnodePool:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TProjectsZonesClustersNodePoolsResource
- --------------------------------------------------------------------}
- Class Function TProjectsZonesClustersNodePoolsResource.ResourceName : String;
- begin
- Result:='nodePools';
- end;
- Class Function TProjectsZonesClustersNodePoolsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TcontainerAPI;
- end;
- Function TProjectsZonesClustersNodePoolsResource.List(projectId: string; zone: string; clusterId: string) : TListNodePoolsResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'v1/projects/{projectId}/zones/{zone}/clusters/{clusterId}/nodePools';
- _Methodid = 'container.projects.zones.clusters.nodePools.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['projectId',projectId,'zone',zone,'clusterId',clusterId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListNodePoolsResponse) as TListNodePoolsResponse;
- end;
- Function TProjectsZonesClustersNodePoolsResource.Get(projectId: string; zone: string; clusterId: string; nodePoolId: string) : TNodePool;
- Const
- _HTTPMethod = 'GET';
- _Path = 'v1/projects/{projectId}/zones/{zone}/clusters/{clusterId}/nodePools/{nodePoolId}';
- _Methodid = 'container.projects.zones.clusters.nodePools.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['projectId',projectId,'zone',zone,'clusterId',clusterId,'nodePoolId',nodePoolId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TNodePool) as TNodePool;
- end;
- Function TProjectsZonesClustersNodePoolsResource.Create(projectId: string; zone: string; clusterId: string; aCreateNodePoolRequest : TCreateNodePoolRequest) : TOperation;
- Const
- _HTTPMethod = 'POST';
- _Path = 'v1/projects/{projectId}/zones/{zone}/clusters/{clusterId}/nodePools';
- _Methodid = 'container.projects.zones.clusters.nodePools.create';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['projectId',projectId,'zone',zone,'clusterId',clusterId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aCreateNodePoolRequest,TOperation) as TOperation;
- end;
- Function TProjectsZonesClustersNodePoolsResource.Delete(projectId: string; zone: string; clusterId: string; nodePoolId: string) : TOperation;
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'v1/projects/{projectId}/zones/{zone}/clusters/{clusterId}/nodePools/{nodePoolId}';
- _Methodid = 'container.projects.zones.clusters.nodePools.delete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['projectId',projectId,'zone',zone,'clusterId',clusterId,'nodePoolId',nodePoolId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
- end;
- { --------------------------------------------------------------------
- TProjectsZonesClustersResource
- --------------------------------------------------------------------}
- Class Function TProjectsZonesClustersResource.ResourceName : String;
- begin
- Result:='clusters';
- end;
- Class Function TProjectsZonesClustersResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TcontainerAPI;
- end;
- Function TProjectsZonesClustersResource.List(projectId: string; zone: string) : TListClustersResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'v1/projects/{projectId}/zones/{zone}/clusters';
- _Methodid = 'container.projects.zones.clusters.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['projectId',projectId,'zone',zone]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListClustersResponse) as TListClustersResponse;
- end;
- Function TProjectsZonesClustersResource.Get(projectId: string; zone: string; clusterId: string) : TCluster;
- Const
- _HTTPMethod = 'GET';
- _Path = 'v1/projects/{projectId}/zones/{zone}/clusters/{clusterId}';
- _Methodid = 'container.projects.zones.clusters.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['projectId',projectId,'zone',zone,'clusterId',clusterId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TCluster) as TCluster;
- end;
- Function TProjectsZonesClustersResource.Create(projectId: string; zone: string; aCreateClusterRequest : TCreateClusterRequest) : TOperation;
- Const
- _HTTPMethod = 'POST';
- _Path = 'v1/projects/{projectId}/zones/{zone}/clusters';
- _Methodid = 'container.projects.zones.clusters.create';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['projectId',projectId,'zone',zone]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aCreateClusterRequest,TOperation) as TOperation;
- end;
- Function TProjectsZonesClustersResource.Update(projectId: string; zone: string; clusterId: string; aUpdateClusterRequest : TUpdateClusterRequest) : TOperation;
- Const
- _HTTPMethod = 'PUT';
- _Path = 'v1/projects/{projectId}/zones/{zone}/clusters/{clusterId}';
- _Methodid = 'container.projects.zones.clusters.update';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['projectId',projectId,'zone',zone,'clusterId',clusterId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aUpdateClusterRequest,TOperation) as TOperation;
- end;
- Function TProjectsZonesClustersResource.Delete(projectId: string; zone: string; clusterId: string) : TOperation;
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'v1/projects/{projectId}/zones/{zone}/clusters/{clusterId}';
- _Methodid = 'container.projects.zones.clusters.delete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['projectId',projectId,'zone',zone,'clusterId',clusterId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
- end;
- Function TProjectsZonesClustersResource.GetNodePoolsInstance : TProjectsZonesClustersNodePoolsResource;
- begin
- if (FNodePoolsInstance=Nil) then
- FNodePoolsInstance:=CreateNodePoolsResource;
- Result:=FNodePoolsInstance;
- end;
- Function TProjectsZonesClustersResource.CreateNodePoolsResource : TProjectsZonesClustersNodePoolsResource;
- begin
- Result:=CreateNodePoolsResource(Self);
- end;
- Function TProjectsZonesClustersResource.CreateNodePoolsResource(AOwner : TComponent) : TProjectsZonesClustersNodePoolsResource;
- begin
- Result:=TProjectsZonesClustersNodePoolsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- { --------------------------------------------------------------------
- TProjectsZonesOperationsResource
- --------------------------------------------------------------------}
- Class Function TProjectsZonesOperationsResource.ResourceName : String;
- begin
- Result:='operations';
- end;
- Class Function TProjectsZonesOperationsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TcontainerAPI;
- end;
- Function TProjectsZonesOperationsResource.List(projectId: string; zone: string) : TListOperationsResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'v1/projects/{projectId}/zones/{zone}/operations';
- _Methodid = 'container.projects.zones.operations.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['projectId',projectId,'zone',zone]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListOperationsResponse) as TListOperationsResponse;
- end;
- Function TProjectsZonesOperationsResource.Get(projectId: string; zone: string; operationId: string) : TOperation;
- Const
- _HTTPMethod = 'GET';
- _Path = 'v1/projects/{projectId}/zones/{zone}/operations/{operationId}';
- _Methodid = 'container.projects.zones.operations.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['projectId',projectId,'zone',zone,'operationId',operationId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TOperation) as TOperation;
- end;
- { --------------------------------------------------------------------
- TProjectsZonesResource
- --------------------------------------------------------------------}
- Class Function TProjectsZonesResource.ResourceName : String;
- begin
- Result:='zones';
- end;
- Class Function TProjectsZonesResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TcontainerAPI;
- end;
- Function TProjectsZonesResource.GetServerconfig(projectId: string; zone: string) : TServerConfig;
- Const
- _HTTPMethod = 'GET';
- _Path = 'v1/projects/{projectId}/zones/{zone}/serverconfig';
- _Methodid = 'container.projects.zones.getServerconfig';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['projectId',projectId,'zone',zone]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TServerConfig) as TServerConfig;
- end;
- Function TProjectsZonesResource.GetClustersNodePoolsInstance : TProjectsZonesClustersNodePoolsResource;
- begin
- if (FClustersNodePoolsInstance=Nil) then
- FClustersNodePoolsInstance:=CreateClustersNodePoolsResource;
- Result:=FClustersNodePoolsInstance;
- end;
- Function TProjectsZonesResource.CreateClustersNodePoolsResource : TProjectsZonesClustersNodePoolsResource;
- begin
- Result:=CreateClustersNodePoolsResource(Self);
- end;
- Function TProjectsZonesResource.CreateClustersNodePoolsResource(AOwner : TComponent) : TProjectsZonesClustersNodePoolsResource;
- begin
- Result:=TProjectsZonesClustersNodePoolsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TProjectsZonesResource.GetClustersInstance : TProjectsZonesClustersResource;
- begin
- if (FClustersInstance=Nil) then
- FClustersInstance:=CreateClustersResource;
- Result:=FClustersInstance;
- end;
- Function TProjectsZonesResource.CreateClustersResource : TProjectsZonesClustersResource;
- begin
- Result:=CreateClustersResource(Self);
- end;
- Function TProjectsZonesResource.CreateClustersResource(AOwner : TComponent) : TProjectsZonesClustersResource;
- begin
- Result:=TProjectsZonesClustersResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TProjectsZonesResource.GetOperationsInstance : TProjectsZonesOperationsResource;
- begin
- if (FOperationsInstance=Nil) then
- FOperationsInstance:=CreateOperationsResource;
- Result:=FOperationsInstance;
- end;
- Function TProjectsZonesResource.CreateOperationsResource : TProjectsZonesOperationsResource;
- begin
- Result:=CreateOperationsResource(Self);
- end;
- Function TProjectsZonesResource.CreateOperationsResource(AOwner : TComponent) : TProjectsZonesOperationsResource;
- begin
- Result:=TProjectsZonesOperationsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- { --------------------------------------------------------------------
- TProjectsResource
- --------------------------------------------------------------------}
- Class Function TProjectsResource.ResourceName : String;
- begin
- Result:='projects';
- end;
- Class Function TProjectsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TcontainerAPI;
- end;
- Function TProjectsResource.GetZonesClustersNodePoolsInstance : TProjectsZonesClustersNodePoolsResource;
- begin
- if (FZonesClustersNodePoolsInstance=Nil) then
- FZonesClustersNodePoolsInstance:=CreateZonesClustersNodePoolsResource;
- Result:=FZonesClustersNodePoolsInstance;
- end;
- Function TProjectsResource.CreateZonesClustersNodePoolsResource : TProjectsZonesClustersNodePoolsResource;
- begin
- Result:=CreateZonesClustersNodePoolsResource(Self);
- end;
- Function TProjectsResource.CreateZonesClustersNodePoolsResource(AOwner : TComponent) : TProjectsZonesClustersNodePoolsResource;
- begin
- Result:=TProjectsZonesClustersNodePoolsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TProjectsResource.GetZonesClustersInstance : TProjectsZonesClustersResource;
- begin
- if (FZonesClustersInstance=Nil) then
- FZonesClustersInstance:=CreateZonesClustersResource;
- Result:=FZonesClustersInstance;
- end;
- Function TProjectsResource.CreateZonesClustersResource : TProjectsZonesClustersResource;
- begin
- Result:=CreateZonesClustersResource(Self);
- end;
- Function TProjectsResource.CreateZonesClustersResource(AOwner : TComponent) : TProjectsZonesClustersResource;
- begin
- Result:=TProjectsZonesClustersResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TProjectsResource.GetZonesOperationsInstance : TProjectsZonesOperationsResource;
- begin
- if (FZonesOperationsInstance=Nil) then
- FZonesOperationsInstance:=CreateZonesOperationsResource;
- Result:=FZonesOperationsInstance;
- end;
- Function TProjectsResource.CreateZonesOperationsResource : TProjectsZonesOperationsResource;
- begin
- Result:=CreateZonesOperationsResource(Self);
- end;
- Function TProjectsResource.CreateZonesOperationsResource(AOwner : TComponent) : TProjectsZonesOperationsResource;
- begin
- Result:=TProjectsZonesOperationsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TProjectsResource.GetZonesInstance : TProjectsZonesResource;
- begin
- if (FZonesInstance=Nil) then
- FZonesInstance:=CreateZonesResource;
- Result:=FZonesInstance;
- end;
- Function TProjectsResource.CreateZonesResource : TProjectsZonesResource;
- begin
- Result:=CreateZonesResource(Self);
- end;
- Function TProjectsResource.CreateZonesResource(AOwner : TComponent) : TProjectsZonesResource;
- begin
- Result:=TProjectsZonesResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- { --------------------------------------------------------------------
- TContainerAPI
- --------------------------------------------------------------------}
- Class Function TContainerAPI.APIName : String;
- begin
- Result:='container';
- end;
- Class Function TContainerAPI.APIVersion : String;
- begin
- Result:='v1';
- end;
- Class Function TContainerAPI.APIRevision : String;
- begin
- Result:='20160421';
- end;
- Class Function TContainerAPI.APIID : String;
- begin
- Result:='container:v1';
- end;
- Class Function TContainerAPI.APITitle : String;
- begin
- Result:='Google Container Engine API';
- end;
- Class Function TContainerAPI.APIDescription : String;
- begin
- Result:='Builds and manages clusters that run container-based applications, powered by open source Kubernetes technology.';
- end;
- Class Function TContainerAPI.APIOwnerDomain : String;
- begin
- Result:='google.com';
- end;
- Class Function TContainerAPI.APIOwnerName : String;
- begin
- Result:='Google';
- end;
- Class Function TContainerAPI.APIIcon16 : String;
- begin
- Result:='http://www.google.com/images/icons/product/search-16.gif';
- end;
- Class Function TContainerAPI.APIIcon32 : String;
- begin
- Result:='http://www.google.com/images/icons/product/search-32.gif';
- end;
- Class Function TContainerAPI.APIdocumentationLink : String;
- begin
- Result:='https://cloud.google.com/container-engine/';
- end;
- Class Function TContainerAPI.APIrootUrl : string;
- begin
- Result:='https://container.googleapis.com/';
- end;
- Class Function TContainerAPI.APIbasePath : string;
- begin
- Result:='';
- end;
- Class Function TContainerAPI.APIbaseURL : String;
- begin
- Result:='https://container.googleapis.com/';
- end;
- Class Function TContainerAPI.APIProtocol : string;
- begin
- Result:='rest';
- end;
- Class Function TContainerAPI.APIservicePath : string;
- begin
- Result:='';
- end;
- Class Function TContainerAPI.APIbatchPath : String;
- begin
- Result:='batch';
- end;
- Class Function TContainerAPI.APIAuthScopes : TScopeInfoArray;
- begin
- SetLength(Result,1);
- Result[0].Name:='https://www.googleapis.com/auth/cloud-platform';
- Result[0].Description:='View and manage your data across Google Cloud Platform services';
-
- end;
- Class Function TContainerAPI.APINeedsAuth : Boolean;
- begin
- Result:=True;
- end;
- Class Procedure TContainerAPI.RegisterAPIResources;
- begin
- TListClustersResponse.RegisterObject;
- TCluster.RegisterObject;
- TNodeConfigTypemetadata.RegisterObject;
- TNodeConfig.RegisterObject;
- TMasterAuth.RegisterObject;
- TAddonsConfig.RegisterObject;
- THttpLoadBalancing.RegisterObject;
- THorizontalPodAutoscaling.RegisterObject;
- TNodePool.RegisterObject;
- TCreateClusterRequest.RegisterObject;
- TOperation.RegisterObject;
- TUpdateClusterRequest.RegisterObject;
- TClusterUpdate.RegisterObject;
- TListOperationsResponse.RegisterObject;
- TServerConfig.RegisterObject;
- TListNodePoolsResponse.RegisterObject;
- TCreateNodePoolRequest.RegisterObject;
- end;
- Function TContainerAPI.GetProjectsZonesClustersNodePoolsInstance : TProjectsZonesClustersNodePoolsResource;
- begin
- if (FProjectsZonesClustersNodePoolsInstance=Nil) then
- FProjectsZonesClustersNodePoolsInstance:=CreateProjectsZonesClustersNodePoolsResource;
- Result:=FProjectsZonesClustersNodePoolsInstance;
- end;
- Function TContainerAPI.CreateProjectsZonesClustersNodePoolsResource : TProjectsZonesClustersNodePoolsResource;
- begin
- Result:=CreateProjectsZonesClustersNodePoolsResource(Self);
- end;
- Function TContainerAPI.CreateProjectsZonesClustersNodePoolsResource(AOwner : TComponent) : TProjectsZonesClustersNodePoolsResource;
- begin
- Result:=TProjectsZonesClustersNodePoolsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TContainerAPI.GetProjectsZonesClustersInstance : TProjectsZonesClustersResource;
- begin
- if (FProjectsZonesClustersInstance=Nil) then
- FProjectsZonesClustersInstance:=CreateProjectsZonesClustersResource;
- Result:=FProjectsZonesClustersInstance;
- end;
- Function TContainerAPI.CreateProjectsZonesClustersResource : TProjectsZonesClustersResource;
- begin
- Result:=CreateProjectsZonesClustersResource(Self);
- end;
- Function TContainerAPI.CreateProjectsZonesClustersResource(AOwner : TComponent) : TProjectsZonesClustersResource;
- begin
- Result:=TProjectsZonesClustersResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TContainerAPI.GetProjectsZonesOperationsInstance : TProjectsZonesOperationsResource;
- begin
- if (FProjectsZonesOperationsInstance=Nil) then
- FProjectsZonesOperationsInstance:=CreateProjectsZonesOperationsResource;
- Result:=FProjectsZonesOperationsInstance;
- end;
- Function TContainerAPI.CreateProjectsZonesOperationsResource : TProjectsZonesOperationsResource;
- begin
- Result:=CreateProjectsZonesOperationsResource(Self);
- end;
- Function TContainerAPI.CreateProjectsZonesOperationsResource(AOwner : TComponent) : TProjectsZonesOperationsResource;
- begin
- Result:=TProjectsZonesOperationsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TContainerAPI.GetProjectsZonesInstance : TProjectsZonesResource;
- begin
- if (FProjectsZonesInstance=Nil) then
- FProjectsZonesInstance:=CreateProjectsZonesResource;
- Result:=FProjectsZonesInstance;
- end;
- Function TContainerAPI.CreateProjectsZonesResource : TProjectsZonesResource;
- begin
- Result:=CreateProjectsZonesResource(Self);
- end;
- Function TContainerAPI.CreateProjectsZonesResource(AOwner : TComponent) : TProjectsZonesResource;
- begin
- Result:=TProjectsZonesResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TContainerAPI.GetProjectsInstance : TProjectsResource;
- begin
- if (FProjectsInstance=Nil) then
- FProjectsInstance:=CreateProjectsResource;
- Result:=FProjectsInstance;
- end;
- Function TContainerAPI.CreateProjectsResource : TProjectsResource;
- begin
- Result:=CreateProjectsResource(Self);
- end;
- Function TContainerAPI.CreateProjectsResource(AOwner : TComponent) : TProjectsResource;
- begin
- Result:=TProjectsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- initialization
- TContainerAPI.RegisterAPI;
- end.
|