123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273327432753276327732783279328032813282328332843285328632873288328932903291329232933294329532963297329832993300330133023303330433053306330733083309331033113312331333143315331633173318331933203321332233233324332533263327332833293330333133323333333433353336333733383339334033413342334333443345334633473348334933503351335233533354335533563357335833593360336133623363336433653366336733683369337033713372337333743375337633773378337933803381338233833384338533863387338833893390339133923393339433953396339733983399340034013402340334043405340634073408340934103411341234133414341534163417341834193420342134223423342434253426342734283429343034313432343334343435343634373438343934403441344234433444344534463447344834493450345134523453345434553456345734583459346034613462346334643465346634673468346934703471347234733474347534763477347834793480348134823483348434853486348734883489349034913492349334943495349634973498349935003501350235033504350535063507350835093510351135123513351435153516351735183519352035213522352335243525352635273528352935303531353235333534353535363537353835393540354135423543354435453546354735483549355035513552355335543555355635573558355935603561356235633564356535663567356835693570357135723573357435753576357735783579358035813582358335843585358635873588358935903591359235933594359535963597359835993600360136023603360436053606360736083609361036113612361336143615361636173618361936203621362236233624362536263627362836293630363136323633363436353636363736383639364036413642364336443645364636473648364936503651365236533654365536563657365836593660366136623663366436653666366736683669367036713672367336743675367636773678367936803681368236833684368536863687368836893690369136923693369436953696369736983699370037013702370337043705370637073708370937103711371237133714371537163717371837193720372137223723372437253726372737283729373037313732373337343735373637373738373937403741374237433744374537463747374837493750375137523753375437553756375737583759376037613762376337643765376637673768376937703771377237733774377537763777377837793780378137823783378437853786378737883789379037913792379337943795379637973798379938003801380238033804380538063807380838093810381138123813381438153816381738183819382038213822382338243825382638273828382938303831383238333834383538363837383838393840384138423843384438453846384738483849385038513852385338543855385638573858385938603861386238633864386538663867386838693870387138723873387438753876387738783879388038813882388338843885388638873888388938903891389238933894389538963897389838993900390139023903390439053906390739083909391039113912391339143915391639173918391939203921392239233924392539263927392839293930393139323933393439353936393739383939394039413942394339443945394639473948394939503951395239533954395539563957395839593960396139623963396439653966396739683969397039713972397339743975397639773978397939803981398239833984398539863987398839893990399139923993399439953996399739983999400040014002400340044005400640074008400940104011401240134014401540164017401840194020402140224023402440254026402740284029403040314032403340344035403640374038403940404041404240434044404540464047404840494050405140524053405440554056405740584059406040614062406340644065406640674068406940704071407240734074407540764077407840794080408140824083408440854086408740884089409040914092409340944095409640974098409941004101410241034104410541064107410841094110411141124113411441154116411741184119412041214122412341244125412641274128412941304131413241334134413541364137413841394140414141424143414441454146414741484149415041514152415341544155415641574158415941604161416241634164416541664167416841694170417141724173417441754176417741784179418041814182418341844185418641874188418941904191419241934194419541964197419841994200420142024203420442054206420742084209421042114212421342144215421642174218421942204221422242234224422542264227422842294230423142324233423442354236423742384239424042414242424342444245424642474248424942504251425242534254425542564257425842594260426142624263426442654266426742684269427042714272427342744275427642774278427942804281428242834284428542864287428842894290429142924293429442954296429742984299430043014302430343044305430643074308430943104311431243134314431543164317431843194320432143224323432443254326432743284329433043314332433343344335433643374338433943404341434243434344434543464347434843494350435143524353435443554356435743584359436043614362436343644365436643674368436943704371437243734374437543764377437843794380438143824383438443854386438743884389439043914392439343944395439643974398439944004401440244034404440544064407440844094410441144124413441444154416441744184419442044214422442344244425442644274428442944304431443244334434443544364437443844394440444144424443444444454446444744484449445044514452445344544455445644574458445944604461446244634464446544664467446844694470447144724473447444754476447744784479448044814482448344844485448644874488448944904491449244934494449544964497449844994500450145024503450445054506450745084509451045114512451345144515451645174518451945204521452245234524452545264527452845294530453145324533453445354536453745384539454045414542454345444545454645474548454945504551455245534554455545564557455845594560456145624563456445654566456745684569457045714572457345744575457645774578457945804581458245834584458545864587458845894590459145924593459445954596459745984599460046014602460346044605460646074608460946104611461246134614461546164617461846194620462146224623462446254626462746284629463046314632463346344635463646374638463946404641464246434644464546464647464846494650465146524653465446554656465746584659466046614662466346644665466646674668466946704671467246734674467546764677467846794680468146824683468446854686468746884689469046914692469346944695469646974698469947004701470247034704470547064707470847094710471147124713471447154716471747184719472047214722472347244725472647274728472947304731473247334734473547364737473847394740474147424743474447454746474747484749475047514752475347544755475647574758475947604761476247634764476547664767476847694770477147724773477447754776477747784779478047814782478347844785478647874788478947904791479247934794479547964797479847994800480148024803480448054806480748084809481048114812481348144815481648174818481948204821482248234824482548264827482848294830483148324833483448354836483748384839484048414842484348444845484648474848484948504851485248534854485548564857485848594860486148624863486448654866486748684869487048714872487348744875487648774878487948804881488248834884488548864887488848894890489148924893489448954896489748984899490049014902490349044905490649074908490949104911491249134914491549164917491849194920492149224923492449254926492749284929493049314932493349344935493649374938493949404941494249434944494549464947494849494950495149524953495449554956495749584959496049614962496349644965496649674968496949704971497249734974497549764977497849794980498149824983498449854986498749884989499049914992499349944995499649974998499950005001500250035004500550065007500850095010501150125013501450155016501750185019502050215022502350245025502650275028502950305031503250335034503550365037503850395040504150425043504450455046504750485049505050515052505350545055505650575058505950605061506250635064506550665067506850695070507150725073507450755076507750785079508050815082508350845085508650875088508950905091509250935094509550965097509850995100510151025103510451055106510751085109511051115112511351145115511651175118511951205121512251235124512551265127512851295130513151325133513451355136513751385139514051415142514351445145514651475148514951505151515251535154515551565157515851595160516151625163516451655166516751685169517051715172517351745175517651775178517951805181518251835184518551865187518851895190519151925193519451955196519751985199520052015202520352045205520652075208520952105211521252135214521552165217521852195220522152225223522452255226522752285229523052315232523352345235523652375238523952405241524252435244524552465247524852495250525152525253525452555256525752585259526052615262526352645265526652675268526952705271527252735274527552765277527852795280528152825283528452855286528752885289529052915292529352945295529652975298529953005301530253035304530553065307530853095310531153125313531453155316531753185319532053215322532353245325532653275328532953305331533253335334533553365337533853395340534153425343534453455346534753485349535053515352535353545355535653575358535953605361536253635364536553665367536853695370537153725373537453755376537753785379538053815382538353845385538653875388538953905391539253935394539553965397539853995400540154025403540454055406540754085409541054115412541354145415541654175418541954205421542254235424542554265427542854295430543154325433543454355436543754385439544054415442544354445445544654475448544954505451545254535454545554565457545854595460546154625463546454655466546754685469547054715472547354745475547654775478547954805481548254835484548554865487548854895490549154925493549454955496549754985499550055015502550355045505550655075508550955105511551255135514551555165517551855195520552155225523552455255526552755285529553055315532553355345535553655375538553955405541554255435544554555465547554855495550555155525553555455555556555755585559556055615562556355645565556655675568556955705571557255735574557555765577557855795580558155825583558455855586558755885589559055915592559355945595559655975598559956005601560256035604560556065607560856095610561156125613561456155616561756185619562056215622562356245625562656275628562956305631563256335634563556365637563856395640564156425643564456455646564756485649565056515652565356545655565656575658565956605661566256635664566556665667566856695670567156725673567456755676567756785679568056815682568356845685568656875688568956905691569256935694569556965697569856995700570157025703570457055706570757085709571057115712571357145715571657175718571957205721572257235724572557265727572857295730573157325733573457355736573757385739574057415742574357445745574657475748574957505751575257535754575557565757575857595760576157625763576457655766576757685769577057715772577357745775577657775778577957805781578257835784578557865787578857895790579157925793579457955796579757985799580058015802580358045805580658075808580958105811581258135814581558165817581858195820582158225823582458255826582758285829583058315832583358345835583658375838583958405841584258435844584558465847584858495850585158525853585458555856585758585859586058615862586358645865586658675868586958705871587258735874587558765877587858795880588158825883588458855886588758885889589058915892589358945895589658975898589959005901590259035904590559065907590859095910591159125913591459155916591759185919592059215922592359245925592659275928592959305931593259335934593559365937593859395940594159425943594459455946594759485949 |
- unit googletagmanager;
- {$MODE objfpc}
- {$H+}
- interface
- uses sysutils, classes, googleservice, restbase, googlebase;
- type
-
- //Top-level schema types
- TAccount = Class;
- TAccountAccess = Class;
- TCondition = Class;
- TContainer = Class;
- TContainerAccess = Class;
- TContainerVersion = Class;
- TContainerVersionHeader = Class;
- TCreateContainerVersionRequestVersionOptions = Class;
- TCreateContainerVersionResponse = Class;
- TEnvironment = Class;
- TFolder = Class;
- TFolderEntities = Class;
- TListAccountUsersResponse = Class;
- TListAccountsResponse = Class;
- TListContainerVersionsResponse = Class;
- TListContainersResponse = Class;
- TListEnvironmentsResponse = Class;
- TListFoldersResponse = Class;
- TListTagsResponse = Class;
- TListTriggersResponse = Class;
- TListVariablesResponse = Class;
- TMacro = Class;
- TParameter = Class;
- TPublishContainerVersionResponse = Class;
- TRule = Class;
- TSetupTag = Class;
- TTag = Class;
- TTeardownTag = Class;
- TTrigger = Class;
- TUserAccess = Class;
- TVariable = Class;
- TAccountArray = Array of TAccount;
- TAccountAccessArray = Array of TAccountAccess;
- TConditionArray = Array of TCondition;
- TContainerArray = Array of TContainer;
- TContainerAccessArray = Array of TContainerAccess;
- TContainerVersionArray = Array of TContainerVersion;
- TContainerVersionHeaderArray = Array of TContainerVersionHeader;
- TCreateContainerVersionRequestVersionOptionsArray = Array of TCreateContainerVersionRequestVersionOptions;
- TCreateContainerVersionResponseArray = Array of TCreateContainerVersionResponse;
- TEnvironmentArray = Array of TEnvironment;
- TFolderArray = Array of TFolder;
- TFolderEntitiesArray = Array of TFolderEntities;
- TListAccountUsersResponseArray = Array of TListAccountUsersResponse;
- TListAccountsResponseArray = Array of TListAccountsResponse;
- TListContainerVersionsResponseArray = Array of TListContainerVersionsResponse;
- TListContainersResponseArray = Array of TListContainersResponse;
- TListEnvironmentsResponseArray = Array of TListEnvironmentsResponse;
- TListFoldersResponseArray = Array of TListFoldersResponse;
- TListTagsResponseArray = Array of TListTagsResponse;
- TListTriggersResponseArray = Array of TListTriggersResponse;
- TListVariablesResponseArray = Array of TListVariablesResponse;
- TMacroArray = Array of TMacro;
- TParameterArray = Array of TParameter;
- TPublishContainerVersionResponseArray = Array of TPublishContainerVersionResponse;
- TRuleArray = Array of TRule;
- TSetupTagArray = Array of TSetupTag;
- TTagArray = Array of TTag;
- TTeardownTagArray = Array of TTeardownTag;
- TTriggerArray = Array of TTrigger;
- TUserAccessArray = Array of TUserAccess;
- TVariableArray = Array of TVariable;
- //Anonymous types, using auto-generated names
- TConditionTypeparameterArray = Array of TParameter;
- TContainerVersionTypefolderArray = Array of TFolder;
- TContainerVersionTypemacroArray = Array of TMacro;
- TContainerVersionTyperuleArray = Array of TRule;
- TContainerVersionTypetagArray = Array of TTag;
- TContainerVersionTypetriggerArray = Array of TTrigger;
- TContainerVersionTypevariableArray = Array of TVariable;
- TFolderEntitiesTypetagArray = Array of TTag;
- TFolderEntitiesTypetriggerArray = Array of TTrigger;
- TFolderEntitiesTypevariableArray = Array of TVariable;
- TListAccountUsersResponseTypeuserAccessArray = Array of TUserAccess;
- TListAccountsResponseTypeaccountsArray = Array of TAccount;
- TListContainerVersionsResponseTypecontainerVersionArray = Array of TContainerVersion;
- TListContainerVersionsResponseTypecontainerVersionHeaderArray = Array of TContainerVersionHeader;
- TListContainersResponseTypecontainersArray = Array of TContainer;
- TListEnvironmentsResponseTypeenvironmentsArray = Array of TEnvironment;
- TListFoldersResponseTypefoldersArray = Array of TFolder;
- TListTagsResponseTypetagsArray = Array of TTag;
- TListTriggersResponseTypetriggersArray = Array of TTrigger;
- TListVariablesResponseTypevariablesArray = Array of TVariable;
- TMacroTypeparameterArray = Array of TParameter;
- TParameterTypelistArray = Array of TParameter;
- TParameterTypemapArray = Array of TParameter;
- TRuleTypeconditionArray = Array of TCondition;
- TTagTypeparameterArray = Array of TParameter;
- TTagTypesetupTagArray = Array of TSetupTag;
- TTagTypeteardownTagArray = Array of TTeardownTag;
- TTriggerTypeautoEventFilterArray = Array of TCondition;
- TTriggerTypecustomEventFilterArray = Array of TCondition;
- TTriggerTypefilterArray = Array of TCondition;
- TUserAccessTypecontainerAccessArray = Array of TContainerAccess;
- TVariableTypeparameterArray = Array of TParameter;
-
- { --------------------------------------------------------------------
- TAccount
- --------------------------------------------------------------------}
-
- TAccount = Class(TGoogleBaseObject)
- Private
- FaccountId : String;
- Ffingerprint : String;
- Fname : String;
- FshareData : boolean;
- Protected
- //Property setters
- Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetshareData(AIndex : Integer; const AValue : boolean); virtual;
- Public
- Published
- Property accountId : String Index 0 Read FaccountId Write SetaccountId;
- Property fingerprint : String Index 8 Read Ffingerprint Write Setfingerprint;
- Property name : String Index 16 Read Fname Write Setname;
- Property shareData : boolean Index 24 Read FshareData Write SetshareData;
- end;
- TAccountClass = Class of TAccount;
-
- { --------------------------------------------------------------------
- TAccountAccess
- --------------------------------------------------------------------}
-
- TAccountAccess = Class(TGoogleBaseObject)
- Private
- Fpermission : TStringArray;
- Protected
- //Property setters
- Procedure Setpermission(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 permission : TStringArray Index 0 Read Fpermission Write Setpermission;
- end;
- TAccountAccessClass = Class of TAccountAccess;
-
- { --------------------------------------------------------------------
- TCondition
- --------------------------------------------------------------------}
-
- TCondition = Class(TGoogleBaseObject)
- Private
- Fparameter : TConditionTypeparameterArray;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setparameter(AIndex : Integer; const AValue : TConditionTypeparameterArray); 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 parameter : TConditionTypeparameterArray Index 0 Read Fparameter Write Setparameter;
- Property _type : String Index 8 Read F_type Write Set_type;
- end;
- TConditionClass = Class of TCondition;
-
- { --------------------------------------------------------------------
- TContainer
- --------------------------------------------------------------------}
-
- TContainer = Class(TGoogleBaseObject)
- Private
- FaccountId : String;
- FcontainerId : String;
- FdomainName : TStringArray;
- FenabledBuiltInVariable : TStringArray;
- Ffingerprint : String;
- Fname : String;
- Fnotes : String;
- FpublicId : String;
- FtimeZoneCountryId : String;
- FtimeZoneId : String;
- FusageContext : TStringArray;
- Protected
- //Property setters
- Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdomainName(AIndex : Integer; const AValue : TStringArray); virtual;
- Procedure SetenabledBuiltInVariable(AIndex : Integer; const AValue : TStringArray); virtual;
- Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpublicId(AIndex : Integer; const AValue : String); virtual;
- Procedure SettimeZoneCountryId(AIndex : Integer; const AValue : String); virtual;
- Procedure SettimeZoneId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetusageContext(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 accountId : String Index 0 Read FaccountId Write SetaccountId;
- Property containerId : String Index 8 Read FcontainerId Write SetcontainerId;
- Property domainName : TStringArray Index 16 Read FdomainName Write SetdomainName;
- Property enabledBuiltInVariable : TStringArray Index 24 Read FenabledBuiltInVariable Write SetenabledBuiltInVariable;
- Property fingerprint : String Index 32 Read Ffingerprint Write Setfingerprint;
- Property name : String Index 40 Read Fname Write Setname;
- Property notes : String Index 48 Read Fnotes Write Setnotes;
- Property publicId : String Index 56 Read FpublicId Write SetpublicId;
- Property timeZoneCountryId : String Index 64 Read FtimeZoneCountryId Write SettimeZoneCountryId;
- Property timeZoneId : String Index 72 Read FtimeZoneId Write SettimeZoneId;
- Property usageContext : TStringArray Index 80 Read FusageContext Write SetusageContext;
- end;
- TContainerClass = Class of TContainer;
-
- { --------------------------------------------------------------------
- TContainerAccess
- --------------------------------------------------------------------}
-
- TContainerAccess = Class(TGoogleBaseObject)
- Private
- FcontainerId : String;
- Fpermission : TStringArray;
- Protected
- //Property setters
- Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpermission(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 containerId : String Index 0 Read FcontainerId Write SetcontainerId;
- Property permission : TStringArray Index 8 Read Fpermission Write Setpermission;
- end;
- TContainerAccessClass = Class of TContainerAccess;
-
- { --------------------------------------------------------------------
- TContainerVersion
- --------------------------------------------------------------------}
-
- TContainerVersion = Class(TGoogleBaseObject)
- Private
- FaccountId : String;
- Fcontainer : TContainer;
- FcontainerId : String;
- FcontainerVersionId : String;
- Fdeleted : boolean;
- Ffingerprint : String;
- Ffolder : TContainerVersionTypefolderArray;
- Fmacro : TContainerVersionTypemacroArray;
- Fname : String;
- Fnotes : String;
- Frule : TContainerVersionTyperuleArray;
- Ftag : TContainerVersionTypetagArray;
- Ftrigger : TContainerVersionTypetriggerArray;
- Fvariable : TContainerVersionTypevariableArray;
- Protected
- //Property setters
- Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setcontainer(AIndex : Integer; const AValue : TContainer); virtual;
- Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcontainerVersionId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdeleted(AIndex : Integer; const AValue : boolean); virtual;
- Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
- Procedure Setfolder(AIndex : Integer; const AValue : TContainerVersionTypefolderArray); virtual;
- Procedure Setmacro(AIndex : Integer; const AValue : TContainerVersionTypemacroArray); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrule(AIndex : Integer; const AValue : TContainerVersionTyperuleArray); virtual;
- Procedure Settag(AIndex : Integer; const AValue : TContainerVersionTypetagArray); virtual;
- Procedure Settrigger(AIndex : Integer; const AValue : TContainerVersionTypetriggerArray); virtual;
- Procedure Setvariable(AIndex : Integer; const AValue : TContainerVersionTypevariableArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property accountId : String Index 0 Read FaccountId Write SetaccountId;
- Property container : TContainer Index 8 Read Fcontainer Write Setcontainer;
- Property containerId : String Index 16 Read FcontainerId Write SetcontainerId;
- Property containerVersionId : String Index 24 Read FcontainerVersionId Write SetcontainerVersionId;
- Property deleted : boolean Index 32 Read Fdeleted Write Setdeleted;
- Property fingerprint : String Index 40 Read Ffingerprint Write Setfingerprint;
- Property folder : TContainerVersionTypefolderArray Index 48 Read Ffolder Write Setfolder;
- Property macro : TContainerVersionTypemacroArray Index 56 Read Fmacro Write Setmacro;
- Property name : String Index 64 Read Fname Write Setname;
- Property notes : String Index 72 Read Fnotes Write Setnotes;
- Property rule : TContainerVersionTyperuleArray Index 80 Read Frule Write Setrule;
- Property tag : TContainerVersionTypetagArray Index 88 Read Ftag Write Settag;
- Property trigger : TContainerVersionTypetriggerArray Index 96 Read Ftrigger Write Settrigger;
- Property variable : TContainerVersionTypevariableArray Index 104 Read Fvariable Write Setvariable;
- end;
- TContainerVersionClass = Class of TContainerVersion;
-
- { --------------------------------------------------------------------
- TContainerVersionHeader
- --------------------------------------------------------------------}
-
- TContainerVersionHeader = Class(TGoogleBaseObject)
- Private
- FaccountId : String;
- FcontainerId : String;
- FcontainerVersionId : String;
- Fdeleted : boolean;
- Fname : String;
- FnumMacros : String;
- FnumRules : String;
- FnumTags : String;
- FnumTriggers : String;
- FnumVariables : String;
- Protected
- //Property setters
- Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcontainerVersionId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdeleted(AIndex : Integer; const AValue : boolean); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnumMacros(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnumRules(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnumTags(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnumTriggers(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnumVariables(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property accountId : String Index 0 Read FaccountId Write SetaccountId;
- Property containerId : String Index 8 Read FcontainerId Write SetcontainerId;
- Property containerVersionId : String Index 16 Read FcontainerVersionId Write SetcontainerVersionId;
- Property deleted : boolean Index 24 Read Fdeleted Write Setdeleted;
- Property name : String Index 32 Read Fname Write Setname;
- Property numMacros : String Index 40 Read FnumMacros Write SetnumMacros;
- Property numRules : String Index 48 Read FnumRules Write SetnumRules;
- Property numTags : String Index 56 Read FnumTags Write SetnumTags;
- Property numTriggers : String Index 64 Read FnumTriggers Write SetnumTriggers;
- Property numVariables : String Index 72 Read FnumVariables Write SetnumVariables;
- end;
- TContainerVersionHeaderClass = Class of TContainerVersionHeader;
-
- { --------------------------------------------------------------------
- TCreateContainerVersionRequestVersionOptions
- --------------------------------------------------------------------}
-
- TCreateContainerVersionRequestVersionOptions = Class(TGoogleBaseObject)
- Private
- Fname : String;
- Fnotes : String;
- FquickPreview : boolean;
- Protected
- //Property setters
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
- Procedure SetquickPreview(AIndex : Integer; const AValue : boolean); virtual;
- Public
- Published
- Property name : String Index 0 Read Fname Write Setname;
- Property notes : String Index 8 Read Fnotes Write Setnotes;
- Property quickPreview : boolean Index 16 Read FquickPreview Write SetquickPreview;
- end;
- TCreateContainerVersionRequestVersionOptionsClass = Class of TCreateContainerVersionRequestVersionOptions;
-
- { --------------------------------------------------------------------
- TCreateContainerVersionResponse
- --------------------------------------------------------------------}
-
- TCreateContainerVersionResponse = Class(TGoogleBaseObject)
- Private
- FcompilerError : boolean;
- FcontainerVersion : TContainerVersion;
- Protected
- //Property setters
- Procedure SetcompilerError(AIndex : Integer; const AValue : boolean); virtual;
- Procedure SetcontainerVersion(AIndex : Integer; const AValue : TContainerVersion); virtual;
- Public
- Published
- Property compilerError : boolean Index 0 Read FcompilerError Write SetcompilerError;
- Property containerVersion : TContainerVersion Index 8 Read FcontainerVersion Write SetcontainerVersion;
- end;
- TCreateContainerVersionResponseClass = Class of TCreateContainerVersionResponse;
-
- { --------------------------------------------------------------------
- TEnvironment
- --------------------------------------------------------------------}
-
- TEnvironment = Class(TGoogleBaseObject)
- Private
- FaccountId : String;
- FauthorizationCode : String;
- FauthorizationTimestampMs : String;
- FcontainerId : String;
- FcontainerVersionId : String;
- Fdescription : String;
- FenableDebug : boolean;
- FenvironmentId : String;
- Ffingerprint : String;
- Fname : String;
- F_type : String;
- Furl : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetauthorizationCode(AIndex : Integer; const AValue : String); virtual;
- Procedure SetauthorizationTimestampMs(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcontainerVersionId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetenableDebug(AIndex : Integer; const AValue : boolean); virtual;
- Procedure SetenvironmentId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property accountId : String Index 0 Read FaccountId Write SetaccountId;
- Property authorizationCode : String Index 8 Read FauthorizationCode Write SetauthorizationCode;
- Property authorizationTimestampMs : String Index 16 Read FauthorizationTimestampMs Write SetauthorizationTimestampMs;
- Property containerId : String Index 24 Read FcontainerId Write SetcontainerId;
- Property containerVersionId : String Index 32 Read FcontainerVersionId Write SetcontainerVersionId;
- Property description : String Index 40 Read Fdescription Write Setdescription;
- Property enableDebug : boolean Index 48 Read FenableDebug Write SetenableDebug;
- Property environmentId : String Index 56 Read FenvironmentId Write SetenvironmentId;
- Property fingerprint : String Index 64 Read Ffingerprint Write Setfingerprint;
- Property name : String Index 72 Read Fname Write Setname;
- Property _type : String Index 80 Read F_type Write Set_type;
- Property url : String Index 88 Read Furl Write Seturl;
- end;
- TEnvironmentClass = Class of TEnvironment;
-
- { --------------------------------------------------------------------
- TFolder
- --------------------------------------------------------------------}
-
- TFolder = Class(TGoogleBaseObject)
- Private
- FaccountId : String;
- FcontainerId : String;
- Ffingerprint : String;
- FfolderId : String;
- Fname : String;
- Protected
- //Property setters
- Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfolderId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property accountId : String Index 0 Read FaccountId Write SetaccountId;
- Property containerId : String Index 8 Read FcontainerId Write SetcontainerId;
- Property fingerprint : String Index 16 Read Ffingerprint Write Setfingerprint;
- Property folderId : String Index 24 Read FfolderId Write SetfolderId;
- Property name : String Index 32 Read Fname Write Setname;
- end;
- TFolderClass = Class of TFolder;
-
- { --------------------------------------------------------------------
- TFolderEntities
- --------------------------------------------------------------------}
-
- TFolderEntities = Class(TGoogleBaseObject)
- Private
- Ftag : TFolderEntitiesTypetagArray;
- Ftrigger : TFolderEntitiesTypetriggerArray;
- Fvariable : TFolderEntitiesTypevariableArray;
- Protected
- //Property setters
- Procedure Settag(AIndex : Integer; const AValue : TFolderEntitiesTypetagArray); virtual;
- Procedure Settrigger(AIndex : Integer; const AValue : TFolderEntitiesTypetriggerArray); virtual;
- Procedure Setvariable(AIndex : Integer; const AValue : TFolderEntitiesTypevariableArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property tag : TFolderEntitiesTypetagArray Index 0 Read Ftag Write Settag;
- Property trigger : TFolderEntitiesTypetriggerArray Index 8 Read Ftrigger Write Settrigger;
- Property variable : TFolderEntitiesTypevariableArray Index 16 Read Fvariable Write Setvariable;
- end;
- TFolderEntitiesClass = Class of TFolderEntities;
-
- { --------------------------------------------------------------------
- TListAccountUsersResponse
- --------------------------------------------------------------------}
-
- TListAccountUsersResponse = Class(TGoogleBaseObject)
- Private
- FuserAccess : TListAccountUsersResponseTypeuserAccessArray;
- Protected
- //Property setters
- Procedure SetuserAccess(AIndex : Integer; const AValue : TListAccountUsersResponseTypeuserAccessArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property userAccess : TListAccountUsersResponseTypeuserAccessArray Index 0 Read FuserAccess Write SetuserAccess;
- end;
- TListAccountUsersResponseClass = Class of TListAccountUsersResponse;
-
- { --------------------------------------------------------------------
- TListAccountsResponse
- --------------------------------------------------------------------}
-
- TListAccountsResponse = Class(TGoogleBaseObject)
- Private
- Faccounts : TListAccountsResponseTypeaccountsArray;
- Protected
- //Property setters
- Procedure Setaccounts(AIndex : Integer; const AValue : TListAccountsResponseTypeaccountsArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property accounts : TListAccountsResponseTypeaccountsArray Index 0 Read Faccounts Write Setaccounts;
- end;
- TListAccountsResponseClass = Class of TListAccountsResponse;
-
- { --------------------------------------------------------------------
- TListContainerVersionsResponse
- --------------------------------------------------------------------}
-
- TListContainerVersionsResponse = Class(TGoogleBaseObject)
- Private
- FcontainerVersion : TListContainerVersionsResponseTypecontainerVersionArray;
- FcontainerVersionHeader : TListContainerVersionsResponseTypecontainerVersionHeaderArray;
- Protected
- //Property setters
- Procedure SetcontainerVersion(AIndex : Integer; const AValue : TListContainerVersionsResponseTypecontainerVersionArray); virtual;
- Procedure SetcontainerVersionHeader(AIndex : Integer; const AValue : TListContainerVersionsResponseTypecontainerVersionHeaderArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property containerVersion : TListContainerVersionsResponseTypecontainerVersionArray Index 0 Read FcontainerVersion Write SetcontainerVersion;
- Property containerVersionHeader : TListContainerVersionsResponseTypecontainerVersionHeaderArray Index 8 Read FcontainerVersionHeader Write SetcontainerVersionHeader;
- end;
- TListContainerVersionsResponseClass = Class of TListContainerVersionsResponse;
-
- { --------------------------------------------------------------------
- TListContainersResponse
- --------------------------------------------------------------------}
-
- TListContainersResponse = Class(TGoogleBaseObject)
- Private
- Fcontainers : TListContainersResponseTypecontainersArray;
- Protected
- //Property setters
- Procedure Setcontainers(AIndex : Integer; const AValue : TListContainersResponseTypecontainersArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property containers : TListContainersResponseTypecontainersArray Index 0 Read Fcontainers Write Setcontainers;
- end;
- TListContainersResponseClass = Class of TListContainersResponse;
-
- { --------------------------------------------------------------------
- TListEnvironmentsResponse
- --------------------------------------------------------------------}
-
- TListEnvironmentsResponse = Class(TGoogleBaseObject)
- Private
- Fenvironments : TListEnvironmentsResponseTypeenvironmentsArray;
- Protected
- //Property setters
- Procedure Setenvironments(AIndex : Integer; const AValue : TListEnvironmentsResponseTypeenvironmentsArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property environments : TListEnvironmentsResponseTypeenvironmentsArray Index 0 Read Fenvironments Write Setenvironments;
- end;
- TListEnvironmentsResponseClass = Class of TListEnvironmentsResponse;
-
- { --------------------------------------------------------------------
- TListFoldersResponse
- --------------------------------------------------------------------}
-
- TListFoldersResponse = Class(TGoogleBaseObject)
- Private
- Ffolders : TListFoldersResponseTypefoldersArray;
- Protected
- //Property setters
- Procedure Setfolders(AIndex : Integer; const AValue : TListFoldersResponseTypefoldersArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property folders : TListFoldersResponseTypefoldersArray Index 0 Read Ffolders Write Setfolders;
- end;
- TListFoldersResponseClass = Class of TListFoldersResponse;
-
- { --------------------------------------------------------------------
- TListTagsResponse
- --------------------------------------------------------------------}
-
- TListTagsResponse = Class(TGoogleBaseObject)
- Private
- Ftags : TListTagsResponseTypetagsArray;
- Protected
- //Property setters
- Procedure Settags(AIndex : Integer; const AValue : TListTagsResponseTypetagsArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property tags : TListTagsResponseTypetagsArray Index 0 Read Ftags Write Settags;
- end;
- TListTagsResponseClass = Class of TListTagsResponse;
-
- { --------------------------------------------------------------------
- TListTriggersResponse
- --------------------------------------------------------------------}
-
- TListTriggersResponse = Class(TGoogleBaseObject)
- Private
- Ftriggers : TListTriggersResponseTypetriggersArray;
- Protected
- //Property setters
- Procedure Settriggers(AIndex : Integer; const AValue : TListTriggersResponseTypetriggersArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property triggers : TListTriggersResponseTypetriggersArray Index 0 Read Ftriggers Write Settriggers;
- end;
- TListTriggersResponseClass = Class of TListTriggersResponse;
-
- { --------------------------------------------------------------------
- TListVariablesResponse
- --------------------------------------------------------------------}
-
- TListVariablesResponse = Class(TGoogleBaseObject)
- Private
- Fvariables : TListVariablesResponseTypevariablesArray;
- Protected
- //Property setters
- Procedure Setvariables(AIndex : Integer; const AValue : TListVariablesResponseTypevariablesArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property variables : TListVariablesResponseTypevariablesArray Index 0 Read Fvariables Write Setvariables;
- end;
- TListVariablesResponseClass = Class of TListVariablesResponse;
-
- { --------------------------------------------------------------------
- TMacro
- --------------------------------------------------------------------}
-
- TMacro = Class(TGoogleBaseObject)
- Private
- FaccountId : String;
- FcontainerId : String;
- FdisablingRuleId : TStringArray;
- FenablingRuleId : TStringArray;
- Ffingerprint : String;
- FmacroId : String;
- Fname : String;
- Fnotes : String;
- Fparameter : TMacroTypeparameterArray;
- FparentFolderId : String;
- FscheduleEndMs : String;
- FscheduleStartMs : String;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdisablingRuleId(AIndex : Integer; const AValue : TStringArray); virtual;
- Procedure SetenablingRuleId(AIndex : Integer; const AValue : TStringArray); virtual;
- Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmacroId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
- Procedure Setparameter(AIndex : Integer; const AValue : TMacroTypeparameterArray); virtual;
- Procedure SetparentFolderId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetscheduleEndMs(AIndex : Integer; const AValue : String); virtual;
- Procedure SetscheduleStartMs(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 accountId : String Index 0 Read FaccountId Write SetaccountId;
- Property containerId : String Index 8 Read FcontainerId Write SetcontainerId;
- Property disablingRuleId : TStringArray Index 16 Read FdisablingRuleId Write SetdisablingRuleId;
- Property enablingRuleId : TStringArray Index 24 Read FenablingRuleId Write SetenablingRuleId;
- Property fingerprint : String Index 32 Read Ffingerprint Write Setfingerprint;
- Property macroId : String Index 40 Read FmacroId Write SetmacroId;
- Property name : String Index 48 Read Fname Write Setname;
- Property notes : String Index 56 Read Fnotes Write Setnotes;
- Property parameter : TMacroTypeparameterArray Index 64 Read Fparameter Write Setparameter;
- Property parentFolderId : String Index 72 Read FparentFolderId Write SetparentFolderId;
- Property scheduleEndMs : String Index 80 Read FscheduleEndMs Write SetscheduleEndMs;
- Property scheduleStartMs : String Index 88 Read FscheduleStartMs Write SetscheduleStartMs;
- Property _type : String Index 96 Read F_type Write Set_type;
- end;
- TMacroClass = Class of TMacro;
-
- { --------------------------------------------------------------------
- TParameter
- --------------------------------------------------------------------}
-
- TParameter = Class(TGoogleBaseObject)
- Private
- Fkey : String;
- Flist : TParameterTypelistArray;
- Fmap : TParameterTypemapArray;
- F_type : String;
- Fvalue : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setkey(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlist(AIndex : Integer; const AValue : TParameterTypelistArray); virtual;
- Procedure Setmap(AIndex : Integer; const AValue : TParameterTypemapArray); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvalue(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 key : String Index 0 Read Fkey Write Setkey;
- Property list : TParameterTypelistArray Index 8 Read Flist Write Setlist;
- Property map : TParameterTypemapArray Index 16 Read Fmap Write Setmap;
- Property _type : String Index 24 Read F_type Write Set_type;
- Property value : String Index 32 Read Fvalue Write Setvalue;
- end;
- TParameterClass = Class of TParameter;
-
- { --------------------------------------------------------------------
- TPublishContainerVersionResponse
- --------------------------------------------------------------------}
-
- TPublishContainerVersionResponse = Class(TGoogleBaseObject)
- Private
- FcompilerError : boolean;
- FcontainerVersion : TContainerVersion;
- Protected
- //Property setters
- Procedure SetcompilerError(AIndex : Integer; const AValue : boolean); virtual;
- Procedure SetcontainerVersion(AIndex : Integer; const AValue : TContainerVersion); virtual;
- Public
- Published
- Property compilerError : boolean Index 0 Read FcompilerError Write SetcompilerError;
- Property containerVersion : TContainerVersion Index 8 Read FcontainerVersion Write SetcontainerVersion;
- end;
- TPublishContainerVersionResponseClass = Class of TPublishContainerVersionResponse;
-
- { --------------------------------------------------------------------
- TRule
- --------------------------------------------------------------------}
-
- TRule = Class(TGoogleBaseObject)
- Private
- FaccountId : String;
- Fcondition : TRuleTypeconditionArray;
- FcontainerId : String;
- Ffingerprint : String;
- Fname : String;
- Fnotes : String;
- FruleId : String;
- Protected
- //Property setters
- Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setcondition(AIndex : Integer; const AValue : TRuleTypeconditionArray); virtual;
- Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
- Procedure SetruleId(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 accountId : String Index 0 Read FaccountId Write SetaccountId;
- Property condition : TRuleTypeconditionArray Index 8 Read Fcondition Write Setcondition;
- Property containerId : String Index 16 Read FcontainerId Write SetcontainerId;
- Property fingerprint : String Index 24 Read Ffingerprint Write Setfingerprint;
- Property name : String Index 32 Read Fname Write Setname;
- Property notes : String Index 40 Read Fnotes Write Setnotes;
- Property ruleId : String Index 48 Read FruleId Write SetruleId;
- end;
- TRuleClass = Class of TRule;
-
- { --------------------------------------------------------------------
- TSetupTag
- --------------------------------------------------------------------}
-
- TSetupTag = Class(TGoogleBaseObject)
- Private
- FstopOnSetupFailure : boolean;
- FtagName : String;
- Protected
- //Property setters
- Procedure SetstopOnSetupFailure(AIndex : Integer; const AValue : boolean); virtual;
- Procedure SettagName(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property stopOnSetupFailure : boolean Index 0 Read FstopOnSetupFailure Write SetstopOnSetupFailure;
- Property tagName : String Index 8 Read FtagName Write SettagName;
- end;
- TSetupTagClass = Class of TSetupTag;
-
- { --------------------------------------------------------------------
- TTag
- --------------------------------------------------------------------}
-
- TTag = Class(TGoogleBaseObject)
- Private
- FaccountId : String;
- FblockingRuleId : TStringArray;
- FblockingTriggerId : TStringArray;
- FcontainerId : String;
- Ffingerprint : String;
- FfiringRuleId : TStringArray;
- FfiringTriggerId : TStringArray;
- FliveOnly : boolean;
- Fname : String;
- Fnotes : String;
- Fparameter : TTagTypeparameterArray;
- FparentFolderId : String;
- Fpriority : TParameter;
- FscheduleEndMs : String;
- FscheduleStartMs : String;
- FsetupTag : TTagTypesetupTagArray;
- FtagFiringOption : String;
- FtagId : String;
- FteardownTag : TTagTypeteardownTagArray;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetblockingRuleId(AIndex : Integer; const AValue : TStringArray); virtual;
- Procedure SetblockingTriggerId(AIndex : Integer; const AValue : TStringArray); virtual;
- Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfiringRuleId(AIndex : Integer; const AValue : TStringArray); virtual;
- Procedure SetfiringTriggerId(AIndex : Integer; const AValue : TStringArray); virtual;
- Procedure SetliveOnly(AIndex : Integer; const AValue : boolean); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
- Procedure Setparameter(AIndex : Integer; const AValue : TTagTypeparameterArray); virtual;
- Procedure SetparentFolderId(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpriority(AIndex : Integer; const AValue : TParameter); virtual;
- Procedure SetscheduleEndMs(AIndex : Integer; const AValue : String); virtual;
- Procedure SetscheduleStartMs(AIndex : Integer; const AValue : String); virtual;
- Procedure SetsetupTag(AIndex : Integer; const AValue : TTagTypesetupTagArray); virtual;
- Procedure SettagFiringOption(AIndex : Integer; const AValue : String); virtual;
- Procedure SettagId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetteardownTag(AIndex : Integer; const AValue : TTagTypeteardownTagArray); 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 accountId : String Index 0 Read FaccountId Write SetaccountId;
- Property blockingRuleId : TStringArray Index 8 Read FblockingRuleId Write SetblockingRuleId;
- Property blockingTriggerId : TStringArray Index 16 Read FblockingTriggerId Write SetblockingTriggerId;
- Property containerId : String Index 24 Read FcontainerId Write SetcontainerId;
- Property fingerprint : String Index 32 Read Ffingerprint Write Setfingerprint;
- Property firingRuleId : TStringArray Index 40 Read FfiringRuleId Write SetfiringRuleId;
- Property firingTriggerId : TStringArray Index 48 Read FfiringTriggerId Write SetfiringTriggerId;
- Property liveOnly : boolean Index 56 Read FliveOnly Write SetliveOnly;
- Property name : String Index 64 Read Fname Write Setname;
- Property notes : String Index 72 Read Fnotes Write Setnotes;
- Property parameter : TTagTypeparameterArray Index 80 Read Fparameter Write Setparameter;
- Property parentFolderId : String Index 88 Read FparentFolderId Write SetparentFolderId;
- Property priority : TParameter Index 96 Read Fpriority Write Setpriority;
- Property scheduleEndMs : String Index 104 Read FscheduleEndMs Write SetscheduleEndMs;
- Property scheduleStartMs : String Index 112 Read FscheduleStartMs Write SetscheduleStartMs;
- Property setupTag : TTagTypesetupTagArray Index 120 Read FsetupTag Write SetsetupTag;
- Property tagFiringOption : String Index 128 Read FtagFiringOption Write SettagFiringOption;
- Property tagId : String Index 136 Read FtagId Write SettagId;
- Property teardownTag : TTagTypeteardownTagArray Index 144 Read FteardownTag Write SetteardownTag;
- Property _type : String Index 152 Read F_type Write Set_type;
- end;
- TTagClass = Class of TTag;
-
- { --------------------------------------------------------------------
- TTeardownTag
- --------------------------------------------------------------------}
-
- TTeardownTag = Class(TGoogleBaseObject)
- Private
- FstopTeardownOnFailure : boolean;
- FtagName : String;
- Protected
- //Property setters
- Procedure SetstopTeardownOnFailure(AIndex : Integer; const AValue : boolean); virtual;
- Procedure SettagName(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property stopTeardownOnFailure : boolean Index 0 Read FstopTeardownOnFailure Write SetstopTeardownOnFailure;
- Property tagName : String Index 8 Read FtagName Write SettagName;
- end;
- TTeardownTagClass = Class of TTeardownTag;
-
- { --------------------------------------------------------------------
- TTrigger
- --------------------------------------------------------------------}
-
- TTrigger = Class(TGoogleBaseObject)
- Private
- FaccountId : String;
- FautoEventFilter : TTriggerTypeautoEventFilterArray;
- FcheckValidation : TParameter;
- FcontainerId : String;
- FcustomEventFilter : TTriggerTypecustomEventFilterArray;
- FenableAllVideos : TParameter;
- FeventName : TParameter;
- Ffilter : TTriggerTypefilterArray;
- Ffingerprint : String;
- Finterval : TParameter;
- Flimit : TParameter;
- Fname : String;
- FparentFolderId : String;
- FtriggerId : String;
- F_type : String;
- FuniqueTriggerId : TParameter;
- FvideoPercentageList : TParameter;
- FwaitForTags : TParameter;
- FwaitForTagsTimeout : TParameter;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetautoEventFilter(AIndex : Integer; const AValue : TTriggerTypeautoEventFilterArray); virtual;
- Procedure SetcheckValidation(AIndex : Integer; const AValue : TParameter); virtual;
- Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcustomEventFilter(AIndex : Integer; const AValue : TTriggerTypecustomEventFilterArray); virtual;
- Procedure SetenableAllVideos(AIndex : Integer; const AValue : TParameter); virtual;
- Procedure SeteventName(AIndex : Integer; const AValue : TParameter); virtual;
- Procedure Setfilter(AIndex : Integer; const AValue : TTriggerTypefilterArray); virtual;
- Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
- Procedure Setinterval(AIndex : Integer; const AValue : TParameter); virtual;
- Procedure Setlimit(AIndex : Integer; const AValue : TParameter); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetparentFolderId(AIndex : Integer; const AValue : String); virtual;
- Procedure SettriggerId(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure SetuniqueTriggerId(AIndex : Integer; const AValue : TParameter); virtual;
- Procedure SetvideoPercentageList(AIndex : Integer; const AValue : TParameter); virtual;
- Procedure SetwaitForTags(AIndex : Integer; const AValue : TParameter); virtual;
- Procedure SetwaitForTagsTimeout(AIndex : Integer; const AValue : TParameter); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property accountId : String Index 0 Read FaccountId Write SetaccountId;
- Property autoEventFilter : TTriggerTypeautoEventFilterArray Index 8 Read FautoEventFilter Write SetautoEventFilter;
- Property checkValidation : TParameter Index 16 Read FcheckValidation Write SetcheckValidation;
- Property containerId : String Index 24 Read FcontainerId Write SetcontainerId;
- Property customEventFilter : TTriggerTypecustomEventFilterArray Index 32 Read FcustomEventFilter Write SetcustomEventFilter;
- Property enableAllVideos : TParameter Index 40 Read FenableAllVideos Write SetenableAllVideos;
- Property eventName : TParameter Index 48 Read FeventName Write SeteventName;
- Property filter : TTriggerTypefilterArray Index 56 Read Ffilter Write Setfilter;
- Property fingerprint : String Index 64 Read Ffingerprint Write Setfingerprint;
- Property interval : TParameter Index 72 Read Finterval Write Setinterval;
- Property limit : TParameter Index 80 Read Flimit Write Setlimit;
- Property name : String Index 88 Read Fname Write Setname;
- Property parentFolderId : String Index 96 Read FparentFolderId Write SetparentFolderId;
- Property triggerId : String Index 104 Read FtriggerId Write SettriggerId;
- Property _type : String Index 112 Read F_type Write Set_type;
- Property uniqueTriggerId : TParameter Index 120 Read FuniqueTriggerId Write SetuniqueTriggerId;
- Property videoPercentageList : TParameter Index 128 Read FvideoPercentageList Write SetvideoPercentageList;
- Property waitForTags : TParameter Index 136 Read FwaitForTags Write SetwaitForTags;
- Property waitForTagsTimeout : TParameter Index 144 Read FwaitForTagsTimeout Write SetwaitForTagsTimeout;
- end;
- TTriggerClass = Class of TTrigger;
-
- { --------------------------------------------------------------------
- TUserAccess
- --------------------------------------------------------------------}
-
- TUserAccess = Class(TGoogleBaseObject)
- Private
- FaccountAccess : TAccountAccess;
- FaccountId : String;
- FcontainerAccess : TUserAccessTypecontainerAccessArray;
- FemailAddress : String;
- FpermissionId : String;
- Protected
- //Property setters
- Procedure SetaccountAccess(AIndex : Integer; const AValue : TAccountAccess); virtual;
- Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcontainerAccess(AIndex : Integer; const AValue : TUserAccessTypecontainerAccessArray); virtual;
- Procedure SetemailAddress(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpermissionId(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 accountAccess : TAccountAccess Index 0 Read FaccountAccess Write SetaccountAccess;
- Property accountId : String Index 8 Read FaccountId Write SetaccountId;
- Property containerAccess : TUserAccessTypecontainerAccessArray Index 16 Read FcontainerAccess Write SetcontainerAccess;
- Property emailAddress : String Index 24 Read FemailAddress Write SetemailAddress;
- Property permissionId : String Index 32 Read FpermissionId Write SetpermissionId;
- end;
- TUserAccessClass = Class of TUserAccess;
-
- { --------------------------------------------------------------------
- TVariable
- --------------------------------------------------------------------}
-
- TVariable = Class(TGoogleBaseObject)
- Private
- FaccountId : String;
- FcontainerId : String;
- FdisablingTriggerId : TStringArray;
- FenablingTriggerId : TStringArray;
- Ffingerprint : String;
- Fname : String;
- Fnotes : String;
- Fparameter : TVariableTypeparameterArray;
- FparentFolderId : String;
- FscheduleEndMs : String;
- FscheduleStartMs : String;
- F_type : String;
- FvariableId : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure SetaccountId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcontainerId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdisablingTriggerId(AIndex : Integer; const AValue : TStringArray); virtual;
- Procedure SetenablingTriggerId(AIndex : Integer; const AValue : TStringArray); virtual;
- Procedure Setfingerprint(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setnotes(AIndex : Integer; const AValue : String); virtual;
- Procedure Setparameter(AIndex : Integer; const AValue : TVariableTypeparameterArray); virtual;
- Procedure SetparentFolderId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetscheduleEndMs(AIndex : Integer; const AValue : String); virtual;
- Procedure SetscheduleStartMs(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure SetvariableId(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 accountId : String Index 0 Read FaccountId Write SetaccountId;
- Property containerId : String Index 8 Read FcontainerId Write SetcontainerId;
- Property disablingTriggerId : TStringArray Index 16 Read FdisablingTriggerId Write SetdisablingTriggerId;
- Property enablingTriggerId : TStringArray Index 24 Read FenablingTriggerId Write SetenablingTriggerId;
- Property fingerprint : String Index 32 Read Ffingerprint Write Setfingerprint;
- Property name : String Index 40 Read Fname Write Setname;
- Property notes : String Index 48 Read Fnotes Write Setnotes;
- Property parameter : TVariableTypeparameterArray Index 56 Read Fparameter Write Setparameter;
- Property parentFolderId : String Index 64 Read FparentFolderId Write SetparentFolderId;
- Property scheduleEndMs : String Index 72 Read FscheduleEndMs Write SetscheduleEndMs;
- Property scheduleStartMs : String Index 80 Read FscheduleStartMs Write SetscheduleStartMs;
- Property _type : String Index 88 Read F_type Write Set_type;
- Property variableId : String Index 96 Read FvariableId Write SetvariableId;
- end;
- TVariableClass = Class of TVariable;
-
- { --------------------------------------------------------------------
- TAccountsContainersEnvironmentsResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TAccountsContainersEnvironmentsResource, method Patch
-
- TAccountsContainersEnvironmentsPatchOptions = Record
- fingerprint : String;
- end;
-
-
- //Optional query Options for TAccountsContainersEnvironmentsResource, method Update
-
- TAccountsContainersEnvironmentsUpdateOptions = Record
- fingerprint : String;
- end;
-
- TAccountsContainersEnvironmentsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Create(accountId: string; containerId: string; aEnvironment : TEnvironment) : TEnvironment;overload;
- Procedure Delete(accountId: string; containerId: string; environmentId: string);
- Function Get(accountId: string; containerId: string; environmentId: string) : TEnvironment;
- Function List(accountId: string; containerId: string) : TListEnvironmentsResponse;
- Function Patch(accountId: string; containerId: string; environmentId: string; aEnvironment : TEnvironment; AQuery : string = '') : TEnvironment;
- Function Patch(accountId: string; containerId: string; environmentId: string; aEnvironment : TEnvironment; AQuery : TAccountsContainersEnvironmentspatchOptions) : TEnvironment;
- Function Update(accountId: string; containerId: string; environmentId: string; aEnvironment : TEnvironment; AQuery : string = '') : TEnvironment;
- Function Update(accountId: string; containerId: string; environmentId: string; aEnvironment : TEnvironment; AQuery : TAccountsContainersEnvironmentsupdateOptions) : TEnvironment;
- end;
-
-
- { --------------------------------------------------------------------
- TAccountsContainersFoldersEntitiesResource
- --------------------------------------------------------------------}
-
- TAccountsContainersFoldersEntitiesResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function List(accountId: string; containerId: string; folderId: string) : TFolderEntities;
- end;
-
-
- { --------------------------------------------------------------------
- TAccountsContainersFoldersResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TAccountsContainersFoldersResource, method Update
-
- TAccountsContainersFoldersUpdateOptions = Record
- fingerprint : String;
- end;
-
- TAccountsContainersFoldersResource = Class(TGoogleResource)
- Private
- FEntitiesInstance : TAccountsContainersFoldersEntitiesResource;
- Function GetEntitiesInstance : TAccountsContainersFoldersEntitiesResource;virtual;
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Create(accountId: string; containerId: string; aFolder : TFolder) : TFolder;overload;
- Procedure Delete(accountId: string; containerId: string; folderId: string);
- Function Get(accountId: string; containerId: string; folderId: string) : TFolder;
- Function List(accountId: string; containerId: string) : TListFoldersResponse;
- Function Update(accountId: string; containerId: string; folderId: string; aFolder : TFolder; AQuery : string = '') : TFolder;
- Function Update(accountId: string; containerId: string; folderId: string; aFolder : TFolder; AQuery : TAccountsContainersFoldersupdateOptions) : TFolder;
- Function CreateEntitiesResource(AOwner : TComponent) : TAccountsContainersFoldersEntitiesResource;virtual;overload;
- Function CreateEntitiesResource : TAccountsContainersFoldersEntitiesResource;virtual;overload;
- Property EntitiesResource : TAccountsContainersFoldersEntitiesResource Read GetEntitiesInstance;
- end;
-
-
- { --------------------------------------------------------------------
- TAccountsContainersMove_foldersResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TAccountsContainersMove_foldersResource, method Update
-
- TAccountsContainersMove_foldersUpdateOptions = Record
- tagId : String;
- triggerId : String;
- variableId : String;
- end;
-
- TAccountsContainersMove_foldersResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Procedure Update(accountId: string; containerId: string; folderId: string; aFolder : TFolder; AQuery : string = '');
- Procedure Update(accountId: string; containerId: string; folderId: string; aFolder : TFolder; AQuery : TAccountsContainersMove_foldersupdateOptions);
- end;
-
-
- { --------------------------------------------------------------------
- TAccountsContainersReauthorize_environmentsResource
- --------------------------------------------------------------------}
-
- TAccountsContainersReauthorize_environmentsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Update(accountId: string; containerId: string; environmentId: string; aEnvironment : TEnvironment) : TEnvironment;
- end;
-
-
- { --------------------------------------------------------------------
- TAccountsContainersTagsResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TAccountsContainersTagsResource, method Update
-
- TAccountsContainersTagsUpdateOptions = Record
- fingerprint : String;
- end;
-
- TAccountsContainersTagsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Create(accountId: string; containerId: string; aTag : TTag) : TTag;overload;
- Procedure Delete(accountId: string; containerId: string; tagId: string);
- Function Get(accountId: string; containerId: string; tagId: string) : TTag;
- Function List(accountId: string; containerId: string) : TListTagsResponse;
- Function Update(accountId: string; containerId: string; tagId: string; aTag : TTag; AQuery : string = '') : TTag;
- Function Update(accountId: string; containerId: string; tagId: string; aTag : TTag; AQuery : TAccountsContainersTagsupdateOptions) : TTag;
- end;
-
-
- { --------------------------------------------------------------------
- TAccountsContainersTriggersResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TAccountsContainersTriggersResource, method Update
-
- TAccountsContainersTriggersUpdateOptions = Record
- fingerprint : String;
- end;
-
- TAccountsContainersTriggersResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Create(accountId: string; containerId: string; aTrigger : TTrigger) : TTrigger;overload;
- Procedure Delete(accountId: string; containerId: string; triggerId: string);
- Function Get(accountId: string; containerId: string; triggerId: string) : TTrigger;
- Function List(accountId: string; containerId: string) : TListTriggersResponse;
- Function Update(accountId: string; containerId: string; triggerId: string; aTrigger : TTrigger; AQuery : string = '') : TTrigger;
- Function Update(accountId: string; containerId: string; triggerId: string; aTrigger : TTrigger; AQuery : TAccountsContainersTriggersupdateOptions) : TTrigger;
- end;
-
-
- { --------------------------------------------------------------------
- TAccountsContainersVariablesResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TAccountsContainersVariablesResource, method Update
-
- TAccountsContainersVariablesUpdateOptions = Record
- fingerprint : String;
- end;
-
- TAccountsContainersVariablesResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Create(accountId: string; containerId: string; aVariable : TVariable) : TVariable;overload;
- Procedure Delete(accountId: string; containerId: string; variableId: string);
- Function Get(accountId: string; containerId: string; variableId: string) : TVariable;
- Function List(accountId: string; containerId: string) : TListVariablesResponse;
- Function Update(accountId: string; containerId: string; variableId: string; aVariable : TVariable; AQuery : string = '') : TVariable;
- Function Update(accountId: string; containerId: string; variableId: string; aVariable : TVariable; AQuery : TAccountsContainersVariablesupdateOptions) : TVariable;
- end;
-
-
- { --------------------------------------------------------------------
- TAccountsContainersVersionsResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TAccountsContainersVersionsResource, method List
-
- TAccountsContainersVersionsListOptions = Record
- headers : boolean;
- includeDeleted : boolean;
- end;
-
-
- //Optional query Options for TAccountsContainersVersionsResource, method Publish
-
- TAccountsContainersVersionsPublishOptions = Record
- fingerprint : String;
- end;
-
-
- //Optional query Options for TAccountsContainersVersionsResource, method Update
-
- TAccountsContainersVersionsUpdateOptions = Record
- fingerprint : String;
- end;
-
- TAccountsContainersVersionsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Create(accountId: string; containerId: string; aCreateContainerVersionRequestVersionOptions : TCreateContainerVersionRequestVersionOptions) : TCreateContainerVersionResponse;overload;
- Procedure Delete(accountId: string; containerId: string; containerVersionId: string);
- Function Get(accountId: string; containerId: string; containerVersionId: string) : TContainerVersion;
- Function List(accountId: string; containerId: string; AQuery : string = '') : TListContainerVersionsResponse;
- Function List(accountId: string; containerId: string; AQuery : TAccountsContainersVersionslistOptions) : TListContainerVersionsResponse;
- Function Publish(accountId: string; containerId: string; containerVersionId: string; AQuery : string = '') : TPublishContainerVersionResponse;
- Function Publish(accountId: string; containerId: string; containerVersionId: string; AQuery : TAccountsContainersVersionspublishOptions) : TPublishContainerVersionResponse;
- Function Restore(accountId: string; containerId: string; containerVersionId: string) : TContainerVersion;
- Function Undelete(accountId: string; containerId: string; containerVersionId: string) : TContainerVersion;
- Function Update(accountId: string; containerId: string; containerVersionId: string; aContainerVersion : TContainerVersion; AQuery : string = '') : TContainerVersion;
- Function Update(accountId: string; containerId: string; containerVersionId: string; aContainerVersion : TContainerVersion; AQuery : TAccountsContainersVersionsupdateOptions) : TContainerVersion;
- end;
-
-
- { --------------------------------------------------------------------
- TAccountsContainersResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TAccountsContainersResource, method Update
-
- TAccountsContainersUpdateOptions = Record
- fingerprint : String;
- end;
-
- TAccountsContainersResource = Class(TGoogleResource)
- Private
- FEnvironmentsInstance : TAccountsContainersEnvironmentsResource;
- FFoldersEntitiesInstance : TAccountsContainersFoldersEntitiesResource;
- FFoldersInstance : TAccountsContainersFoldersResource;
- FMove_foldersInstance : TAccountsContainersMove_foldersResource;
- FReauthorize_environmentsInstance : TAccountsContainersReauthorize_environmentsResource;
- FTagsInstance : TAccountsContainersTagsResource;
- FTriggersInstance : TAccountsContainersTriggersResource;
- FVariablesInstance : TAccountsContainersVariablesResource;
- FVersionsInstance : TAccountsContainersVersionsResource;
- Function GetEnvironmentsInstance : TAccountsContainersEnvironmentsResource;virtual;
- Function GetFoldersEntitiesInstance : TAccountsContainersFoldersEntitiesResource;virtual;
- Function GetFoldersInstance : TAccountsContainersFoldersResource;virtual;
- Function GetMove_foldersInstance : TAccountsContainersMove_foldersResource;virtual;
- Function GetReauthorize_environmentsInstance : TAccountsContainersReauthorize_environmentsResource;virtual;
- Function GetTagsInstance : TAccountsContainersTagsResource;virtual;
- Function GetTriggersInstance : TAccountsContainersTriggersResource;virtual;
- Function GetVariablesInstance : TAccountsContainersVariablesResource;virtual;
- Function GetVersionsInstance : TAccountsContainersVersionsResource;virtual;
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Create(accountId: string; aContainer : TContainer) : TContainer;overload;
- Procedure Delete(accountId: string; containerId: string);
- Function Get(accountId: string; containerId: string) : TContainer;
- Function List(accountId: string) : TListContainersResponse;
- Function Update(accountId: string; containerId: string; aContainer : TContainer; AQuery : string = '') : TContainer;
- Function Update(accountId: string; containerId: string; aContainer : TContainer; AQuery : TAccountsContainersupdateOptions) : TContainer;
- Function CreateEnvironmentsResource(AOwner : TComponent) : TAccountsContainersEnvironmentsResource;virtual;overload;
- Function CreateEnvironmentsResource : TAccountsContainersEnvironmentsResource;virtual;overload;
- Function CreateFoldersEntitiesResource(AOwner : TComponent) : TAccountsContainersFoldersEntitiesResource;virtual;overload;
- Function CreateFoldersEntitiesResource : TAccountsContainersFoldersEntitiesResource;virtual;overload;
- Function CreateFoldersResource(AOwner : TComponent) : TAccountsContainersFoldersResource;virtual;overload;
- Function CreateFoldersResource : TAccountsContainersFoldersResource;virtual;overload;
- Function CreateMove_foldersResource(AOwner : TComponent) : TAccountsContainersMove_foldersResource;virtual;overload;
- Function CreateMove_foldersResource : TAccountsContainersMove_foldersResource;virtual;overload;
- Function CreateReauthorize_environmentsResource(AOwner : TComponent) : TAccountsContainersReauthorize_environmentsResource;virtual;overload;
- Function CreateReauthorize_environmentsResource : TAccountsContainersReauthorize_environmentsResource;virtual;overload;
- Function CreateTagsResource(AOwner : TComponent) : TAccountsContainersTagsResource;virtual;overload;
- Function CreateTagsResource : TAccountsContainersTagsResource;virtual;overload;
- Function CreateTriggersResource(AOwner : TComponent) : TAccountsContainersTriggersResource;virtual;overload;
- Function CreateTriggersResource : TAccountsContainersTriggersResource;virtual;overload;
- Function CreateVariablesResource(AOwner : TComponent) : TAccountsContainersVariablesResource;virtual;overload;
- Function CreateVariablesResource : TAccountsContainersVariablesResource;virtual;overload;
- Function CreateVersionsResource(AOwner : TComponent) : TAccountsContainersVersionsResource;virtual;overload;
- Function CreateVersionsResource : TAccountsContainersVersionsResource;virtual;overload;
- Property EnvironmentsResource : TAccountsContainersEnvironmentsResource Read GetEnvironmentsInstance;
- Property FoldersEntitiesResource : TAccountsContainersFoldersEntitiesResource Read GetFoldersEntitiesInstance;
- Property FoldersResource : TAccountsContainersFoldersResource Read GetFoldersInstance;
- Property Move_foldersResource : TAccountsContainersMove_foldersResource Read GetMove_foldersInstance;
- Property Reauthorize_environmentsResource : TAccountsContainersReauthorize_environmentsResource Read GetReauthorize_environmentsInstance;
- Property TagsResource : TAccountsContainersTagsResource Read GetTagsInstance;
- Property TriggersResource : TAccountsContainersTriggersResource Read GetTriggersInstance;
- Property VariablesResource : TAccountsContainersVariablesResource Read GetVariablesInstance;
- Property VersionsResource : TAccountsContainersVersionsResource Read GetVersionsInstance;
- end;
-
-
- { --------------------------------------------------------------------
- TAccountsPermissionsResource
- --------------------------------------------------------------------}
-
- TAccountsPermissionsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Create(accountId: string; aUserAccess : TUserAccess) : TUserAccess;overload;
- Procedure Delete(accountId: string; permissionId: string);
- Function Get(accountId: string; permissionId: string) : TUserAccess;
- Function List(accountId: string) : TListAccountUsersResponse;
- Function Update(accountId: string; permissionId: string; aUserAccess : TUserAccess) : TUserAccess;
- end;
-
-
- { --------------------------------------------------------------------
- TAccountsResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TAccountsResource, method Update
-
- TAccountsUpdateOptions = Record
- fingerprint : String;
- end;
-
- TAccountsResource = Class(TGoogleResource)
- Private
- FContainersEnvironmentsInstance : TAccountsContainersEnvironmentsResource;
- FContainersFoldersEntitiesInstance : TAccountsContainersFoldersEntitiesResource;
- FContainersFoldersInstance : TAccountsContainersFoldersResource;
- FContainersMove_foldersInstance : TAccountsContainersMove_foldersResource;
- FContainersReauthorize_environmentsInstance : TAccountsContainersReauthorize_environmentsResource;
- FContainersTagsInstance : TAccountsContainersTagsResource;
- FContainersTriggersInstance : TAccountsContainersTriggersResource;
- FContainersVariablesInstance : TAccountsContainersVariablesResource;
- FContainersVersionsInstance : TAccountsContainersVersionsResource;
- FContainersInstance : TAccountsContainersResource;
- FPermissionsInstance : TAccountsPermissionsResource;
- Function GetContainersEnvironmentsInstance : TAccountsContainersEnvironmentsResource;virtual;
- Function GetContainersFoldersEntitiesInstance : TAccountsContainersFoldersEntitiesResource;virtual;
- Function GetContainersFoldersInstance : TAccountsContainersFoldersResource;virtual;
- Function GetContainersMove_foldersInstance : TAccountsContainersMove_foldersResource;virtual;
- Function GetContainersReauthorize_environmentsInstance : TAccountsContainersReauthorize_environmentsResource;virtual;
- Function GetContainersTagsInstance : TAccountsContainersTagsResource;virtual;
- Function GetContainersTriggersInstance : TAccountsContainersTriggersResource;virtual;
- Function GetContainersVariablesInstance : TAccountsContainersVariablesResource;virtual;
- Function GetContainersVersionsInstance : TAccountsContainersVersionsResource;virtual;
- Function GetContainersInstance : TAccountsContainersResource;virtual;
- Function GetPermissionsInstance : TAccountsPermissionsResource;virtual;
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Get(accountId: string) : TAccount;
- Function List : TListAccountsResponse;
- Function Update(accountId: string; aAccount : TAccount; AQuery : string = '') : TAccount;
- Function Update(accountId: string; aAccount : TAccount; AQuery : TAccountsupdateOptions) : TAccount;
- Function CreateContainersEnvironmentsResource(AOwner : TComponent) : TAccountsContainersEnvironmentsResource;virtual;overload;
- Function CreateContainersEnvironmentsResource : TAccountsContainersEnvironmentsResource;virtual;overload;
- Function CreateContainersFoldersEntitiesResource(AOwner : TComponent) : TAccountsContainersFoldersEntitiesResource;virtual;overload;
- Function CreateContainersFoldersEntitiesResource : TAccountsContainersFoldersEntitiesResource;virtual;overload;
- Function CreateContainersFoldersResource(AOwner : TComponent) : TAccountsContainersFoldersResource;virtual;overload;
- Function CreateContainersFoldersResource : TAccountsContainersFoldersResource;virtual;overload;
- Function CreateContainersMove_foldersResource(AOwner : TComponent) : TAccountsContainersMove_foldersResource;virtual;overload;
- Function CreateContainersMove_foldersResource : TAccountsContainersMove_foldersResource;virtual;overload;
- Function CreateContainersReauthorize_environmentsResource(AOwner : TComponent) : TAccountsContainersReauthorize_environmentsResource;virtual;overload;
- Function CreateContainersReauthorize_environmentsResource : TAccountsContainersReauthorize_environmentsResource;virtual;overload;
- Function CreateContainersTagsResource(AOwner : TComponent) : TAccountsContainersTagsResource;virtual;overload;
- Function CreateContainersTagsResource : TAccountsContainersTagsResource;virtual;overload;
- Function CreateContainersTriggersResource(AOwner : TComponent) : TAccountsContainersTriggersResource;virtual;overload;
- Function CreateContainersTriggersResource : TAccountsContainersTriggersResource;virtual;overload;
- Function CreateContainersVariablesResource(AOwner : TComponent) : TAccountsContainersVariablesResource;virtual;overload;
- Function CreateContainersVariablesResource : TAccountsContainersVariablesResource;virtual;overload;
- Function CreateContainersVersionsResource(AOwner : TComponent) : TAccountsContainersVersionsResource;virtual;overload;
- Function CreateContainersVersionsResource : TAccountsContainersVersionsResource;virtual;overload;
- Function CreateContainersResource(AOwner : TComponent) : TAccountsContainersResource;virtual;overload;
- Function CreateContainersResource : TAccountsContainersResource;virtual;overload;
- Function CreatePermissionsResource(AOwner : TComponent) : TAccountsPermissionsResource;virtual;overload;
- Function CreatePermissionsResource : TAccountsPermissionsResource;virtual;overload;
- Property ContainersEnvironmentsResource : TAccountsContainersEnvironmentsResource Read GetContainersEnvironmentsInstance;
- Property ContainersFoldersEntitiesResource : TAccountsContainersFoldersEntitiesResource Read GetContainersFoldersEntitiesInstance;
- Property ContainersFoldersResource : TAccountsContainersFoldersResource Read GetContainersFoldersInstance;
- Property ContainersMove_foldersResource : TAccountsContainersMove_foldersResource Read GetContainersMove_foldersInstance;
- Property ContainersReauthorize_environmentsResource : TAccountsContainersReauthorize_environmentsResource Read GetContainersReauthorize_environmentsInstance;
- Property ContainersTagsResource : TAccountsContainersTagsResource Read GetContainersTagsInstance;
- Property ContainersTriggersResource : TAccountsContainersTriggersResource Read GetContainersTriggersInstance;
- Property ContainersVariablesResource : TAccountsContainersVariablesResource Read GetContainersVariablesInstance;
- Property ContainersVersionsResource : TAccountsContainersVersionsResource Read GetContainersVersionsInstance;
- Property ContainersResource : TAccountsContainersResource Read GetContainersInstance;
- Property PermissionsResource : TAccountsPermissionsResource Read GetPermissionsInstance;
- end;
-
-
- { --------------------------------------------------------------------
- TTagmanagerAPI
- --------------------------------------------------------------------}
-
- TTagmanagerAPI = Class(TGoogleAPI)
- Private
- FAccountsContainersEnvironmentsInstance : TAccountsContainersEnvironmentsResource;
- FAccountsContainersFoldersEntitiesInstance : TAccountsContainersFoldersEntitiesResource;
- FAccountsContainersFoldersInstance : TAccountsContainersFoldersResource;
- FAccountsContainersMove_foldersInstance : TAccountsContainersMove_foldersResource;
- FAccountsContainersReauthorize_environmentsInstance : TAccountsContainersReauthorize_environmentsResource;
- FAccountsContainersTagsInstance : TAccountsContainersTagsResource;
- FAccountsContainersTriggersInstance : TAccountsContainersTriggersResource;
- FAccountsContainersVariablesInstance : TAccountsContainersVariablesResource;
- FAccountsContainersVersionsInstance : TAccountsContainersVersionsResource;
- FAccountsContainersInstance : TAccountsContainersResource;
- FAccountsPermissionsInstance : TAccountsPermissionsResource;
- FAccountsInstance : TAccountsResource;
- Function GetAccountsContainersEnvironmentsInstance : TAccountsContainersEnvironmentsResource;virtual;
- Function GetAccountsContainersFoldersEntitiesInstance : TAccountsContainersFoldersEntitiesResource;virtual;
- Function GetAccountsContainersFoldersInstance : TAccountsContainersFoldersResource;virtual;
- Function GetAccountsContainersMove_foldersInstance : TAccountsContainersMove_foldersResource;virtual;
- Function GetAccountsContainersReauthorize_environmentsInstance : TAccountsContainersReauthorize_environmentsResource;virtual;
- Function GetAccountsContainersTagsInstance : TAccountsContainersTagsResource;virtual;
- Function GetAccountsContainersTriggersInstance : TAccountsContainersTriggersResource;virtual;
- Function GetAccountsContainersVariablesInstance : TAccountsContainersVariablesResource;virtual;
- Function GetAccountsContainersVersionsInstance : TAccountsContainersVersionsResource;virtual;
- Function GetAccountsContainersInstance : TAccountsContainersResource;virtual;
- Function GetAccountsPermissionsInstance : TAccountsPermissionsResource;virtual;
- Function GetAccountsInstance : TAccountsResource;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 CreateAccountsContainersEnvironmentsResource(AOwner : TComponent) : TAccountsContainersEnvironmentsResource;virtual;overload;
- Function CreateAccountsContainersEnvironmentsResource : TAccountsContainersEnvironmentsResource;virtual;overload;
- Function CreateAccountsContainersFoldersEntitiesResource(AOwner : TComponent) : TAccountsContainersFoldersEntitiesResource;virtual;overload;
- Function CreateAccountsContainersFoldersEntitiesResource : TAccountsContainersFoldersEntitiesResource;virtual;overload;
- Function CreateAccountsContainersFoldersResource(AOwner : TComponent) : TAccountsContainersFoldersResource;virtual;overload;
- Function CreateAccountsContainersFoldersResource : TAccountsContainersFoldersResource;virtual;overload;
- Function CreateAccountsContainersMove_foldersResource(AOwner : TComponent) : TAccountsContainersMove_foldersResource;virtual;overload;
- Function CreateAccountsContainersMove_foldersResource : TAccountsContainersMove_foldersResource;virtual;overload;
- Function CreateAccountsContainersReauthorize_environmentsResource(AOwner : TComponent) : TAccountsContainersReauthorize_environmentsResource;virtual;overload;
- Function CreateAccountsContainersReauthorize_environmentsResource : TAccountsContainersReauthorize_environmentsResource;virtual;overload;
- Function CreateAccountsContainersTagsResource(AOwner : TComponent) : TAccountsContainersTagsResource;virtual;overload;
- Function CreateAccountsContainersTagsResource : TAccountsContainersTagsResource;virtual;overload;
- Function CreateAccountsContainersTriggersResource(AOwner : TComponent) : TAccountsContainersTriggersResource;virtual;overload;
- Function CreateAccountsContainersTriggersResource : TAccountsContainersTriggersResource;virtual;overload;
- Function CreateAccountsContainersVariablesResource(AOwner : TComponent) : TAccountsContainersVariablesResource;virtual;overload;
- Function CreateAccountsContainersVariablesResource : TAccountsContainersVariablesResource;virtual;overload;
- Function CreateAccountsContainersVersionsResource(AOwner : TComponent) : TAccountsContainersVersionsResource;virtual;overload;
- Function CreateAccountsContainersVersionsResource : TAccountsContainersVersionsResource;virtual;overload;
- Function CreateAccountsContainersResource(AOwner : TComponent) : TAccountsContainersResource;virtual;overload;
- Function CreateAccountsContainersResource : TAccountsContainersResource;virtual;overload;
- Function CreateAccountsPermissionsResource(AOwner : TComponent) : TAccountsPermissionsResource;virtual;overload;
- Function CreateAccountsPermissionsResource : TAccountsPermissionsResource;virtual;overload;
- Function CreateAccountsResource(AOwner : TComponent) : TAccountsResource;virtual;overload;
- Function CreateAccountsResource : TAccountsResource;virtual;overload;
- //Add default on-demand instances for resources
- Property AccountsContainersEnvironmentsResource : TAccountsContainersEnvironmentsResource Read GetAccountsContainersEnvironmentsInstance;
- Property AccountsContainersFoldersEntitiesResource : TAccountsContainersFoldersEntitiesResource Read GetAccountsContainersFoldersEntitiesInstance;
- Property AccountsContainersFoldersResource : TAccountsContainersFoldersResource Read GetAccountsContainersFoldersInstance;
- Property AccountsContainersMove_foldersResource : TAccountsContainersMove_foldersResource Read GetAccountsContainersMove_foldersInstance;
- Property AccountsContainersReauthorize_environmentsResource : TAccountsContainersReauthorize_environmentsResource Read GetAccountsContainersReauthorize_environmentsInstance;
- Property AccountsContainersTagsResource : TAccountsContainersTagsResource Read GetAccountsContainersTagsInstance;
- Property AccountsContainersTriggersResource : TAccountsContainersTriggersResource Read GetAccountsContainersTriggersInstance;
- Property AccountsContainersVariablesResource : TAccountsContainersVariablesResource Read GetAccountsContainersVariablesInstance;
- Property AccountsContainersVersionsResource : TAccountsContainersVersionsResource Read GetAccountsContainersVersionsInstance;
- Property AccountsContainersResource : TAccountsContainersResource Read GetAccountsContainersInstance;
- Property AccountsPermissionsResource : TAccountsPermissionsResource Read GetAccountsPermissionsInstance;
- Property AccountsResource : TAccountsResource Read GetAccountsInstance;
- end;
- implementation
- { --------------------------------------------------------------------
- TAccount
- --------------------------------------------------------------------}
- Procedure TAccount.SetaccountId(AIndex : Integer; const AValue : String);
- begin
- If (FaccountId=AValue) then exit;
- FaccountId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAccount.Setfingerprint(AIndex : Integer; const AValue : String);
- begin
- If (Ffingerprint=AValue) then exit;
- Ffingerprint:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAccount.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAccount.SetshareData(AIndex : Integer; const AValue : boolean);
- begin
- If (FshareData=AValue) then exit;
- FshareData:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TAccountAccess
- --------------------------------------------------------------------}
- Procedure TAccountAccess.Setpermission(AIndex : Integer; const AValue : TStringArray);
- begin
- If (Fpermission=AValue) then exit;
- Fpermission:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TAccountAccess.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'permission' : SetLength(Fpermission,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TCondition
- --------------------------------------------------------------------}
- Procedure TCondition.Setparameter(AIndex : Integer; const AValue : TConditionTypeparameterArray);
- begin
- If (Fparameter=AValue) then exit;
- Fparameter:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCondition.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TCondition.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 TCondition.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'parameter' : SetLength(Fparameter,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TContainer
- --------------------------------------------------------------------}
- Procedure TContainer.SetaccountId(AIndex : Integer; const AValue : String);
- begin
- If (FaccountId=AValue) then exit;
- FaccountId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainer.SetcontainerId(AIndex : Integer; const AValue : String);
- begin
- If (FcontainerId=AValue) then exit;
- FcontainerId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainer.SetdomainName(AIndex : Integer; const AValue : TStringArray);
- begin
- If (FdomainName=AValue) then exit;
- FdomainName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainer.SetenabledBuiltInVariable(AIndex : Integer; const AValue : TStringArray);
- begin
- If (FenabledBuiltInVariable=AValue) then exit;
- FenabledBuiltInVariable:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainer.Setfingerprint(AIndex : Integer; const AValue : String);
- begin
- If (Ffingerprint=AValue) then exit;
- Ffingerprint:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainer.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainer.Setnotes(AIndex : Integer; const AValue : String);
- begin
- If (Fnotes=AValue) then exit;
- Fnotes:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainer.SetpublicId(AIndex : Integer; const AValue : String);
- begin
- If (FpublicId=AValue) then exit;
- FpublicId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainer.SettimeZoneCountryId(AIndex : Integer; const AValue : String);
- begin
- If (FtimeZoneCountryId=AValue) then exit;
- FtimeZoneCountryId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainer.SettimeZoneId(AIndex : Integer; const AValue : String);
- begin
- If (FtimeZoneId=AValue) then exit;
- FtimeZoneId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainer.SetusageContext(AIndex : Integer; const AValue : TStringArray);
- begin
- If (FusageContext=AValue) then exit;
- FusageContext:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TContainer.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'domainname' : SetLength(FdomainName,ALength);
- 'enabledbuiltinvariable' : SetLength(FenabledBuiltInVariable,ALength);
- 'usagecontext' : SetLength(FusageContext,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TContainerAccess
- --------------------------------------------------------------------}
- Procedure TContainerAccess.SetcontainerId(AIndex : Integer; const AValue : String);
- begin
- If (FcontainerId=AValue) then exit;
- FcontainerId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainerAccess.Setpermission(AIndex : Integer; const AValue : TStringArray);
- begin
- If (Fpermission=AValue) then exit;
- Fpermission:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TContainerAccess.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'permission' : SetLength(Fpermission,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TContainerVersion
- --------------------------------------------------------------------}
- Procedure TContainerVersion.SetaccountId(AIndex : Integer; const AValue : String);
- begin
- If (FaccountId=AValue) then exit;
- FaccountId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainerVersion.Setcontainer(AIndex : Integer; const AValue : TContainer);
- begin
- If (Fcontainer=AValue) then exit;
- Fcontainer:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainerVersion.SetcontainerId(AIndex : Integer; const AValue : String);
- begin
- If (FcontainerId=AValue) then exit;
- FcontainerId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainerVersion.SetcontainerVersionId(AIndex : Integer; const AValue : String);
- begin
- If (FcontainerVersionId=AValue) then exit;
- FcontainerVersionId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainerVersion.Setdeleted(AIndex : Integer; const AValue : boolean);
- begin
- If (Fdeleted=AValue) then exit;
- Fdeleted:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainerVersion.Setfingerprint(AIndex : Integer; const AValue : String);
- begin
- If (Ffingerprint=AValue) then exit;
- Ffingerprint:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainerVersion.Setfolder(AIndex : Integer; const AValue : TContainerVersionTypefolderArray);
- begin
- If (Ffolder=AValue) then exit;
- Ffolder:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainerVersion.Setmacro(AIndex : Integer; const AValue : TContainerVersionTypemacroArray);
- begin
- If (Fmacro=AValue) then exit;
- Fmacro:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainerVersion.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainerVersion.Setnotes(AIndex : Integer; const AValue : String);
- begin
- If (Fnotes=AValue) then exit;
- Fnotes:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainerVersion.Setrule(AIndex : Integer; const AValue : TContainerVersionTyperuleArray);
- begin
- If (Frule=AValue) then exit;
- Frule:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainerVersion.Settag(AIndex : Integer; const AValue : TContainerVersionTypetagArray);
- begin
- If (Ftag=AValue) then exit;
- Ftag:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainerVersion.Settrigger(AIndex : Integer; const AValue : TContainerVersionTypetriggerArray);
- begin
- If (Ftrigger=AValue) then exit;
- Ftrigger:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainerVersion.Setvariable(AIndex : Integer; const AValue : TContainerVersionTypevariableArray);
- begin
- If (Fvariable=AValue) then exit;
- Fvariable:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TContainerVersion.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'folder' : SetLength(Ffolder,ALength);
- 'macro' : SetLength(Fmacro,ALength);
- 'rule' : SetLength(Frule,ALength);
- 'tag' : SetLength(Ftag,ALength);
- 'trigger' : SetLength(Ftrigger,ALength);
- 'variable' : SetLength(Fvariable,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TContainerVersionHeader
- --------------------------------------------------------------------}
- Procedure TContainerVersionHeader.SetaccountId(AIndex : Integer; const AValue : String);
- begin
- If (FaccountId=AValue) then exit;
- FaccountId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainerVersionHeader.SetcontainerId(AIndex : Integer; const AValue : String);
- begin
- If (FcontainerId=AValue) then exit;
- FcontainerId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainerVersionHeader.SetcontainerVersionId(AIndex : Integer; const AValue : String);
- begin
- If (FcontainerVersionId=AValue) then exit;
- FcontainerVersionId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainerVersionHeader.Setdeleted(AIndex : Integer; const AValue : boolean);
- begin
- If (Fdeleted=AValue) then exit;
- Fdeleted:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainerVersionHeader.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainerVersionHeader.SetnumMacros(AIndex : Integer; const AValue : String);
- begin
- If (FnumMacros=AValue) then exit;
- FnumMacros:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainerVersionHeader.SetnumRules(AIndex : Integer; const AValue : String);
- begin
- If (FnumRules=AValue) then exit;
- FnumRules:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainerVersionHeader.SetnumTags(AIndex : Integer; const AValue : String);
- begin
- If (FnumTags=AValue) then exit;
- FnumTags:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainerVersionHeader.SetnumTriggers(AIndex : Integer; const AValue : String);
- begin
- If (FnumTriggers=AValue) then exit;
- FnumTriggers:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TContainerVersionHeader.SetnumVariables(AIndex : Integer; const AValue : String);
- begin
- If (FnumVariables=AValue) then exit;
- FnumVariables:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TCreateContainerVersionRequestVersionOptions
- --------------------------------------------------------------------}
- Procedure TCreateContainerVersionRequestVersionOptions.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCreateContainerVersionRequestVersionOptions.Setnotes(AIndex : Integer; const AValue : String);
- begin
- If (Fnotes=AValue) then exit;
- Fnotes:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCreateContainerVersionRequestVersionOptions.SetquickPreview(AIndex : Integer; const AValue : boolean);
- begin
- If (FquickPreview=AValue) then exit;
- FquickPreview:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TCreateContainerVersionResponse
- --------------------------------------------------------------------}
- Procedure TCreateContainerVersionResponse.SetcompilerError(AIndex : Integer; const AValue : boolean);
- begin
- If (FcompilerError=AValue) then exit;
- FcompilerError:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCreateContainerVersionResponse.SetcontainerVersion(AIndex : Integer; const AValue : TContainerVersion);
- begin
- If (FcontainerVersion=AValue) then exit;
- FcontainerVersion:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TEnvironment
- --------------------------------------------------------------------}
- Procedure TEnvironment.SetaccountId(AIndex : Integer; const AValue : String);
- begin
- If (FaccountId=AValue) then exit;
- FaccountId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEnvironment.SetauthorizationCode(AIndex : Integer; const AValue : String);
- begin
- If (FauthorizationCode=AValue) then exit;
- FauthorizationCode:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEnvironment.SetauthorizationTimestampMs(AIndex : Integer; const AValue : String);
- begin
- If (FauthorizationTimestampMs=AValue) then exit;
- FauthorizationTimestampMs:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEnvironment.SetcontainerId(AIndex : Integer; const AValue : String);
- begin
- If (FcontainerId=AValue) then exit;
- FcontainerId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEnvironment.SetcontainerVersionId(AIndex : Integer; const AValue : String);
- begin
- If (FcontainerVersionId=AValue) then exit;
- FcontainerVersionId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEnvironment.Setdescription(AIndex : Integer; const AValue : String);
- begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEnvironment.SetenableDebug(AIndex : Integer; const AValue : boolean);
- begin
- If (FenableDebug=AValue) then exit;
- FenableDebug:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEnvironment.SetenvironmentId(AIndex : Integer; const AValue : String);
- begin
- If (FenvironmentId=AValue) then exit;
- FenvironmentId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEnvironment.Setfingerprint(AIndex : Integer; const AValue : String);
- begin
- If (Ffingerprint=AValue) then exit;
- Ffingerprint:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEnvironment.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEnvironment.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEnvironment.Seturl(AIndex : Integer; const AValue : String);
- begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TEnvironment.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- { --------------------------------------------------------------------
- TFolder
- --------------------------------------------------------------------}
- Procedure TFolder.SetaccountId(AIndex : Integer; const AValue : String);
- begin
- If (FaccountId=AValue) then exit;
- FaccountId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TFolder.SetcontainerId(AIndex : Integer; const AValue : String);
- begin
- If (FcontainerId=AValue) then exit;
- FcontainerId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TFolder.Setfingerprint(AIndex : Integer; const AValue : String);
- begin
- If (Ffingerprint=AValue) then exit;
- Ffingerprint:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TFolder.SetfolderId(AIndex : Integer; const AValue : String);
- begin
- If (FfolderId=AValue) then exit;
- FfolderId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TFolder.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TFolderEntities
- --------------------------------------------------------------------}
- Procedure TFolderEntities.Settag(AIndex : Integer; const AValue : TFolderEntitiesTypetagArray);
- begin
- If (Ftag=AValue) then exit;
- Ftag:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TFolderEntities.Settrigger(AIndex : Integer; const AValue : TFolderEntitiesTypetriggerArray);
- begin
- If (Ftrigger=AValue) then exit;
- Ftrigger:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TFolderEntities.Setvariable(AIndex : Integer; const AValue : TFolderEntitiesTypevariableArray);
- begin
- If (Fvariable=AValue) then exit;
- Fvariable:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TFolderEntities.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'tag' : SetLength(Ftag,ALength);
- 'trigger' : SetLength(Ftrigger,ALength);
- 'variable' : SetLength(Fvariable,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TListAccountUsersResponse
- --------------------------------------------------------------------}
- Procedure TListAccountUsersResponse.SetuserAccess(AIndex : Integer; const AValue : TListAccountUsersResponseTypeuserAccessArray);
- begin
- If (FuserAccess=AValue) then exit;
- FuserAccess:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TListAccountUsersResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'useraccess' : SetLength(FuserAccess,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TListAccountsResponse
- --------------------------------------------------------------------}
- Procedure TListAccountsResponse.Setaccounts(AIndex : Integer; const AValue : TListAccountsResponseTypeaccountsArray);
- begin
- If (Faccounts=AValue) then exit;
- Faccounts:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TListAccountsResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'accounts' : SetLength(Faccounts,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TListContainerVersionsResponse
- --------------------------------------------------------------------}
- Procedure TListContainerVersionsResponse.SetcontainerVersion(AIndex : Integer; const AValue : TListContainerVersionsResponseTypecontainerVersionArray);
- begin
- If (FcontainerVersion=AValue) then exit;
- FcontainerVersion:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TListContainerVersionsResponse.SetcontainerVersionHeader(AIndex : Integer; const AValue : TListContainerVersionsResponseTypecontainerVersionHeaderArray);
- begin
- If (FcontainerVersionHeader=AValue) then exit;
- FcontainerVersionHeader:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TListContainerVersionsResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'containerversion' : SetLength(FcontainerVersion,ALength);
- 'containerversionheader' : SetLength(FcontainerVersionHeader,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TListContainersResponse
- --------------------------------------------------------------------}
- Procedure TListContainersResponse.Setcontainers(AIndex : Integer; const AValue : TListContainersResponseTypecontainersArray);
- begin
- If (Fcontainers=AValue) then exit;
- Fcontainers:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TListContainersResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'containers' : SetLength(Fcontainers,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TListEnvironmentsResponse
- --------------------------------------------------------------------}
- Procedure TListEnvironmentsResponse.Setenvironments(AIndex : Integer; const AValue : TListEnvironmentsResponseTypeenvironmentsArray);
- begin
- If (Fenvironments=AValue) then exit;
- Fenvironments:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TListEnvironmentsResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'environments' : SetLength(Fenvironments,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TListFoldersResponse
- --------------------------------------------------------------------}
- Procedure TListFoldersResponse.Setfolders(AIndex : Integer; const AValue : TListFoldersResponseTypefoldersArray);
- begin
- If (Ffolders=AValue) then exit;
- Ffolders:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TListFoldersResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'folders' : SetLength(Ffolders,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TListTagsResponse
- --------------------------------------------------------------------}
- Procedure TListTagsResponse.Settags(AIndex : Integer; const AValue : TListTagsResponseTypetagsArray);
- begin
- If (Ftags=AValue) then exit;
- Ftags:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TListTagsResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'tags' : SetLength(Ftags,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TListTriggersResponse
- --------------------------------------------------------------------}
- Procedure TListTriggersResponse.Settriggers(AIndex : Integer; const AValue : TListTriggersResponseTypetriggersArray);
- begin
- If (Ftriggers=AValue) then exit;
- Ftriggers:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TListTriggersResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'triggers' : SetLength(Ftriggers,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TListVariablesResponse
- --------------------------------------------------------------------}
- Procedure TListVariablesResponse.Setvariables(AIndex : Integer; const AValue : TListVariablesResponseTypevariablesArray);
- begin
- If (Fvariables=AValue) then exit;
- Fvariables:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TListVariablesResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'variables' : SetLength(Fvariables,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TMacro
- --------------------------------------------------------------------}
- Procedure TMacro.SetaccountId(AIndex : Integer; const AValue : String);
- begin
- If (FaccountId=AValue) then exit;
- FaccountId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMacro.SetcontainerId(AIndex : Integer; const AValue : String);
- begin
- If (FcontainerId=AValue) then exit;
- FcontainerId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMacro.SetdisablingRuleId(AIndex : Integer; const AValue : TStringArray);
- begin
- If (FdisablingRuleId=AValue) then exit;
- FdisablingRuleId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMacro.SetenablingRuleId(AIndex : Integer; const AValue : TStringArray);
- begin
- If (FenablingRuleId=AValue) then exit;
- FenablingRuleId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMacro.Setfingerprint(AIndex : Integer; const AValue : String);
- begin
- If (Ffingerprint=AValue) then exit;
- Ffingerprint:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMacro.SetmacroId(AIndex : Integer; const AValue : String);
- begin
- If (FmacroId=AValue) then exit;
- FmacroId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMacro.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMacro.Setnotes(AIndex : Integer; const AValue : String);
- begin
- If (Fnotes=AValue) then exit;
- Fnotes:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMacro.Setparameter(AIndex : Integer; const AValue : TMacroTypeparameterArray);
- begin
- If (Fparameter=AValue) then exit;
- Fparameter:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMacro.SetparentFolderId(AIndex : Integer; const AValue : String);
- begin
- If (FparentFolderId=AValue) then exit;
- FparentFolderId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMacro.SetscheduleEndMs(AIndex : Integer; const AValue : String);
- begin
- If (FscheduleEndMs=AValue) then exit;
- FscheduleEndMs:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMacro.SetscheduleStartMs(AIndex : Integer; const AValue : String);
- begin
- If (FscheduleStartMs=AValue) then exit;
- FscheduleStartMs:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMacro.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TMacro.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 TMacro.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'disablingruleid' : SetLength(FdisablingRuleId,ALength);
- 'enablingruleid' : SetLength(FenablingRuleId,ALength);
- 'parameter' : SetLength(Fparameter,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TParameter
- --------------------------------------------------------------------}
- Procedure TParameter.Setkey(AIndex : Integer; const AValue : String);
- begin
- If (Fkey=AValue) then exit;
- Fkey:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TParameter.Setlist(AIndex : Integer; const AValue : TParameterTypelistArray);
- begin
- If (Flist=AValue) then exit;
- Flist:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TParameter.Setmap(AIndex : Integer; const AValue : TParameterTypemapArray);
- begin
- If (Fmap=AValue) then exit;
- Fmap:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TParameter.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TParameter.Setvalue(AIndex : Integer; const AValue : String);
- begin
- If (Fvalue=AValue) then exit;
- Fvalue:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TParameter.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 TParameter.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'list' : SetLength(Flist,ALength);
- 'map' : SetLength(Fmap,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TPublishContainerVersionResponse
- --------------------------------------------------------------------}
- Procedure TPublishContainerVersionResponse.SetcompilerError(AIndex : Integer; const AValue : boolean);
- begin
- If (FcompilerError=AValue) then exit;
- FcompilerError:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPublishContainerVersionResponse.SetcontainerVersion(AIndex : Integer; const AValue : TContainerVersion);
- begin
- If (FcontainerVersion=AValue) then exit;
- FcontainerVersion:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TRule
- --------------------------------------------------------------------}
- Procedure TRule.SetaccountId(AIndex : Integer; const AValue : String);
- begin
- If (FaccountId=AValue) then exit;
- FaccountId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRule.Setcondition(AIndex : Integer; const AValue : TRuleTypeconditionArray);
- begin
- If (Fcondition=AValue) then exit;
- Fcondition:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRule.SetcontainerId(AIndex : Integer; const AValue : String);
- begin
- If (FcontainerId=AValue) then exit;
- FcontainerId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRule.Setfingerprint(AIndex : Integer; const AValue : String);
- begin
- If (Ffingerprint=AValue) then exit;
- Ffingerprint:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRule.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRule.Setnotes(AIndex : Integer; const AValue : String);
- begin
- If (Fnotes=AValue) then exit;
- Fnotes:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TRule.SetruleId(AIndex : Integer; const AValue : String);
- begin
- If (FruleId=AValue) then exit;
- FruleId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TRule.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'condition' : SetLength(Fcondition,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TSetupTag
- --------------------------------------------------------------------}
- Procedure TSetupTag.SetstopOnSetupFailure(AIndex : Integer; const AValue : boolean);
- begin
- If (FstopOnSetupFailure=AValue) then exit;
- FstopOnSetupFailure:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TSetupTag.SettagName(AIndex : Integer; const AValue : String);
- begin
- If (FtagName=AValue) then exit;
- FtagName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TTag
- --------------------------------------------------------------------}
- Procedure TTag.SetaccountId(AIndex : Integer; const AValue : String);
- begin
- If (FaccountId=AValue) then exit;
- FaccountId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTag.SetblockingRuleId(AIndex : Integer; const AValue : TStringArray);
- begin
- If (FblockingRuleId=AValue) then exit;
- FblockingRuleId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTag.SetblockingTriggerId(AIndex : Integer; const AValue : TStringArray);
- begin
- If (FblockingTriggerId=AValue) then exit;
- FblockingTriggerId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTag.SetcontainerId(AIndex : Integer; const AValue : String);
- begin
- If (FcontainerId=AValue) then exit;
- FcontainerId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTag.Setfingerprint(AIndex : Integer; const AValue : String);
- begin
- If (Ffingerprint=AValue) then exit;
- Ffingerprint:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTag.SetfiringRuleId(AIndex : Integer; const AValue : TStringArray);
- begin
- If (FfiringRuleId=AValue) then exit;
- FfiringRuleId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTag.SetfiringTriggerId(AIndex : Integer; const AValue : TStringArray);
- begin
- If (FfiringTriggerId=AValue) then exit;
- FfiringTriggerId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTag.SetliveOnly(AIndex : Integer; const AValue : boolean);
- begin
- If (FliveOnly=AValue) then exit;
- FliveOnly:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTag.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTag.Setnotes(AIndex : Integer; const AValue : String);
- begin
- If (Fnotes=AValue) then exit;
- Fnotes:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTag.Setparameter(AIndex : Integer; const AValue : TTagTypeparameterArray);
- begin
- If (Fparameter=AValue) then exit;
- Fparameter:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTag.SetparentFolderId(AIndex : Integer; const AValue : String);
- begin
- If (FparentFolderId=AValue) then exit;
- FparentFolderId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTag.Setpriority(AIndex : Integer; const AValue : TParameter);
- begin
- If (Fpriority=AValue) then exit;
- Fpriority:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTag.SetscheduleEndMs(AIndex : Integer; const AValue : String);
- begin
- If (FscheduleEndMs=AValue) then exit;
- FscheduleEndMs:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTag.SetscheduleStartMs(AIndex : Integer; const AValue : String);
- begin
- If (FscheduleStartMs=AValue) then exit;
- FscheduleStartMs:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTag.SetsetupTag(AIndex : Integer; const AValue : TTagTypesetupTagArray);
- begin
- If (FsetupTag=AValue) then exit;
- FsetupTag:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTag.SettagFiringOption(AIndex : Integer; const AValue : String);
- begin
- If (FtagFiringOption=AValue) then exit;
- FtagFiringOption:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTag.SettagId(AIndex : Integer; const AValue : String);
- begin
- If (FtagId=AValue) then exit;
- FtagId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTag.SetteardownTag(AIndex : Integer; const AValue : TTagTypeteardownTagArray);
- begin
- If (FteardownTag=AValue) then exit;
- FteardownTag:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTag.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TTag.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 TTag.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'blockingruleid' : SetLength(FblockingRuleId,ALength);
- 'blockingtriggerid' : SetLength(FblockingTriggerId,ALength);
- 'firingruleid' : SetLength(FfiringRuleId,ALength);
- 'firingtriggerid' : SetLength(FfiringTriggerId,ALength);
- 'parameter' : SetLength(Fparameter,ALength);
- 'setuptag' : SetLength(FsetupTag,ALength);
- 'teardowntag' : SetLength(FteardownTag,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TTeardownTag
- --------------------------------------------------------------------}
- Procedure TTeardownTag.SetstopTeardownOnFailure(AIndex : Integer; const AValue : boolean);
- begin
- If (FstopTeardownOnFailure=AValue) then exit;
- FstopTeardownOnFailure:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTeardownTag.SettagName(AIndex : Integer; const AValue : String);
- begin
- If (FtagName=AValue) then exit;
- FtagName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TTrigger
- --------------------------------------------------------------------}
- Procedure TTrigger.SetaccountId(AIndex : Integer; const AValue : String);
- begin
- If (FaccountId=AValue) then exit;
- FaccountId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTrigger.SetautoEventFilter(AIndex : Integer; const AValue : TTriggerTypeautoEventFilterArray);
- begin
- If (FautoEventFilter=AValue) then exit;
- FautoEventFilter:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTrigger.SetcheckValidation(AIndex : Integer; const AValue : TParameter);
- begin
- If (FcheckValidation=AValue) then exit;
- FcheckValidation:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTrigger.SetcontainerId(AIndex : Integer; const AValue : String);
- begin
- If (FcontainerId=AValue) then exit;
- FcontainerId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTrigger.SetcustomEventFilter(AIndex : Integer; const AValue : TTriggerTypecustomEventFilterArray);
- begin
- If (FcustomEventFilter=AValue) then exit;
- FcustomEventFilter:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTrigger.SetenableAllVideos(AIndex : Integer; const AValue : TParameter);
- begin
- If (FenableAllVideos=AValue) then exit;
- FenableAllVideos:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTrigger.SeteventName(AIndex : Integer; const AValue : TParameter);
- begin
- If (FeventName=AValue) then exit;
- FeventName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTrigger.Setfilter(AIndex : Integer; const AValue : TTriggerTypefilterArray);
- begin
- If (Ffilter=AValue) then exit;
- Ffilter:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTrigger.Setfingerprint(AIndex : Integer; const AValue : String);
- begin
- If (Ffingerprint=AValue) then exit;
- Ffingerprint:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTrigger.Setinterval(AIndex : Integer; const AValue : TParameter);
- begin
- If (Finterval=AValue) then exit;
- Finterval:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTrigger.Setlimit(AIndex : Integer; const AValue : TParameter);
- begin
- If (Flimit=AValue) then exit;
- Flimit:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTrigger.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTrigger.SetparentFolderId(AIndex : Integer; const AValue : String);
- begin
- If (FparentFolderId=AValue) then exit;
- FparentFolderId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTrigger.SettriggerId(AIndex : Integer; const AValue : String);
- begin
- If (FtriggerId=AValue) then exit;
- FtriggerId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTrigger.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTrigger.SetuniqueTriggerId(AIndex : Integer; const AValue : TParameter);
- begin
- If (FuniqueTriggerId=AValue) then exit;
- FuniqueTriggerId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTrigger.SetvideoPercentageList(AIndex : Integer; const AValue : TParameter);
- begin
- If (FvideoPercentageList=AValue) then exit;
- FvideoPercentageList:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTrigger.SetwaitForTags(AIndex : Integer; const AValue : TParameter);
- begin
- If (FwaitForTags=AValue) then exit;
- FwaitForTags:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTrigger.SetwaitForTagsTimeout(AIndex : Integer; const AValue : TParameter);
- begin
- If (FwaitForTagsTimeout=AValue) then exit;
- FwaitForTagsTimeout:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TTrigger.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 TTrigger.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'autoeventfilter' : SetLength(FautoEventFilter,ALength);
- 'customeventfilter' : SetLength(FcustomEventFilter,ALength);
- 'filter' : SetLength(Ffilter,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TUserAccess
- --------------------------------------------------------------------}
- Procedure TUserAccess.SetaccountAccess(AIndex : Integer; const AValue : TAccountAccess);
- begin
- If (FaccountAccess=AValue) then exit;
- FaccountAccess:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TUserAccess.SetaccountId(AIndex : Integer; const AValue : String);
- begin
- If (FaccountId=AValue) then exit;
- FaccountId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TUserAccess.SetcontainerAccess(AIndex : Integer; const AValue : TUserAccessTypecontainerAccessArray);
- begin
- If (FcontainerAccess=AValue) then exit;
- FcontainerAccess:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TUserAccess.SetemailAddress(AIndex : Integer; const AValue : String);
- begin
- If (FemailAddress=AValue) then exit;
- FemailAddress:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TUserAccess.SetpermissionId(AIndex : Integer; const AValue : String);
- begin
- If (FpermissionId=AValue) then exit;
- FpermissionId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TUserAccess.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'containeraccess' : SetLength(FcontainerAccess,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TVariable
- --------------------------------------------------------------------}
- Procedure TVariable.SetaccountId(AIndex : Integer; const AValue : String);
- begin
- If (FaccountId=AValue) then exit;
- FaccountId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TVariable.SetcontainerId(AIndex : Integer; const AValue : String);
- begin
- If (FcontainerId=AValue) then exit;
- FcontainerId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TVariable.SetdisablingTriggerId(AIndex : Integer; const AValue : TStringArray);
- begin
- If (FdisablingTriggerId=AValue) then exit;
- FdisablingTriggerId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TVariable.SetenablingTriggerId(AIndex : Integer; const AValue : TStringArray);
- begin
- If (FenablingTriggerId=AValue) then exit;
- FenablingTriggerId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TVariable.Setfingerprint(AIndex : Integer; const AValue : String);
- begin
- If (Ffingerprint=AValue) then exit;
- Ffingerprint:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TVariable.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TVariable.Setnotes(AIndex : Integer; const AValue : String);
- begin
- If (Fnotes=AValue) then exit;
- Fnotes:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TVariable.Setparameter(AIndex : Integer; const AValue : TVariableTypeparameterArray);
- begin
- If (Fparameter=AValue) then exit;
- Fparameter:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TVariable.SetparentFolderId(AIndex : Integer; const AValue : String);
- begin
- If (FparentFolderId=AValue) then exit;
- FparentFolderId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TVariable.SetscheduleEndMs(AIndex : Integer; const AValue : String);
- begin
- If (FscheduleEndMs=AValue) then exit;
- FscheduleEndMs:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TVariable.SetscheduleStartMs(AIndex : Integer; const AValue : String);
- begin
- If (FscheduleStartMs=AValue) then exit;
- FscheduleStartMs:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TVariable.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TVariable.SetvariableId(AIndex : Integer; const AValue : String);
- begin
- If (FvariableId=AValue) then exit;
- FvariableId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TVariable.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 TVariable.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'disablingtriggerid' : SetLength(FdisablingTriggerId,ALength);
- 'enablingtriggerid' : SetLength(FenablingTriggerId,ALength);
- 'parameter' : SetLength(Fparameter,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TAccountsContainersEnvironmentsResource
- --------------------------------------------------------------------}
- Class Function TAccountsContainersEnvironmentsResource.ResourceName : String;
- begin
- Result:='environments';
- end;
- Class Function TAccountsContainersEnvironmentsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TtagmanagerAPI;
- end;
- Function TAccountsContainersEnvironmentsResource.Create(accountId: string; containerId: string; aEnvironment : TEnvironment) : TEnvironment;
- Const
- _HTTPMethod = 'POST';
- _Path = 'accounts/{accountId}/containers/{containerId}/environments';
- _Methodid = 'tagmanager.accounts.containers.environments.create';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aEnvironment,TEnvironment) as TEnvironment;
- end;
- Procedure TAccountsContainersEnvironmentsResource.Delete(accountId: string; containerId: string; environmentId: string);
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'accounts/{accountId}/containers/{containerId}/environments/{environmentId}';
- _Methodid = 'tagmanager.accounts.containers.environments.delete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'environmentId',environmentId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
- end;
- Function TAccountsContainersEnvironmentsResource.Get(accountId: string; containerId: string; environmentId: string) : TEnvironment;
- Const
- _HTTPMethod = 'GET';
- _Path = 'accounts/{accountId}/containers/{containerId}/environments/{environmentId}';
- _Methodid = 'tagmanager.accounts.containers.environments.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'environmentId',environmentId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TEnvironment) as TEnvironment;
- end;
- Function TAccountsContainersEnvironmentsResource.List(accountId: string; containerId: string) : TListEnvironmentsResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'accounts/{accountId}/containers/{containerId}/environments';
- _Methodid = 'tagmanager.accounts.containers.environments.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListEnvironmentsResponse) as TListEnvironmentsResponse;
- end;
- Function TAccountsContainersEnvironmentsResource.Patch(accountId: string; containerId: string; environmentId: string; aEnvironment : TEnvironment; AQuery : string = '') : TEnvironment;
- Const
- _HTTPMethod = 'PATCH';
- _Path = 'accounts/{accountId}/containers/{containerId}/environments/{environmentId}';
- _Methodid = 'tagmanager.accounts.containers.environments.patch';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'environmentId',environmentId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,aEnvironment,TEnvironment) as TEnvironment;
- end;
- Function TAccountsContainersEnvironmentsResource.Patch(accountId: string; containerId: string; environmentId: string; aEnvironment : TEnvironment; AQuery : TAccountsContainersEnvironmentspatchOptions) : TEnvironment;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'fingerprint',AQuery.fingerprint);
- Result:=Patch(accountId,containerId,environmentId,aEnvironment,_Q);
- end;
- Function TAccountsContainersEnvironmentsResource.Update(accountId: string; containerId: string; environmentId: string; aEnvironment : TEnvironment; AQuery : string = '') : TEnvironment;
- Const
- _HTTPMethod = 'PUT';
- _Path = 'accounts/{accountId}/containers/{containerId}/environments/{environmentId}';
- _Methodid = 'tagmanager.accounts.containers.environments.update';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'environmentId',environmentId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,aEnvironment,TEnvironment) as TEnvironment;
- end;
- Function TAccountsContainersEnvironmentsResource.Update(accountId: string; containerId: string; environmentId: string; aEnvironment : TEnvironment; AQuery : TAccountsContainersEnvironmentsupdateOptions) : TEnvironment;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'fingerprint',AQuery.fingerprint);
- Result:=Update(accountId,containerId,environmentId,aEnvironment,_Q);
- end;
- { --------------------------------------------------------------------
- TAccountsContainersFoldersEntitiesResource
- --------------------------------------------------------------------}
- Class Function TAccountsContainersFoldersEntitiesResource.ResourceName : String;
- begin
- Result:='entities';
- end;
- Class Function TAccountsContainersFoldersEntitiesResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TtagmanagerAPI;
- end;
- Function TAccountsContainersFoldersEntitiesResource.List(accountId: string; containerId: string; folderId: string) : TFolderEntities;
- Const
- _HTTPMethod = 'GET';
- _Path = 'accounts/{accountId}/containers/{containerId}/folders/{folderId}/entities';
- _Methodid = 'tagmanager.accounts.containers.folders.entities.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'folderId',folderId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TFolderEntities) as TFolderEntities;
- end;
- { --------------------------------------------------------------------
- TAccountsContainersFoldersResource
- --------------------------------------------------------------------}
- Class Function TAccountsContainersFoldersResource.ResourceName : String;
- begin
- Result:='folders';
- end;
- Class Function TAccountsContainersFoldersResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TtagmanagerAPI;
- end;
- Function TAccountsContainersFoldersResource.Create(accountId: string; containerId: string; aFolder : TFolder) : TFolder;
- Const
- _HTTPMethod = 'POST';
- _Path = 'accounts/{accountId}/containers/{containerId}/folders';
- _Methodid = 'tagmanager.accounts.containers.folders.create';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aFolder,TFolder) as TFolder;
- end;
- Procedure TAccountsContainersFoldersResource.Delete(accountId: string; containerId: string; folderId: string);
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'accounts/{accountId}/containers/{containerId}/folders/{folderId}';
- _Methodid = 'tagmanager.accounts.containers.folders.delete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'folderId',folderId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
- end;
- Function TAccountsContainersFoldersResource.Get(accountId: string; containerId: string; folderId: string) : TFolder;
- Const
- _HTTPMethod = 'GET';
- _Path = 'accounts/{accountId}/containers/{containerId}/folders/{folderId}';
- _Methodid = 'tagmanager.accounts.containers.folders.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'folderId',folderId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TFolder) as TFolder;
- end;
- Function TAccountsContainersFoldersResource.List(accountId: string; containerId: string) : TListFoldersResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'accounts/{accountId}/containers/{containerId}/folders';
- _Methodid = 'tagmanager.accounts.containers.folders.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListFoldersResponse) as TListFoldersResponse;
- end;
- Function TAccountsContainersFoldersResource.Update(accountId: string; containerId: string; folderId: string; aFolder : TFolder; AQuery : string = '') : TFolder;
- Const
- _HTTPMethod = 'PUT';
- _Path = 'accounts/{accountId}/containers/{containerId}/folders/{folderId}';
- _Methodid = 'tagmanager.accounts.containers.folders.update';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'folderId',folderId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,aFolder,TFolder) as TFolder;
- end;
- Function TAccountsContainersFoldersResource.Update(accountId: string; containerId: string; folderId: string; aFolder : TFolder; AQuery : TAccountsContainersFoldersupdateOptions) : TFolder;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'fingerprint',AQuery.fingerprint);
- Result:=Update(accountId,containerId,folderId,aFolder,_Q);
- end;
- Function TAccountsContainersFoldersResource.GetEntitiesInstance : TAccountsContainersFoldersEntitiesResource;
- begin
- if (FEntitiesInstance=Nil) then
- FEntitiesInstance:=CreateEntitiesResource;
- Result:=FEntitiesInstance;
- end;
- Function TAccountsContainersFoldersResource.CreateEntitiesResource : TAccountsContainersFoldersEntitiesResource;
- begin
- Result:=CreateEntitiesResource(Self);
- end;
- Function TAccountsContainersFoldersResource.CreateEntitiesResource(AOwner : TComponent) : TAccountsContainersFoldersEntitiesResource;
- begin
- Result:=TAccountsContainersFoldersEntitiesResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- { --------------------------------------------------------------------
- TAccountsContainersMove_foldersResource
- --------------------------------------------------------------------}
- Class Function TAccountsContainersMove_foldersResource.ResourceName : String;
- begin
- Result:='move_folders';
- end;
- Class Function TAccountsContainersMove_foldersResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TtagmanagerAPI;
- end;
- Procedure TAccountsContainersMove_foldersResource.Update(accountId: string; containerId: string; folderId: string; aFolder : TFolder; AQuery : string = '');
- Const
- _HTTPMethod = 'PUT';
- _Path = 'accounts/{accountId}/containers/{containerId}/move_folders/{folderId}';
- _Methodid = 'tagmanager.accounts.containers.move_folders.update';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'folderId',folderId]);
- ServiceCall(_HTTPMethod,_P,AQuery,aFolder,Nil);
- end;
- Procedure TAccountsContainersMove_foldersResource.Update(accountId: string; containerId: string; folderId: string; aFolder : TFolder; AQuery : TAccountsContainersMove_foldersupdateOptions);
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'tagId',AQuery.tagId);
- AddToQuery(_Q,'triggerId',AQuery.triggerId);
- AddToQuery(_Q,'variableId',AQuery.variableId);
- Update(accountId,containerId,folderId,aFolder,_Q);
- end;
- { --------------------------------------------------------------------
- TAccountsContainersReauthorize_environmentsResource
- --------------------------------------------------------------------}
- Class Function TAccountsContainersReauthorize_environmentsResource.ResourceName : String;
- begin
- Result:='reauthorize_environments';
- end;
- Class Function TAccountsContainersReauthorize_environmentsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TtagmanagerAPI;
- end;
- Function TAccountsContainersReauthorize_environmentsResource.Update(accountId: string; containerId: string; environmentId: string; aEnvironment : TEnvironment) : TEnvironment;
- Const
- _HTTPMethod = 'PUT';
- _Path = 'accounts/{accountId}/containers/{containerId}/reauthorize_environments/{environmentId}';
- _Methodid = 'tagmanager.accounts.containers.reauthorize_environments.update';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'environmentId',environmentId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aEnvironment,TEnvironment) as TEnvironment;
- end;
- { --------------------------------------------------------------------
- TAccountsContainersTagsResource
- --------------------------------------------------------------------}
- Class Function TAccountsContainersTagsResource.ResourceName : String;
- begin
- Result:='tags';
- end;
- Class Function TAccountsContainersTagsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TtagmanagerAPI;
- end;
- Function TAccountsContainersTagsResource.Create(accountId: string; containerId: string; aTag : TTag) : TTag;
- Const
- _HTTPMethod = 'POST';
- _Path = 'accounts/{accountId}/containers/{containerId}/tags';
- _Methodid = 'tagmanager.accounts.containers.tags.create';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aTag,TTag) as TTag;
- end;
- Procedure TAccountsContainersTagsResource.Delete(accountId: string; containerId: string; tagId: string);
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'accounts/{accountId}/containers/{containerId}/tags/{tagId}';
- _Methodid = 'tagmanager.accounts.containers.tags.delete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'tagId',tagId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
- end;
- Function TAccountsContainersTagsResource.Get(accountId: string; containerId: string; tagId: string) : TTag;
- Const
- _HTTPMethod = 'GET';
- _Path = 'accounts/{accountId}/containers/{containerId}/tags/{tagId}';
- _Methodid = 'tagmanager.accounts.containers.tags.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'tagId',tagId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TTag) as TTag;
- end;
- Function TAccountsContainersTagsResource.List(accountId: string; containerId: string) : TListTagsResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'accounts/{accountId}/containers/{containerId}/tags';
- _Methodid = 'tagmanager.accounts.containers.tags.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListTagsResponse) as TListTagsResponse;
- end;
- Function TAccountsContainersTagsResource.Update(accountId: string; containerId: string; tagId: string; aTag : TTag; AQuery : string = '') : TTag;
- Const
- _HTTPMethod = 'PUT';
- _Path = 'accounts/{accountId}/containers/{containerId}/tags/{tagId}';
- _Methodid = 'tagmanager.accounts.containers.tags.update';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'tagId',tagId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,aTag,TTag) as TTag;
- end;
- Function TAccountsContainersTagsResource.Update(accountId: string; containerId: string; tagId: string; aTag : TTag; AQuery : TAccountsContainersTagsupdateOptions) : TTag;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'fingerprint',AQuery.fingerprint);
- Result:=Update(accountId,containerId,tagId,aTag,_Q);
- end;
- { --------------------------------------------------------------------
- TAccountsContainersTriggersResource
- --------------------------------------------------------------------}
- Class Function TAccountsContainersTriggersResource.ResourceName : String;
- begin
- Result:='triggers';
- end;
- Class Function TAccountsContainersTriggersResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TtagmanagerAPI;
- end;
- Function TAccountsContainersTriggersResource.Create(accountId: string; containerId: string; aTrigger : TTrigger) : TTrigger;
- Const
- _HTTPMethod = 'POST';
- _Path = 'accounts/{accountId}/containers/{containerId}/triggers';
- _Methodid = 'tagmanager.accounts.containers.triggers.create';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aTrigger,TTrigger) as TTrigger;
- end;
- Procedure TAccountsContainersTriggersResource.Delete(accountId: string; containerId: string; triggerId: string);
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'accounts/{accountId}/containers/{containerId}/triggers/{triggerId}';
- _Methodid = 'tagmanager.accounts.containers.triggers.delete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'triggerId',triggerId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
- end;
- Function TAccountsContainersTriggersResource.Get(accountId: string; containerId: string; triggerId: string) : TTrigger;
- Const
- _HTTPMethod = 'GET';
- _Path = 'accounts/{accountId}/containers/{containerId}/triggers/{triggerId}';
- _Methodid = 'tagmanager.accounts.containers.triggers.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'triggerId',triggerId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TTrigger) as TTrigger;
- end;
- Function TAccountsContainersTriggersResource.List(accountId: string; containerId: string) : TListTriggersResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'accounts/{accountId}/containers/{containerId}/triggers';
- _Methodid = 'tagmanager.accounts.containers.triggers.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListTriggersResponse) as TListTriggersResponse;
- end;
- Function TAccountsContainersTriggersResource.Update(accountId: string; containerId: string; triggerId: string; aTrigger : TTrigger; AQuery : string = '') : TTrigger;
- Const
- _HTTPMethod = 'PUT';
- _Path = 'accounts/{accountId}/containers/{containerId}/triggers/{triggerId}';
- _Methodid = 'tagmanager.accounts.containers.triggers.update';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'triggerId',triggerId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,aTrigger,TTrigger) as TTrigger;
- end;
- Function TAccountsContainersTriggersResource.Update(accountId: string; containerId: string; triggerId: string; aTrigger : TTrigger; AQuery : TAccountsContainersTriggersupdateOptions) : TTrigger;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'fingerprint',AQuery.fingerprint);
- Result:=Update(accountId,containerId,triggerId,aTrigger,_Q);
- end;
- { --------------------------------------------------------------------
- TAccountsContainersVariablesResource
- --------------------------------------------------------------------}
- Class Function TAccountsContainersVariablesResource.ResourceName : String;
- begin
- Result:='variables';
- end;
- Class Function TAccountsContainersVariablesResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TtagmanagerAPI;
- end;
- Function TAccountsContainersVariablesResource.Create(accountId: string; containerId: string; aVariable : TVariable) : TVariable;
- Const
- _HTTPMethod = 'POST';
- _Path = 'accounts/{accountId}/containers/{containerId}/variables';
- _Methodid = 'tagmanager.accounts.containers.variables.create';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aVariable,TVariable) as TVariable;
- end;
- Procedure TAccountsContainersVariablesResource.Delete(accountId: string; containerId: string; variableId: string);
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'accounts/{accountId}/containers/{containerId}/variables/{variableId}';
- _Methodid = 'tagmanager.accounts.containers.variables.delete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'variableId',variableId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
- end;
- Function TAccountsContainersVariablesResource.Get(accountId: string; containerId: string; variableId: string) : TVariable;
- Const
- _HTTPMethod = 'GET';
- _Path = 'accounts/{accountId}/containers/{containerId}/variables/{variableId}';
- _Methodid = 'tagmanager.accounts.containers.variables.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'variableId',variableId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TVariable) as TVariable;
- end;
- Function TAccountsContainersVariablesResource.List(accountId: string; containerId: string) : TListVariablesResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'accounts/{accountId}/containers/{containerId}/variables';
- _Methodid = 'tagmanager.accounts.containers.variables.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListVariablesResponse) as TListVariablesResponse;
- end;
- Function TAccountsContainersVariablesResource.Update(accountId: string; containerId: string; variableId: string; aVariable : TVariable; AQuery : string = '') : TVariable;
- Const
- _HTTPMethod = 'PUT';
- _Path = 'accounts/{accountId}/containers/{containerId}/variables/{variableId}';
- _Methodid = 'tagmanager.accounts.containers.variables.update';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'variableId',variableId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,aVariable,TVariable) as TVariable;
- end;
- Function TAccountsContainersVariablesResource.Update(accountId: string; containerId: string; variableId: string; aVariable : TVariable; AQuery : TAccountsContainersVariablesupdateOptions) : TVariable;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'fingerprint',AQuery.fingerprint);
- Result:=Update(accountId,containerId,variableId,aVariable,_Q);
- end;
- { --------------------------------------------------------------------
- TAccountsContainersVersionsResource
- --------------------------------------------------------------------}
- Class Function TAccountsContainersVersionsResource.ResourceName : String;
- begin
- Result:='versions';
- end;
- Class Function TAccountsContainersVersionsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TtagmanagerAPI;
- end;
- Function TAccountsContainersVersionsResource.Create(accountId: string; containerId: string; aCreateContainerVersionRequestVersionOptions : TCreateContainerVersionRequestVersionOptions) : TCreateContainerVersionResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'accounts/{accountId}/containers/{containerId}/versions';
- _Methodid = 'tagmanager.accounts.containers.versions.create';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aCreateContainerVersionRequestVersionOptions,TCreateContainerVersionResponse) as TCreateContainerVersionResponse;
- end;
- Procedure TAccountsContainersVersionsResource.Delete(accountId: string; containerId: string; containerVersionId: string);
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'accounts/{accountId}/containers/{containerId}/versions/{containerVersionId}';
- _Methodid = 'tagmanager.accounts.containers.versions.delete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'containerVersionId',containerVersionId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
- end;
- Function TAccountsContainersVersionsResource.Get(accountId: string; containerId: string; containerVersionId: string) : TContainerVersion;
- Const
- _HTTPMethod = 'GET';
- _Path = 'accounts/{accountId}/containers/{containerId}/versions/{containerVersionId}';
- _Methodid = 'tagmanager.accounts.containers.versions.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'containerVersionId',containerVersionId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TContainerVersion) as TContainerVersion;
- end;
- Function TAccountsContainersVersionsResource.List(accountId: string; containerId: string; AQuery : string = '') : TListContainerVersionsResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'accounts/{accountId}/containers/{containerId}/versions';
- _Methodid = 'tagmanager.accounts.containers.versions.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListContainerVersionsResponse) as TListContainerVersionsResponse;
- end;
- Function TAccountsContainersVersionsResource.List(accountId: string; containerId: string; AQuery : TAccountsContainersVersionslistOptions) : TListContainerVersionsResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'headers',AQuery.headers);
- AddToQuery(_Q,'includeDeleted',AQuery.includeDeleted);
- Result:=List(accountId,containerId,_Q);
- end;
- Function TAccountsContainersVersionsResource.Publish(accountId: string; containerId: string; containerVersionId: string; AQuery : string = '') : TPublishContainerVersionResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'accounts/{accountId}/containers/{containerId}/versions/{containerVersionId}/publish';
- _Methodid = 'tagmanager.accounts.containers.versions.publish';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'containerVersionId',containerVersionId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPublishContainerVersionResponse) as TPublishContainerVersionResponse;
- end;
- Function TAccountsContainersVersionsResource.Publish(accountId: string; containerId: string; containerVersionId: string; AQuery : TAccountsContainersVersionspublishOptions) : TPublishContainerVersionResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'fingerprint',AQuery.fingerprint);
- Result:=Publish(accountId,containerId,containerVersionId,_Q);
- end;
- Function TAccountsContainersVersionsResource.Restore(accountId: string; containerId: string; containerVersionId: string) : TContainerVersion;
- Const
- _HTTPMethod = 'POST';
- _Path = 'accounts/{accountId}/containers/{containerId}/versions/{containerVersionId}/restore';
- _Methodid = 'tagmanager.accounts.containers.versions.restore';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'containerVersionId',containerVersionId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TContainerVersion) as TContainerVersion;
- end;
- Function TAccountsContainersVersionsResource.Undelete(accountId: string; containerId: string; containerVersionId: string) : TContainerVersion;
- Const
- _HTTPMethod = 'POST';
- _Path = 'accounts/{accountId}/containers/{containerId}/versions/{containerVersionId}/undelete';
- _Methodid = 'tagmanager.accounts.containers.versions.undelete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'containerVersionId',containerVersionId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TContainerVersion) as TContainerVersion;
- end;
- Function TAccountsContainersVersionsResource.Update(accountId: string; containerId: string; containerVersionId: string; aContainerVersion : TContainerVersion; AQuery : string = '') : TContainerVersion;
- Const
- _HTTPMethod = 'PUT';
- _Path = 'accounts/{accountId}/containers/{containerId}/versions/{containerVersionId}';
- _Methodid = 'tagmanager.accounts.containers.versions.update';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId,'containerVersionId',containerVersionId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,aContainerVersion,TContainerVersion) as TContainerVersion;
- end;
- Function TAccountsContainersVersionsResource.Update(accountId: string; containerId: string; containerVersionId: string; aContainerVersion : TContainerVersion; AQuery : TAccountsContainersVersionsupdateOptions) : TContainerVersion;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'fingerprint',AQuery.fingerprint);
- Result:=Update(accountId,containerId,containerVersionId,aContainerVersion,_Q);
- end;
- { --------------------------------------------------------------------
- TAccountsContainersResource
- --------------------------------------------------------------------}
- Class Function TAccountsContainersResource.ResourceName : String;
- begin
- Result:='containers';
- end;
- Class Function TAccountsContainersResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TtagmanagerAPI;
- end;
- Function TAccountsContainersResource.Create(accountId: string; aContainer : TContainer) : TContainer;
- Const
- _HTTPMethod = 'POST';
- _Path = 'accounts/{accountId}/containers';
- _Methodid = 'tagmanager.accounts.containers.create';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aContainer,TContainer) as TContainer;
- end;
- Procedure TAccountsContainersResource.Delete(accountId: string; containerId: string);
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'accounts/{accountId}/containers/{containerId}';
- _Methodid = 'tagmanager.accounts.containers.delete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
- end;
- Function TAccountsContainersResource.Get(accountId: string; containerId: string) : TContainer;
- Const
- _HTTPMethod = 'GET';
- _Path = 'accounts/{accountId}/containers/{containerId}';
- _Methodid = 'tagmanager.accounts.containers.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TContainer) as TContainer;
- end;
- Function TAccountsContainersResource.List(accountId: string) : TListContainersResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'accounts/{accountId}/containers';
- _Methodid = 'tagmanager.accounts.containers.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListContainersResponse) as TListContainersResponse;
- end;
- Function TAccountsContainersResource.Update(accountId: string; containerId: string; aContainer : TContainer; AQuery : string = '') : TContainer;
- Const
- _HTTPMethod = 'PUT';
- _Path = 'accounts/{accountId}/containers/{containerId}';
- _Methodid = 'tagmanager.accounts.containers.update';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'containerId',containerId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,aContainer,TContainer) as TContainer;
- end;
- Function TAccountsContainersResource.Update(accountId: string; containerId: string; aContainer : TContainer; AQuery : TAccountsContainersupdateOptions) : TContainer;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'fingerprint',AQuery.fingerprint);
- Result:=Update(accountId,containerId,aContainer,_Q);
- end;
- Function TAccountsContainersResource.GetEnvironmentsInstance : TAccountsContainersEnvironmentsResource;
- begin
- if (FEnvironmentsInstance=Nil) then
- FEnvironmentsInstance:=CreateEnvironmentsResource;
- Result:=FEnvironmentsInstance;
- end;
- Function TAccountsContainersResource.CreateEnvironmentsResource : TAccountsContainersEnvironmentsResource;
- begin
- Result:=CreateEnvironmentsResource(Self);
- end;
- Function TAccountsContainersResource.CreateEnvironmentsResource(AOwner : TComponent) : TAccountsContainersEnvironmentsResource;
- begin
- Result:=TAccountsContainersEnvironmentsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TAccountsContainersResource.GetFoldersEntitiesInstance : TAccountsContainersFoldersEntitiesResource;
- begin
- if (FFoldersEntitiesInstance=Nil) then
- FFoldersEntitiesInstance:=CreateFoldersEntitiesResource;
- Result:=FFoldersEntitiesInstance;
- end;
- Function TAccountsContainersResource.CreateFoldersEntitiesResource : TAccountsContainersFoldersEntitiesResource;
- begin
- Result:=CreateFoldersEntitiesResource(Self);
- end;
- Function TAccountsContainersResource.CreateFoldersEntitiesResource(AOwner : TComponent) : TAccountsContainersFoldersEntitiesResource;
- begin
- Result:=TAccountsContainersFoldersEntitiesResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TAccountsContainersResource.GetFoldersInstance : TAccountsContainersFoldersResource;
- begin
- if (FFoldersInstance=Nil) then
- FFoldersInstance:=CreateFoldersResource;
- Result:=FFoldersInstance;
- end;
- Function TAccountsContainersResource.CreateFoldersResource : TAccountsContainersFoldersResource;
- begin
- Result:=CreateFoldersResource(Self);
- end;
- Function TAccountsContainersResource.CreateFoldersResource(AOwner : TComponent) : TAccountsContainersFoldersResource;
- begin
- Result:=TAccountsContainersFoldersResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TAccountsContainersResource.GetMove_foldersInstance : TAccountsContainersMove_foldersResource;
- begin
- if (FMove_foldersInstance=Nil) then
- FMove_foldersInstance:=CreateMove_foldersResource;
- Result:=FMove_foldersInstance;
- end;
- Function TAccountsContainersResource.CreateMove_foldersResource : TAccountsContainersMove_foldersResource;
- begin
- Result:=CreateMove_foldersResource(Self);
- end;
- Function TAccountsContainersResource.CreateMove_foldersResource(AOwner : TComponent) : TAccountsContainersMove_foldersResource;
- begin
- Result:=TAccountsContainersMove_foldersResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TAccountsContainersResource.GetReauthorize_environmentsInstance : TAccountsContainersReauthorize_environmentsResource;
- begin
- if (FReauthorize_environmentsInstance=Nil) then
- FReauthorize_environmentsInstance:=CreateReauthorize_environmentsResource;
- Result:=FReauthorize_environmentsInstance;
- end;
- Function TAccountsContainersResource.CreateReauthorize_environmentsResource : TAccountsContainersReauthorize_environmentsResource;
- begin
- Result:=CreateReauthorize_environmentsResource(Self);
- end;
- Function TAccountsContainersResource.CreateReauthorize_environmentsResource(AOwner : TComponent) : TAccountsContainersReauthorize_environmentsResource;
- begin
- Result:=TAccountsContainersReauthorize_environmentsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TAccountsContainersResource.GetTagsInstance : TAccountsContainersTagsResource;
- begin
- if (FTagsInstance=Nil) then
- FTagsInstance:=CreateTagsResource;
- Result:=FTagsInstance;
- end;
- Function TAccountsContainersResource.CreateTagsResource : TAccountsContainersTagsResource;
- begin
- Result:=CreateTagsResource(Self);
- end;
- Function TAccountsContainersResource.CreateTagsResource(AOwner : TComponent) : TAccountsContainersTagsResource;
- begin
- Result:=TAccountsContainersTagsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TAccountsContainersResource.GetTriggersInstance : TAccountsContainersTriggersResource;
- begin
- if (FTriggersInstance=Nil) then
- FTriggersInstance:=CreateTriggersResource;
- Result:=FTriggersInstance;
- end;
- Function TAccountsContainersResource.CreateTriggersResource : TAccountsContainersTriggersResource;
- begin
- Result:=CreateTriggersResource(Self);
- end;
- Function TAccountsContainersResource.CreateTriggersResource(AOwner : TComponent) : TAccountsContainersTriggersResource;
- begin
- Result:=TAccountsContainersTriggersResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TAccountsContainersResource.GetVariablesInstance : TAccountsContainersVariablesResource;
- begin
- if (FVariablesInstance=Nil) then
- FVariablesInstance:=CreateVariablesResource;
- Result:=FVariablesInstance;
- end;
- Function TAccountsContainersResource.CreateVariablesResource : TAccountsContainersVariablesResource;
- begin
- Result:=CreateVariablesResource(Self);
- end;
- Function TAccountsContainersResource.CreateVariablesResource(AOwner : TComponent) : TAccountsContainersVariablesResource;
- begin
- Result:=TAccountsContainersVariablesResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TAccountsContainersResource.GetVersionsInstance : TAccountsContainersVersionsResource;
- begin
- if (FVersionsInstance=Nil) then
- FVersionsInstance:=CreateVersionsResource;
- Result:=FVersionsInstance;
- end;
- Function TAccountsContainersResource.CreateVersionsResource : TAccountsContainersVersionsResource;
- begin
- Result:=CreateVersionsResource(Self);
- end;
- Function TAccountsContainersResource.CreateVersionsResource(AOwner : TComponent) : TAccountsContainersVersionsResource;
- begin
- Result:=TAccountsContainersVersionsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- { --------------------------------------------------------------------
- TAccountsPermissionsResource
- --------------------------------------------------------------------}
- Class Function TAccountsPermissionsResource.ResourceName : String;
- begin
- Result:='permissions';
- end;
- Class Function TAccountsPermissionsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TtagmanagerAPI;
- end;
- Function TAccountsPermissionsResource.Create(accountId: string; aUserAccess : TUserAccess) : TUserAccess;
- Const
- _HTTPMethod = 'POST';
- _Path = 'accounts/{accountId}/permissions';
- _Methodid = 'tagmanager.accounts.permissions.create';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aUserAccess,TUserAccess) as TUserAccess;
- end;
- Procedure TAccountsPermissionsResource.Delete(accountId: string; permissionId: string);
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'accounts/{accountId}/permissions/{permissionId}';
- _Methodid = 'tagmanager.accounts.permissions.delete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'permissionId',permissionId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
- end;
- Function TAccountsPermissionsResource.Get(accountId: string; permissionId: string) : TUserAccess;
- Const
- _HTTPMethod = 'GET';
- _Path = 'accounts/{accountId}/permissions/{permissionId}';
- _Methodid = 'tagmanager.accounts.permissions.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'permissionId',permissionId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TUserAccess) as TUserAccess;
- end;
- Function TAccountsPermissionsResource.List(accountId: string) : TListAccountUsersResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'accounts/{accountId}/permissions';
- _Methodid = 'tagmanager.accounts.permissions.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TListAccountUsersResponse) as TListAccountUsersResponse;
- end;
- Function TAccountsPermissionsResource.Update(accountId: string; permissionId: string; aUserAccess : TUserAccess) : TUserAccess;
- Const
- _HTTPMethod = 'PUT';
- _Path = 'accounts/{accountId}/permissions/{permissionId}';
- _Methodid = 'tagmanager.accounts.permissions.update';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId,'permissionId',permissionId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aUserAccess,TUserAccess) as TUserAccess;
- end;
- { --------------------------------------------------------------------
- TAccountsResource
- --------------------------------------------------------------------}
- Class Function TAccountsResource.ResourceName : String;
- begin
- Result:='accounts';
- end;
- Class Function TAccountsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TtagmanagerAPI;
- end;
- Function TAccountsResource.Get(accountId: string) : TAccount;
- Const
- _HTTPMethod = 'GET';
- _Path = 'accounts/{accountId}';
- _Methodid = 'tagmanager.accounts.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TAccount) as TAccount;
- end;
- Function TAccountsResource.List : TListAccountsResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'accounts';
- _Methodid = 'tagmanager.accounts.list';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',Nil,TListAccountsResponse) as TListAccountsResponse;
- end;
- Function TAccountsResource.Update(accountId: string; aAccount : TAccount; AQuery : string = '') : TAccount;
- Const
- _HTTPMethod = 'PUT';
- _Path = 'accounts/{accountId}';
- _Methodid = 'tagmanager.accounts.update';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['accountId',accountId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,aAccount,TAccount) as TAccount;
- end;
- Function TAccountsResource.Update(accountId: string; aAccount : TAccount; AQuery : TAccountsupdateOptions) : TAccount;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'fingerprint',AQuery.fingerprint);
- Result:=Update(accountId,aAccount,_Q);
- end;
- Function TAccountsResource.GetContainersEnvironmentsInstance : TAccountsContainersEnvironmentsResource;
- begin
- if (FContainersEnvironmentsInstance=Nil) then
- FContainersEnvironmentsInstance:=CreateContainersEnvironmentsResource;
- Result:=FContainersEnvironmentsInstance;
- end;
- Function TAccountsResource.CreateContainersEnvironmentsResource : TAccountsContainersEnvironmentsResource;
- begin
- Result:=CreateContainersEnvironmentsResource(Self);
- end;
- Function TAccountsResource.CreateContainersEnvironmentsResource(AOwner : TComponent) : TAccountsContainersEnvironmentsResource;
- begin
- Result:=TAccountsContainersEnvironmentsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TAccountsResource.GetContainersFoldersEntitiesInstance : TAccountsContainersFoldersEntitiesResource;
- begin
- if (FContainersFoldersEntitiesInstance=Nil) then
- FContainersFoldersEntitiesInstance:=CreateContainersFoldersEntitiesResource;
- Result:=FContainersFoldersEntitiesInstance;
- end;
- Function TAccountsResource.CreateContainersFoldersEntitiesResource : TAccountsContainersFoldersEntitiesResource;
- begin
- Result:=CreateContainersFoldersEntitiesResource(Self);
- end;
- Function TAccountsResource.CreateContainersFoldersEntitiesResource(AOwner : TComponent) : TAccountsContainersFoldersEntitiesResource;
- begin
- Result:=TAccountsContainersFoldersEntitiesResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TAccountsResource.GetContainersFoldersInstance : TAccountsContainersFoldersResource;
- begin
- if (FContainersFoldersInstance=Nil) then
- FContainersFoldersInstance:=CreateContainersFoldersResource;
- Result:=FContainersFoldersInstance;
- end;
- Function TAccountsResource.CreateContainersFoldersResource : TAccountsContainersFoldersResource;
- begin
- Result:=CreateContainersFoldersResource(Self);
- end;
- Function TAccountsResource.CreateContainersFoldersResource(AOwner : TComponent) : TAccountsContainersFoldersResource;
- begin
- Result:=TAccountsContainersFoldersResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TAccountsResource.GetContainersMove_foldersInstance : TAccountsContainersMove_foldersResource;
- begin
- if (FContainersMove_foldersInstance=Nil) then
- FContainersMove_foldersInstance:=CreateContainersMove_foldersResource;
- Result:=FContainersMove_foldersInstance;
- end;
- Function TAccountsResource.CreateContainersMove_foldersResource : TAccountsContainersMove_foldersResource;
- begin
- Result:=CreateContainersMove_foldersResource(Self);
- end;
- Function TAccountsResource.CreateContainersMove_foldersResource(AOwner : TComponent) : TAccountsContainersMove_foldersResource;
- begin
- Result:=TAccountsContainersMove_foldersResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TAccountsResource.GetContainersReauthorize_environmentsInstance : TAccountsContainersReauthorize_environmentsResource;
- begin
- if (FContainersReauthorize_environmentsInstance=Nil) then
- FContainersReauthorize_environmentsInstance:=CreateContainersReauthorize_environmentsResource;
- Result:=FContainersReauthorize_environmentsInstance;
- end;
- Function TAccountsResource.CreateContainersReauthorize_environmentsResource : TAccountsContainersReauthorize_environmentsResource;
- begin
- Result:=CreateContainersReauthorize_environmentsResource(Self);
- end;
- Function TAccountsResource.CreateContainersReauthorize_environmentsResource(AOwner : TComponent) : TAccountsContainersReauthorize_environmentsResource;
- begin
- Result:=TAccountsContainersReauthorize_environmentsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TAccountsResource.GetContainersTagsInstance : TAccountsContainersTagsResource;
- begin
- if (FContainersTagsInstance=Nil) then
- FContainersTagsInstance:=CreateContainersTagsResource;
- Result:=FContainersTagsInstance;
- end;
- Function TAccountsResource.CreateContainersTagsResource : TAccountsContainersTagsResource;
- begin
- Result:=CreateContainersTagsResource(Self);
- end;
- Function TAccountsResource.CreateContainersTagsResource(AOwner : TComponent) : TAccountsContainersTagsResource;
- begin
- Result:=TAccountsContainersTagsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TAccountsResource.GetContainersTriggersInstance : TAccountsContainersTriggersResource;
- begin
- if (FContainersTriggersInstance=Nil) then
- FContainersTriggersInstance:=CreateContainersTriggersResource;
- Result:=FContainersTriggersInstance;
- end;
- Function TAccountsResource.CreateContainersTriggersResource : TAccountsContainersTriggersResource;
- begin
- Result:=CreateContainersTriggersResource(Self);
- end;
- Function TAccountsResource.CreateContainersTriggersResource(AOwner : TComponent) : TAccountsContainersTriggersResource;
- begin
- Result:=TAccountsContainersTriggersResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TAccountsResource.GetContainersVariablesInstance : TAccountsContainersVariablesResource;
- begin
- if (FContainersVariablesInstance=Nil) then
- FContainersVariablesInstance:=CreateContainersVariablesResource;
- Result:=FContainersVariablesInstance;
- end;
- Function TAccountsResource.CreateContainersVariablesResource : TAccountsContainersVariablesResource;
- begin
- Result:=CreateContainersVariablesResource(Self);
- end;
- Function TAccountsResource.CreateContainersVariablesResource(AOwner : TComponent) : TAccountsContainersVariablesResource;
- begin
- Result:=TAccountsContainersVariablesResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TAccountsResource.GetContainersVersionsInstance : TAccountsContainersVersionsResource;
- begin
- if (FContainersVersionsInstance=Nil) then
- FContainersVersionsInstance:=CreateContainersVersionsResource;
- Result:=FContainersVersionsInstance;
- end;
- Function TAccountsResource.CreateContainersVersionsResource : TAccountsContainersVersionsResource;
- begin
- Result:=CreateContainersVersionsResource(Self);
- end;
- Function TAccountsResource.CreateContainersVersionsResource(AOwner : TComponent) : TAccountsContainersVersionsResource;
- begin
- Result:=TAccountsContainersVersionsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TAccountsResource.GetContainersInstance : TAccountsContainersResource;
- begin
- if (FContainersInstance=Nil) then
- FContainersInstance:=CreateContainersResource;
- Result:=FContainersInstance;
- end;
- Function TAccountsResource.CreateContainersResource : TAccountsContainersResource;
- begin
- Result:=CreateContainersResource(Self);
- end;
- Function TAccountsResource.CreateContainersResource(AOwner : TComponent) : TAccountsContainersResource;
- begin
- Result:=TAccountsContainersResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TAccountsResource.GetPermissionsInstance : TAccountsPermissionsResource;
- begin
- if (FPermissionsInstance=Nil) then
- FPermissionsInstance:=CreatePermissionsResource;
- Result:=FPermissionsInstance;
- end;
- Function TAccountsResource.CreatePermissionsResource : TAccountsPermissionsResource;
- begin
- Result:=CreatePermissionsResource(Self);
- end;
- Function TAccountsResource.CreatePermissionsResource(AOwner : TComponent) : TAccountsPermissionsResource;
- begin
- Result:=TAccountsPermissionsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- { --------------------------------------------------------------------
- TTagmanagerAPI
- --------------------------------------------------------------------}
- Class Function TTagmanagerAPI.APIName : String;
- begin
- Result:='tagmanager';
- end;
- Class Function TTagmanagerAPI.APIVersion : String;
- begin
- Result:='v1';
- end;
- Class Function TTagmanagerAPI.APIRevision : String;
- begin
- Result:='20160310';
- end;
- Class Function TTagmanagerAPI.APIID : String;
- begin
- Result:='tagmanager:v1';
- end;
- Class Function TTagmanagerAPI.APITitle : String;
- begin
- Result:='Tag Manager API';
- end;
- Class Function TTagmanagerAPI.APIDescription : String;
- begin
- Result:='Accesses Tag Manager accounts and containers.';
- end;
- Class Function TTagmanagerAPI.APIOwnerDomain : String;
- begin
- Result:='google.com';
- end;
- Class Function TTagmanagerAPI.APIOwnerName : String;
- begin
- Result:='Google';
- end;
- Class Function TTagmanagerAPI.APIIcon16 : String;
- begin
- Result:='http://www.google.com/images/icons/product/search-16.gif';
- end;
- Class Function TTagmanagerAPI.APIIcon32 : String;
- begin
- Result:='http://www.google.com/images/icons/product/search-32.gif';
- end;
- Class Function TTagmanagerAPI.APIdocumentationLink : String;
- begin
- Result:='https://developers.google.com/tag-manager/api/v1/';
- end;
- Class Function TTagmanagerAPI.APIrootUrl : string;
- begin
- Result:='https://www.googleapis.com/';
- end;
- Class Function TTagmanagerAPI.APIbasePath : string;
- begin
- Result:='/tagmanager/v1/';
- end;
- Class Function TTagmanagerAPI.APIbaseURL : String;
- begin
- Result:='https://www.googleapis.com/tagmanager/v1/';
- end;
- Class Function TTagmanagerAPI.APIProtocol : string;
- begin
- Result:='rest';
- end;
- Class Function TTagmanagerAPI.APIservicePath : string;
- begin
- Result:='tagmanager/v1/';
- end;
- Class Function TTagmanagerAPI.APIbatchPath : String;
- begin
- Result:='batch';
- end;
- Class Function TTagmanagerAPI.APIAuthScopes : TScopeInfoArray;
- begin
- SetLength(Result,7);
- Result[0].Name:='https://www.googleapis.com/auth/tagmanager.delete.containers';
- Result[0].Description:='Delete your Google Tag Manager containers';
- Result[1].Name:='https://www.googleapis.com/auth/tagmanager.edit.containers';
- Result[1].Description:='Manage your Google Tag Manager containers';
- Result[2].Name:='https://www.googleapis.com/auth/tagmanager.edit.containerversions';
- Result[2].Description:='Manage your Google Tag Manager container versions';
- Result[3].Name:='https://www.googleapis.com/auth/tagmanager.manage.accounts';
- Result[3].Description:='Manage your Google Tag Manager accounts';
- Result[4].Name:='https://www.googleapis.com/auth/tagmanager.manage.users';
- Result[4].Description:='Manage user permissions of your Google Tag Manager data';
- Result[5].Name:='https://www.googleapis.com/auth/tagmanager.publish';
- Result[5].Description:='Publish your Google Tag Manager containers';
- Result[6].Name:='https://www.googleapis.com/auth/tagmanager.readonly';
- Result[6].Description:='View your Google Tag Manager containers';
-
- end;
- Class Function TTagmanagerAPI.APINeedsAuth : Boolean;
- begin
- Result:=True;
- end;
- Class Procedure TTagmanagerAPI.RegisterAPIResources;
- begin
- TAccount.RegisterObject;
- TAccountAccess.RegisterObject;
- TCondition.RegisterObject;
- TContainer.RegisterObject;
- TContainerAccess.RegisterObject;
- TContainerVersion.RegisterObject;
- TContainerVersionHeader.RegisterObject;
- TCreateContainerVersionRequestVersionOptions.RegisterObject;
- TCreateContainerVersionResponse.RegisterObject;
- TEnvironment.RegisterObject;
- TFolder.RegisterObject;
- TFolderEntities.RegisterObject;
- TListAccountUsersResponse.RegisterObject;
- TListAccountsResponse.RegisterObject;
- TListContainerVersionsResponse.RegisterObject;
- TListContainersResponse.RegisterObject;
- TListEnvironmentsResponse.RegisterObject;
- TListFoldersResponse.RegisterObject;
- TListTagsResponse.RegisterObject;
- TListTriggersResponse.RegisterObject;
- TListVariablesResponse.RegisterObject;
- TMacro.RegisterObject;
- TParameter.RegisterObject;
- TPublishContainerVersionResponse.RegisterObject;
- TRule.RegisterObject;
- TSetupTag.RegisterObject;
- TTag.RegisterObject;
- TTeardownTag.RegisterObject;
- TTrigger.RegisterObject;
- TUserAccess.RegisterObject;
- TVariable.RegisterObject;
- end;
- Function TTagmanagerAPI.GetAccountsContainersEnvironmentsInstance : TAccountsContainersEnvironmentsResource;
- begin
- if (FAccountsContainersEnvironmentsInstance=Nil) then
- FAccountsContainersEnvironmentsInstance:=CreateAccountsContainersEnvironmentsResource;
- Result:=FAccountsContainersEnvironmentsInstance;
- end;
- Function TTagmanagerAPI.CreateAccountsContainersEnvironmentsResource : TAccountsContainersEnvironmentsResource;
- begin
- Result:=CreateAccountsContainersEnvironmentsResource(Self);
- end;
- Function TTagmanagerAPI.CreateAccountsContainersEnvironmentsResource(AOwner : TComponent) : TAccountsContainersEnvironmentsResource;
- begin
- Result:=TAccountsContainersEnvironmentsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TTagmanagerAPI.GetAccountsContainersFoldersEntitiesInstance : TAccountsContainersFoldersEntitiesResource;
- begin
- if (FAccountsContainersFoldersEntitiesInstance=Nil) then
- FAccountsContainersFoldersEntitiesInstance:=CreateAccountsContainersFoldersEntitiesResource;
- Result:=FAccountsContainersFoldersEntitiesInstance;
- end;
- Function TTagmanagerAPI.CreateAccountsContainersFoldersEntitiesResource : TAccountsContainersFoldersEntitiesResource;
- begin
- Result:=CreateAccountsContainersFoldersEntitiesResource(Self);
- end;
- Function TTagmanagerAPI.CreateAccountsContainersFoldersEntitiesResource(AOwner : TComponent) : TAccountsContainersFoldersEntitiesResource;
- begin
- Result:=TAccountsContainersFoldersEntitiesResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TTagmanagerAPI.GetAccountsContainersFoldersInstance : TAccountsContainersFoldersResource;
- begin
- if (FAccountsContainersFoldersInstance=Nil) then
- FAccountsContainersFoldersInstance:=CreateAccountsContainersFoldersResource;
- Result:=FAccountsContainersFoldersInstance;
- end;
- Function TTagmanagerAPI.CreateAccountsContainersFoldersResource : TAccountsContainersFoldersResource;
- begin
- Result:=CreateAccountsContainersFoldersResource(Self);
- end;
- Function TTagmanagerAPI.CreateAccountsContainersFoldersResource(AOwner : TComponent) : TAccountsContainersFoldersResource;
- begin
- Result:=TAccountsContainersFoldersResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TTagmanagerAPI.GetAccountsContainersMove_foldersInstance : TAccountsContainersMove_foldersResource;
- begin
- if (FAccountsContainersMove_foldersInstance=Nil) then
- FAccountsContainersMove_foldersInstance:=CreateAccountsContainersMove_foldersResource;
- Result:=FAccountsContainersMove_foldersInstance;
- end;
- Function TTagmanagerAPI.CreateAccountsContainersMove_foldersResource : TAccountsContainersMove_foldersResource;
- begin
- Result:=CreateAccountsContainersMove_foldersResource(Self);
- end;
- Function TTagmanagerAPI.CreateAccountsContainersMove_foldersResource(AOwner : TComponent) : TAccountsContainersMove_foldersResource;
- begin
- Result:=TAccountsContainersMove_foldersResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TTagmanagerAPI.GetAccountsContainersReauthorize_environmentsInstance : TAccountsContainersReauthorize_environmentsResource;
- begin
- if (FAccountsContainersReauthorize_environmentsInstance=Nil) then
- FAccountsContainersReauthorize_environmentsInstance:=CreateAccountsContainersReauthorize_environmentsResource;
- Result:=FAccountsContainersReauthorize_environmentsInstance;
- end;
- Function TTagmanagerAPI.CreateAccountsContainersReauthorize_environmentsResource : TAccountsContainersReauthorize_environmentsResource;
- begin
- Result:=CreateAccountsContainersReauthorize_environmentsResource(Self);
- end;
- Function TTagmanagerAPI.CreateAccountsContainersReauthorize_environmentsResource(AOwner : TComponent) : TAccountsContainersReauthorize_environmentsResource;
- begin
- Result:=TAccountsContainersReauthorize_environmentsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TTagmanagerAPI.GetAccountsContainersTagsInstance : TAccountsContainersTagsResource;
- begin
- if (FAccountsContainersTagsInstance=Nil) then
- FAccountsContainersTagsInstance:=CreateAccountsContainersTagsResource;
- Result:=FAccountsContainersTagsInstance;
- end;
- Function TTagmanagerAPI.CreateAccountsContainersTagsResource : TAccountsContainersTagsResource;
- begin
- Result:=CreateAccountsContainersTagsResource(Self);
- end;
- Function TTagmanagerAPI.CreateAccountsContainersTagsResource(AOwner : TComponent) : TAccountsContainersTagsResource;
- begin
- Result:=TAccountsContainersTagsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TTagmanagerAPI.GetAccountsContainersTriggersInstance : TAccountsContainersTriggersResource;
- begin
- if (FAccountsContainersTriggersInstance=Nil) then
- FAccountsContainersTriggersInstance:=CreateAccountsContainersTriggersResource;
- Result:=FAccountsContainersTriggersInstance;
- end;
- Function TTagmanagerAPI.CreateAccountsContainersTriggersResource : TAccountsContainersTriggersResource;
- begin
- Result:=CreateAccountsContainersTriggersResource(Self);
- end;
- Function TTagmanagerAPI.CreateAccountsContainersTriggersResource(AOwner : TComponent) : TAccountsContainersTriggersResource;
- begin
- Result:=TAccountsContainersTriggersResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TTagmanagerAPI.GetAccountsContainersVariablesInstance : TAccountsContainersVariablesResource;
- begin
- if (FAccountsContainersVariablesInstance=Nil) then
- FAccountsContainersVariablesInstance:=CreateAccountsContainersVariablesResource;
- Result:=FAccountsContainersVariablesInstance;
- end;
- Function TTagmanagerAPI.CreateAccountsContainersVariablesResource : TAccountsContainersVariablesResource;
- begin
- Result:=CreateAccountsContainersVariablesResource(Self);
- end;
- Function TTagmanagerAPI.CreateAccountsContainersVariablesResource(AOwner : TComponent) : TAccountsContainersVariablesResource;
- begin
- Result:=TAccountsContainersVariablesResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TTagmanagerAPI.GetAccountsContainersVersionsInstance : TAccountsContainersVersionsResource;
- begin
- if (FAccountsContainersVersionsInstance=Nil) then
- FAccountsContainersVersionsInstance:=CreateAccountsContainersVersionsResource;
- Result:=FAccountsContainersVersionsInstance;
- end;
- Function TTagmanagerAPI.CreateAccountsContainersVersionsResource : TAccountsContainersVersionsResource;
- begin
- Result:=CreateAccountsContainersVersionsResource(Self);
- end;
- Function TTagmanagerAPI.CreateAccountsContainersVersionsResource(AOwner : TComponent) : TAccountsContainersVersionsResource;
- begin
- Result:=TAccountsContainersVersionsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TTagmanagerAPI.GetAccountsContainersInstance : TAccountsContainersResource;
- begin
- if (FAccountsContainersInstance=Nil) then
- FAccountsContainersInstance:=CreateAccountsContainersResource;
- Result:=FAccountsContainersInstance;
- end;
- Function TTagmanagerAPI.CreateAccountsContainersResource : TAccountsContainersResource;
- begin
- Result:=CreateAccountsContainersResource(Self);
- end;
- Function TTagmanagerAPI.CreateAccountsContainersResource(AOwner : TComponent) : TAccountsContainersResource;
- begin
- Result:=TAccountsContainersResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TTagmanagerAPI.GetAccountsPermissionsInstance : TAccountsPermissionsResource;
- begin
- if (FAccountsPermissionsInstance=Nil) then
- FAccountsPermissionsInstance:=CreateAccountsPermissionsResource;
- Result:=FAccountsPermissionsInstance;
- end;
- Function TTagmanagerAPI.CreateAccountsPermissionsResource : TAccountsPermissionsResource;
- begin
- Result:=CreateAccountsPermissionsResource(Self);
- end;
- Function TTagmanagerAPI.CreateAccountsPermissionsResource(AOwner : TComponent) : TAccountsPermissionsResource;
- begin
- Result:=TAccountsPermissionsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TTagmanagerAPI.GetAccountsInstance : TAccountsResource;
- begin
- if (FAccountsInstance=Nil) then
- FAccountsInstance:=CreateAccountsResource;
- Result:=FAccountsInstance;
- end;
- Function TTagmanagerAPI.CreateAccountsResource : TAccountsResource;
- begin
- Result:=CreateAccountsResource(Self);
- end;
- Function TTagmanagerAPI.CreateAccountsResource(AOwner : TComponent) : TAccountsResource;
- begin
- Result:=TAccountsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- initialization
- TTagmanagerAPI.RegisterAPI;
- end.
|