googleidentitytoolkit.pp 147 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157315831593160316131623163316431653166316731683169317031713172317331743175317631773178317931803181318231833184318531863187318831893190319131923193319431953196319731983199320032013202320332043205320632073208320932103211321232133214321532163217321832193220322132223223322432253226322732283229323032313232323332343235323632373238323932403241324232433244324532463247324832493250325132523253325432553256325732583259326032613262326332643265326632673268326932703271327232733274327532763277327832793280328132823283328432853286328732883289329032913292329332943295329632973298329933003301330233033304330533063307330833093310331133123313331433153316331733183319332033213322332333243325332633273328332933303331333233333334333533363337333833393340334133423343334433453346334733483349335033513352335333543355335633573358335933603361336233633364336533663367336833693370337133723373337433753376337733783379338033813382338333843385338633873388338933903391339233933394339533963397339833993400340134023403340434053406340734083409341034113412341334143415341634173418341934203421342234233424342534263427342834293430343134323433343434353436343734383439344034413442344334443445344634473448344934503451345234533454345534563457345834593460346134623463346434653466346734683469347034713472347334743475347634773478347934803481348234833484348534863487348834893490349134923493349434953496349734983499350035013502350335043505350635073508350935103511351235133514351535163517351835193520352135223523352435253526352735283529353035313532353335343535353635373538353935403541354235433544354535463547354835493550355135523553355435553556355735583559356035613562356335643565356635673568356935703571357235733574357535763577357835793580358135823583358435853586358735883589359035913592359335943595359635973598359936003601360236033604360536063607360836093610361136123613361436153616361736183619362036213622362336243625362636273628362936303631363236333634363536363637363836393640364136423643364436453646364736483649365036513652365336543655365636573658365936603661366236633664366536663667366836693670367136723673367436753676367736783679368036813682368336843685368636873688368936903691369236933694369536963697369836993700370137023703370437053706370737083709371037113712371337143715371637173718371937203721372237233724372537263727372837293730373137323733373437353736373737383739374037413742374337443745374637473748374937503751375237533754375537563757375837593760376137623763376437653766376737683769377037713772377337743775377637773778377937803781378237833784378537863787378837893790379137923793379437953796379737983799380038013802380338043805380638073808380938103811381238133814381538163817381838193820382138223823382438253826382738283829383038313832383338343835383638373838383938403841384238433844384538463847384838493850385138523853385438553856385738583859386038613862386338643865386638673868386938703871387238733874387538763877387838793880388138823883388438853886388738883889389038913892389338943895389638973898389939003901390239033904390539063907390839093910391139123913391439153916391739183919392039213922392339243925392639273928392939303931393239333934393539363937393839393940394139423943394439453946394739483949395039513952395339543955395639573958395939603961396239633964396539663967396839693970397139723973397439753976397739783979398039813982398339843985398639873988398939903991399239933994399539963997399839994000400140024003400440054006400740084009401040114012401340144015401640174018401940204021402240234024402540264027402840294030403140324033403440354036403740384039404040414042404340444045404640474048404940504051405240534054405540564057405840594060406140624063406440654066406740684069407040714072407340744075407640774078407940804081408240834084408540864087408840894090409140924093409440954096409740984099410041014102410341044105410641074108410941104111411241134114411541164117411841194120412141224123412441254126412741284129413041314132413341344135413641374138413941404141414241434144414541464147414841494150415141524153415441554156415741584159416041614162416341644165416641674168416941704171417241734174417541764177417841794180418141824183418441854186418741884189419041914192419341944195419641974198419942004201420242034204420542064207420842094210421142124213421442154216421742184219422042214222422342244225422642274228422942304231423242334234423542364237423842394240424142424243424442454246424742484249425042514252425342544255425642574258425942604261426242634264426542664267426842694270427142724273427442754276427742784279428042814282428342844285428642874288428942904291429242934294429542964297429842994300430143024303430443054306430743084309431043114312431343144315431643174318431943204321432243234324432543264327432843294330433143324333433443354336433743384339434043414342434343444345434643474348434943504351435243534354435543564357435843594360436143624363436443654366436743684369437043714372437343744375437643774378437943804381438243834384438543864387438843894390439143924393439443954396439743984399440044014402440344044405440644074408440944104411441244134414441544164417441844194420442144224423442444254426442744284429443044314432443344344435443644374438443944404441444244434444444544464447444844494450445144524453445444554456445744584459446044614462446344644465446644674468446944704471447244734474447544764477447844794480448144824483448444854486448744884489449044914492449344944495449644974498449945004501450245034504450545064507450845094510451145124513451445154516451745184519452045214522452345244525452645274528452945304531453245334534453545364537453845394540454145424543454445454546454745484549455045514552455345544555455645574558455945604561456245634564456545664567456845694570457145724573457445754576457745784579458045814582458345844585458645874588458945904591459245934594459545964597459845994600460146024603460446054606460746084609461046114612461346144615461646174618461946204621462246234624462546264627462846294630463146324633463446354636463746384639464046414642464346444645464646474648464946504651465246534654465546564657465846594660466146624663466446654666
  1. unit googleidentitytoolkit;
  2. {$MODE objfpc}
  3. {$H+}
  4. interface
  5. uses sysutils, classes, googleservice, restbase, googlebase;
  6. type
  7. //Top-level schema types
  8. TCreateAuthUriResponse = Class;
  9. TDeleteAccountResponse = Class;
  10. TDownloadAccountResponse = Class;
  11. TEmailTemplate = Class;
  12. TGetAccountInfoResponse = Class;
  13. TGetOobConfirmationCodeResponse = Class;
  14. TGetRecaptchaParamResponse = Class;
  15. TIdentitytoolkitRelyingpartyCreateAuthUriRequest = Class;
  16. TIdentitytoolkitRelyingpartyDeleteAccountRequest = Class;
  17. TIdentitytoolkitRelyingpartyDownloadAccountRequest = Class;
  18. TIdentitytoolkitRelyingpartyGetAccountInfoRequest = Class;
  19. TIdentitytoolkitRelyingpartyGetProjectConfigResponse = Class;
  20. TIdentitytoolkitRelyingpartyGetPublicKeysResponse = Class;
  21. TIdentitytoolkitRelyingpartyResetPasswordRequest = Class;
  22. TIdentitytoolkitRelyingpartySetAccountInfoRequest = Class;
  23. TIdentitytoolkitRelyingpartySetProjectConfigRequest = Class;
  24. TIdentitytoolkitRelyingpartySetProjectConfigResponse = Class;
  25. TIdentitytoolkitRelyingpartySignOutUserRequest = Class;
  26. TIdentitytoolkitRelyingpartySignOutUserResponse = Class;
  27. TIdentitytoolkitRelyingpartySignupNewUserRequest = Class;
  28. TIdentitytoolkitRelyingpartyUploadAccountRequest = Class;
  29. TIdentitytoolkitRelyingpartyVerifyAssertionRequest = Class;
  30. TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest = Class;
  31. TIdentitytoolkitRelyingpartyVerifyPasswordRequest = Class;
  32. TIdpConfig = Class;
  33. TRelyingparty = Class;
  34. TResetPasswordResponse = Class;
  35. TSetAccountInfoResponse = Class;
  36. TSignupNewUserResponse = Class;
  37. TUploadAccountResponse = Class;
  38. TUserInfo = Class;
  39. TVerifyAssertionResponse = Class;
  40. TVerifyCustomTokenResponse = Class;
  41. TVerifyPasswordResponse = Class;
  42. TCreateAuthUriResponseArray = Array of TCreateAuthUriResponse;
  43. TDeleteAccountResponseArray = Array of TDeleteAccountResponse;
  44. TDownloadAccountResponseArray = Array of TDownloadAccountResponse;
  45. TEmailTemplateArray = Array of TEmailTemplate;
  46. TGetAccountInfoResponseArray = Array of TGetAccountInfoResponse;
  47. TGetOobConfirmationCodeResponseArray = Array of TGetOobConfirmationCodeResponse;
  48. TGetRecaptchaParamResponseArray = Array of TGetRecaptchaParamResponse;
  49. TIdentitytoolkitRelyingpartyCreateAuthUriRequestArray = Array of TIdentitytoolkitRelyingpartyCreateAuthUriRequest;
  50. TIdentitytoolkitRelyingpartyDeleteAccountRequestArray = Array of TIdentitytoolkitRelyingpartyDeleteAccountRequest;
  51. TIdentitytoolkitRelyingpartyDownloadAccountRequestArray = Array of TIdentitytoolkitRelyingpartyDownloadAccountRequest;
  52. TIdentitytoolkitRelyingpartyGetAccountInfoRequestArray = Array of TIdentitytoolkitRelyingpartyGetAccountInfoRequest;
  53. TIdentitytoolkitRelyingpartyGetProjectConfigResponseArray = Array of TIdentitytoolkitRelyingpartyGetProjectConfigResponse;
  54. TIdentitytoolkitRelyingpartyGetPublicKeysResponseArray = Array of TIdentitytoolkitRelyingpartyGetPublicKeysResponse;
  55. TIdentitytoolkitRelyingpartyResetPasswordRequestArray = Array of TIdentitytoolkitRelyingpartyResetPasswordRequest;
  56. TIdentitytoolkitRelyingpartySetAccountInfoRequestArray = Array of TIdentitytoolkitRelyingpartySetAccountInfoRequest;
  57. TIdentitytoolkitRelyingpartySetProjectConfigRequestArray = Array of TIdentitytoolkitRelyingpartySetProjectConfigRequest;
  58. TIdentitytoolkitRelyingpartySetProjectConfigResponseArray = Array of TIdentitytoolkitRelyingpartySetProjectConfigResponse;
  59. TIdentitytoolkitRelyingpartySignOutUserRequestArray = Array of TIdentitytoolkitRelyingpartySignOutUserRequest;
  60. TIdentitytoolkitRelyingpartySignOutUserResponseArray = Array of TIdentitytoolkitRelyingpartySignOutUserResponse;
  61. TIdentitytoolkitRelyingpartySignupNewUserRequestArray = Array of TIdentitytoolkitRelyingpartySignupNewUserRequest;
  62. TIdentitytoolkitRelyingpartyUploadAccountRequestArray = Array of TIdentitytoolkitRelyingpartyUploadAccountRequest;
  63. TIdentitytoolkitRelyingpartyVerifyAssertionRequestArray = Array of TIdentitytoolkitRelyingpartyVerifyAssertionRequest;
  64. TIdentitytoolkitRelyingpartyVerifyCustomTokenRequestArray = Array of TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest;
  65. TIdentitytoolkitRelyingpartyVerifyPasswordRequestArray = Array of TIdentitytoolkitRelyingpartyVerifyPasswordRequest;
  66. TIdpConfigArray = Array of TIdpConfig;
  67. TRelyingpartyArray = Array of TRelyingparty;
  68. TResetPasswordResponseArray = Array of TResetPasswordResponse;
  69. TSetAccountInfoResponseArray = Array of TSetAccountInfoResponse;
  70. TSignupNewUserResponseArray = Array of TSignupNewUserResponse;
  71. TUploadAccountResponseArray = Array of TUploadAccountResponse;
  72. TUserInfoArray = Array of TUserInfo;
  73. TVerifyAssertionResponseArray = Array of TVerifyAssertionResponse;
  74. TVerifyCustomTokenResponseArray = Array of TVerifyCustomTokenResponse;
  75. TVerifyPasswordResponseArray = Array of TVerifyPasswordResponse;
  76. //Anonymous types, using auto-generated names
  77. TSetAccountInfoResponseTypeproviderUserInfoItem = Class;
  78. TUploadAccountResponseTypeerrorItem = Class;
  79. TUserInfoTypeproviderUserInfoItem = Class;
  80. TDownloadAccountResponseTypeusersArray = Array of TUserInfo;
  81. TGetAccountInfoResponseTypeusersArray = Array of TUserInfo;
  82. TIdentitytoolkitRelyingpartyGetProjectConfigResponseTypeidpConfigArray = Array of TIdpConfig;
  83. TIdentitytoolkitRelyingpartySetProjectConfigRequestTypeidpConfigArray = Array of TIdpConfig;
  84. TIdentitytoolkitRelyingpartyUploadAccountRequestTypeusersArray = Array of TUserInfo;
  85. TSetAccountInfoResponseTypeproviderUserInfoArray = Array of TSetAccountInfoResponseTypeproviderUserInfoItem;
  86. TUploadAccountResponseTypeerrorArray = Array of TUploadAccountResponseTypeerrorItem;
  87. TUserInfoTypeproviderUserInfoArray = Array of TUserInfoTypeproviderUserInfoItem;
  88. { --------------------------------------------------------------------
  89. TCreateAuthUriResponse
  90. --------------------------------------------------------------------}
  91. TCreateAuthUriResponse = Class(TGoogleBaseObject)
  92. Private
  93. FallProviders : TStringArray;
  94. FauthUri : String;
  95. FcaptchaRequired : boolean;
  96. FforExistingProvider : boolean;
  97. Fkind : String;
  98. FproviderId : String;
  99. Fregistered : boolean;
  100. FsessionId : String;
  101. Protected
  102. //Property setters
  103. Procedure SetallProviders(AIndex : Integer; const AValue : TStringArray); virtual;
  104. Procedure SetauthUri(AIndex : Integer; const AValue : String); virtual;
  105. Procedure SetcaptchaRequired(AIndex : Integer; const AValue : boolean); virtual;
  106. Procedure SetforExistingProvider(AIndex : Integer; const AValue : boolean); virtual;
  107. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  108. Procedure SetproviderId(AIndex : Integer; const AValue : String); virtual;
  109. Procedure Setregistered(AIndex : Integer; const AValue : boolean); virtual;
  110. Procedure SetsessionId(AIndex : Integer; const AValue : String); virtual;
  111. //2.6.4. bug workaround
  112. {$IFDEF VER2_6}
  113. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  114. {$ENDIF VER2_6}
  115. Public
  116. Published
  117. Property allProviders : TStringArray Index 0 Read FallProviders Write SetallProviders;
  118. Property authUri : String Index 8 Read FauthUri Write SetauthUri;
  119. Property captchaRequired : boolean Index 16 Read FcaptchaRequired Write SetcaptchaRequired;
  120. Property forExistingProvider : boolean Index 24 Read FforExistingProvider Write SetforExistingProvider;
  121. Property kind : String Index 32 Read Fkind Write Setkind;
  122. Property providerId : String Index 40 Read FproviderId Write SetproviderId;
  123. Property registered : boolean Index 48 Read Fregistered Write Setregistered;
  124. Property sessionId : String Index 56 Read FsessionId Write SetsessionId;
  125. end;
  126. TCreateAuthUriResponseClass = Class of TCreateAuthUriResponse;
  127. { --------------------------------------------------------------------
  128. TDeleteAccountResponse
  129. --------------------------------------------------------------------}
  130. TDeleteAccountResponse = Class(TGoogleBaseObject)
  131. Private
  132. Fkind : String;
  133. Protected
  134. //Property setters
  135. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  136. Public
  137. Published
  138. Property kind : String Index 0 Read Fkind Write Setkind;
  139. end;
  140. TDeleteAccountResponseClass = Class of TDeleteAccountResponse;
  141. { --------------------------------------------------------------------
  142. TDownloadAccountResponse
  143. --------------------------------------------------------------------}
  144. TDownloadAccountResponse = Class(TGoogleBaseObject)
  145. Private
  146. Fkind : String;
  147. FnextPageToken : String;
  148. Fusers : TDownloadAccountResponseTypeusersArray;
  149. Protected
  150. //Property setters
  151. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  152. Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
  153. Procedure Setusers(AIndex : Integer; const AValue : TDownloadAccountResponseTypeusersArray); virtual;
  154. //2.6.4. bug workaround
  155. {$IFDEF VER2_6}
  156. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  157. {$ENDIF VER2_6}
  158. Public
  159. Published
  160. Property kind : String Index 0 Read Fkind Write Setkind;
  161. Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
  162. Property users : TDownloadAccountResponseTypeusersArray Index 16 Read Fusers Write Setusers;
  163. end;
  164. TDownloadAccountResponseClass = Class of TDownloadAccountResponse;
  165. { --------------------------------------------------------------------
  166. TEmailTemplate
  167. --------------------------------------------------------------------}
  168. TEmailTemplate = Class(TGoogleBaseObject)
  169. Private
  170. Fbody : String;
  171. Fformat : String;
  172. Ffrom : String;
  173. FfromDisplayName : String;
  174. FreplyTo : String;
  175. Fsubject : String;
  176. Protected
  177. //Property setters
  178. Procedure Setbody(AIndex : Integer; const AValue : String); virtual;
  179. Procedure Setformat(AIndex : Integer; const AValue : String); virtual;
  180. Procedure Setfrom(AIndex : Integer; const AValue : String); virtual;
  181. Procedure SetfromDisplayName(AIndex : Integer; const AValue : String); virtual;
  182. Procedure SetreplyTo(AIndex : Integer; const AValue : String); virtual;
  183. Procedure Setsubject(AIndex : Integer; const AValue : String); virtual;
  184. Public
  185. Published
  186. Property body : String Index 0 Read Fbody Write Setbody;
  187. Property format : String Index 8 Read Fformat Write Setformat;
  188. Property from : String Index 16 Read Ffrom Write Setfrom;
  189. Property fromDisplayName : String Index 24 Read FfromDisplayName Write SetfromDisplayName;
  190. Property replyTo : String Index 32 Read FreplyTo Write SetreplyTo;
  191. Property subject : String Index 40 Read Fsubject Write Setsubject;
  192. end;
  193. TEmailTemplateClass = Class of TEmailTemplate;
  194. { --------------------------------------------------------------------
  195. TGetAccountInfoResponse
  196. --------------------------------------------------------------------}
  197. TGetAccountInfoResponse = Class(TGoogleBaseObject)
  198. Private
  199. Fkind : String;
  200. Fusers : TGetAccountInfoResponseTypeusersArray;
  201. Protected
  202. //Property setters
  203. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  204. Procedure Setusers(AIndex : Integer; const AValue : TGetAccountInfoResponseTypeusersArray); virtual;
  205. //2.6.4. bug workaround
  206. {$IFDEF VER2_6}
  207. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  208. {$ENDIF VER2_6}
  209. Public
  210. Published
  211. Property kind : String Index 0 Read Fkind Write Setkind;
  212. Property users : TGetAccountInfoResponseTypeusersArray Index 8 Read Fusers Write Setusers;
  213. end;
  214. TGetAccountInfoResponseClass = Class of TGetAccountInfoResponse;
  215. { --------------------------------------------------------------------
  216. TGetOobConfirmationCodeResponse
  217. --------------------------------------------------------------------}
  218. TGetOobConfirmationCodeResponse = Class(TGoogleBaseObject)
  219. Private
  220. Femail : String;
  221. Fkind : String;
  222. FoobCode : String;
  223. Protected
  224. //Property setters
  225. Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
  226. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  227. Procedure SetoobCode(AIndex : Integer; const AValue : String); virtual;
  228. Public
  229. Published
  230. Property email : String Index 0 Read Femail Write Setemail;
  231. Property kind : String Index 8 Read Fkind Write Setkind;
  232. Property oobCode : String Index 16 Read FoobCode Write SetoobCode;
  233. end;
  234. TGetOobConfirmationCodeResponseClass = Class of TGetOobConfirmationCodeResponse;
  235. { --------------------------------------------------------------------
  236. TGetRecaptchaParamResponse
  237. --------------------------------------------------------------------}
  238. TGetRecaptchaParamResponse = Class(TGoogleBaseObject)
  239. Private
  240. Fkind : String;
  241. FrecaptchaSiteKey : String;
  242. FrecaptchaStoken : String;
  243. Protected
  244. //Property setters
  245. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  246. Procedure SetrecaptchaSiteKey(AIndex : Integer; const AValue : String); virtual;
  247. Procedure SetrecaptchaStoken(AIndex : Integer; const AValue : String); virtual;
  248. Public
  249. Published
  250. Property kind : String Index 0 Read Fkind Write Setkind;
  251. Property recaptchaSiteKey : String Index 8 Read FrecaptchaSiteKey Write SetrecaptchaSiteKey;
  252. Property recaptchaStoken : String Index 16 Read FrecaptchaStoken Write SetrecaptchaStoken;
  253. end;
  254. TGetRecaptchaParamResponseClass = Class of TGetRecaptchaParamResponse;
  255. { --------------------------------------------------------------------
  256. TIdentitytoolkitRelyingpartyCreateAuthUriRequest
  257. --------------------------------------------------------------------}
  258. TIdentitytoolkitRelyingpartyCreateAuthUriRequest = Class(TGoogleBaseObject)
  259. Private
  260. FappId : String;
  261. FclientId : String;
  262. Fcontext : String;
  263. FcontinueUri : String;
  264. Fidentifier : String;
  265. FoauthConsumerKey : String;
  266. FoauthScope : String;
  267. FopenidRealm : String;
  268. FotaApp : String;
  269. FproviderId : String;
  270. Protected
  271. //Property setters
  272. Procedure SetappId(AIndex : Integer; const AValue : String); virtual;
  273. Procedure SetclientId(AIndex : Integer; const AValue : String); virtual;
  274. Procedure Setcontext(AIndex : Integer; const AValue : String); virtual;
  275. Procedure SetcontinueUri(AIndex : Integer; const AValue : String); virtual;
  276. Procedure Setidentifier(AIndex : Integer; const AValue : String); virtual;
  277. Procedure SetoauthConsumerKey(AIndex : Integer; const AValue : String); virtual;
  278. Procedure SetoauthScope(AIndex : Integer; const AValue : String); virtual;
  279. Procedure SetopenidRealm(AIndex : Integer; const AValue : String); virtual;
  280. Procedure SetotaApp(AIndex : Integer; const AValue : String); virtual;
  281. Procedure SetproviderId(AIndex : Integer; const AValue : String); virtual;
  282. Public
  283. Published
  284. Property appId : String Index 0 Read FappId Write SetappId;
  285. Property clientId : String Index 8 Read FclientId Write SetclientId;
  286. Property context : String Index 16 Read Fcontext Write Setcontext;
  287. Property continueUri : String Index 24 Read FcontinueUri Write SetcontinueUri;
  288. Property identifier : String Index 32 Read Fidentifier Write Setidentifier;
  289. Property oauthConsumerKey : String Index 40 Read FoauthConsumerKey Write SetoauthConsumerKey;
  290. Property oauthScope : String Index 48 Read FoauthScope Write SetoauthScope;
  291. Property openidRealm : String Index 56 Read FopenidRealm Write SetopenidRealm;
  292. Property otaApp : String Index 64 Read FotaApp Write SetotaApp;
  293. Property providerId : String Index 72 Read FproviderId Write SetproviderId;
  294. end;
  295. TIdentitytoolkitRelyingpartyCreateAuthUriRequestClass = Class of TIdentitytoolkitRelyingpartyCreateAuthUriRequest;
  296. { --------------------------------------------------------------------
  297. TIdentitytoolkitRelyingpartyDeleteAccountRequest
  298. --------------------------------------------------------------------}
  299. TIdentitytoolkitRelyingpartyDeleteAccountRequest = Class(TGoogleBaseObject)
  300. Private
  301. FdelegatedProjectNumber : String;
  302. FidToken : String;
  303. FlocalId : String;
  304. Protected
  305. //Property setters
  306. Procedure SetdelegatedProjectNumber(AIndex : Integer; const AValue : String); virtual;
  307. Procedure SetidToken(AIndex : Integer; const AValue : String); virtual;
  308. Procedure SetlocalId(AIndex : Integer; const AValue : String); virtual;
  309. Public
  310. Published
  311. Property delegatedProjectNumber : String Index 0 Read FdelegatedProjectNumber Write SetdelegatedProjectNumber;
  312. Property idToken : String Index 8 Read FidToken Write SetidToken;
  313. Property localId : String Index 16 Read FlocalId Write SetlocalId;
  314. end;
  315. TIdentitytoolkitRelyingpartyDeleteAccountRequestClass = Class of TIdentitytoolkitRelyingpartyDeleteAccountRequest;
  316. { --------------------------------------------------------------------
  317. TIdentitytoolkitRelyingpartyDownloadAccountRequest
  318. --------------------------------------------------------------------}
  319. TIdentitytoolkitRelyingpartyDownloadAccountRequest = Class(TGoogleBaseObject)
  320. Private
  321. FdelegatedProjectNumber : String;
  322. FmaxResults : integer;
  323. FnextPageToken : String;
  324. Protected
  325. //Property setters
  326. Procedure SetdelegatedProjectNumber(AIndex : Integer; const AValue : String); virtual;
  327. Procedure SetmaxResults(AIndex : Integer; const AValue : integer); virtual;
  328. Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
  329. Public
  330. Published
  331. Property delegatedProjectNumber : String Index 0 Read FdelegatedProjectNumber Write SetdelegatedProjectNumber;
  332. Property maxResults : integer Index 8 Read FmaxResults Write SetmaxResults;
  333. Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
  334. end;
  335. TIdentitytoolkitRelyingpartyDownloadAccountRequestClass = Class of TIdentitytoolkitRelyingpartyDownloadAccountRequest;
  336. { --------------------------------------------------------------------
  337. TIdentitytoolkitRelyingpartyGetAccountInfoRequest
  338. --------------------------------------------------------------------}
  339. TIdentitytoolkitRelyingpartyGetAccountInfoRequest = Class(TGoogleBaseObject)
  340. Private
  341. FdelegatedProjectNumber : String;
  342. Femail : TStringArray;
  343. FidToken : String;
  344. FlocalId : TStringArray;
  345. Protected
  346. //Property setters
  347. Procedure SetdelegatedProjectNumber(AIndex : Integer; const AValue : String); virtual;
  348. Procedure Setemail(AIndex : Integer; const AValue : TStringArray); virtual;
  349. Procedure SetidToken(AIndex : Integer; const AValue : String); virtual;
  350. Procedure SetlocalId(AIndex : Integer; const AValue : TStringArray); virtual;
  351. //2.6.4. bug workaround
  352. {$IFDEF VER2_6}
  353. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  354. {$ENDIF VER2_6}
  355. Public
  356. Published
  357. Property delegatedProjectNumber : String Index 0 Read FdelegatedProjectNumber Write SetdelegatedProjectNumber;
  358. Property email : TStringArray Index 8 Read Femail Write Setemail;
  359. Property idToken : String Index 16 Read FidToken Write SetidToken;
  360. Property localId : TStringArray Index 24 Read FlocalId Write SetlocalId;
  361. end;
  362. TIdentitytoolkitRelyingpartyGetAccountInfoRequestClass = Class of TIdentitytoolkitRelyingpartyGetAccountInfoRequest;
  363. { --------------------------------------------------------------------
  364. TIdentitytoolkitRelyingpartyGetProjectConfigResponse
  365. --------------------------------------------------------------------}
  366. TIdentitytoolkitRelyingpartyGetProjectConfigResponse = Class(TGoogleBaseObject)
  367. Private
  368. FallowPasswordUser : boolean;
  369. FapiKey : String;
  370. FauthorizedDomains : TStringArray;
  371. FchangeEmailTemplate : TEmailTemplate;
  372. FenableAnonymousUser : boolean;
  373. FidpConfig : TIdentitytoolkitRelyingpartyGetProjectConfigResponseTypeidpConfigArray;
  374. FlegacyResetPasswordTemplate : TEmailTemplate;
  375. FprojectId : String;
  376. FresetPasswordTemplate : TEmailTemplate;
  377. FuseEmailSending : boolean;
  378. FverifyEmailTemplate : TEmailTemplate;
  379. Protected
  380. //Property setters
  381. Procedure SetallowPasswordUser(AIndex : Integer; const AValue : boolean); virtual;
  382. Procedure SetapiKey(AIndex : Integer; const AValue : String); virtual;
  383. Procedure SetauthorizedDomains(AIndex : Integer; const AValue : TStringArray); virtual;
  384. Procedure SetchangeEmailTemplate(AIndex : Integer; const AValue : TEmailTemplate); virtual;
  385. Procedure SetenableAnonymousUser(AIndex : Integer; const AValue : boolean); virtual;
  386. Procedure SetidpConfig(AIndex : Integer; const AValue : TIdentitytoolkitRelyingpartyGetProjectConfigResponseTypeidpConfigArray); virtual;
  387. Procedure SetlegacyResetPasswordTemplate(AIndex : Integer; const AValue : TEmailTemplate); virtual;
  388. Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
  389. Procedure SetresetPasswordTemplate(AIndex : Integer; const AValue : TEmailTemplate); virtual;
  390. Procedure SetuseEmailSending(AIndex : Integer; const AValue : boolean); virtual;
  391. Procedure SetverifyEmailTemplate(AIndex : Integer; const AValue : TEmailTemplate); virtual;
  392. //2.6.4. bug workaround
  393. {$IFDEF VER2_6}
  394. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  395. {$ENDIF VER2_6}
  396. Public
  397. Published
  398. Property allowPasswordUser : boolean Index 0 Read FallowPasswordUser Write SetallowPasswordUser;
  399. Property apiKey : String Index 8 Read FapiKey Write SetapiKey;
  400. Property authorizedDomains : TStringArray Index 16 Read FauthorizedDomains Write SetauthorizedDomains;
  401. Property changeEmailTemplate : TEmailTemplate Index 24 Read FchangeEmailTemplate Write SetchangeEmailTemplate;
  402. Property enableAnonymousUser : boolean Index 32 Read FenableAnonymousUser Write SetenableAnonymousUser;
  403. Property idpConfig : TIdentitytoolkitRelyingpartyGetProjectConfigResponseTypeidpConfigArray Index 40 Read FidpConfig Write SetidpConfig;
  404. Property legacyResetPasswordTemplate : TEmailTemplate Index 48 Read FlegacyResetPasswordTemplate Write SetlegacyResetPasswordTemplate;
  405. Property projectId : String Index 56 Read FprojectId Write SetprojectId;
  406. Property resetPasswordTemplate : TEmailTemplate Index 64 Read FresetPasswordTemplate Write SetresetPasswordTemplate;
  407. Property useEmailSending : boolean Index 72 Read FuseEmailSending Write SetuseEmailSending;
  408. Property verifyEmailTemplate : TEmailTemplate Index 80 Read FverifyEmailTemplate Write SetverifyEmailTemplate;
  409. end;
  410. TIdentitytoolkitRelyingpartyGetProjectConfigResponseClass = Class of TIdentitytoolkitRelyingpartyGetProjectConfigResponse;
  411. { --------------------------------------------------------------------
  412. TIdentitytoolkitRelyingpartyGetPublicKeysResponse
  413. --------------------------------------------------------------------}
  414. TIdentitytoolkitRelyingpartyGetPublicKeysResponse = Class(TGoogleBaseObject)
  415. Private
  416. Protected
  417. //Property setters
  418. Public
  419. Class Function AllowAdditionalProperties : Boolean; override;
  420. Published
  421. end;
  422. TIdentitytoolkitRelyingpartyGetPublicKeysResponseClass = Class of TIdentitytoolkitRelyingpartyGetPublicKeysResponse;
  423. { --------------------------------------------------------------------
  424. TIdentitytoolkitRelyingpartyResetPasswordRequest
  425. --------------------------------------------------------------------}
  426. TIdentitytoolkitRelyingpartyResetPasswordRequest = Class(TGoogleBaseObject)
  427. Private
  428. Femail : String;
  429. FnewPassword : String;
  430. FoldPassword : String;
  431. FoobCode : String;
  432. Protected
  433. //Property setters
  434. Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
  435. Procedure SetnewPassword(AIndex : Integer; const AValue : String); virtual;
  436. Procedure SetoldPassword(AIndex : Integer; const AValue : String); virtual;
  437. Procedure SetoobCode(AIndex : Integer; const AValue : String); virtual;
  438. Public
  439. Published
  440. Property email : String Index 0 Read Femail Write Setemail;
  441. Property newPassword : String Index 8 Read FnewPassword Write SetnewPassword;
  442. Property oldPassword : String Index 16 Read FoldPassword Write SetoldPassword;
  443. Property oobCode : String Index 24 Read FoobCode Write SetoobCode;
  444. end;
  445. TIdentitytoolkitRelyingpartyResetPasswordRequestClass = Class of TIdentitytoolkitRelyingpartyResetPasswordRequest;
  446. { --------------------------------------------------------------------
  447. TIdentitytoolkitRelyingpartySetAccountInfoRequest
  448. --------------------------------------------------------------------}
  449. TIdentitytoolkitRelyingpartySetAccountInfoRequest = Class(TGoogleBaseObject)
  450. Private
  451. FcaptchaChallenge : String;
  452. FcaptchaResponse : String;
  453. FdelegatedProjectNumber : String;
  454. FdeleteAttribute : TStringArray;
  455. FdeleteProvider : TStringArray;
  456. FdisableUser : boolean;
  457. FdisplayName : String;
  458. Femail : String;
  459. FemailVerified : boolean;
  460. FidToken : String;
  461. FinstanceId : String;
  462. FlocalId : String;
  463. FoobCode : String;
  464. Fpassword : String;
  465. FphotoUrl : String;
  466. Fprovider : TStringArray;
  467. FreturnSecureToken : boolean;
  468. FupgradeToFederatedLogin : boolean;
  469. FvalidSince : String;
  470. Protected
  471. //Property setters
  472. Procedure SetcaptchaChallenge(AIndex : Integer; const AValue : String); virtual;
  473. Procedure SetcaptchaResponse(AIndex : Integer; const AValue : String); virtual;
  474. Procedure SetdelegatedProjectNumber(AIndex : Integer; const AValue : String); virtual;
  475. Procedure SetdeleteAttribute(AIndex : Integer; const AValue : TStringArray); virtual;
  476. Procedure SetdeleteProvider(AIndex : Integer; const AValue : TStringArray); virtual;
  477. Procedure SetdisableUser(AIndex : Integer; const AValue : boolean); virtual;
  478. Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
  479. Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
  480. Procedure SetemailVerified(AIndex : Integer; const AValue : boolean); virtual;
  481. Procedure SetidToken(AIndex : Integer; const AValue : String); virtual;
  482. Procedure SetinstanceId(AIndex : Integer; const AValue : String); virtual;
  483. Procedure SetlocalId(AIndex : Integer; const AValue : String); virtual;
  484. Procedure SetoobCode(AIndex : Integer; const AValue : String); virtual;
  485. Procedure Setpassword(AIndex : Integer; const AValue : String); virtual;
  486. Procedure SetphotoUrl(AIndex : Integer; const AValue : String); virtual;
  487. Procedure Setprovider(AIndex : Integer; const AValue : TStringArray); virtual;
  488. Procedure SetreturnSecureToken(AIndex : Integer; const AValue : boolean); virtual;
  489. Procedure SetupgradeToFederatedLogin(AIndex : Integer; const AValue : boolean); virtual;
  490. Procedure SetvalidSince(AIndex : Integer; const AValue : String); virtual;
  491. //2.6.4. bug workaround
  492. {$IFDEF VER2_6}
  493. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  494. {$ENDIF VER2_6}
  495. Public
  496. Published
  497. Property captchaChallenge : String Index 0 Read FcaptchaChallenge Write SetcaptchaChallenge;
  498. Property captchaResponse : String Index 8 Read FcaptchaResponse Write SetcaptchaResponse;
  499. Property delegatedProjectNumber : String Index 16 Read FdelegatedProjectNumber Write SetdelegatedProjectNumber;
  500. Property deleteAttribute : TStringArray Index 24 Read FdeleteAttribute Write SetdeleteAttribute;
  501. Property deleteProvider : TStringArray Index 32 Read FdeleteProvider Write SetdeleteProvider;
  502. Property disableUser : boolean Index 40 Read FdisableUser Write SetdisableUser;
  503. Property displayName : String Index 48 Read FdisplayName Write SetdisplayName;
  504. Property email : String Index 56 Read Femail Write Setemail;
  505. Property emailVerified : boolean Index 64 Read FemailVerified Write SetemailVerified;
  506. Property idToken : String Index 72 Read FidToken Write SetidToken;
  507. Property instanceId : String Index 80 Read FinstanceId Write SetinstanceId;
  508. Property localId : String Index 88 Read FlocalId Write SetlocalId;
  509. Property oobCode : String Index 96 Read FoobCode Write SetoobCode;
  510. Property password : String Index 104 Read Fpassword Write Setpassword;
  511. Property photoUrl : String Index 112 Read FphotoUrl Write SetphotoUrl;
  512. Property provider : TStringArray Index 120 Read Fprovider Write Setprovider;
  513. Property returnSecureToken : boolean Index 128 Read FreturnSecureToken Write SetreturnSecureToken;
  514. Property upgradeToFederatedLogin : boolean Index 136 Read FupgradeToFederatedLogin Write SetupgradeToFederatedLogin;
  515. Property validSince : String Index 144 Read FvalidSince Write SetvalidSince;
  516. end;
  517. TIdentitytoolkitRelyingpartySetAccountInfoRequestClass = Class of TIdentitytoolkitRelyingpartySetAccountInfoRequest;
  518. { --------------------------------------------------------------------
  519. TIdentitytoolkitRelyingpartySetProjectConfigRequest
  520. --------------------------------------------------------------------}
  521. TIdentitytoolkitRelyingpartySetProjectConfigRequest = Class(TGoogleBaseObject)
  522. Private
  523. FallowPasswordUser : boolean;
  524. FapiKey : String;
  525. FauthorizedDomains : TStringArray;
  526. FchangeEmailTemplate : TEmailTemplate;
  527. FdelegatedProjectNumber : String;
  528. FenableAnonymousUser : boolean;
  529. FidpConfig : TIdentitytoolkitRelyingpartySetProjectConfigRequestTypeidpConfigArray;
  530. FlegacyResetPasswordTemplate : TEmailTemplate;
  531. FresetPasswordTemplate : TEmailTemplate;
  532. FuseEmailSending : boolean;
  533. FverifyEmailTemplate : TEmailTemplate;
  534. Protected
  535. //Property setters
  536. Procedure SetallowPasswordUser(AIndex : Integer; const AValue : boolean); virtual;
  537. Procedure SetapiKey(AIndex : Integer; const AValue : String); virtual;
  538. Procedure SetauthorizedDomains(AIndex : Integer; const AValue : TStringArray); virtual;
  539. Procedure SetchangeEmailTemplate(AIndex : Integer; const AValue : TEmailTemplate); virtual;
  540. Procedure SetdelegatedProjectNumber(AIndex : Integer; const AValue : String); virtual;
  541. Procedure SetenableAnonymousUser(AIndex : Integer; const AValue : boolean); virtual;
  542. Procedure SetidpConfig(AIndex : Integer; const AValue : TIdentitytoolkitRelyingpartySetProjectConfigRequestTypeidpConfigArray); virtual;
  543. Procedure SetlegacyResetPasswordTemplate(AIndex : Integer; const AValue : TEmailTemplate); virtual;
  544. Procedure SetresetPasswordTemplate(AIndex : Integer; const AValue : TEmailTemplate); virtual;
  545. Procedure SetuseEmailSending(AIndex : Integer; const AValue : boolean); virtual;
  546. Procedure SetverifyEmailTemplate(AIndex : Integer; const AValue : TEmailTemplate); virtual;
  547. //2.6.4. bug workaround
  548. {$IFDEF VER2_6}
  549. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  550. {$ENDIF VER2_6}
  551. Public
  552. Published
  553. Property allowPasswordUser : boolean Index 0 Read FallowPasswordUser Write SetallowPasswordUser;
  554. Property apiKey : String Index 8 Read FapiKey Write SetapiKey;
  555. Property authorizedDomains : TStringArray Index 16 Read FauthorizedDomains Write SetauthorizedDomains;
  556. Property changeEmailTemplate : TEmailTemplate Index 24 Read FchangeEmailTemplate Write SetchangeEmailTemplate;
  557. Property delegatedProjectNumber : String Index 32 Read FdelegatedProjectNumber Write SetdelegatedProjectNumber;
  558. Property enableAnonymousUser : boolean Index 40 Read FenableAnonymousUser Write SetenableAnonymousUser;
  559. Property idpConfig : TIdentitytoolkitRelyingpartySetProjectConfigRequestTypeidpConfigArray Index 48 Read FidpConfig Write SetidpConfig;
  560. Property legacyResetPasswordTemplate : TEmailTemplate Index 56 Read FlegacyResetPasswordTemplate Write SetlegacyResetPasswordTemplate;
  561. Property resetPasswordTemplate : TEmailTemplate Index 64 Read FresetPasswordTemplate Write SetresetPasswordTemplate;
  562. Property useEmailSending : boolean Index 72 Read FuseEmailSending Write SetuseEmailSending;
  563. Property verifyEmailTemplate : TEmailTemplate Index 80 Read FverifyEmailTemplate Write SetverifyEmailTemplate;
  564. end;
  565. TIdentitytoolkitRelyingpartySetProjectConfigRequestClass = Class of TIdentitytoolkitRelyingpartySetProjectConfigRequest;
  566. { --------------------------------------------------------------------
  567. TIdentitytoolkitRelyingpartySetProjectConfigResponse
  568. --------------------------------------------------------------------}
  569. TIdentitytoolkitRelyingpartySetProjectConfigResponse = Class(TGoogleBaseObject)
  570. Private
  571. FprojectId : String;
  572. Protected
  573. //Property setters
  574. Procedure SetprojectId(AIndex : Integer; const AValue : String); virtual;
  575. Public
  576. Published
  577. Property projectId : String Index 0 Read FprojectId Write SetprojectId;
  578. end;
  579. TIdentitytoolkitRelyingpartySetProjectConfigResponseClass = Class of TIdentitytoolkitRelyingpartySetProjectConfigResponse;
  580. { --------------------------------------------------------------------
  581. TIdentitytoolkitRelyingpartySignOutUserRequest
  582. --------------------------------------------------------------------}
  583. TIdentitytoolkitRelyingpartySignOutUserRequest = Class(TGoogleBaseObject)
  584. Private
  585. FinstanceId : String;
  586. FlocalId : String;
  587. Protected
  588. //Property setters
  589. Procedure SetinstanceId(AIndex : Integer; const AValue : String); virtual;
  590. Procedure SetlocalId(AIndex : Integer; const AValue : String); virtual;
  591. Public
  592. Published
  593. Property instanceId : String Index 0 Read FinstanceId Write SetinstanceId;
  594. Property localId : String Index 8 Read FlocalId Write SetlocalId;
  595. end;
  596. TIdentitytoolkitRelyingpartySignOutUserRequestClass = Class of TIdentitytoolkitRelyingpartySignOutUserRequest;
  597. { --------------------------------------------------------------------
  598. TIdentitytoolkitRelyingpartySignOutUserResponse
  599. --------------------------------------------------------------------}
  600. TIdentitytoolkitRelyingpartySignOutUserResponse = Class(TGoogleBaseObject)
  601. Private
  602. FlocalId : String;
  603. Protected
  604. //Property setters
  605. Procedure SetlocalId(AIndex : Integer; const AValue : String); virtual;
  606. Public
  607. Published
  608. Property localId : String Index 0 Read FlocalId Write SetlocalId;
  609. end;
  610. TIdentitytoolkitRelyingpartySignOutUserResponseClass = Class of TIdentitytoolkitRelyingpartySignOutUserResponse;
  611. { --------------------------------------------------------------------
  612. TIdentitytoolkitRelyingpartySignupNewUserRequest
  613. --------------------------------------------------------------------}
  614. TIdentitytoolkitRelyingpartySignupNewUserRequest = Class(TGoogleBaseObject)
  615. Private
  616. FcaptchaChallenge : String;
  617. FcaptchaResponse : String;
  618. FdisplayName : String;
  619. Femail : String;
  620. FidToken : String;
  621. FinstanceId : String;
  622. Fpassword : String;
  623. Protected
  624. //Property setters
  625. Procedure SetcaptchaChallenge(AIndex : Integer; const AValue : String); virtual;
  626. Procedure SetcaptchaResponse(AIndex : Integer; const AValue : String); virtual;
  627. Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
  628. Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
  629. Procedure SetidToken(AIndex : Integer; const AValue : String); virtual;
  630. Procedure SetinstanceId(AIndex : Integer; const AValue : String); virtual;
  631. Procedure Setpassword(AIndex : Integer; const AValue : String); virtual;
  632. Public
  633. Published
  634. Property captchaChallenge : String Index 0 Read FcaptchaChallenge Write SetcaptchaChallenge;
  635. Property captchaResponse : String Index 8 Read FcaptchaResponse Write SetcaptchaResponse;
  636. Property displayName : String Index 16 Read FdisplayName Write SetdisplayName;
  637. Property email : String Index 24 Read Femail Write Setemail;
  638. Property idToken : String Index 32 Read FidToken Write SetidToken;
  639. Property instanceId : String Index 40 Read FinstanceId Write SetinstanceId;
  640. Property password : String Index 48 Read Fpassword Write Setpassword;
  641. end;
  642. TIdentitytoolkitRelyingpartySignupNewUserRequestClass = Class of TIdentitytoolkitRelyingpartySignupNewUserRequest;
  643. { --------------------------------------------------------------------
  644. TIdentitytoolkitRelyingpartyUploadAccountRequest
  645. --------------------------------------------------------------------}
  646. TIdentitytoolkitRelyingpartyUploadAccountRequest = Class(TGoogleBaseObject)
  647. Private
  648. FdelegatedProjectNumber : String;
  649. FhashAlgorithm : String;
  650. FmemoryCost : integer;
  651. Frounds : integer;
  652. FsaltSeparator : String;
  653. FsignerKey : String;
  654. Fusers : TIdentitytoolkitRelyingpartyUploadAccountRequestTypeusersArray;
  655. Protected
  656. //Property setters
  657. Procedure SetdelegatedProjectNumber(AIndex : Integer; const AValue : String); virtual;
  658. Procedure SethashAlgorithm(AIndex : Integer; const AValue : String); virtual;
  659. Procedure SetmemoryCost(AIndex : Integer; const AValue : integer); virtual;
  660. Procedure Setrounds(AIndex : Integer; const AValue : integer); virtual;
  661. Procedure SetsaltSeparator(AIndex : Integer; const AValue : String); virtual;
  662. Procedure SetsignerKey(AIndex : Integer; const AValue : String); virtual;
  663. Procedure Setusers(AIndex : Integer; const AValue : TIdentitytoolkitRelyingpartyUploadAccountRequestTypeusersArray); virtual;
  664. //2.6.4. bug workaround
  665. {$IFDEF VER2_6}
  666. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  667. {$ENDIF VER2_6}
  668. Public
  669. Published
  670. Property delegatedProjectNumber : String Index 0 Read FdelegatedProjectNumber Write SetdelegatedProjectNumber;
  671. Property hashAlgorithm : String Index 8 Read FhashAlgorithm Write SethashAlgorithm;
  672. Property memoryCost : integer Index 16 Read FmemoryCost Write SetmemoryCost;
  673. Property rounds : integer Index 24 Read Frounds Write Setrounds;
  674. Property saltSeparator : String Index 32 Read FsaltSeparator Write SetsaltSeparator;
  675. Property signerKey : String Index 40 Read FsignerKey Write SetsignerKey;
  676. Property users : TIdentitytoolkitRelyingpartyUploadAccountRequestTypeusersArray Index 48 Read Fusers Write Setusers;
  677. end;
  678. TIdentitytoolkitRelyingpartyUploadAccountRequestClass = Class of TIdentitytoolkitRelyingpartyUploadAccountRequest;
  679. { --------------------------------------------------------------------
  680. TIdentitytoolkitRelyingpartyVerifyAssertionRequest
  681. --------------------------------------------------------------------}
  682. TIdentitytoolkitRelyingpartyVerifyAssertionRequest = Class(TGoogleBaseObject)
  683. Private
  684. FdelegatedProjectNumber : String;
  685. FidToken : String;
  686. FinstanceId : String;
  687. FpendingIdToken : String;
  688. FpostBody : String;
  689. FrequestUri : String;
  690. FreturnRefreshToken : boolean;
  691. FreturnSecureToken : boolean;
  692. FsessionId : String;
  693. Protected
  694. //Property setters
  695. Procedure SetdelegatedProjectNumber(AIndex : Integer; const AValue : String); virtual;
  696. Procedure SetidToken(AIndex : Integer; const AValue : String); virtual;
  697. Procedure SetinstanceId(AIndex : Integer; const AValue : String); virtual;
  698. Procedure SetpendingIdToken(AIndex : Integer; const AValue : String); virtual;
  699. Procedure SetpostBody(AIndex : Integer; const AValue : String); virtual;
  700. Procedure SetrequestUri(AIndex : Integer; const AValue : String); virtual;
  701. Procedure SetreturnRefreshToken(AIndex : Integer; const AValue : boolean); virtual;
  702. Procedure SetreturnSecureToken(AIndex : Integer; const AValue : boolean); virtual;
  703. Procedure SetsessionId(AIndex : Integer; const AValue : String); virtual;
  704. Public
  705. Published
  706. Property delegatedProjectNumber : String Index 0 Read FdelegatedProjectNumber Write SetdelegatedProjectNumber;
  707. Property idToken : String Index 8 Read FidToken Write SetidToken;
  708. Property instanceId : String Index 16 Read FinstanceId Write SetinstanceId;
  709. Property pendingIdToken : String Index 24 Read FpendingIdToken Write SetpendingIdToken;
  710. Property postBody : String Index 32 Read FpostBody Write SetpostBody;
  711. Property requestUri : String Index 40 Read FrequestUri Write SetrequestUri;
  712. Property returnRefreshToken : boolean Index 48 Read FreturnRefreshToken Write SetreturnRefreshToken;
  713. Property returnSecureToken : boolean Index 56 Read FreturnSecureToken Write SetreturnSecureToken;
  714. Property sessionId : String Index 64 Read FsessionId Write SetsessionId;
  715. end;
  716. TIdentitytoolkitRelyingpartyVerifyAssertionRequestClass = Class of TIdentitytoolkitRelyingpartyVerifyAssertionRequest;
  717. { --------------------------------------------------------------------
  718. TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest
  719. --------------------------------------------------------------------}
  720. TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest = Class(TGoogleBaseObject)
  721. Private
  722. FdelegatedProjectNumber : String;
  723. FinstanceId : String;
  724. FreturnSecureToken : boolean;
  725. Ftoken : String;
  726. Protected
  727. //Property setters
  728. Procedure SetdelegatedProjectNumber(AIndex : Integer; const AValue : String); virtual;
  729. Procedure SetinstanceId(AIndex : Integer; const AValue : String); virtual;
  730. Procedure SetreturnSecureToken(AIndex : Integer; const AValue : boolean); virtual;
  731. Procedure Settoken(AIndex : Integer; const AValue : String); virtual;
  732. Public
  733. Published
  734. Property delegatedProjectNumber : String Index 0 Read FdelegatedProjectNumber Write SetdelegatedProjectNumber;
  735. Property instanceId : String Index 8 Read FinstanceId Write SetinstanceId;
  736. Property returnSecureToken : boolean Index 16 Read FreturnSecureToken Write SetreturnSecureToken;
  737. Property token : String Index 24 Read Ftoken Write Settoken;
  738. end;
  739. TIdentitytoolkitRelyingpartyVerifyCustomTokenRequestClass = Class of TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest;
  740. { --------------------------------------------------------------------
  741. TIdentitytoolkitRelyingpartyVerifyPasswordRequest
  742. --------------------------------------------------------------------}
  743. TIdentitytoolkitRelyingpartyVerifyPasswordRequest = Class(TGoogleBaseObject)
  744. Private
  745. FcaptchaChallenge : String;
  746. FcaptchaResponse : String;
  747. FdelegatedProjectNumber : String;
  748. Femail : String;
  749. FidToken : String;
  750. FinstanceId : String;
  751. Fpassword : String;
  752. FpendingIdToken : String;
  753. FreturnSecureToken : boolean;
  754. Protected
  755. //Property setters
  756. Procedure SetcaptchaChallenge(AIndex : Integer; const AValue : String); virtual;
  757. Procedure SetcaptchaResponse(AIndex : Integer; const AValue : String); virtual;
  758. Procedure SetdelegatedProjectNumber(AIndex : Integer; const AValue : String); virtual;
  759. Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
  760. Procedure SetidToken(AIndex : Integer; const AValue : String); virtual;
  761. Procedure SetinstanceId(AIndex : Integer; const AValue : String); virtual;
  762. Procedure Setpassword(AIndex : Integer; const AValue : String); virtual;
  763. Procedure SetpendingIdToken(AIndex : Integer; const AValue : String); virtual;
  764. Procedure SetreturnSecureToken(AIndex : Integer; const AValue : boolean); virtual;
  765. Public
  766. Published
  767. Property captchaChallenge : String Index 0 Read FcaptchaChallenge Write SetcaptchaChallenge;
  768. Property captchaResponse : String Index 8 Read FcaptchaResponse Write SetcaptchaResponse;
  769. Property delegatedProjectNumber : String Index 16 Read FdelegatedProjectNumber Write SetdelegatedProjectNumber;
  770. Property email : String Index 24 Read Femail Write Setemail;
  771. Property idToken : String Index 32 Read FidToken Write SetidToken;
  772. Property instanceId : String Index 40 Read FinstanceId Write SetinstanceId;
  773. Property password : String Index 48 Read Fpassword Write Setpassword;
  774. Property pendingIdToken : String Index 56 Read FpendingIdToken Write SetpendingIdToken;
  775. Property returnSecureToken : boolean Index 64 Read FreturnSecureToken Write SetreturnSecureToken;
  776. end;
  777. TIdentitytoolkitRelyingpartyVerifyPasswordRequestClass = Class of TIdentitytoolkitRelyingpartyVerifyPasswordRequest;
  778. { --------------------------------------------------------------------
  779. TIdpConfig
  780. --------------------------------------------------------------------}
  781. TIdpConfig = Class(TGoogleBaseObject)
  782. Private
  783. FclientId : String;
  784. Fenabled : boolean;
  785. FexperimentPercent : integer;
  786. Fprovider : String;
  787. Fsecret : String;
  788. Protected
  789. //Property setters
  790. Procedure SetclientId(AIndex : Integer; const AValue : String); virtual;
  791. Procedure Setenabled(AIndex : Integer; const AValue : boolean); virtual;
  792. Procedure SetexperimentPercent(AIndex : Integer; const AValue : integer); virtual;
  793. Procedure Setprovider(AIndex : Integer; const AValue : String); virtual;
  794. Procedure Setsecret(AIndex : Integer; const AValue : String); virtual;
  795. Public
  796. Published
  797. Property clientId : String Index 0 Read FclientId Write SetclientId;
  798. Property enabled : boolean Index 8 Read Fenabled Write Setenabled;
  799. Property experimentPercent : integer Index 16 Read FexperimentPercent Write SetexperimentPercent;
  800. Property provider : String Index 24 Read Fprovider Write Setprovider;
  801. Property secret : String Index 32 Read Fsecret Write Setsecret;
  802. end;
  803. TIdpConfigClass = Class of TIdpConfig;
  804. { --------------------------------------------------------------------
  805. TRelyingparty
  806. --------------------------------------------------------------------}
  807. TRelyingparty = Class(TGoogleBaseObject)
  808. Private
  809. FcaptchaResp : String;
  810. Fchallenge : String;
  811. Femail : String;
  812. FidToken : String;
  813. Fkind : String;
  814. FnewEmail : String;
  815. FrequestType : String;
  816. FuserIp : String;
  817. Protected
  818. //Property setters
  819. Procedure SetcaptchaResp(AIndex : Integer; const AValue : String); virtual;
  820. Procedure Setchallenge(AIndex : Integer; const AValue : String); virtual;
  821. Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
  822. Procedure SetidToken(AIndex : Integer; const AValue : String); virtual;
  823. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  824. Procedure SetnewEmail(AIndex : Integer; const AValue : String); virtual;
  825. Procedure SetrequestType(AIndex : Integer; const AValue : String); virtual;
  826. Procedure SetuserIp(AIndex : Integer; const AValue : String); virtual;
  827. Public
  828. Published
  829. Property captchaResp : String Index 0 Read FcaptchaResp Write SetcaptchaResp;
  830. Property challenge : String Index 8 Read Fchallenge Write Setchallenge;
  831. Property email : String Index 16 Read Femail Write Setemail;
  832. Property idToken : String Index 24 Read FidToken Write SetidToken;
  833. Property kind : String Index 32 Read Fkind Write Setkind;
  834. Property newEmail : String Index 40 Read FnewEmail Write SetnewEmail;
  835. Property requestType : String Index 48 Read FrequestType Write SetrequestType;
  836. Property userIp : String Index 56 Read FuserIp Write SetuserIp;
  837. end;
  838. TRelyingpartyClass = Class of TRelyingparty;
  839. { --------------------------------------------------------------------
  840. TResetPasswordResponse
  841. --------------------------------------------------------------------}
  842. TResetPasswordResponse = Class(TGoogleBaseObject)
  843. Private
  844. Femail : String;
  845. Fkind : String;
  846. Protected
  847. //Property setters
  848. Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
  849. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  850. Public
  851. Published
  852. Property email : String Index 0 Read Femail Write Setemail;
  853. Property kind : String Index 8 Read Fkind Write Setkind;
  854. end;
  855. TResetPasswordResponseClass = Class of TResetPasswordResponse;
  856. { --------------------------------------------------------------------
  857. TSetAccountInfoResponseTypeproviderUserInfoItem
  858. --------------------------------------------------------------------}
  859. TSetAccountInfoResponseTypeproviderUserInfoItem = Class(TGoogleBaseObject)
  860. Private
  861. FdisplayName : String;
  862. FfederatedId : String;
  863. FphotoUrl : String;
  864. FproviderId : String;
  865. Protected
  866. //Property setters
  867. Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
  868. Procedure SetfederatedId(AIndex : Integer; const AValue : String); virtual;
  869. Procedure SetphotoUrl(AIndex : Integer; const AValue : String); virtual;
  870. Procedure SetproviderId(AIndex : Integer; const AValue : String); virtual;
  871. Public
  872. Published
  873. Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
  874. Property federatedId : String Index 8 Read FfederatedId Write SetfederatedId;
  875. Property photoUrl : String Index 16 Read FphotoUrl Write SetphotoUrl;
  876. Property providerId : String Index 24 Read FproviderId Write SetproviderId;
  877. end;
  878. TSetAccountInfoResponseTypeproviderUserInfoItemClass = Class of TSetAccountInfoResponseTypeproviderUserInfoItem;
  879. { --------------------------------------------------------------------
  880. TSetAccountInfoResponse
  881. --------------------------------------------------------------------}
  882. TSetAccountInfoResponse = Class(TGoogleBaseObject)
  883. Private
  884. FdisplayName : String;
  885. Femail : String;
  886. FexpiresIn : String;
  887. FidToken : String;
  888. Fkind : String;
  889. FlocalId : String;
  890. FnewEmail : String;
  891. FpasswordHash : String;
  892. FphotoUrl : String;
  893. FproviderUserInfo : TSetAccountInfoResponseTypeproviderUserInfoArray;
  894. FrefreshToken : String;
  895. Protected
  896. //Property setters
  897. Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
  898. Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
  899. Procedure SetexpiresIn(AIndex : Integer; const AValue : String); virtual;
  900. Procedure SetidToken(AIndex : Integer; const AValue : String); virtual;
  901. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  902. Procedure SetlocalId(AIndex : Integer; const AValue : String); virtual;
  903. Procedure SetnewEmail(AIndex : Integer; const AValue : String); virtual;
  904. Procedure SetpasswordHash(AIndex : Integer; const AValue : String); virtual;
  905. Procedure SetphotoUrl(AIndex : Integer; const AValue : String); virtual;
  906. Procedure SetproviderUserInfo(AIndex : Integer; const AValue : TSetAccountInfoResponseTypeproviderUserInfoArray); virtual;
  907. Procedure SetrefreshToken(AIndex : Integer; const AValue : String); virtual;
  908. //2.6.4. bug workaround
  909. {$IFDEF VER2_6}
  910. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  911. {$ENDIF VER2_6}
  912. Public
  913. Published
  914. Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
  915. Property email : String Index 8 Read Femail Write Setemail;
  916. Property expiresIn : String Index 16 Read FexpiresIn Write SetexpiresIn;
  917. Property idToken : String Index 24 Read FidToken Write SetidToken;
  918. Property kind : String Index 32 Read Fkind Write Setkind;
  919. Property localId : String Index 40 Read FlocalId Write SetlocalId;
  920. Property newEmail : String Index 48 Read FnewEmail Write SetnewEmail;
  921. Property passwordHash : String Index 56 Read FpasswordHash Write SetpasswordHash;
  922. Property photoUrl : String Index 64 Read FphotoUrl Write SetphotoUrl;
  923. Property providerUserInfo : TSetAccountInfoResponseTypeproviderUserInfoArray Index 72 Read FproviderUserInfo Write SetproviderUserInfo;
  924. Property refreshToken : String Index 80 Read FrefreshToken Write SetrefreshToken;
  925. end;
  926. TSetAccountInfoResponseClass = Class of TSetAccountInfoResponse;
  927. { --------------------------------------------------------------------
  928. TSignupNewUserResponse
  929. --------------------------------------------------------------------}
  930. TSignupNewUserResponse = Class(TGoogleBaseObject)
  931. Private
  932. FdisplayName : String;
  933. Femail : String;
  934. FexpiresIn : String;
  935. FidToken : String;
  936. Fkind : String;
  937. FlocalId : String;
  938. FrefreshToken : String;
  939. Protected
  940. //Property setters
  941. Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
  942. Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
  943. Procedure SetexpiresIn(AIndex : Integer; const AValue : String); virtual;
  944. Procedure SetidToken(AIndex : Integer; const AValue : String); virtual;
  945. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  946. Procedure SetlocalId(AIndex : Integer; const AValue : String); virtual;
  947. Procedure SetrefreshToken(AIndex : Integer; const AValue : String); virtual;
  948. Public
  949. Published
  950. Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
  951. Property email : String Index 8 Read Femail Write Setemail;
  952. Property expiresIn : String Index 16 Read FexpiresIn Write SetexpiresIn;
  953. Property idToken : String Index 24 Read FidToken Write SetidToken;
  954. Property kind : String Index 32 Read Fkind Write Setkind;
  955. Property localId : String Index 40 Read FlocalId Write SetlocalId;
  956. Property refreshToken : String Index 48 Read FrefreshToken Write SetrefreshToken;
  957. end;
  958. TSignupNewUserResponseClass = Class of TSignupNewUserResponse;
  959. { --------------------------------------------------------------------
  960. TUploadAccountResponseTypeerrorItem
  961. --------------------------------------------------------------------}
  962. TUploadAccountResponseTypeerrorItem = Class(TGoogleBaseObject)
  963. Private
  964. Findex : integer;
  965. Fmessage : String;
  966. Protected
  967. //Property setters
  968. Procedure Setindex(AIndex : Integer; const AValue : integer); virtual;
  969. Procedure Setmessage(AIndex : Integer; const AValue : String); virtual;
  970. Public
  971. Published
  972. Property index : integer Index 0 Read Findex Write Setindex;
  973. Property message : String Index 8 Read Fmessage Write Setmessage;
  974. end;
  975. TUploadAccountResponseTypeerrorItemClass = Class of TUploadAccountResponseTypeerrorItem;
  976. { --------------------------------------------------------------------
  977. TUploadAccountResponse
  978. --------------------------------------------------------------------}
  979. TUploadAccountResponse = Class(TGoogleBaseObject)
  980. Private
  981. Ferror : TUploadAccountResponseTypeerrorArray;
  982. Fkind : String;
  983. Protected
  984. //Property setters
  985. Procedure Seterror(AIndex : Integer; const AValue : TUploadAccountResponseTypeerrorArray); virtual;
  986. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  987. //2.6.4. bug workaround
  988. {$IFDEF VER2_6}
  989. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  990. {$ENDIF VER2_6}
  991. Public
  992. Published
  993. Property error : TUploadAccountResponseTypeerrorArray Index 0 Read Ferror Write Seterror;
  994. Property kind : String Index 8 Read Fkind Write Setkind;
  995. end;
  996. TUploadAccountResponseClass = Class of TUploadAccountResponse;
  997. { --------------------------------------------------------------------
  998. TUserInfoTypeproviderUserInfoItem
  999. --------------------------------------------------------------------}
  1000. TUserInfoTypeproviderUserInfoItem = Class(TGoogleBaseObject)
  1001. Private
  1002. FdisplayName : String;
  1003. Femail : String;
  1004. FfederatedId : String;
  1005. FphotoUrl : String;
  1006. FproviderId : String;
  1007. FrawId : String;
  1008. Protected
  1009. //Property setters
  1010. Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
  1011. Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
  1012. Procedure SetfederatedId(AIndex : Integer; const AValue : String); virtual;
  1013. Procedure SetphotoUrl(AIndex : Integer; const AValue : String); virtual;
  1014. Procedure SetproviderId(AIndex : Integer; const AValue : String); virtual;
  1015. Procedure SetrawId(AIndex : Integer; const AValue : String); virtual;
  1016. Public
  1017. Published
  1018. Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
  1019. Property email : String Index 8 Read Femail Write Setemail;
  1020. Property federatedId : String Index 16 Read FfederatedId Write SetfederatedId;
  1021. Property photoUrl : String Index 24 Read FphotoUrl Write SetphotoUrl;
  1022. Property providerId : String Index 32 Read FproviderId Write SetproviderId;
  1023. Property rawId : String Index 40 Read FrawId Write SetrawId;
  1024. end;
  1025. TUserInfoTypeproviderUserInfoItemClass = Class of TUserInfoTypeproviderUserInfoItem;
  1026. { --------------------------------------------------------------------
  1027. TUserInfo
  1028. --------------------------------------------------------------------}
  1029. TUserInfo = Class(TGoogleBaseObject)
  1030. Private
  1031. Fdisabled : boolean;
  1032. FdisplayName : String;
  1033. Femail : String;
  1034. FemailVerified : boolean;
  1035. FlocalId : String;
  1036. FpasswordHash : String;
  1037. FpasswordUpdatedAt : double;
  1038. FphotoUrl : String;
  1039. FproviderUserInfo : TUserInfoTypeproviderUserInfoArray;
  1040. Fsalt : String;
  1041. FvalidSince : String;
  1042. Fversion : integer;
  1043. Protected
  1044. //Property setters
  1045. Procedure Setdisabled(AIndex : Integer; const AValue : boolean); virtual;
  1046. Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
  1047. Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
  1048. Procedure SetemailVerified(AIndex : Integer; const AValue : boolean); virtual;
  1049. Procedure SetlocalId(AIndex : Integer; const AValue : String); virtual;
  1050. Procedure SetpasswordHash(AIndex : Integer; const AValue : String); virtual;
  1051. Procedure SetpasswordUpdatedAt(AIndex : Integer; const AValue : double); virtual;
  1052. Procedure SetphotoUrl(AIndex : Integer; const AValue : String); virtual;
  1053. Procedure SetproviderUserInfo(AIndex : Integer; const AValue : TUserInfoTypeproviderUserInfoArray); virtual;
  1054. Procedure Setsalt(AIndex : Integer; const AValue : String); virtual;
  1055. Procedure SetvalidSince(AIndex : Integer; const AValue : String); virtual;
  1056. Procedure Setversion(AIndex : Integer; const AValue : integer); virtual;
  1057. //2.6.4. bug workaround
  1058. {$IFDEF VER2_6}
  1059. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1060. {$ENDIF VER2_6}
  1061. Public
  1062. Published
  1063. Property disabled : boolean Index 0 Read Fdisabled Write Setdisabled;
  1064. Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
  1065. Property email : String Index 16 Read Femail Write Setemail;
  1066. Property emailVerified : boolean Index 24 Read FemailVerified Write SetemailVerified;
  1067. Property localId : String Index 32 Read FlocalId Write SetlocalId;
  1068. Property passwordHash : String Index 40 Read FpasswordHash Write SetpasswordHash;
  1069. Property passwordUpdatedAt : double Index 48 Read FpasswordUpdatedAt Write SetpasswordUpdatedAt;
  1070. Property photoUrl : String Index 56 Read FphotoUrl Write SetphotoUrl;
  1071. Property providerUserInfo : TUserInfoTypeproviderUserInfoArray Index 64 Read FproviderUserInfo Write SetproviderUserInfo;
  1072. Property salt : String Index 72 Read Fsalt Write Setsalt;
  1073. Property validSince : String Index 80 Read FvalidSince Write SetvalidSince;
  1074. Property version : integer Index 88 Read Fversion Write Setversion;
  1075. end;
  1076. TUserInfoClass = Class of TUserInfo;
  1077. { --------------------------------------------------------------------
  1078. TVerifyAssertionResponse
  1079. --------------------------------------------------------------------}
  1080. TVerifyAssertionResponse = Class(TGoogleBaseObject)
  1081. Private
  1082. Faction : String;
  1083. FappInstallationUrl : String;
  1084. FappScheme : String;
  1085. Fcontext : String;
  1086. FdateOfBirth : String;
  1087. FdisplayName : String;
  1088. Femail : String;
  1089. FemailRecycled : boolean;
  1090. FemailVerified : boolean;
  1091. FexpiresIn : String;
  1092. FfederatedId : String;
  1093. FfirstName : String;
  1094. FfullName : String;
  1095. FidToken : String;
  1096. FinputEmail : String;
  1097. Fkind : String;
  1098. Flanguage : String;
  1099. FlastName : String;
  1100. FlocalId : String;
  1101. FneedConfirmation : boolean;
  1102. FneedEmail : boolean;
  1103. FnickName : String;
  1104. FoauthAccessToken : String;
  1105. FoauthAuthorizationCode : String;
  1106. FoauthExpireIn : integer;
  1107. FoauthIdToken : String;
  1108. FoauthRequestToken : String;
  1109. FoauthScope : String;
  1110. FoauthTokenSecret : String;
  1111. ForiginalEmail : String;
  1112. FphotoUrl : String;
  1113. FproviderId : String;
  1114. FrefreshToken : String;
  1115. FtimeZone : String;
  1116. FverifiedProvider : TStringArray;
  1117. Protected
  1118. //Property setters
  1119. Procedure Setaction(AIndex : Integer; const AValue : String); virtual;
  1120. Procedure SetappInstallationUrl(AIndex : Integer; const AValue : String); virtual;
  1121. Procedure SetappScheme(AIndex : Integer; const AValue : String); virtual;
  1122. Procedure Setcontext(AIndex : Integer; const AValue : String); virtual;
  1123. Procedure SetdateOfBirth(AIndex : Integer; const AValue : String); virtual;
  1124. Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
  1125. Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
  1126. Procedure SetemailRecycled(AIndex : Integer; const AValue : boolean); virtual;
  1127. Procedure SetemailVerified(AIndex : Integer; const AValue : boolean); virtual;
  1128. Procedure SetexpiresIn(AIndex : Integer; const AValue : String); virtual;
  1129. Procedure SetfederatedId(AIndex : Integer; const AValue : String); virtual;
  1130. Procedure SetfirstName(AIndex : Integer; const AValue : String); virtual;
  1131. Procedure SetfullName(AIndex : Integer; const AValue : String); virtual;
  1132. Procedure SetidToken(AIndex : Integer; const AValue : String); virtual;
  1133. Procedure SetinputEmail(AIndex : Integer; const AValue : String); virtual;
  1134. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  1135. Procedure Setlanguage(AIndex : Integer; const AValue : String); virtual;
  1136. Procedure SetlastName(AIndex : Integer; const AValue : String); virtual;
  1137. Procedure SetlocalId(AIndex : Integer; const AValue : String); virtual;
  1138. Procedure SetneedConfirmation(AIndex : Integer; const AValue : boolean); virtual;
  1139. Procedure SetneedEmail(AIndex : Integer; const AValue : boolean); virtual;
  1140. Procedure SetnickName(AIndex : Integer; const AValue : String); virtual;
  1141. Procedure SetoauthAccessToken(AIndex : Integer; const AValue : String); virtual;
  1142. Procedure SetoauthAuthorizationCode(AIndex : Integer; const AValue : String); virtual;
  1143. Procedure SetoauthExpireIn(AIndex : Integer; const AValue : integer); virtual;
  1144. Procedure SetoauthIdToken(AIndex : Integer; const AValue : String); virtual;
  1145. Procedure SetoauthRequestToken(AIndex : Integer; const AValue : String); virtual;
  1146. Procedure SetoauthScope(AIndex : Integer; const AValue : String); virtual;
  1147. Procedure SetoauthTokenSecret(AIndex : Integer; const AValue : String); virtual;
  1148. Procedure SetoriginalEmail(AIndex : Integer; const AValue : String); virtual;
  1149. Procedure SetphotoUrl(AIndex : Integer; const AValue : String); virtual;
  1150. Procedure SetproviderId(AIndex : Integer; const AValue : String); virtual;
  1151. Procedure SetrefreshToken(AIndex : Integer; const AValue : String); virtual;
  1152. Procedure SettimeZone(AIndex : Integer; const AValue : String); virtual;
  1153. Procedure SetverifiedProvider(AIndex : Integer; const AValue : TStringArray); virtual;
  1154. //2.6.4. bug workaround
  1155. {$IFDEF VER2_6}
  1156. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1157. {$ENDIF VER2_6}
  1158. Public
  1159. Published
  1160. Property action : String Index 0 Read Faction Write Setaction;
  1161. Property appInstallationUrl : String Index 8 Read FappInstallationUrl Write SetappInstallationUrl;
  1162. Property appScheme : String Index 16 Read FappScheme Write SetappScheme;
  1163. Property context : String Index 24 Read Fcontext Write Setcontext;
  1164. Property dateOfBirth : String Index 32 Read FdateOfBirth Write SetdateOfBirth;
  1165. Property displayName : String Index 40 Read FdisplayName Write SetdisplayName;
  1166. Property email : String Index 48 Read Femail Write Setemail;
  1167. Property emailRecycled : boolean Index 56 Read FemailRecycled Write SetemailRecycled;
  1168. Property emailVerified : boolean Index 64 Read FemailVerified Write SetemailVerified;
  1169. Property expiresIn : String Index 72 Read FexpiresIn Write SetexpiresIn;
  1170. Property federatedId : String Index 80 Read FfederatedId Write SetfederatedId;
  1171. Property firstName : String Index 88 Read FfirstName Write SetfirstName;
  1172. Property fullName : String Index 96 Read FfullName Write SetfullName;
  1173. Property idToken : String Index 104 Read FidToken Write SetidToken;
  1174. Property inputEmail : String Index 112 Read FinputEmail Write SetinputEmail;
  1175. Property kind : String Index 120 Read Fkind Write Setkind;
  1176. Property language : String Index 128 Read Flanguage Write Setlanguage;
  1177. Property lastName : String Index 136 Read FlastName Write SetlastName;
  1178. Property localId : String Index 144 Read FlocalId Write SetlocalId;
  1179. Property needConfirmation : boolean Index 152 Read FneedConfirmation Write SetneedConfirmation;
  1180. Property needEmail : boolean Index 160 Read FneedEmail Write SetneedEmail;
  1181. Property nickName : String Index 168 Read FnickName Write SetnickName;
  1182. Property oauthAccessToken : String Index 176 Read FoauthAccessToken Write SetoauthAccessToken;
  1183. Property oauthAuthorizationCode : String Index 184 Read FoauthAuthorizationCode Write SetoauthAuthorizationCode;
  1184. Property oauthExpireIn : integer Index 192 Read FoauthExpireIn Write SetoauthExpireIn;
  1185. Property oauthIdToken : String Index 200 Read FoauthIdToken Write SetoauthIdToken;
  1186. Property oauthRequestToken : String Index 208 Read FoauthRequestToken Write SetoauthRequestToken;
  1187. Property oauthScope : String Index 216 Read FoauthScope Write SetoauthScope;
  1188. Property oauthTokenSecret : String Index 224 Read FoauthTokenSecret Write SetoauthTokenSecret;
  1189. Property originalEmail : String Index 232 Read ForiginalEmail Write SetoriginalEmail;
  1190. Property photoUrl : String Index 240 Read FphotoUrl Write SetphotoUrl;
  1191. Property providerId : String Index 248 Read FproviderId Write SetproviderId;
  1192. Property refreshToken : String Index 256 Read FrefreshToken Write SetrefreshToken;
  1193. Property timeZone : String Index 264 Read FtimeZone Write SettimeZone;
  1194. Property verifiedProvider : TStringArray Index 272 Read FverifiedProvider Write SetverifiedProvider;
  1195. end;
  1196. TVerifyAssertionResponseClass = Class of TVerifyAssertionResponse;
  1197. { --------------------------------------------------------------------
  1198. TVerifyCustomTokenResponse
  1199. --------------------------------------------------------------------}
  1200. TVerifyCustomTokenResponse = Class(TGoogleBaseObject)
  1201. Private
  1202. FexpiresIn : String;
  1203. FidToken : String;
  1204. Fkind : String;
  1205. FrefreshToken : String;
  1206. Protected
  1207. //Property setters
  1208. Procedure SetexpiresIn(AIndex : Integer; const AValue : String); virtual;
  1209. Procedure SetidToken(AIndex : Integer; const AValue : String); virtual;
  1210. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  1211. Procedure SetrefreshToken(AIndex : Integer; const AValue : String); virtual;
  1212. Public
  1213. Published
  1214. Property expiresIn : String Index 0 Read FexpiresIn Write SetexpiresIn;
  1215. Property idToken : String Index 8 Read FidToken Write SetidToken;
  1216. Property kind : String Index 16 Read Fkind Write Setkind;
  1217. Property refreshToken : String Index 24 Read FrefreshToken Write SetrefreshToken;
  1218. end;
  1219. TVerifyCustomTokenResponseClass = Class of TVerifyCustomTokenResponse;
  1220. { --------------------------------------------------------------------
  1221. TVerifyPasswordResponse
  1222. --------------------------------------------------------------------}
  1223. TVerifyPasswordResponse = Class(TGoogleBaseObject)
  1224. Private
  1225. FdisplayName : String;
  1226. Femail : String;
  1227. FexpiresIn : String;
  1228. FidToken : String;
  1229. Fkind : String;
  1230. FlocalId : String;
  1231. FoauthAccessToken : String;
  1232. FoauthAuthorizationCode : String;
  1233. FoauthExpireIn : integer;
  1234. FphotoUrl : String;
  1235. FrefreshToken : String;
  1236. Fregistered : boolean;
  1237. Protected
  1238. //Property setters
  1239. Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
  1240. Procedure Setemail(AIndex : Integer; const AValue : String); virtual;
  1241. Procedure SetexpiresIn(AIndex : Integer; const AValue : String); virtual;
  1242. Procedure SetidToken(AIndex : Integer; const AValue : String); virtual;
  1243. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  1244. Procedure SetlocalId(AIndex : Integer; const AValue : String); virtual;
  1245. Procedure SetoauthAccessToken(AIndex : Integer; const AValue : String); virtual;
  1246. Procedure SetoauthAuthorizationCode(AIndex : Integer; const AValue : String); virtual;
  1247. Procedure SetoauthExpireIn(AIndex : Integer; const AValue : integer); virtual;
  1248. Procedure SetphotoUrl(AIndex : Integer; const AValue : String); virtual;
  1249. Procedure SetrefreshToken(AIndex : Integer; const AValue : String); virtual;
  1250. Procedure Setregistered(AIndex : Integer; const AValue : boolean); virtual;
  1251. Public
  1252. Published
  1253. Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
  1254. Property email : String Index 8 Read Femail Write Setemail;
  1255. Property expiresIn : String Index 16 Read FexpiresIn Write SetexpiresIn;
  1256. Property idToken : String Index 24 Read FidToken Write SetidToken;
  1257. Property kind : String Index 32 Read Fkind Write Setkind;
  1258. Property localId : String Index 40 Read FlocalId Write SetlocalId;
  1259. Property oauthAccessToken : String Index 48 Read FoauthAccessToken Write SetoauthAccessToken;
  1260. Property oauthAuthorizationCode : String Index 56 Read FoauthAuthorizationCode Write SetoauthAuthorizationCode;
  1261. Property oauthExpireIn : integer Index 64 Read FoauthExpireIn Write SetoauthExpireIn;
  1262. Property photoUrl : String Index 72 Read FphotoUrl Write SetphotoUrl;
  1263. Property refreshToken : String Index 80 Read FrefreshToken Write SetrefreshToken;
  1264. Property registered : boolean Index 88 Read Fregistered Write Setregistered;
  1265. end;
  1266. TVerifyPasswordResponseClass = Class of TVerifyPasswordResponse;
  1267. { --------------------------------------------------------------------
  1268. TRelyingpartyResource
  1269. --------------------------------------------------------------------}
  1270. //Optional query Options for TRelyingpartyResource, method GetProjectConfig
  1271. TRelyingpartyGetProjectConfigOptions = Record
  1272. delegatedProjectNumber : String;
  1273. projectNumber : String;
  1274. end;
  1275. TRelyingpartyResource = Class(TGoogleResource)
  1276. Public
  1277. Class Function ResourceName : String; override;
  1278. Class Function DefaultAPI : TGoogleAPIClass; override;
  1279. Function CreateAuthUri(aIdentitytoolkitRelyingpartyCreateAuthUriRequest : TIdentitytoolkitRelyingpartyCreateAuthUriRequest) : TCreateAuthUriResponse;
  1280. Function DeleteAccount(aIdentitytoolkitRelyingpartyDeleteAccountRequest : TIdentitytoolkitRelyingpartyDeleteAccountRequest) : TDeleteAccountResponse;
  1281. Function DownloadAccount(aIdentitytoolkitRelyingpartyDownloadAccountRequest : TIdentitytoolkitRelyingpartyDownloadAccountRequest) : TDownloadAccountResponse;
  1282. Function GetAccountInfo(aIdentitytoolkitRelyingpartyGetAccountInfoRequest : TIdentitytoolkitRelyingpartyGetAccountInfoRequest) : TGetAccountInfoResponse;
  1283. Function GetOobConfirmationCode(aRelyingparty : TRelyingparty) : TGetOobConfirmationCodeResponse;
  1284. Function GetProjectConfig(AQuery : string = '') : TIdentitytoolkitRelyingpartyGetProjectConfigResponse;
  1285. Function GetProjectConfig(AQuery : TRelyingpartygetProjectConfigOptions) : TIdentitytoolkitRelyingpartyGetProjectConfigResponse;
  1286. Function GetPublicKeys : TIdentitytoolkitRelyingpartyGetPublicKeysResponse;
  1287. Function GetRecaptchaParam : TGetRecaptchaParamResponse;
  1288. Function ResetPassword(aIdentitytoolkitRelyingpartyResetPasswordRequest : TIdentitytoolkitRelyingpartyResetPasswordRequest) : TResetPasswordResponse;
  1289. Function SetAccountInfo(aIdentitytoolkitRelyingpartySetAccountInfoRequest : TIdentitytoolkitRelyingpartySetAccountInfoRequest) : TSetAccountInfoResponse;
  1290. Function SetProjectConfig(aIdentitytoolkitRelyingpartySetProjectConfigRequest : TIdentitytoolkitRelyingpartySetProjectConfigRequest) : TIdentitytoolkitRelyingpartySetProjectConfigResponse;
  1291. Function SignOutUser(aIdentitytoolkitRelyingpartySignOutUserRequest : TIdentitytoolkitRelyingpartySignOutUserRequest) : TIdentitytoolkitRelyingpartySignOutUserResponse;
  1292. Function SignupNewUser(aIdentitytoolkitRelyingpartySignupNewUserRequest : TIdentitytoolkitRelyingpartySignupNewUserRequest) : TSignupNewUserResponse;
  1293. Function UploadAccount(aIdentitytoolkitRelyingpartyUploadAccountRequest : TIdentitytoolkitRelyingpartyUploadAccountRequest) : TUploadAccountResponse;
  1294. Function VerifyAssertion(aIdentitytoolkitRelyingpartyVerifyAssertionRequest : TIdentitytoolkitRelyingpartyVerifyAssertionRequest) : TVerifyAssertionResponse;
  1295. Function VerifyCustomToken(aIdentitytoolkitRelyingpartyVerifyCustomTokenRequest : TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest) : TVerifyCustomTokenResponse;
  1296. Function VerifyPassword(aIdentitytoolkitRelyingpartyVerifyPasswordRequest : TIdentitytoolkitRelyingpartyVerifyPasswordRequest) : TVerifyPasswordResponse;
  1297. end;
  1298. { --------------------------------------------------------------------
  1299. TIdentitytoolkitAPI
  1300. --------------------------------------------------------------------}
  1301. TIdentitytoolkitAPI = Class(TGoogleAPI)
  1302. Private
  1303. FRelyingpartyInstance : TRelyingpartyResource;
  1304. Function GetRelyingpartyInstance : TRelyingpartyResource;virtual;
  1305. Public
  1306. //Override class functions with API info
  1307. Class Function APIName : String; override;
  1308. Class Function APIVersion : String; override;
  1309. Class Function APIRevision : String; override;
  1310. Class Function APIID : String; override;
  1311. Class Function APITitle : String; override;
  1312. Class Function APIDescription : String; override;
  1313. Class Function APIOwnerDomain : String; override;
  1314. Class Function APIOwnerName : String; override;
  1315. Class Function APIIcon16 : String; override;
  1316. Class Function APIIcon32 : String; override;
  1317. Class Function APIdocumentationLink : String; override;
  1318. Class Function APIrootUrl : string; override;
  1319. Class Function APIbasePath : string;override;
  1320. Class Function APIbaseURL : String;override;
  1321. Class Function APIProtocol : string;override;
  1322. Class Function APIservicePath : string;override;
  1323. Class Function APIbatchPath : String;override;
  1324. Class Function APIAuthScopes : TScopeInfoArray;override;
  1325. Class Function APINeedsAuth : Boolean;override;
  1326. Class Procedure RegisterAPIResources; override;
  1327. //Add create function for resources
  1328. Function CreateRelyingpartyResource(AOwner : TComponent) : TRelyingpartyResource;virtual;overload;
  1329. Function CreateRelyingpartyResource : TRelyingpartyResource;virtual;overload;
  1330. //Add default on-demand instances for resources
  1331. Property RelyingpartyResource : TRelyingpartyResource Read GetRelyingpartyInstance;
  1332. end;
  1333. implementation
  1334. { --------------------------------------------------------------------
  1335. TCreateAuthUriResponse
  1336. --------------------------------------------------------------------}
  1337. Procedure TCreateAuthUriResponse.SetallProviders(AIndex : Integer; const AValue : TStringArray);
  1338. begin
  1339. If (FallProviders=AValue) then exit;
  1340. FallProviders:=AValue;
  1341. MarkPropertyChanged(AIndex);
  1342. end;
  1343. Procedure TCreateAuthUriResponse.SetauthUri(AIndex : Integer; const AValue : String);
  1344. begin
  1345. If (FauthUri=AValue) then exit;
  1346. FauthUri:=AValue;
  1347. MarkPropertyChanged(AIndex);
  1348. end;
  1349. Procedure TCreateAuthUriResponse.SetcaptchaRequired(AIndex : Integer; const AValue : boolean);
  1350. begin
  1351. If (FcaptchaRequired=AValue) then exit;
  1352. FcaptchaRequired:=AValue;
  1353. MarkPropertyChanged(AIndex);
  1354. end;
  1355. Procedure TCreateAuthUriResponse.SetforExistingProvider(AIndex : Integer; const AValue : boolean);
  1356. begin
  1357. If (FforExistingProvider=AValue) then exit;
  1358. FforExistingProvider:=AValue;
  1359. MarkPropertyChanged(AIndex);
  1360. end;
  1361. Procedure TCreateAuthUriResponse.Setkind(AIndex : Integer; const AValue : String);
  1362. begin
  1363. If (Fkind=AValue) then exit;
  1364. Fkind:=AValue;
  1365. MarkPropertyChanged(AIndex);
  1366. end;
  1367. Procedure TCreateAuthUriResponse.SetproviderId(AIndex : Integer; const AValue : String);
  1368. begin
  1369. If (FproviderId=AValue) then exit;
  1370. FproviderId:=AValue;
  1371. MarkPropertyChanged(AIndex);
  1372. end;
  1373. Procedure TCreateAuthUriResponse.Setregistered(AIndex : Integer; const AValue : boolean);
  1374. begin
  1375. If (Fregistered=AValue) then exit;
  1376. Fregistered:=AValue;
  1377. MarkPropertyChanged(AIndex);
  1378. end;
  1379. Procedure TCreateAuthUriResponse.SetsessionId(AIndex : Integer; const AValue : String);
  1380. begin
  1381. If (FsessionId=AValue) then exit;
  1382. FsessionId:=AValue;
  1383. MarkPropertyChanged(AIndex);
  1384. end;
  1385. //2.6.4. bug workaround
  1386. {$IFDEF VER2_6}
  1387. Procedure TCreateAuthUriResponse.SetArrayLength(Const AName : String; ALength : Longint);
  1388. begin
  1389. Case AName of
  1390. 'allproviders' : SetLength(FallProviders,ALength);
  1391. else
  1392. Inherited SetArrayLength(AName,ALength);
  1393. end;
  1394. end;
  1395. {$ENDIF VER2_6}
  1396. { --------------------------------------------------------------------
  1397. TDeleteAccountResponse
  1398. --------------------------------------------------------------------}
  1399. Procedure TDeleteAccountResponse.Setkind(AIndex : Integer; const AValue : String);
  1400. begin
  1401. If (Fkind=AValue) then exit;
  1402. Fkind:=AValue;
  1403. MarkPropertyChanged(AIndex);
  1404. end;
  1405. { --------------------------------------------------------------------
  1406. TDownloadAccountResponse
  1407. --------------------------------------------------------------------}
  1408. Procedure TDownloadAccountResponse.Setkind(AIndex : Integer; const AValue : String);
  1409. begin
  1410. If (Fkind=AValue) then exit;
  1411. Fkind:=AValue;
  1412. MarkPropertyChanged(AIndex);
  1413. end;
  1414. Procedure TDownloadAccountResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
  1415. begin
  1416. If (FnextPageToken=AValue) then exit;
  1417. FnextPageToken:=AValue;
  1418. MarkPropertyChanged(AIndex);
  1419. end;
  1420. Procedure TDownloadAccountResponse.Setusers(AIndex : Integer; const AValue : TDownloadAccountResponseTypeusersArray);
  1421. begin
  1422. If (Fusers=AValue) then exit;
  1423. Fusers:=AValue;
  1424. MarkPropertyChanged(AIndex);
  1425. end;
  1426. //2.6.4. bug workaround
  1427. {$IFDEF VER2_6}
  1428. Procedure TDownloadAccountResponse.SetArrayLength(Const AName : String; ALength : Longint);
  1429. begin
  1430. Case AName of
  1431. 'users' : SetLength(Fusers,ALength);
  1432. else
  1433. Inherited SetArrayLength(AName,ALength);
  1434. end;
  1435. end;
  1436. {$ENDIF VER2_6}
  1437. { --------------------------------------------------------------------
  1438. TEmailTemplate
  1439. --------------------------------------------------------------------}
  1440. Procedure TEmailTemplate.Setbody(AIndex : Integer; const AValue : String);
  1441. begin
  1442. If (Fbody=AValue) then exit;
  1443. Fbody:=AValue;
  1444. MarkPropertyChanged(AIndex);
  1445. end;
  1446. Procedure TEmailTemplate.Setformat(AIndex : Integer; const AValue : String);
  1447. begin
  1448. If (Fformat=AValue) then exit;
  1449. Fformat:=AValue;
  1450. MarkPropertyChanged(AIndex);
  1451. end;
  1452. Procedure TEmailTemplate.Setfrom(AIndex : Integer; const AValue : String);
  1453. begin
  1454. If (Ffrom=AValue) then exit;
  1455. Ffrom:=AValue;
  1456. MarkPropertyChanged(AIndex);
  1457. end;
  1458. Procedure TEmailTemplate.SetfromDisplayName(AIndex : Integer; const AValue : String);
  1459. begin
  1460. If (FfromDisplayName=AValue) then exit;
  1461. FfromDisplayName:=AValue;
  1462. MarkPropertyChanged(AIndex);
  1463. end;
  1464. Procedure TEmailTemplate.SetreplyTo(AIndex : Integer; const AValue : String);
  1465. begin
  1466. If (FreplyTo=AValue) then exit;
  1467. FreplyTo:=AValue;
  1468. MarkPropertyChanged(AIndex);
  1469. end;
  1470. Procedure TEmailTemplate.Setsubject(AIndex : Integer; const AValue : String);
  1471. begin
  1472. If (Fsubject=AValue) then exit;
  1473. Fsubject:=AValue;
  1474. MarkPropertyChanged(AIndex);
  1475. end;
  1476. { --------------------------------------------------------------------
  1477. TGetAccountInfoResponse
  1478. --------------------------------------------------------------------}
  1479. Procedure TGetAccountInfoResponse.Setkind(AIndex : Integer; const AValue : String);
  1480. begin
  1481. If (Fkind=AValue) then exit;
  1482. Fkind:=AValue;
  1483. MarkPropertyChanged(AIndex);
  1484. end;
  1485. Procedure TGetAccountInfoResponse.Setusers(AIndex : Integer; const AValue : TGetAccountInfoResponseTypeusersArray);
  1486. begin
  1487. If (Fusers=AValue) then exit;
  1488. Fusers:=AValue;
  1489. MarkPropertyChanged(AIndex);
  1490. end;
  1491. //2.6.4. bug workaround
  1492. {$IFDEF VER2_6}
  1493. Procedure TGetAccountInfoResponse.SetArrayLength(Const AName : String; ALength : Longint);
  1494. begin
  1495. Case AName of
  1496. 'users' : SetLength(Fusers,ALength);
  1497. else
  1498. Inherited SetArrayLength(AName,ALength);
  1499. end;
  1500. end;
  1501. {$ENDIF VER2_6}
  1502. { --------------------------------------------------------------------
  1503. TGetOobConfirmationCodeResponse
  1504. --------------------------------------------------------------------}
  1505. Procedure TGetOobConfirmationCodeResponse.Setemail(AIndex : Integer; const AValue : String);
  1506. begin
  1507. If (Femail=AValue) then exit;
  1508. Femail:=AValue;
  1509. MarkPropertyChanged(AIndex);
  1510. end;
  1511. Procedure TGetOobConfirmationCodeResponse.Setkind(AIndex : Integer; const AValue : String);
  1512. begin
  1513. If (Fkind=AValue) then exit;
  1514. Fkind:=AValue;
  1515. MarkPropertyChanged(AIndex);
  1516. end;
  1517. Procedure TGetOobConfirmationCodeResponse.SetoobCode(AIndex : Integer; const AValue : String);
  1518. begin
  1519. If (FoobCode=AValue) then exit;
  1520. FoobCode:=AValue;
  1521. MarkPropertyChanged(AIndex);
  1522. end;
  1523. { --------------------------------------------------------------------
  1524. TGetRecaptchaParamResponse
  1525. --------------------------------------------------------------------}
  1526. Procedure TGetRecaptchaParamResponse.Setkind(AIndex : Integer; const AValue : String);
  1527. begin
  1528. If (Fkind=AValue) then exit;
  1529. Fkind:=AValue;
  1530. MarkPropertyChanged(AIndex);
  1531. end;
  1532. Procedure TGetRecaptchaParamResponse.SetrecaptchaSiteKey(AIndex : Integer; const AValue : String);
  1533. begin
  1534. If (FrecaptchaSiteKey=AValue) then exit;
  1535. FrecaptchaSiteKey:=AValue;
  1536. MarkPropertyChanged(AIndex);
  1537. end;
  1538. Procedure TGetRecaptchaParamResponse.SetrecaptchaStoken(AIndex : Integer; const AValue : String);
  1539. begin
  1540. If (FrecaptchaStoken=AValue) then exit;
  1541. FrecaptchaStoken:=AValue;
  1542. MarkPropertyChanged(AIndex);
  1543. end;
  1544. { --------------------------------------------------------------------
  1545. TIdentitytoolkitRelyingpartyCreateAuthUriRequest
  1546. --------------------------------------------------------------------}
  1547. Procedure TIdentitytoolkitRelyingpartyCreateAuthUriRequest.SetappId(AIndex : Integer; const AValue : String);
  1548. begin
  1549. If (FappId=AValue) then exit;
  1550. FappId:=AValue;
  1551. MarkPropertyChanged(AIndex);
  1552. end;
  1553. Procedure TIdentitytoolkitRelyingpartyCreateAuthUriRequest.SetclientId(AIndex : Integer; const AValue : String);
  1554. begin
  1555. If (FclientId=AValue) then exit;
  1556. FclientId:=AValue;
  1557. MarkPropertyChanged(AIndex);
  1558. end;
  1559. Procedure TIdentitytoolkitRelyingpartyCreateAuthUriRequest.Setcontext(AIndex : Integer; const AValue : String);
  1560. begin
  1561. If (Fcontext=AValue) then exit;
  1562. Fcontext:=AValue;
  1563. MarkPropertyChanged(AIndex);
  1564. end;
  1565. Procedure TIdentitytoolkitRelyingpartyCreateAuthUriRequest.SetcontinueUri(AIndex : Integer; const AValue : String);
  1566. begin
  1567. If (FcontinueUri=AValue) then exit;
  1568. FcontinueUri:=AValue;
  1569. MarkPropertyChanged(AIndex);
  1570. end;
  1571. Procedure TIdentitytoolkitRelyingpartyCreateAuthUriRequest.Setidentifier(AIndex : Integer; const AValue : String);
  1572. begin
  1573. If (Fidentifier=AValue) then exit;
  1574. Fidentifier:=AValue;
  1575. MarkPropertyChanged(AIndex);
  1576. end;
  1577. Procedure TIdentitytoolkitRelyingpartyCreateAuthUriRequest.SetoauthConsumerKey(AIndex : Integer; const AValue : String);
  1578. begin
  1579. If (FoauthConsumerKey=AValue) then exit;
  1580. FoauthConsumerKey:=AValue;
  1581. MarkPropertyChanged(AIndex);
  1582. end;
  1583. Procedure TIdentitytoolkitRelyingpartyCreateAuthUriRequest.SetoauthScope(AIndex : Integer; const AValue : String);
  1584. begin
  1585. If (FoauthScope=AValue) then exit;
  1586. FoauthScope:=AValue;
  1587. MarkPropertyChanged(AIndex);
  1588. end;
  1589. Procedure TIdentitytoolkitRelyingpartyCreateAuthUriRequest.SetopenidRealm(AIndex : Integer; const AValue : String);
  1590. begin
  1591. If (FopenidRealm=AValue) then exit;
  1592. FopenidRealm:=AValue;
  1593. MarkPropertyChanged(AIndex);
  1594. end;
  1595. Procedure TIdentitytoolkitRelyingpartyCreateAuthUriRequest.SetotaApp(AIndex : Integer; const AValue : String);
  1596. begin
  1597. If (FotaApp=AValue) then exit;
  1598. FotaApp:=AValue;
  1599. MarkPropertyChanged(AIndex);
  1600. end;
  1601. Procedure TIdentitytoolkitRelyingpartyCreateAuthUriRequest.SetproviderId(AIndex : Integer; const AValue : String);
  1602. begin
  1603. If (FproviderId=AValue) then exit;
  1604. FproviderId:=AValue;
  1605. MarkPropertyChanged(AIndex);
  1606. end;
  1607. { --------------------------------------------------------------------
  1608. TIdentitytoolkitRelyingpartyDeleteAccountRequest
  1609. --------------------------------------------------------------------}
  1610. Procedure TIdentitytoolkitRelyingpartyDeleteAccountRequest.SetdelegatedProjectNumber(AIndex : Integer; const AValue : String);
  1611. begin
  1612. If (FdelegatedProjectNumber=AValue) then exit;
  1613. FdelegatedProjectNumber:=AValue;
  1614. MarkPropertyChanged(AIndex);
  1615. end;
  1616. Procedure TIdentitytoolkitRelyingpartyDeleteAccountRequest.SetidToken(AIndex : Integer; const AValue : String);
  1617. begin
  1618. If (FidToken=AValue) then exit;
  1619. FidToken:=AValue;
  1620. MarkPropertyChanged(AIndex);
  1621. end;
  1622. Procedure TIdentitytoolkitRelyingpartyDeleteAccountRequest.SetlocalId(AIndex : Integer; const AValue : String);
  1623. begin
  1624. If (FlocalId=AValue) then exit;
  1625. FlocalId:=AValue;
  1626. MarkPropertyChanged(AIndex);
  1627. end;
  1628. { --------------------------------------------------------------------
  1629. TIdentitytoolkitRelyingpartyDownloadAccountRequest
  1630. --------------------------------------------------------------------}
  1631. Procedure TIdentitytoolkitRelyingpartyDownloadAccountRequest.SetdelegatedProjectNumber(AIndex : Integer; const AValue : String);
  1632. begin
  1633. If (FdelegatedProjectNumber=AValue) then exit;
  1634. FdelegatedProjectNumber:=AValue;
  1635. MarkPropertyChanged(AIndex);
  1636. end;
  1637. Procedure TIdentitytoolkitRelyingpartyDownloadAccountRequest.SetmaxResults(AIndex : Integer; const AValue : integer);
  1638. begin
  1639. If (FmaxResults=AValue) then exit;
  1640. FmaxResults:=AValue;
  1641. MarkPropertyChanged(AIndex);
  1642. end;
  1643. Procedure TIdentitytoolkitRelyingpartyDownloadAccountRequest.SetnextPageToken(AIndex : Integer; const AValue : String);
  1644. begin
  1645. If (FnextPageToken=AValue) then exit;
  1646. FnextPageToken:=AValue;
  1647. MarkPropertyChanged(AIndex);
  1648. end;
  1649. { --------------------------------------------------------------------
  1650. TIdentitytoolkitRelyingpartyGetAccountInfoRequest
  1651. --------------------------------------------------------------------}
  1652. Procedure TIdentitytoolkitRelyingpartyGetAccountInfoRequest.SetdelegatedProjectNumber(AIndex : Integer; const AValue : String);
  1653. begin
  1654. If (FdelegatedProjectNumber=AValue) then exit;
  1655. FdelegatedProjectNumber:=AValue;
  1656. MarkPropertyChanged(AIndex);
  1657. end;
  1658. Procedure TIdentitytoolkitRelyingpartyGetAccountInfoRequest.Setemail(AIndex : Integer; const AValue : TStringArray);
  1659. begin
  1660. If (Femail=AValue) then exit;
  1661. Femail:=AValue;
  1662. MarkPropertyChanged(AIndex);
  1663. end;
  1664. Procedure TIdentitytoolkitRelyingpartyGetAccountInfoRequest.SetidToken(AIndex : Integer; const AValue : String);
  1665. begin
  1666. If (FidToken=AValue) then exit;
  1667. FidToken:=AValue;
  1668. MarkPropertyChanged(AIndex);
  1669. end;
  1670. Procedure TIdentitytoolkitRelyingpartyGetAccountInfoRequest.SetlocalId(AIndex : Integer; const AValue : TStringArray);
  1671. begin
  1672. If (FlocalId=AValue) then exit;
  1673. FlocalId:=AValue;
  1674. MarkPropertyChanged(AIndex);
  1675. end;
  1676. //2.6.4. bug workaround
  1677. {$IFDEF VER2_6}
  1678. Procedure TIdentitytoolkitRelyingpartyGetAccountInfoRequest.SetArrayLength(Const AName : String; ALength : Longint);
  1679. begin
  1680. Case AName of
  1681. 'email' : SetLength(Femail,ALength);
  1682. 'localid' : SetLength(FlocalId,ALength);
  1683. else
  1684. Inherited SetArrayLength(AName,ALength);
  1685. end;
  1686. end;
  1687. {$ENDIF VER2_6}
  1688. { --------------------------------------------------------------------
  1689. TIdentitytoolkitRelyingpartyGetProjectConfigResponse
  1690. --------------------------------------------------------------------}
  1691. Procedure TIdentitytoolkitRelyingpartyGetProjectConfigResponse.SetallowPasswordUser(AIndex : Integer; const AValue : boolean);
  1692. begin
  1693. If (FallowPasswordUser=AValue) then exit;
  1694. FallowPasswordUser:=AValue;
  1695. MarkPropertyChanged(AIndex);
  1696. end;
  1697. Procedure TIdentitytoolkitRelyingpartyGetProjectConfigResponse.SetapiKey(AIndex : Integer; const AValue : String);
  1698. begin
  1699. If (FapiKey=AValue) then exit;
  1700. FapiKey:=AValue;
  1701. MarkPropertyChanged(AIndex);
  1702. end;
  1703. Procedure TIdentitytoolkitRelyingpartyGetProjectConfigResponse.SetauthorizedDomains(AIndex : Integer; const AValue : TStringArray);
  1704. begin
  1705. If (FauthorizedDomains=AValue) then exit;
  1706. FauthorizedDomains:=AValue;
  1707. MarkPropertyChanged(AIndex);
  1708. end;
  1709. Procedure TIdentitytoolkitRelyingpartyGetProjectConfigResponse.SetchangeEmailTemplate(AIndex : Integer; const AValue : TEmailTemplate);
  1710. begin
  1711. If (FchangeEmailTemplate=AValue) then exit;
  1712. FchangeEmailTemplate:=AValue;
  1713. MarkPropertyChanged(AIndex);
  1714. end;
  1715. Procedure TIdentitytoolkitRelyingpartyGetProjectConfigResponse.SetenableAnonymousUser(AIndex : Integer; const AValue : boolean);
  1716. begin
  1717. If (FenableAnonymousUser=AValue) then exit;
  1718. FenableAnonymousUser:=AValue;
  1719. MarkPropertyChanged(AIndex);
  1720. end;
  1721. Procedure TIdentitytoolkitRelyingpartyGetProjectConfigResponse.SetidpConfig(AIndex : Integer; const AValue : TIdentitytoolkitRelyingpartyGetProjectConfigResponseTypeidpConfigArray);
  1722. begin
  1723. If (FidpConfig=AValue) then exit;
  1724. FidpConfig:=AValue;
  1725. MarkPropertyChanged(AIndex);
  1726. end;
  1727. Procedure TIdentitytoolkitRelyingpartyGetProjectConfigResponse.SetlegacyResetPasswordTemplate(AIndex : Integer; const AValue : TEmailTemplate);
  1728. begin
  1729. If (FlegacyResetPasswordTemplate=AValue) then exit;
  1730. FlegacyResetPasswordTemplate:=AValue;
  1731. MarkPropertyChanged(AIndex);
  1732. end;
  1733. Procedure TIdentitytoolkitRelyingpartyGetProjectConfigResponse.SetprojectId(AIndex : Integer; const AValue : String);
  1734. begin
  1735. If (FprojectId=AValue) then exit;
  1736. FprojectId:=AValue;
  1737. MarkPropertyChanged(AIndex);
  1738. end;
  1739. Procedure TIdentitytoolkitRelyingpartyGetProjectConfigResponse.SetresetPasswordTemplate(AIndex : Integer; const AValue : TEmailTemplate);
  1740. begin
  1741. If (FresetPasswordTemplate=AValue) then exit;
  1742. FresetPasswordTemplate:=AValue;
  1743. MarkPropertyChanged(AIndex);
  1744. end;
  1745. Procedure TIdentitytoolkitRelyingpartyGetProjectConfigResponse.SetuseEmailSending(AIndex : Integer; const AValue : boolean);
  1746. begin
  1747. If (FuseEmailSending=AValue) then exit;
  1748. FuseEmailSending:=AValue;
  1749. MarkPropertyChanged(AIndex);
  1750. end;
  1751. Procedure TIdentitytoolkitRelyingpartyGetProjectConfigResponse.SetverifyEmailTemplate(AIndex : Integer; const AValue : TEmailTemplate);
  1752. begin
  1753. If (FverifyEmailTemplate=AValue) then exit;
  1754. FverifyEmailTemplate:=AValue;
  1755. MarkPropertyChanged(AIndex);
  1756. end;
  1757. //2.6.4. bug workaround
  1758. {$IFDEF VER2_6}
  1759. Procedure TIdentitytoolkitRelyingpartyGetProjectConfigResponse.SetArrayLength(Const AName : String; ALength : Longint);
  1760. begin
  1761. Case AName of
  1762. 'authorizeddomains' : SetLength(FauthorizedDomains,ALength);
  1763. 'idpconfig' : SetLength(FidpConfig,ALength);
  1764. else
  1765. Inherited SetArrayLength(AName,ALength);
  1766. end;
  1767. end;
  1768. {$ENDIF VER2_6}
  1769. { --------------------------------------------------------------------
  1770. TIdentitytoolkitRelyingpartyGetPublicKeysResponse
  1771. --------------------------------------------------------------------}
  1772. Class Function TIdentitytoolkitRelyingpartyGetPublicKeysResponse.AllowAdditionalProperties : Boolean;
  1773. begin
  1774. Result:=True;
  1775. end;
  1776. { --------------------------------------------------------------------
  1777. TIdentitytoolkitRelyingpartyResetPasswordRequest
  1778. --------------------------------------------------------------------}
  1779. Procedure TIdentitytoolkitRelyingpartyResetPasswordRequest.Setemail(AIndex : Integer; const AValue : String);
  1780. begin
  1781. If (Femail=AValue) then exit;
  1782. Femail:=AValue;
  1783. MarkPropertyChanged(AIndex);
  1784. end;
  1785. Procedure TIdentitytoolkitRelyingpartyResetPasswordRequest.SetnewPassword(AIndex : Integer; const AValue : String);
  1786. begin
  1787. If (FnewPassword=AValue) then exit;
  1788. FnewPassword:=AValue;
  1789. MarkPropertyChanged(AIndex);
  1790. end;
  1791. Procedure TIdentitytoolkitRelyingpartyResetPasswordRequest.SetoldPassword(AIndex : Integer; const AValue : String);
  1792. begin
  1793. If (FoldPassword=AValue) then exit;
  1794. FoldPassword:=AValue;
  1795. MarkPropertyChanged(AIndex);
  1796. end;
  1797. Procedure TIdentitytoolkitRelyingpartyResetPasswordRequest.SetoobCode(AIndex : Integer; const AValue : String);
  1798. begin
  1799. If (FoobCode=AValue) then exit;
  1800. FoobCode:=AValue;
  1801. MarkPropertyChanged(AIndex);
  1802. end;
  1803. { --------------------------------------------------------------------
  1804. TIdentitytoolkitRelyingpartySetAccountInfoRequest
  1805. --------------------------------------------------------------------}
  1806. Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetcaptchaChallenge(AIndex : Integer; const AValue : String);
  1807. begin
  1808. If (FcaptchaChallenge=AValue) then exit;
  1809. FcaptchaChallenge:=AValue;
  1810. MarkPropertyChanged(AIndex);
  1811. end;
  1812. Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetcaptchaResponse(AIndex : Integer; const AValue : String);
  1813. begin
  1814. If (FcaptchaResponse=AValue) then exit;
  1815. FcaptchaResponse:=AValue;
  1816. MarkPropertyChanged(AIndex);
  1817. end;
  1818. Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetdelegatedProjectNumber(AIndex : Integer; const AValue : String);
  1819. begin
  1820. If (FdelegatedProjectNumber=AValue) then exit;
  1821. FdelegatedProjectNumber:=AValue;
  1822. MarkPropertyChanged(AIndex);
  1823. end;
  1824. Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetdeleteAttribute(AIndex : Integer; const AValue : TStringArray);
  1825. begin
  1826. If (FdeleteAttribute=AValue) then exit;
  1827. FdeleteAttribute:=AValue;
  1828. MarkPropertyChanged(AIndex);
  1829. end;
  1830. Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetdeleteProvider(AIndex : Integer; const AValue : TStringArray);
  1831. begin
  1832. If (FdeleteProvider=AValue) then exit;
  1833. FdeleteProvider:=AValue;
  1834. MarkPropertyChanged(AIndex);
  1835. end;
  1836. Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetdisableUser(AIndex : Integer; const AValue : boolean);
  1837. begin
  1838. If (FdisableUser=AValue) then exit;
  1839. FdisableUser:=AValue;
  1840. MarkPropertyChanged(AIndex);
  1841. end;
  1842. Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetdisplayName(AIndex : Integer; const AValue : String);
  1843. begin
  1844. If (FdisplayName=AValue) then exit;
  1845. FdisplayName:=AValue;
  1846. MarkPropertyChanged(AIndex);
  1847. end;
  1848. Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.Setemail(AIndex : Integer; const AValue : String);
  1849. begin
  1850. If (Femail=AValue) then exit;
  1851. Femail:=AValue;
  1852. MarkPropertyChanged(AIndex);
  1853. end;
  1854. Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetemailVerified(AIndex : Integer; const AValue : boolean);
  1855. begin
  1856. If (FemailVerified=AValue) then exit;
  1857. FemailVerified:=AValue;
  1858. MarkPropertyChanged(AIndex);
  1859. end;
  1860. Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetidToken(AIndex : Integer; const AValue : String);
  1861. begin
  1862. If (FidToken=AValue) then exit;
  1863. FidToken:=AValue;
  1864. MarkPropertyChanged(AIndex);
  1865. end;
  1866. Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetinstanceId(AIndex : Integer; const AValue : String);
  1867. begin
  1868. If (FinstanceId=AValue) then exit;
  1869. FinstanceId:=AValue;
  1870. MarkPropertyChanged(AIndex);
  1871. end;
  1872. Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetlocalId(AIndex : Integer; const AValue : String);
  1873. begin
  1874. If (FlocalId=AValue) then exit;
  1875. FlocalId:=AValue;
  1876. MarkPropertyChanged(AIndex);
  1877. end;
  1878. Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetoobCode(AIndex : Integer; const AValue : String);
  1879. begin
  1880. If (FoobCode=AValue) then exit;
  1881. FoobCode:=AValue;
  1882. MarkPropertyChanged(AIndex);
  1883. end;
  1884. Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.Setpassword(AIndex : Integer; const AValue : String);
  1885. begin
  1886. If (Fpassword=AValue) then exit;
  1887. Fpassword:=AValue;
  1888. MarkPropertyChanged(AIndex);
  1889. end;
  1890. Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetphotoUrl(AIndex : Integer; const AValue : String);
  1891. begin
  1892. If (FphotoUrl=AValue) then exit;
  1893. FphotoUrl:=AValue;
  1894. MarkPropertyChanged(AIndex);
  1895. end;
  1896. Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.Setprovider(AIndex : Integer; const AValue : TStringArray);
  1897. begin
  1898. If (Fprovider=AValue) then exit;
  1899. Fprovider:=AValue;
  1900. MarkPropertyChanged(AIndex);
  1901. end;
  1902. Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetreturnSecureToken(AIndex : Integer; const AValue : boolean);
  1903. begin
  1904. If (FreturnSecureToken=AValue) then exit;
  1905. FreturnSecureToken:=AValue;
  1906. MarkPropertyChanged(AIndex);
  1907. end;
  1908. Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetupgradeToFederatedLogin(AIndex : Integer; const AValue : boolean);
  1909. begin
  1910. If (FupgradeToFederatedLogin=AValue) then exit;
  1911. FupgradeToFederatedLogin:=AValue;
  1912. MarkPropertyChanged(AIndex);
  1913. end;
  1914. Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetvalidSince(AIndex : Integer; const AValue : String);
  1915. begin
  1916. If (FvalidSince=AValue) then exit;
  1917. FvalidSince:=AValue;
  1918. MarkPropertyChanged(AIndex);
  1919. end;
  1920. //2.6.4. bug workaround
  1921. {$IFDEF VER2_6}
  1922. Procedure TIdentitytoolkitRelyingpartySetAccountInfoRequest.SetArrayLength(Const AName : String; ALength : Longint);
  1923. begin
  1924. Case AName of
  1925. 'deleteattribute' : SetLength(FdeleteAttribute,ALength);
  1926. 'deleteprovider' : SetLength(FdeleteProvider,ALength);
  1927. 'provider' : SetLength(Fprovider,ALength);
  1928. else
  1929. Inherited SetArrayLength(AName,ALength);
  1930. end;
  1931. end;
  1932. {$ENDIF VER2_6}
  1933. { --------------------------------------------------------------------
  1934. TIdentitytoolkitRelyingpartySetProjectConfigRequest
  1935. --------------------------------------------------------------------}
  1936. Procedure TIdentitytoolkitRelyingpartySetProjectConfigRequest.SetallowPasswordUser(AIndex : Integer; const AValue : boolean);
  1937. begin
  1938. If (FallowPasswordUser=AValue) then exit;
  1939. FallowPasswordUser:=AValue;
  1940. MarkPropertyChanged(AIndex);
  1941. end;
  1942. Procedure TIdentitytoolkitRelyingpartySetProjectConfigRequest.SetapiKey(AIndex : Integer; const AValue : String);
  1943. begin
  1944. If (FapiKey=AValue) then exit;
  1945. FapiKey:=AValue;
  1946. MarkPropertyChanged(AIndex);
  1947. end;
  1948. Procedure TIdentitytoolkitRelyingpartySetProjectConfigRequest.SetauthorizedDomains(AIndex : Integer; const AValue : TStringArray);
  1949. begin
  1950. If (FauthorizedDomains=AValue) then exit;
  1951. FauthorizedDomains:=AValue;
  1952. MarkPropertyChanged(AIndex);
  1953. end;
  1954. Procedure TIdentitytoolkitRelyingpartySetProjectConfigRequest.SetchangeEmailTemplate(AIndex : Integer; const AValue : TEmailTemplate);
  1955. begin
  1956. If (FchangeEmailTemplate=AValue) then exit;
  1957. FchangeEmailTemplate:=AValue;
  1958. MarkPropertyChanged(AIndex);
  1959. end;
  1960. Procedure TIdentitytoolkitRelyingpartySetProjectConfigRequest.SetdelegatedProjectNumber(AIndex : Integer; const AValue : String);
  1961. begin
  1962. If (FdelegatedProjectNumber=AValue) then exit;
  1963. FdelegatedProjectNumber:=AValue;
  1964. MarkPropertyChanged(AIndex);
  1965. end;
  1966. Procedure TIdentitytoolkitRelyingpartySetProjectConfigRequest.SetenableAnonymousUser(AIndex : Integer; const AValue : boolean);
  1967. begin
  1968. If (FenableAnonymousUser=AValue) then exit;
  1969. FenableAnonymousUser:=AValue;
  1970. MarkPropertyChanged(AIndex);
  1971. end;
  1972. Procedure TIdentitytoolkitRelyingpartySetProjectConfigRequest.SetidpConfig(AIndex : Integer; const AValue : TIdentitytoolkitRelyingpartySetProjectConfigRequestTypeidpConfigArray);
  1973. begin
  1974. If (FidpConfig=AValue) then exit;
  1975. FidpConfig:=AValue;
  1976. MarkPropertyChanged(AIndex);
  1977. end;
  1978. Procedure TIdentitytoolkitRelyingpartySetProjectConfigRequest.SetlegacyResetPasswordTemplate(AIndex : Integer; const AValue : TEmailTemplate);
  1979. begin
  1980. If (FlegacyResetPasswordTemplate=AValue) then exit;
  1981. FlegacyResetPasswordTemplate:=AValue;
  1982. MarkPropertyChanged(AIndex);
  1983. end;
  1984. Procedure TIdentitytoolkitRelyingpartySetProjectConfigRequest.SetresetPasswordTemplate(AIndex : Integer; const AValue : TEmailTemplate);
  1985. begin
  1986. If (FresetPasswordTemplate=AValue) then exit;
  1987. FresetPasswordTemplate:=AValue;
  1988. MarkPropertyChanged(AIndex);
  1989. end;
  1990. Procedure TIdentitytoolkitRelyingpartySetProjectConfigRequest.SetuseEmailSending(AIndex : Integer; const AValue : boolean);
  1991. begin
  1992. If (FuseEmailSending=AValue) then exit;
  1993. FuseEmailSending:=AValue;
  1994. MarkPropertyChanged(AIndex);
  1995. end;
  1996. Procedure TIdentitytoolkitRelyingpartySetProjectConfigRequest.SetverifyEmailTemplate(AIndex : Integer; const AValue : TEmailTemplate);
  1997. begin
  1998. If (FverifyEmailTemplate=AValue) then exit;
  1999. FverifyEmailTemplate:=AValue;
  2000. MarkPropertyChanged(AIndex);
  2001. end;
  2002. //2.6.4. bug workaround
  2003. {$IFDEF VER2_6}
  2004. Procedure TIdentitytoolkitRelyingpartySetProjectConfigRequest.SetArrayLength(Const AName : String; ALength : Longint);
  2005. begin
  2006. Case AName of
  2007. 'authorizeddomains' : SetLength(FauthorizedDomains,ALength);
  2008. 'idpconfig' : SetLength(FidpConfig,ALength);
  2009. else
  2010. Inherited SetArrayLength(AName,ALength);
  2011. end;
  2012. end;
  2013. {$ENDIF VER2_6}
  2014. { --------------------------------------------------------------------
  2015. TIdentitytoolkitRelyingpartySetProjectConfigResponse
  2016. --------------------------------------------------------------------}
  2017. Procedure TIdentitytoolkitRelyingpartySetProjectConfigResponse.SetprojectId(AIndex : Integer; const AValue : String);
  2018. begin
  2019. If (FprojectId=AValue) then exit;
  2020. FprojectId:=AValue;
  2021. MarkPropertyChanged(AIndex);
  2022. end;
  2023. { --------------------------------------------------------------------
  2024. TIdentitytoolkitRelyingpartySignOutUserRequest
  2025. --------------------------------------------------------------------}
  2026. Procedure TIdentitytoolkitRelyingpartySignOutUserRequest.SetinstanceId(AIndex : Integer; const AValue : String);
  2027. begin
  2028. If (FinstanceId=AValue) then exit;
  2029. FinstanceId:=AValue;
  2030. MarkPropertyChanged(AIndex);
  2031. end;
  2032. Procedure TIdentitytoolkitRelyingpartySignOutUserRequest.SetlocalId(AIndex : Integer; const AValue : String);
  2033. begin
  2034. If (FlocalId=AValue) then exit;
  2035. FlocalId:=AValue;
  2036. MarkPropertyChanged(AIndex);
  2037. end;
  2038. { --------------------------------------------------------------------
  2039. TIdentitytoolkitRelyingpartySignOutUserResponse
  2040. --------------------------------------------------------------------}
  2041. Procedure TIdentitytoolkitRelyingpartySignOutUserResponse.SetlocalId(AIndex : Integer; const AValue : String);
  2042. begin
  2043. If (FlocalId=AValue) then exit;
  2044. FlocalId:=AValue;
  2045. MarkPropertyChanged(AIndex);
  2046. end;
  2047. { --------------------------------------------------------------------
  2048. TIdentitytoolkitRelyingpartySignupNewUserRequest
  2049. --------------------------------------------------------------------}
  2050. Procedure TIdentitytoolkitRelyingpartySignupNewUserRequest.SetcaptchaChallenge(AIndex : Integer; const AValue : String);
  2051. begin
  2052. If (FcaptchaChallenge=AValue) then exit;
  2053. FcaptchaChallenge:=AValue;
  2054. MarkPropertyChanged(AIndex);
  2055. end;
  2056. Procedure TIdentitytoolkitRelyingpartySignupNewUserRequest.SetcaptchaResponse(AIndex : Integer; const AValue : String);
  2057. begin
  2058. If (FcaptchaResponse=AValue) then exit;
  2059. FcaptchaResponse:=AValue;
  2060. MarkPropertyChanged(AIndex);
  2061. end;
  2062. Procedure TIdentitytoolkitRelyingpartySignupNewUserRequest.SetdisplayName(AIndex : Integer; const AValue : String);
  2063. begin
  2064. If (FdisplayName=AValue) then exit;
  2065. FdisplayName:=AValue;
  2066. MarkPropertyChanged(AIndex);
  2067. end;
  2068. Procedure TIdentitytoolkitRelyingpartySignupNewUserRequest.Setemail(AIndex : Integer; const AValue : String);
  2069. begin
  2070. If (Femail=AValue) then exit;
  2071. Femail:=AValue;
  2072. MarkPropertyChanged(AIndex);
  2073. end;
  2074. Procedure TIdentitytoolkitRelyingpartySignupNewUserRequest.SetidToken(AIndex : Integer; const AValue : String);
  2075. begin
  2076. If (FidToken=AValue) then exit;
  2077. FidToken:=AValue;
  2078. MarkPropertyChanged(AIndex);
  2079. end;
  2080. Procedure TIdentitytoolkitRelyingpartySignupNewUserRequest.SetinstanceId(AIndex : Integer; const AValue : String);
  2081. begin
  2082. If (FinstanceId=AValue) then exit;
  2083. FinstanceId:=AValue;
  2084. MarkPropertyChanged(AIndex);
  2085. end;
  2086. Procedure TIdentitytoolkitRelyingpartySignupNewUserRequest.Setpassword(AIndex : Integer; const AValue : String);
  2087. begin
  2088. If (Fpassword=AValue) then exit;
  2089. Fpassword:=AValue;
  2090. MarkPropertyChanged(AIndex);
  2091. end;
  2092. { --------------------------------------------------------------------
  2093. TIdentitytoolkitRelyingpartyUploadAccountRequest
  2094. --------------------------------------------------------------------}
  2095. Procedure TIdentitytoolkitRelyingpartyUploadAccountRequest.SetdelegatedProjectNumber(AIndex : Integer; const AValue : String);
  2096. begin
  2097. If (FdelegatedProjectNumber=AValue) then exit;
  2098. FdelegatedProjectNumber:=AValue;
  2099. MarkPropertyChanged(AIndex);
  2100. end;
  2101. Procedure TIdentitytoolkitRelyingpartyUploadAccountRequest.SethashAlgorithm(AIndex : Integer; const AValue : String);
  2102. begin
  2103. If (FhashAlgorithm=AValue) then exit;
  2104. FhashAlgorithm:=AValue;
  2105. MarkPropertyChanged(AIndex);
  2106. end;
  2107. Procedure TIdentitytoolkitRelyingpartyUploadAccountRequest.SetmemoryCost(AIndex : Integer; const AValue : integer);
  2108. begin
  2109. If (FmemoryCost=AValue) then exit;
  2110. FmemoryCost:=AValue;
  2111. MarkPropertyChanged(AIndex);
  2112. end;
  2113. Procedure TIdentitytoolkitRelyingpartyUploadAccountRequest.Setrounds(AIndex : Integer; const AValue : integer);
  2114. begin
  2115. If (Frounds=AValue) then exit;
  2116. Frounds:=AValue;
  2117. MarkPropertyChanged(AIndex);
  2118. end;
  2119. Procedure TIdentitytoolkitRelyingpartyUploadAccountRequest.SetsaltSeparator(AIndex : Integer; const AValue : String);
  2120. begin
  2121. If (FsaltSeparator=AValue) then exit;
  2122. FsaltSeparator:=AValue;
  2123. MarkPropertyChanged(AIndex);
  2124. end;
  2125. Procedure TIdentitytoolkitRelyingpartyUploadAccountRequest.SetsignerKey(AIndex : Integer; const AValue : String);
  2126. begin
  2127. If (FsignerKey=AValue) then exit;
  2128. FsignerKey:=AValue;
  2129. MarkPropertyChanged(AIndex);
  2130. end;
  2131. Procedure TIdentitytoolkitRelyingpartyUploadAccountRequest.Setusers(AIndex : Integer; const AValue : TIdentitytoolkitRelyingpartyUploadAccountRequestTypeusersArray);
  2132. begin
  2133. If (Fusers=AValue) then exit;
  2134. Fusers:=AValue;
  2135. MarkPropertyChanged(AIndex);
  2136. end;
  2137. //2.6.4. bug workaround
  2138. {$IFDEF VER2_6}
  2139. Procedure TIdentitytoolkitRelyingpartyUploadAccountRequest.SetArrayLength(Const AName : String; ALength : Longint);
  2140. begin
  2141. Case AName of
  2142. 'users' : SetLength(Fusers,ALength);
  2143. else
  2144. Inherited SetArrayLength(AName,ALength);
  2145. end;
  2146. end;
  2147. {$ENDIF VER2_6}
  2148. { --------------------------------------------------------------------
  2149. TIdentitytoolkitRelyingpartyVerifyAssertionRequest
  2150. --------------------------------------------------------------------}
  2151. Procedure TIdentitytoolkitRelyingpartyVerifyAssertionRequest.SetdelegatedProjectNumber(AIndex : Integer; const AValue : String);
  2152. begin
  2153. If (FdelegatedProjectNumber=AValue) then exit;
  2154. FdelegatedProjectNumber:=AValue;
  2155. MarkPropertyChanged(AIndex);
  2156. end;
  2157. Procedure TIdentitytoolkitRelyingpartyVerifyAssertionRequest.SetidToken(AIndex : Integer; const AValue : String);
  2158. begin
  2159. If (FidToken=AValue) then exit;
  2160. FidToken:=AValue;
  2161. MarkPropertyChanged(AIndex);
  2162. end;
  2163. Procedure TIdentitytoolkitRelyingpartyVerifyAssertionRequest.SetinstanceId(AIndex : Integer; const AValue : String);
  2164. begin
  2165. If (FinstanceId=AValue) then exit;
  2166. FinstanceId:=AValue;
  2167. MarkPropertyChanged(AIndex);
  2168. end;
  2169. Procedure TIdentitytoolkitRelyingpartyVerifyAssertionRequest.SetpendingIdToken(AIndex : Integer; const AValue : String);
  2170. begin
  2171. If (FpendingIdToken=AValue) then exit;
  2172. FpendingIdToken:=AValue;
  2173. MarkPropertyChanged(AIndex);
  2174. end;
  2175. Procedure TIdentitytoolkitRelyingpartyVerifyAssertionRequest.SetpostBody(AIndex : Integer; const AValue : String);
  2176. begin
  2177. If (FpostBody=AValue) then exit;
  2178. FpostBody:=AValue;
  2179. MarkPropertyChanged(AIndex);
  2180. end;
  2181. Procedure TIdentitytoolkitRelyingpartyVerifyAssertionRequest.SetrequestUri(AIndex : Integer; const AValue : String);
  2182. begin
  2183. If (FrequestUri=AValue) then exit;
  2184. FrequestUri:=AValue;
  2185. MarkPropertyChanged(AIndex);
  2186. end;
  2187. Procedure TIdentitytoolkitRelyingpartyVerifyAssertionRequest.SetreturnRefreshToken(AIndex : Integer; const AValue : boolean);
  2188. begin
  2189. If (FreturnRefreshToken=AValue) then exit;
  2190. FreturnRefreshToken:=AValue;
  2191. MarkPropertyChanged(AIndex);
  2192. end;
  2193. Procedure TIdentitytoolkitRelyingpartyVerifyAssertionRequest.SetreturnSecureToken(AIndex : Integer; const AValue : boolean);
  2194. begin
  2195. If (FreturnSecureToken=AValue) then exit;
  2196. FreturnSecureToken:=AValue;
  2197. MarkPropertyChanged(AIndex);
  2198. end;
  2199. Procedure TIdentitytoolkitRelyingpartyVerifyAssertionRequest.SetsessionId(AIndex : Integer; const AValue : String);
  2200. begin
  2201. If (FsessionId=AValue) then exit;
  2202. FsessionId:=AValue;
  2203. MarkPropertyChanged(AIndex);
  2204. end;
  2205. { --------------------------------------------------------------------
  2206. TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest
  2207. --------------------------------------------------------------------}
  2208. Procedure TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest.SetdelegatedProjectNumber(AIndex : Integer; const AValue : String);
  2209. begin
  2210. If (FdelegatedProjectNumber=AValue) then exit;
  2211. FdelegatedProjectNumber:=AValue;
  2212. MarkPropertyChanged(AIndex);
  2213. end;
  2214. Procedure TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest.SetinstanceId(AIndex : Integer; const AValue : String);
  2215. begin
  2216. If (FinstanceId=AValue) then exit;
  2217. FinstanceId:=AValue;
  2218. MarkPropertyChanged(AIndex);
  2219. end;
  2220. Procedure TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest.SetreturnSecureToken(AIndex : Integer; const AValue : boolean);
  2221. begin
  2222. If (FreturnSecureToken=AValue) then exit;
  2223. FreturnSecureToken:=AValue;
  2224. MarkPropertyChanged(AIndex);
  2225. end;
  2226. Procedure TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest.Settoken(AIndex : Integer; const AValue : String);
  2227. begin
  2228. If (Ftoken=AValue) then exit;
  2229. Ftoken:=AValue;
  2230. MarkPropertyChanged(AIndex);
  2231. end;
  2232. { --------------------------------------------------------------------
  2233. TIdentitytoolkitRelyingpartyVerifyPasswordRequest
  2234. --------------------------------------------------------------------}
  2235. Procedure TIdentitytoolkitRelyingpartyVerifyPasswordRequest.SetcaptchaChallenge(AIndex : Integer; const AValue : String);
  2236. begin
  2237. If (FcaptchaChallenge=AValue) then exit;
  2238. FcaptchaChallenge:=AValue;
  2239. MarkPropertyChanged(AIndex);
  2240. end;
  2241. Procedure TIdentitytoolkitRelyingpartyVerifyPasswordRequest.SetcaptchaResponse(AIndex : Integer; const AValue : String);
  2242. begin
  2243. If (FcaptchaResponse=AValue) then exit;
  2244. FcaptchaResponse:=AValue;
  2245. MarkPropertyChanged(AIndex);
  2246. end;
  2247. Procedure TIdentitytoolkitRelyingpartyVerifyPasswordRequest.SetdelegatedProjectNumber(AIndex : Integer; const AValue : String);
  2248. begin
  2249. If (FdelegatedProjectNumber=AValue) then exit;
  2250. FdelegatedProjectNumber:=AValue;
  2251. MarkPropertyChanged(AIndex);
  2252. end;
  2253. Procedure TIdentitytoolkitRelyingpartyVerifyPasswordRequest.Setemail(AIndex : Integer; const AValue : String);
  2254. begin
  2255. If (Femail=AValue) then exit;
  2256. Femail:=AValue;
  2257. MarkPropertyChanged(AIndex);
  2258. end;
  2259. Procedure TIdentitytoolkitRelyingpartyVerifyPasswordRequest.SetidToken(AIndex : Integer; const AValue : String);
  2260. begin
  2261. If (FidToken=AValue) then exit;
  2262. FidToken:=AValue;
  2263. MarkPropertyChanged(AIndex);
  2264. end;
  2265. Procedure TIdentitytoolkitRelyingpartyVerifyPasswordRequest.SetinstanceId(AIndex : Integer; const AValue : String);
  2266. begin
  2267. If (FinstanceId=AValue) then exit;
  2268. FinstanceId:=AValue;
  2269. MarkPropertyChanged(AIndex);
  2270. end;
  2271. Procedure TIdentitytoolkitRelyingpartyVerifyPasswordRequest.Setpassword(AIndex : Integer; const AValue : String);
  2272. begin
  2273. If (Fpassword=AValue) then exit;
  2274. Fpassword:=AValue;
  2275. MarkPropertyChanged(AIndex);
  2276. end;
  2277. Procedure TIdentitytoolkitRelyingpartyVerifyPasswordRequest.SetpendingIdToken(AIndex : Integer; const AValue : String);
  2278. begin
  2279. If (FpendingIdToken=AValue) then exit;
  2280. FpendingIdToken:=AValue;
  2281. MarkPropertyChanged(AIndex);
  2282. end;
  2283. Procedure TIdentitytoolkitRelyingpartyVerifyPasswordRequest.SetreturnSecureToken(AIndex : Integer; const AValue : boolean);
  2284. begin
  2285. If (FreturnSecureToken=AValue) then exit;
  2286. FreturnSecureToken:=AValue;
  2287. MarkPropertyChanged(AIndex);
  2288. end;
  2289. { --------------------------------------------------------------------
  2290. TIdpConfig
  2291. --------------------------------------------------------------------}
  2292. Procedure TIdpConfig.SetclientId(AIndex : Integer; const AValue : String);
  2293. begin
  2294. If (FclientId=AValue) then exit;
  2295. FclientId:=AValue;
  2296. MarkPropertyChanged(AIndex);
  2297. end;
  2298. Procedure TIdpConfig.Setenabled(AIndex : Integer; const AValue : boolean);
  2299. begin
  2300. If (Fenabled=AValue) then exit;
  2301. Fenabled:=AValue;
  2302. MarkPropertyChanged(AIndex);
  2303. end;
  2304. Procedure TIdpConfig.SetexperimentPercent(AIndex : Integer; const AValue : integer);
  2305. begin
  2306. If (FexperimentPercent=AValue) then exit;
  2307. FexperimentPercent:=AValue;
  2308. MarkPropertyChanged(AIndex);
  2309. end;
  2310. Procedure TIdpConfig.Setprovider(AIndex : Integer; const AValue : String);
  2311. begin
  2312. If (Fprovider=AValue) then exit;
  2313. Fprovider:=AValue;
  2314. MarkPropertyChanged(AIndex);
  2315. end;
  2316. Procedure TIdpConfig.Setsecret(AIndex : Integer; const AValue : String);
  2317. begin
  2318. If (Fsecret=AValue) then exit;
  2319. Fsecret:=AValue;
  2320. MarkPropertyChanged(AIndex);
  2321. end;
  2322. { --------------------------------------------------------------------
  2323. TRelyingparty
  2324. --------------------------------------------------------------------}
  2325. Procedure TRelyingparty.SetcaptchaResp(AIndex : Integer; const AValue : String);
  2326. begin
  2327. If (FcaptchaResp=AValue) then exit;
  2328. FcaptchaResp:=AValue;
  2329. MarkPropertyChanged(AIndex);
  2330. end;
  2331. Procedure TRelyingparty.Setchallenge(AIndex : Integer; const AValue : String);
  2332. begin
  2333. If (Fchallenge=AValue) then exit;
  2334. Fchallenge:=AValue;
  2335. MarkPropertyChanged(AIndex);
  2336. end;
  2337. Procedure TRelyingparty.Setemail(AIndex : Integer; const AValue : String);
  2338. begin
  2339. If (Femail=AValue) then exit;
  2340. Femail:=AValue;
  2341. MarkPropertyChanged(AIndex);
  2342. end;
  2343. Procedure TRelyingparty.SetidToken(AIndex : Integer; const AValue : String);
  2344. begin
  2345. If (FidToken=AValue) then exit;
  2346. FidToken:=AValue;
  2347. MarkPropertyChanged(AIndex);
  2348. end;
  2349. Procedure TRelyingparty.Setkind(AIndex : Integer; const AValue : String);
  2350. begin
  2351. If (Fkind=AValue) then exit;
  2352. Fkind:=AValue;
  2353. MarkPropertyChanged(AIndex);
  2354. end;
  2355. Procedure TRelyingparty.SetnewEmail(AIndex : Integer; const AValue : String);
  2356. begin
  2357. If (FnewEmail=AValue) then exit;
  2358. FnewEmail:=AValue;
  2359. MarkPropertyChanged(AIndex);
  2360. end;
  2361. Procedure TRelyingparty.SetrequestType(AIndex : Integer; const AValue : String);
  2362. begin
  2363. If (FrequestType=AValue) then exit;
  2364. FrequestType:=AValue;
  2365. MarkPropertyChanged(AIndex);
  2366. end;
  2367. Procedure TRelyingparty.SetuserIp(AIndex : Integer; const AValue : String);
  2368. begin
  2369. If (FuserIp=AValue) then exit;
  2370. FuserIp:=AValue;
  2371. MarkPropertyChanged(AIndex);
  2372. end;
  2373. { --------------------------------------------------------------------
  2374. TResetPasswordResponse
  2375. --------------------------------------------------------------------}
  2376. Procedure TResetPasswordResponse.Setemail(AIndex : Integer; const AValue : String);
  2377. begin
  2378. If (Femail=AValue) then exit;
  2379. Femail:=AValue;
  2380. MarkPropertyChanged(AIndex);
  2381. end;
  2382. Procedure TResetPasswordResponse.Setkind(AIndex : Integer; const AValue : String);
  2383. begin
  2384. If (Fkind=AValue) then exit;
  2385. Fkind:=AValue;
  2386. MarkPropertyChanged(AIndex);
  2387. end;
  2388. { --------------------------------------------------------------------
  2389. TSetAccountInfoResponseTypeproviderUserInfoItem
  2390. --------------------------------------------------------------------}
  2391. Procedure TSetAccountInfoResponseTypeproviderUserInfoItem.SetdisplayName(AIndex : Integer; const AValue : String);
  2392. begin
  2393. If (FdisplayName=AValue) then exit;
  2394. FdisplayName:=AValue;
  2395. MarkPropertyChanged(AIndex);
  2396. end;
  2397. Procedure TSetAccountInfoResponseTypeproviderUserInfoItem.SetfederatedId(AIndex : Integer; const AValue : String);
  2398. begin
  2399. If (FfederatedId=AValue) then exit;
  2400. FfederatedId:=AValue;
  2401. MarkPropertyChanged(AIndex);
  2402. end;
  2403. Procedure TSetAccountInfoResponseTypeproviderUserInfoItem.SetphotoUrl(AIndex : Integer; const AValue : String);
  2404. begin
  2405. If (FphotoUrl=AValue) then exit;
  2406. FphotoUrl:=AValue;
  2407. MarkPropertyChanged(AIndex);
  2408. end;
  2409. Procedure TSetAccountInfoResponseTypeproviderUserInfoItem.SetproviderId(AIndex : Integer; const AValue : String);
  2410. begin
  2411. If (FproviderId=AValue) then exit;
  2412. FproviderId:=AValue;
  2413. MarkPropertyChanged(AIndex);
  2414. end;
  2415. { --------------------------------------------------------------------
  2416. TSetAccountInfoResponse
  2417. --------------------------------------------------------------------}
  2418. Procedure TSetAccountInfoResponse.SetdisplayName(AIndex : Integer; const AValue : String);
  2419. begin
  2420. If (FdisplayName=AValue) then exit;
  2421. FdisplayName:=AValue;
  2422. MarkPropertyChanged(AIndex);
  2423. end;
  2424. Procedure TSetAccountInfoResponse.Setemail(AIndex : Integer; const AValue : String);
  2425. begin
  2426. If (Femail=AValue) then exit;
  2427. Femail:=AValue;
  2428. MarkPropertyChanged(AIndex);
  2429. end;
  2430. Procedure TSetAccountInfoResponse.SetexpiresIn(AIndex : Integer; const AValue : String);
  2431. begin
  2432. If (FexpiresIn=AValue) then exit;
  2433. FexpiresIn:=AValue;
  2434. MarkPropertyChanged(AIndex);
  2435. end;
  2436. Procedure TSetAccountInfoResponse.SetidToken(AIndex : Integer; const AValue : String);
  2437. begin
  2438. If (FidToken=AValue) then exit;
  2439. FidToken:=AValue;
  2440. MarkPropertyChanged(AIndex);
  2441. end;
  2442. Procedure TSetAccountInfoResponse.Setkind(AIndex : Integer; const AValue : String);
  2443. begin
  2444. If (Fkind=AValue) then exit;
  2445. Fkind:=AValue;
  2446. MarkPropertyChanged(AIndex);
  2447. end;
  2448. Procedure TSetAccountInfoResponse.SetlocalId(AIndex : Integer; const AValue : String);
  2449. begin
  2450. If (FlocalId=AValue) then exit;
  2451. FlocalId:=AValue;
  2452. MarkPropertyChanged(AIndex);
  2453. end;
  2454. Procedure TSetAccountInfoResponse.SetnewEmail(AIndex : Integer; const AValue : String);
  2455. begin
  2456. If (FnewEmail=AValue) then exit;
  2457. FnewEmail:=AValue;
  2458. MarkPropertyChanged(AIndex);
  2459. end;
  2460. Procedure TSetAccountInfoResponse.SetpasswordHash(AIndex : Integer; const AValue : String);
  2461. begin
  2462. If (FpasswordHash=AValue) then exit;
  2463. FpasswordHash:=AValue;
  2464. MarkPropertyChanged(AIndex);
  2465. end;
  2466. Procedure TSetAccountInfoResponse.SetphotoUrl(AIndex : Integer; const AValue : String);
  2467. begin
  2468. If (FphotoUrl=AValue) then exit;
  2469. FphotoUrl:=AValue;
  2470. MarkPropertyChanged(AIndex);
  2471. end;
  2472. Procedure TSetAccountInfoResponse.SetproviderUserInfo(AIndex : Integer; const AValue : TSetAccountInfoResponseTypeproviderUserInfoArray);
  2473. begin
  2474. If (FproviderUserInfo=AValue) then exit;
  2475. FproviderUserInfo:=AValue;
  2476. MarkPropertyChanged(AIndex);
  2477. end;
  2478. Procedure TSetAccountInfoResponse.SetrefreshToken(AIndex : Integer; const AValue : String);
  2479. begin
  2480. If (FrefreshToken=AValue) then exit;
  2481. FrefreshToken:=AValue;
  2482. MarkPropertyChanged(AIndex);
  2483. end;
  2484. //2.6.4. bug workaround
  2485. {$IFDEF VER2_6}
  2486. Procedure TSetAccountInfoResponse.SetArrayLength(Const AName : String; ALength : Longint);
  2487. begin
  2488. Case AName of
  2489. 'provideruserinfo' : SetLength(FproviderUserInfo,ALength);
  2490. else
  2491. Inherited SetArrayLength(AName,ALength);
  2492. end;
  2493. end;
  2494. {$ENDIF VER2_6}
  2495. { --------------------------------------------------------------------
  2496. TSignupNewUserResponse
  2497. --------------------------------------------------------------------}
  2498. Procedure TSignupNewUserResponse.SetdisplayName(AIndex : Integer; const AValue : String);
  2499. begin
  2500. If (FdisplayName=AValue) then exit;
  2501. FdisplayName:=AValue;
  2502. MarkPropertyChanged(AIndex);
  2503. end;
  2504. Procedure TSignupNewUserResponse.Setemail(AIndex : Integer; const AValue : String);
  2505. begin
  2506. If (Femail=AValue) then exit;
  2507. Femail:=AValue;
  2508. MarkPropertyChanged(AIndex);
  2509. end;
  2510. Procedure TSignupNewUserResponse.SetexpiresIn(AIndex : Integer; const AValue : String);
  2511. begin
  2512. If (FexpiresIn=AValue) then exit;
  2513. FexpiresIn:=AValue;
  2514. MarkPropertyChanged(AIndex);
  2515. end;
  2516. Procedure TSignupNewUserResponse.SetidToken(AIndex : Integer; const AValue : String);
  2517. begin
  2518. If (FidToken=AValue) then exit;
  2519. FidToken:=AValue;
  2520. MarkPropertyChanged(AIndex);
  2521. end;
  2522. Procedure TSignupNewUserResponse.Setkind(AIndex : Integer; const AValue : String);
  2523. begin
  2524. If (Fkind=AValue) then exit;
  2525. Fkind:=AValue;
  2526. MarkPropertyChanged(AIndex);
  2527. end;
  2528. Procedure TSignupNewUserResponse.SetlocalId(AIndex : Integer; const AValue : String);
  2529. begin
  2530. If (FlocalId=AValue) then exit;
  2531. FlocalId:=AValue;
  2532. MarkPropertyChanged(AIndex);
  2533. end;
  2534. Procedure TSignupNewUserResponse.SetrefreshToken(AIndex : Integer; const AValue : String);
  2535. begin
  2536. If (FrefreshToken=AValue) then exit;
  2537. FrefreshToken:=AValue;
  2538. MarkPropertyChanged(AIndex);
  2539. end;
  2540. { --------------------------------------------------------------------
  2541. TUploadAccountResponseTypeerrorItem
  2542. --------------------------------------------------------------------}
  2543. Procedure TUploadAccountResponseTypeerrorItem.Setindex(AIndex : Integer; const AValue : integer);
  2544. begin
  2545. If (Findex=AValue) then exit;
  2546. Findex:=AValue;
  2547. MarkPropertyChanged(AIndex);
  2548. end;
  2549. Procedure TUploadAccountResponseTypeerrorItem.Setmessage(AIndex : Integer; const AValue : String);
  2550. begin
  2551. If (Fmessage=AValue) then exit;
  2552. Fmessage:=AValue;
  2553. MarkPropertyChanged(AIndex);
  2554. end;
  2555. { --------------------------------------------------------------------
  2556. TUploadAccountResponse
  2557. --------------------------------------------------------------------}
  2558. Procedure TUploadAccountResponse.Seterror(AIndex : Integer; const AValue : TUploadAccountResponseTypeerrorArray);
  2559. begin
  2560. If (Ferror=AValue) then exit;
  2561. Ferror:=AValue;
  2562. MarkPropertyChanged(AIndex);
  2563. end;
  2564. Procedure TUploadAccountResponse.Setkind(AIndex : Integer; const AValue : String);
  2565. begin
  2566. If (Fkind=AValue) then exit;
  2567. Fkind:=AValue;
  2568. MarkPropertyChanged(AIndex);
  2569. end;
  2570. //2.6.4. bug workaround
  2571. {$IFDEF VER2_6}
  2572. Procedure TUploadAccountResponse.SetArrayLength(Const AName : String; ALength : Longint);
  2573. begin
  2574. Case AName of
  2575. 'error' : SetLength(Ferror,ALength);
  2576. else
  2577. Inherited SetArrayLength(AName,ALength);
  2578. end;
  2579. end;
  2580. {$ENDIF VER2_6}
  2581. { --------------------------------------------------------------------
  2582. TUserInfoTypeproviderUserInfoItem
  2583. --------------------------------------------------------------------}
  2584. Procedure TUserInfoTypeproviderUserInfoItem.SetdisplayName(AIndex : Integer; const AValue : String);
  2585. begin
  2586. If (FdisplayName=AValue) then exit;
  2587. FdisplayName:=AValue;
  2588. MarkPropertyChanged(AIndex);
  2589. end;
  2590. Procedure TUserInfoTypeproviderUserInfoItem.Setemail(AIndex : Integer; const AValue : String);
  2591. begin
  2592. If (Femail=AValue) then exit;
  2593. Femail:=AValue;
  2594. MarkPropertyChanged(AIndex);
  2595. end;
  2596. Procedure TUserInfoTypeproviderUserInfoItem.SetfederatedId(AIndex : Integer; const AValue : String);
  2597. begin
  2598. If (FfederatedId=AValue) then exit;
  2599. FfederatedId:=AValue;
  2600. MarkPropertyChanged(AIndex);
  2601. end;
  2602. Procedure TUserInfoTypeproviderUserInfoItem.SetphotoUrl(AIndex : Integer; const AValue : String);
  2603. begin
  2604. If (FphotoUrl=AValue) then exit;
  2605. FphotoUrl:=AValue;
  2606. MarkPropertyChanged(AIndex);
  2607. end;
  2608. Procedure TUserInfoTypeproviderUserInfoItem.SetproviderId(AIndex : Integer; const AValue : String);
  2609. begin
  2610. If (FproviderId=AValue) then exit;
  2611. FproviderId:=AValue;
  2612. MarkPropertyChanged(AIndex);
  2613. end;
  2614. Procedure TUserInfoTypeproviderUserInfoItem.SetrawId(AIndex : Integer; const AValue : String);
  2615. begin
  2616. If (FrawId=AValue) then exit;
  2617. FrawId:=AValue;
  2618. MarkPropertyChanged(AIndex);
  2619. end;
  2620. { --------------------------------------------------------------------
  2621. TUserInfo
  2622. --------------------------------------------------------------------}
  2623. Procedure TUserInfo.Setdisabled(AIndex : Integer; const AValue : boolean);
  2624. begin
  2625. If (Fdisabled=AValue) then exit;
  2626. Fdisabled:=AValue;
  2627. MarkPropertyChanged(AIndex);
  2628. end;
  2629. Procedure TUserInfo.SetdisplayName(AIndex : Integer; const AValue : String);
  2630. begin
  2631. If (FdisplayName=AValue) then exit;
  2632. FdisplayName:=AValue;
  2633. MarkPropertyChanged(AIndex);
  2634. end;
  2635. Procedure TUserInfo.Setemail(AIndex : Integer; const AValue : String);
  2636. begin
  2637. If (Femail=AValue) then exit;
  2638. Femail:=AValue;
  2639. MarkPropertyChanged(AIndex);
  2640. end;
  2641. Procedure TUserInfo.SetemailVerified(AIndex : Integer; const AValue : boolean);
  2642. begin
  2643. If (FemailVerified=AValue) then exit;
  2644. FemailVerified:=AValue;
  2645. MarkPropertyChanged(AIndex);
  2646. end;
  2647. Procedure TUserInfo.SetlocalId(AIndex : Integer; const AValue : String);
  2648. begin
  2649. If (FlocalId=AValue) then exit;
  2650. FlocalId:=AValue;
  2651. MarkPropertyChanged(AIndex);
  2652. end;
  2653. Procedure TUserInfo.SetpasswordHash(AIndex : Integer; const AValue : String);
  2654. begin
  2655. If (FpasswordHash=AValue) then exit;
  2656. FpasswordHash:=AValue;
  2657. MarkPropertyChanged(AIndex);
  2658. end;
  2659. Procedure TUserInfo.SetpasswordUpdatedAt(AIndex : Integer; const AValue : double);
  2660. begin
  2661. If (FpasswordUpdatedAt=AValue) then exit;
  2662. FpasswordUpdatedAt:=AValue;
  2663. MarkPropertyChanged(AIndex);
  2664. end;
  2665. Procedure TUserInfo.SetphotoUrl(AIndex : Integer; const AValue : String);
  2666. begin
  2667. If (FphotoUrl=AValue) then exit;
  2668. FphotoUrl:=AValue;
  2669. MarkPropertyChanged(AIndex);
  2670. end;
  2671. Procedure TUserInfo.SetproviderUserInfo(AIndex : Integer; const AValue : TUserInfoTypeproviderUserInfoArray);
  2672. begin
  2673. If (FproviderUserInfo=AValue) then exit;
  2674. FproviderUserInfo:=AValue;
  2675. MarkPropertyChanged(AIndex);
  2676. end;
  2677. Procedure TUserInfo.Setsalt(AIndex : Integer; const AValue : String);
  2678. begin
  2679. If (Fsalt=AValue) then exit;
  2680. Fsalt:=AValue;
  2681. MarkPropertyChanged(AIndex);
  2682. end;
  2683. Procedure TUserInfo.SetvalidSince(AIndex : Integer; const AValue : String);
  2684. begin
  2685. If (FvalidSince=AValue) then exit;
  2686. FvalidSince:=AValue;
  2687. MarkPropertyChanged(AIndex);
  2688. end;
  2689. Procedure TUserInfo.Setversion(AIndex : Integer; const AValue : integer);
  2690. begin
  2691. If (Fversion=AValue) then exit;
  2692. Fversion:=AValue;
  2693. MarkPropertyChanged(AIndex);
  2694. end;
  2695. //2.6.4. bug workaround
  2696. {$IFDEF VER2_6}
  2697. Procedure TUserInfo.SetArrayLength(Const AName : String; ALength : Longint);
  2698. begin
  2699. Case AName of
  2700. 'provideruserinfo' : SetLength(FproviderUserInfo,ALength);
  2701. else
  2702. Inherited SetArrayLength(AName,ALength);
  2703. end;
  2704. end;
  2705. {$ENDIF VER2_6}
  2706. { --------------------------------------------------------------------
  2707. TVerifyAssertionResponse
  2708. --------------------------------------------------------------------}
  2709. Procedure TVerifyAssertionResponse.Setaction(AIndex : Integer; const AValue : String);
  2710. begin
  2711. If (Faction=AValue) then exit;
  2712. Faction:=AValue;
  2713. MarkPropertyChanged(AIndex);
  2714. end;
  2715. Procedure TVerifyAssertionResponse.SetappInstallationUrl(AIndex : Integer; const AValue : String);
  2716. begin
  2717. If (FappInstallationUrl=AValue) then exit;
  2718. FappInstallationUrl:=AValue;
  2719. MarkPropertyChanged(AIndex);
  2720. end;
  2721. Procedure TVerifyAssertionResponse.SetappScheme(AIndex : Integer; const AValue : String);
  2722. begin
  2723. If (FappScheme=AValue) then exit;
  2724. FappScheme:=AValue;
  2725. MarkPropertyChanged(AIndex);
  2726. end;
  2727. Procedure TVerifyAssertionResponse.Setcontext(AIndex : Integer; const AValue : String);
  2728. begin
  2729. If (Fcontext=AValue) then exit;
  2730. Fcontext:=AValue;
  2731. MarkPropertyChanged(AIndex);
  2732. end;
  2733. Procedure TVerifyAssertionResponse.SetdateOfBirth(AIndex : Integer; const AValue : String);
  2734. begin
  2735. If (FdateOfBirth=AValue) then exit;
  2736. FdateOfBirth:=AValue;
  2737. MarkPropertyChanged(AIndex);
  2738. end;
  2739. Procedure TVerifyAssertionResponse.SetdisplayName(AIndex : Integer; const AValue : String);
  2740. begin
  2741. If (FdisplayName=AValue) then exit;
  2742. FdisplayName:=AValue;
  2743. MarkPropertyChanged(AIndex);
  2744. end;
  2745. Procedure TVerifyAssertionResponse.Setemail(AIndex : Integer; const AValue : String);
  2746. begin
  2747. If (Femail=AValue) then exit;
  2748. Femail:=AValue;
  2749. MarkPropertyChanged(AIndex);
  2750. end;
  2751. Procedure TVerifyAssertionResponse.SetemailRecycled(AIndex : Integer; const AValue : boolean);
  2752. begin
  2753. If (FemailRecycled=AValue) then exit;
  2754. FemailRecycled:=AValue;
  2755. MarkPropertyChanged(AIndex);
  2756. end;
  2757. Procedure TVerifyAssertionResponse.SetemailVerified(AIndex : Integer; const AValue : boolean);
  2758. begin
  2759. If (FemailVerified=AValue) then exit;
  2760. FemailVerified:=AValue;
  2761. MarkPropertyChanged(AIndex);
  2762. end;
  2763. Procedure TVerifyAssertionResponse.SetexpiresIn(AIndex : Integer; const AValue : String);
  2764. begin
  2765. If (FexpiresIn=AValue) then exit;
  2766. FexpiresIn:=AValue;
  2767. MarkPropertyChanged(AIndex);
  2768. end;
  2769. Procedure TVerifyAssertionResponse.SetfederatedId(AIndex : Integer; const AValue : String);
  2770. begin
  2771. If (FfederatedId=AValue) then exit;
  2772. FfederatedId:=AValue;
  2773. MarkPropertyChanged(AIndex);
  2774. end;
  2775. Procedure TVerifyAssertionResponse.SetfirstName(AIndex : Integer; const AValue : String);
  2776. begin
  2777. If (FfirstName=AValue) then exit;
  2778. FfirstName:=AValue;
  2779. MarkPropertyChanged(AIndex);
  2780. end;
  2781. Procedure TVerifyAssertionResponse.SetfullName(AIndex : Integer; const AValue : String);
  2782. begin
  2783. If (FfullName=AValue) then exit;
  2784. FfullName:=AValue;
  2785. MarkPropertyChanged(AIndex);
  2786. end;
  2787. Procedure TVerifyAssertionResponse.SetidToken(AIndex : Integer; const AValue : String);
  2788. begin
  2789. If (FidToken=AValue) then exit;
  2790. FidToken:=AValue;
  2791. MarkPropertyChanged(AIndex);
  2792. end;
  2793. Procedure TVerifyAssertionResponse.SetinputEmail(AIndex : Integer; const AValue : String);
  2794. begin
  2795. If (FinputEmail=AValue) then exit;
  2796. FinputEmail:=AValue;
  2797. MarkPropertyChanged(AIndex);
  2798. end;
  2799. Procedure TVerifyAssertionResponse.Setkind(AIndex : Integer; const AValue : String);
  2800. begin
  2801. If (Fkind=AValue) then exit;
  2802. Fkind:=AValue;
  2803. MarkPropertyChanged(AIndex);
  2804. end;
  2805. Procedure TVerifyAssertionResponse.Setlanguage(AIndex : Integer; const AValue : String);
  2806. begin
  2807. If (Flanguage=AValue) then exit;
  2808. Flanguage:=AValue;
  2809. MarkPropertyChanged(AIndex);
  2810. end;
  2811. Procedure TVerifyAssertionResponse.SetlastName(AIndex : Integer; const AValue : String);
  2812. begin
  2813. If (FlastName=AValue) then exit;
  2814. FlastName:=AValue;
  2815. MarkPropertyChanged(AIndex);
  2816. end;
  2817. Procedure TVerifyAssertionResponse.SetlocalId(AIndex : Integer; const AValue : String);
  2818. begin
  2819. If (FlocalId=AValue) then exit;
  2820. FlocalId:=AValue;
  2821. MarkPropertyChanged(AIndex);
  2822. end;
  2823. Procedure TVerifyAssertionResponse.SetneedConfirmation(AIndex : Integer; const AValue : boolean);
  2824. begin
  2825. If (FneedConfirmation=AValue) then exit;
  2826. FneedConfirmation:=AValue;
  2827. MarkPropertyChanged(AIndex);
  2828. end;
  2829. Procedure TVerifyAssertionResponse.SetneedEmail(AIndex : Integer; const AValue : boolean);
  2830. begin
  2831. If (FneedEmail=AValue) then exit;
  2832. FneedEmail:=AValue;
  2833. MarkPropertyChanged(AIndex);
  2834. end;
  2835. Procedure TVerifyAssertionResponse.SetnickName(AIndex : Integer; const AValue : String);
  2836. begin
  2837. If (FnickName=AValue) then exit;
  2838. FnickName:=AValue;
  2839. MarkPropertyChanged(AIndex);
  2840. end;
  2841. Procedure TVerifyAssertionResponse.SetoauthAccessToken(AIndex : Integer; const AValue : String);
  2842. begin
  2843. If (FoauthAccessToken=AValue) then exit;
  2844. FoauthAccessToken:=AValue;
  2845. MarkPropertyChanged(AIndex);
  2846. end;
  2847. Procedure TVerifyAssertionResponse.SetoauthAuthorizationCode(AIndex : Integer; const AValue : String);
  2848. begin
  2849. If (FoauthAuthorizationCode=AValue) then exit;
  2850. FoauthAuthorizationCode:=AValue;
  2851. MarkPropertyChanged(AIndex);
  2852. end;
  2853. Procedure TVerifyAssertionResponse.SetoauthExpireIn(AIndex : Integer; const AValue : integer);
  2854. begin
  2855. If (FoauthExpireIn=AValue) then exit;
  2856. FoauthExpireIn:=AValue;
  2857. MarkPropertyChanged(AIndex);
  2858. end;
  2859. Procedure TVerifyAssertionResponse.SetoauthIdToken(AIndex : Integer; const AValue : String);
  2860. begin
  2861. If (FoauthIdToken=AValue) then exit;
  2862. FoauthIdToken:=AValue;
  2863. MarkPropertyChanged(AIndex);
  2864. end;
  2865. Procedure TVerifyAssertionResponse.SetoauthRequestToken(AIndex : Integer; const AValue : String);
  2866. begin
  2867. If (FoauthRequestToken=AValue) then exit;
  2868. FoauthRequestToken:=AValue;
  2869. MarkPropertyChanged(AIndex);
  2870. end;
  2871. Procedure TVerifyAssertionResponse.SetoauthScope(AIndex : Integer; const AValue : String);
  2872. begin
  2873. If (FoauthScope=AValue) then exit;
  2874. FoauthScope:=AValue;
  2875. MarkPropertyChanged(AIndex);
  2876. end;
  2877. Procedure TVerifyAssertionResponse.SetoauthTokenSecret(AIndex : Integer; const AValue : String);
  2878. begin
  2879. If (FoauthTokenSecret=AValue) then exit;
  2880. FoauthTokenSecret:=AValue;
  2881. MarkPropertyChanged(AIndex);
  2882. end;
  2883. Procedure TVerifyAssertionResponse.SetoriginalEmail(AIndex : Integer; const AValue : String);
  2884. begin
  2885. If (ForiginalEmail=AValue) then exit;
  2886. ForiginalEmail:=AValue;
  2887. MarkPropertyChanged(AIndex);
  2888. end;
  2889. Procedure TVerifyAssertionResponse.SetphotoUrl(AIndex : Integer; const AValue : String);
  2890. begin
  2891. If (FphotoUrl=AValue) then exit;
  2892. FphotoUrl:=AValue;
  2893. MarkPropertyChanged(AIndex);
  2894. end;
  2895. Procedure TVerifyAssertionResponse.SetproviderId(AIndex : Integer; const AValue : String);
  2896. begin
  2897. If (FproviderId=AValue) then exit;
  2898. FproviderId:=AValue;
  2899. MarkPropertyChanged(AIndex);
  2900. end;
  2901. Procedure TVerifyAssertionResponse.SetrefreshToken(AIndex : Integer; const AValue : String);
  2902. begin
  2903. If (FrefreshToken=AValue) then exit;
  2904. FrefreshToken:=AValue;
  2905. MarkPropertyChanged(AIndex);
  2906. end;
  2907. Procedure TVerifyAssertionResponse.SettimeZone(AIndex : Integer; const AValue : String);
  2908. begin
  2909. If (FtimeZone=AValue) then exit;
  2910. FtimeZone:=AValue;
  2911. MarkPropertyChanged(AIndex);
  2912. end;
  2913. Procedure TVerifyAssertionResponse.SetverifiedProvider(AIndex : Integer; const AValue : TStringArray);
  2914. begin
  2915. If (FverifiedProvider=AValue) then exit;
  2916. FverifiedProvider:=AValue;
  2917. MarkPropertyChanged(AIndex);
  2918. end;
  2919. //2.6.4. bug workaround
  2920. {$IFDEF VER2_6}
  2921. Procedure TVerifyAssertionResponse.SetArrayLength(Const AName : String; ALength : Longint);
  2922. begin
  2923. Case AName of
  2924. 'verifiedprovider' : SetLength(FverifiedProvider,ALength);
  2925. else
  2926. Inherited SetArrayLength(AName,ALength);
  2927. end;
  2928. end;
  2929. {$ENDIF VER2_6}
  2930. { --------------------------------------------------------------------
  2931. TVerifyCustomTokenResponse
  2932. --------------------------------------------------------------------}
  2933. Procedure TVerifyCustomTokenResponse.SetexpiresIn(AIndex : Integer; const AValue : String);
  2934. begin
  2935. If (FexpiresIn=AValue) then exit;
  2936. FexpiresIn:=AValue;
  2937. MarkPropertyChanged(AIndex);
  2938. end;
  2939. Procedure TVerifyCustomTokenResponse.SetidToken(AIndex : Integer; const AValue : String);
  2940. begin
  2941. If (FidToken=AValue) then exit;
  2942. FidToken:=AValue;
  2943. MarkPropertyChanged(AIndex);
  2944. end;
  2945. Procedure TVerifyCustomTokenResponse.Setkind(AIndex : Integer; const AValue : String);
  2946. begin
  2947. If (Fkind=AValue) then exit;
  2948. Fkind:=AValue;
  2949. MarkPropertyChanged(AIndex);
  2950. end;
  2951. Procedure TVerifyCustomTokenResponse.SetrefreshToken(AIndex : Integer; const AValue : String);
  2952. begin
  2953. If (FrefreshToken=AValue) then exit;
  2954. FrefreshToken:=AValue;
  2955. MarkPropertyChanged(AIndex);
  2956. end;
  2957. { --------------------------------------------------------------------
  2958. TVerifyPasswordResponse
  2959. --------------------------------------------------------------------}
  2960. Procedure TVerifyPasswordResponse.SetdisplayName(AIndex : Integer; const AValue : String);
  2961. begin
  2962. If (FdisplayName=AValue) then exit;
  2963. FdisplayName:=AValue;
  2964. MarkPropertyChanged(AIndex);
  2965. end;
  2966. Procedure TVerifyPasswordResponse.Setemail(AIndex : Integer; const AValue : String);
  2967. begin
  2968. If (Femail=AValue) then exit;
  2969. Femail:=AValue;
  2970. MarkPropertyChanged(AIndex);
  2971. end;
  2972. Procedure TVerifyPasswordResponse.SetexpiresIn(AIndex : Integer; const AValue : String);
  2973. begin
  2974. If (FexpiresIn=AValue) then exit;
  2975. FexpiresIn:=AValue;
  2976. MarkPropertyChanged(AIndex);
  2977. end;
  2978. Procedure TVerifyPasswordResponse.SetidToken(AIndex : Integer; const AValue : String);
  2979. begin
  2980. If (FidToken=AValue) then exit;
  2981. FidToken:=AValue;
  2982. MarkPropertyChanged(AIndex);
  2983. end;
  2984. Procedure TVerifyPasswordResponse.Setkind(AIndex : Integer; const AValue : String);
  2985. begin
  2986. If (Fkind=AValue) then exit;
  2987. Fkind:=AValue;
  2988. MarkPropertyChanged(AIndex);
  2989. end;
  2990. Procedure TVerifyPasswordResponse.SetlocalId(AIndex : Integer; const AValue : String);
  2991. begin
  2992. If (FlocalId=AValue) then exit;
  2993. FlocalId:=AValue;
  2994. MarkPropertyChanged(AIndex);
  2995. end;
  2996. Procedure TVerifyPasswordResponse.SetoauthAccessToken(AIndex : Integer; const AValue : String);
  2997. begin
  2998. If (FoauthAccessToken=AValue) then exit;
  2999. FoauthAccessToken:=AValue;
  3000. MarkPropertyChanged(AIndex);
  3001. end;
  3002. Procedure TVerifyPasswordResponse.SetoauthAuthorizationCode(AIndex : Integer; const AValue : String);
  3003. begin
  3004. If (FoauthAuthorizationCode=AValue) then exit;
  3005. FoauthAuthorizationCode:=AValue;
  3006. MarkPropertyChanged(AIndex);
  3007. end;
  3008. Procedure TVerifyPasswordResponse.SetoauthExpireIn(AIndex : Integer; const AValue : integer);
  3009. begin
  3010. If (FoauthExpireIn=AValue) then exit;
  3011. FoauthExpireIn:=AValue;
  3012. MarkPropertyChanged(AIndex);
  3013. end;
  3014. Procedure TVerifyPasswordResponse.SetphotoUrl(AIndex : Integer; const AValue : String);
  3015. begin
  3016. If (FphotoUrl=AValue) then exit;
  3017. FphotoUrl:=AValue;
  3018. MarkPropertyChanged(AIndex);
  3019. end;
  3020. Procedure TVerifyPasswordResponse.SetrefreshToken(AIndex : Integer; const AValue : String);
  3021. begin
  3022. If (FrefreshToken=AValue) then exit;
  3023. FrefreshToken:=AValue;
  3024. MarkPropertyChanged(AIndex);
  3025. end;
  3026. Procedure TVerifyPasswordResponse.Setregistered(AIndex : Integer; const AValue : boolean);
  3027. begin
  3028. If (Fregistered=AValue) then exit;
  3029. Fregistered:=AValue;
  3030. MarkPropertyChanged(AIndex);
  3031. end;
  3032. { --------------------------------------------------------------------
  3033. TRelyingpartyResource
  3034. --------------------------------------------------------------------}
  3035. Class Function TRelyingpartyResource.ResourceName : String;
  3036. begin
  3037. Result:='relyingparty';
  3038. end;
  3039. Class Function TRelyingpartyResource.DefaultAPI : TGoogleAPIClass;
  3040. begin
  3041. Result:=TidentitytoolkitAPI;
  3042. end;
  3043. Function TRelyingpartyResource.CreateAuthUri(aIdentitytoolkitRelyingpartyCreateAuthUriRequest : TIdentitytoolkitRelyingpartyCreateAuthUriRequest) : TCreateAuthUriResponse;
  3044. Const
  3045. _HTTPMethod = 'POST';
  3046. _Path = 'createAuthUri';
  3047. _Methodid = 'identitytoolkit.relyingparty.createAuthUri';
  3048. begin
  3049. Result:=ServiceCall(_HTTPMethod,_Path,'',aIdentitytoolkitRelyingpartyCreateAuthUriRequest,TCreateAuthUriResponse) as TCreateAuthUriResponse;
  3050. end;
  3051. Function TRelyingpartyResource.DeleteAccount(aIdentitytoolkitRelyingpartyDeleteAccountRequest : TIdentitytoolkitRelyingpartyDeleteAccountRequest) : TDeleteAccountResponse;
  3052. Const
  3053. _HTTPMethod = 'POST';
  3054. _Path = 'deleteAccount';
  3055. _Methodid = 'identitytoolkit.relyingparty.deleteAccount';
  3056. begin
  3057. Result:=ServiceCall(_HTTPMethod,_Path,'',aIdentitytoolkitRelyingpartyDeleteAccountRequest,TDeleteAccountResponse) as TDeleteAccountResponse;
  3058. end;
  3059. Function TRelyingpartyResource.DownloadAccount(aIdentitytoolkitRelyingpartyDownloadAccountRequest : TIdentitytoolkitRelyingpartyDownloadAccountRequest) : TDownloadAccountResponse;
  3060. Const
  3061. _HTTPMethod = 'POST';
  3062. _Path = 'downloadAccount';
  3063. _Methodid = 'identitytoolkit.relyingparty.downloadAccount';
  3064. begin
  3065. Result:=ServiceCall(_HTTPMethod,_Path,'',aIdentitytoolkitRelyingpartyDownloadAccountRequest,TDownloadAccountResponse) as TDownloadAccountResponse;
  3066. end;
  3067. Function TRelyingpartyResource.GetAccountInfo(aIdentitytoolkitRelyingpartyGetAccountInfoRequest : TIdentitytoolkitRelyingpartyGetAccountInfoRequest) : TGetAccountInfoResponse;
  3068. Const
  3069. _HTTPMethod = 'POST';
  3070. _Path = 'getAccountInfo';
  3071. _Methodid = 'identitytoolkit.relyingparty.getAccountInfo';
  3072. begin
  3073. Result:=ServiceCall(_HTTPMethod,_Path,'',aIdentitytoolkitRelyingpartyGetAccountInfoRequest,TGetAccountInfoResponse) as TGetAccountInfoResponse;
  3074. end;
  3075. Function TRelyingpartyResource.GetOobConfirmationCode(aRelyingparty : TRelyingparty) : TGetOobConfirmationCodeResponse;
  3076. Const
  3077. _HTTPMethod = 'POST';
  3078. _Path = 'getOobConfirmationCode';
  3079. _Methodid = 'identitytoolkit.relyingparty.getOobConfirmationCode';
  3080. begin
  3081. Result:=ServiceCall(_HTTPMethod,_Path,'',aRelyingparty,TGetOobConfirmationCodeResponse) as TGetOobConfirmationCodeResponse;
  3082. end;
  3083. Function TRelyingpartyResource.GetProjectConfig(AQuery : string = '') : TIdentitytoolkitRelyingpartyGetProjectConfigResponse;
  3084. Const
  3085. _HTTPMethod = 'GET';
  3086. _Path = 'getProjectConfig';
  3087. _Methodid = 'identitytoolkit.relyingparty.getProjectConfig';
  3088. begin
  3089. Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TIdentitytoolkitRelyingpartyGetProjectConfigResponse) as TIdentitytoolkitRelyingpartyGetProjectConfigResponse;
  3090. end;
  3091. Function TRelyingpartyResource.GetProjectConfig(AQuery : TRelyingpartygetProjectConfigOptions) : TIdentitytoolkitRelyingpartyGetProjectConfigResponse;
  3092. Var
  3093. _Q : String;
  3094. begin
  3095. _Q:='';
  3096. AddToQuery(_Q,'delegatedProjectNumber',AQuery.delegatedProjectNumber);
  3097. AddToQuery(_Q,'projectNumber',AQuery.projectNumber);
  3098. Result:=GetProjectConfig(_Q);
  3099. end;
  3100. Function TRelyingpartyResource.GetPublicKeys : TIdentitytoolkitRelyingpartyGetPublicKeysResponse;
  3101. Const
  3102. _HTTPMethod = 'GET';
  3103. _Path = 'publicKeys';
  3104. _Methodid = 'identitytoolkit.relyingparty.getPublicKeys';
  3105. begin
  3106. Result:=ServiceCall(_HTTPMethod,_Path,'',Nil,TIdentitytoolkitRelyingpartyGetPublicKeysResponse) as TIdentitytoolkitRelyingpartyGetPublicKeysResponse;
  3107. end;
  3108. Function TRelyingpartyResource.GetRecaptchaParam : TGetRecaptchaParamResponse;
  3109. Const
  3110. _HTTPMethod = 'GET';
  3111. _Path = 'getRecaptchaParam';
  3112. _Methodid = 'identitytoolkit.relyingparty.getRecaptchaParam';
  3113. begin
  3114. Result:=ServiceCall(_HTTPMethod,_Path,'',Nil,TGetRecaptchaParamResponse) as TGetRecaptchaParamResponse;
  3115. end;
  3116. Function TRelyingpartyResource.ResetPassword(aIdentitytoolkitRelyingpartyResetPasswordRequest : TIdentitytoolkitRelyingpartyResetPasswordRequest) : TResetPasswordResponse;
  3117. Const
  3118. _HTTPMethod = 'POST';
  3119. _Path = 'resetPassword';
  3120. _Methodid = 'identitytoolkit.relyingparty.resetPassword';
  3121. begin
  3122. Result:=ServiceCall(_HTTPMethod,_Path,'',aIdentitytoolkitRelyingpartyResetPasswordRequest,TResetPasswordResponse) as TResetPasswordResponse;
  3123. end;
  3124. Function TRelyingpartyResource.SetAccountInfo(aIdentitytoolkitRelyingpartySetAccountInfoRequest : TIdentitytoolkitRelyingpartySetAccountInfoRequest) : TSetAccountInfoResponse;
  3125. Const
  3126. _HTTPMethod = 'POST';
  3127. _Path = 'setAccountInfo';
  3128. _Methodid = 'identitytoolkit.relyingparty.setAccountInfo';
  3129. begin
  3130. Result:=ServiceCall(_HTTPMethod,_Path,'',aIdentitytoolkitRelyingpartySetAccountInfoRequest,TSetAccountInfoResponse) as TSetAccountInfoResponse;
  3131. end;
  3132. Function TRelyingpartyResource.SetProjectConfig(aIdentitytoolkitRelyingpartySetProjectConfigRequest : TIdentitytoolkitRelyingpartySetProjectConfigRequest) : TIdentitytoolkitRelyingpartySetProjectConfigResponse;
  3133. Const
  3134. _HTTPMethod = 'POST';
  3135. _Path = 'setProjectConfig';
  3136. _Methodid = 'identitytoolkit.relyingparty.setProjectConfig';
  3137. begin
  3138. Result:=ServiceCall(_HTTPMethod,_Path,'',aIdentitytoolkitRelyingpartySetProjectConfigRequest,TIdentitytoolkitRelyingpartySetProjectConfigResponse) as TIdentitytoolkitRelyingpartySetProjectConfigResponse;
  3139. end;
  3140. Function TRelyingpartyResource.SignOutUser(aIdentitytoolkitRelyingpartySignOutUserRequest : TIdentitytoolkitRelyingpartySignOutUserRequest) : TIdentitytoolkitRelyingpartySignOutUserResponse;
  3141. Const
  3142. _HTTPMethod = 'POST';
  3143. _Path = 'signOutUser';
  3144. _Methodid = 'identitytoolkit.relyingparty.signOutUser';
  3145. begin
  3146. Result:=ServiceCall(_HTTPMethod,_Path,'',aIdentitytoolkitRelyingpartySignOutUserRequest,TIdentitytoolkitRelyingpartySignOutUserResponse) as TIdentitytoolkitRelyingpartySignOutUserResponse;
  3147. end;
  3148. Function TRelyingpartyResource.SignupNewUser(aIdentitytoolkitRelyingpartySignupNewUserRequest : TIdentitytoolkitRelyingpartySignupNewUserRequest) : TSignupNewUserResponse;
  3149. Const
  3150. _HTTPMethod = 'POST';
  3151. _Path = 'signupNewUser';
  3152. _Methodid = 'identitytoolkit.relyingparty.signupNewUser';
  3153. begin
  3154. Result:=ServiceCall(_HTTPMethod,_Path,'',aIdentitytoolkitRelyingpartySignupNewUserRequest,TSignupNewUserResponse) as TSignupNewUserResponse;
  3155. end;
  3156. Function TRelyingpartyResource.UploadAccount(aIdentitytoolkitRelyingpartyUploadAccountRequest : TIdentitytoolkitRelyingpartyUploadAccountRequest) : TUploadAccountResponse;
  3157. Const
  3158. _HTTPMethod = 'POST';
  3159. _Path = 'uploadAccount';
  3160. _Methodid = 'identitytoolkit.relyingparty.uploadAccount';
  3161. begin
  3162. Result:=ServiceCall(_HTTPMethod,_Path,'',aIdentitytoolkitRelyingpartyUploadAccountRequest,TUploadAccountResponse) as TUploadAccountResponse;
  3163. end;
  3164. Function TRelyingpartyResource.VerifyAssertion(aIdentitytoolkitRelyingpartyVerifyAssertionRequest : TIdentitytoolkitRelyingpartyVerifyAssertionRequest) : TVerifyAssertionResponse;
  3165. Const
  3166. _HTTPMethod = 'POST';
  3167. _Path = 'verifyAssertion';
  3168. _Methodid = 'identitytoolkit.relyingparty.verifyAssertion';
  3169. begin
  3170. Result:=ServiceCall(_HTTPMethod,_Path,'',aIdentitytoolkitRelyingpartyVerifyAssertionRequest,TVerifyAssertionResponse) as TVerifyAssertionResponse;
  3171. end;
  3172. Function TRelyingpartyResource.VerifyCustomToken(aIdentitytoolkitRelyingpartyVerifyCustomTokenRequest : TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest) : TVerifyCustomTokenResponse;
  3173. Const
  3174. _HTTPMethod = 'POST';
  3175. _Path = 'verifyCustomToken';
  3176. _Methodid = 'identitytoolkit.relyingparty.verifyCustomToken';
  3177. begin
  3178. Result:=ServiceCall(_HTTPMethod,_Path,'',aIdentitytoolkitRelyingpartyVerifyCustomTokenRequest,TVerifyCustomTokenResponse) as TVerifyCustomTokenResponse;
  3179. end;
  3180. Function TRelyingpartyResource.VerifyPassword(aIdentitytoolkitRelyingpartyVerifyPasswordRequest : TIdentitytoolkitRelyingpartyVerifyPasswordRequest) : TVerifyPasswordResponse;
  3181. Const
  3182. _HTTPMethod = 'POST';
  3183. _Path = 'verifyPassword';
  3184. _Methodid = 'identitytoolkit.relyingparty.verifyPassword';
  3185. begin
  3186. Result:=ServiceCall(_HTTPMethod,_Path,'',aIdentitytoolkitRelyingpartyVerifyPasswordRequest,TVerifyPasswordResponse) as TVerifyPasswordResponse;
  3187. end;
  3188. { --------------------------------------------------------------------
  3189. TIdentitytoolkitAPI
  3190. --------------------------------------------------------------------}
  3191. Class Function TIdentitytoolkitAPI.APIName : String;
  3192. begin
  3193. Result:='identitytoolkit';
  3194. end;
  3195. Class Function TIdentitytoolkitAPI.APIVersion : String;
  3196. begin
  3197. Result:='v3';
  3198. end;
  3199. Class Function TIdentitytoolkitAPI.APIRevision : String;
  3200. begin
  3201. Result:='20160510';
  3202. end;
  3203. Class Function TIdentitytoolkitAPI.APIID : String;
  3204. begin
  3205. Result:='identitytoolkit:v3';
  3206. end;
  3207. Class Function TIdentitytoolkitAPI.APITitle : String;
  3208. begin
  3209. Result:='Google Identity Toolkit API';
  3210. end;
  3211. Class Function TIdentitytoolkitAPI.APIDescription : String;
  3212. begin
  3213. Result:='Help the third party sites to implement federated login.';
  3214. end;
  3215. Class Function TIdentitytoolkitAPI.APIOwnerDomain : String;
  3216. begin
  3217. Result:='google.com';
  3218. end;
  3219. Class Function TIdentitytoolkitAPI.APIOwnerName : String;
  3220. begin
  3221. Result:='Google';
  3222. end;
  3223. Class Function TIdentitytoolkitAPI.APIIcon16 : String;
  3224. begin
  3225. Result:='http://www.google.com/images/icons/product/search-16.gif';
  3226. end;
  3227. Class Function TIdentitytoolkitAPI.APIIcon32 : String;
  3228. begin
  3229. Result:='http://www.google.com/images/icons/product/search-32.gif';
  3230. end;
  3231. Class Function TIdentitytoolkitAPI.APIdocumentationLink : String;
  3232. begin
  3233. Result:='https://developers.google.com/identity-toolkit/v3/';
  3234. end;
  3235. Class Function TIdentitytoolkitAPI.APIrootUrl : string;
  3236. begin
  3237. Result:='https://www.googleapis.com/';
  3238. end;
  3239. Class Function TIdentitytoolkitAPI.APIbasePath : string;
  3240. begin
  3241. Result:='/identitytoolkit/v3/relyingparty/';
  3242. end;
  3243. Class Function TIdentitytoolkitAPI.APIbaseURL : String;
  3244. begin
  3245. Result:='https://www.googleapis.com/identitytoolkit/v3/relyingparty/';
  3246. end;
  3247. Class Function TIdentitytoolkitAPI.APIProtocol : string;
  3248. begin
  3249. Result:='rest';
  3250. end;
  3251. Class Function TIdentitytoolkitAPI.APIservicePath : string;
  3252. begin
  3253. Result:='identitytoolkit/v3/relyingparty/';
  3254. end;
  3255. Class Function TIdentitytoolkitAPI.APIbatchPath : String;
  3256. begin
  3257. Result:='batch';
  3258. end;
  3259. Class Function TIdentitytoolkitAPI.APIAuthScopes : TScopeInfoArray;
  3260. begin
  3261. SetLength(Result,0);
  3262. end;
  3263. Class Function TIdentitytoolkitAPI.APINeedsAuth : Boolean;
  3264. begin
  3265. Result:=False;
  3266. end;
  3267. Class Procedure TIdentitytoolkitAPI.RegisterAPIResources;
  3268. begin
  3269. TCreateAuthUriResponse.RegisterObject;
  3270. TDeleteAccountResponse.RegisterObject;
  3271. TDownloadAccountResponse.RegisterObject;
  3272. TEmailTemplate.RegisterObject;
  3273. TGetAccountInfoResponse.RegisterObject;
  3274. TGetOobConfirmationCodeResponse.RegisterObject;
  3275. TGetRecaptchaParamResponse.RegisterObject;
  3276. TIdentitytoolkitRelyingpartyCreateAuthUriRequest.RegisterObject;
  3277. TIdentitytoolkitRelyingpartyDeleteAccountRequest.RegisterObject;
  3278. TIdentitytoolkitRelyingpartyDownloadAccountRequest.RegisterObject;
  3279. TIdentitytoolkitRelyingpartyGetAccountInfoRequest.RegisterObject;
  3280. TIdentitytoolkitRelyingpartyGetProjectConfigResponse.RegisterObject;
  3281. TIdentitytoolkitRelyingpartyGetPublicKeysResponse.RegisterObject;
  3282. TIdentitytoolkitRelyingpartyResetPasswordRequest.RegisterObject;
  3283. TIdentitytoolkitRelyingpartySetAccountInfoRequest.RegisterObject;
  3284. TIdentitytoolkitRelyingpartySetProjectConfigRequest.RegisterObject;
  3285. TIdentitytoolkitRelyingpartySetProjectConfigResponse.RegisterObject;
  3286. TIdentitytoolkitRelyingpartySignOutUserRequest.RegisterObject;
  3287. TIdentitytoolkitRelyingpartySignOutUserResponse.RegisterObject;
  3288. TIdentitytoolkitRelyingpartySignupNewUserRequest.RegisterObject;
  3289. TIdentitytoolkitRelyingpartyUploadAccountRequest.RegisterObject;
  3290. TIdentitytoolkitRelyingpartyVerifyAssertionRequest.RegisterObject;
  3291. TIdentitytoolkitRelyingpartyVerifyCustomTokenRequest.RegisterObject;
  3292. TIdentitytoolkitRelyingpartyVerifyPasswordRequest.RegisterObject;
  3293. TIdpConfig.RegisterObject;
  3294. TRelyingparty.RegisterObject;
  3295. TResetPasswordResponse.RegisterObject;
  3296. TSetAccountInfoResponseTypeproviderUserInfoItem.RegisterObject;
  3297. TSetAccountInfoResponse.RegisterObject;
  3298. TSignupNewUserResponse.RegisterObject;
  3299. TUploadAccountResponseTypeerrorItem.RegisterObject;
  3300. TUploadAccountResponse.RegisterObject;
  3301. TUserInfoTypeproviderUserInfoItem.RegisterObject;
  3302. TUserInfo.RegisterObject;
  3303. TVerifyAssertionResponse.RegisterObject;
  3304. TVerifyCustomTokenResponse.RegisterObject;
  3305. TVerifyPasswordResponse.RegisterObject;
  3306. end;
  3307. Function TIdentitytoolkitAPI.GetRelyingpartyInstance : TRelyingpartyResource;
  3308. begin
  3309. if (FRelyingpartyInstance=Nil) then
  3310. FRelyingpartyInstance:=CreateRelyingpartyResource;
  3311. Result:=FRelyingpartyInstance;
  3312. end;
  3313. Function TIdentitytoolkitAPI.CreateRelyingpartyResource : TRelyingpartyResource;
  3314. begin
  3315. Result:=CreateRelyingpartyResource(Self);
  3316. end;
  3317. Function TIdentitytoolkitAPI.CreateRelyingpartyResource(AOwner : TComponent) : TRelyingpartyResource;
  3318. begin
  3319. Result:=TRelyingpartyResource.Create(AOwner);
  3320. Result.API:=Self.API;
  3321. end;
  3322. initialization
  3323. TIdentitytoolkitAPI.RegisterAPI;
  3324. end.