12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662366336643665366636673668366936703671367236733674367536763677367836793680368136823683368436853686368736883689369036913692369336943695369636973698369937003701370237033704370537063707370837093710371137123713371437153716371737183719372037213722372337243725372637273728372937303731373237333734373537363737373837393740374137423743374437453746374737483749375037513752375337543755375637573758375937603761376237633764376537663767376837693770377137723773377437753776377737783779378037813782378337843785378637873788378937903791379237933794379537963797379837993800380138023803380438053806380738083809381038113812381338143815381638173818381938203821382238233824382538263827382838293830383138323833383438353836383738383839384038413842384338443845384638473848384938503851385238533854385538563857385838593860386138623863386438653866386738683869387038713872387338743875387638773878387938803881388238833884388538863887388838893890389138923893389438953896389738983899390039013902390339043905390639073908390939103911391239133914391539163917391839193920392139223923392439253926392739283929393039313932393339343935393639373938393939403941394239433944394539463947394839493950395139523953395439553956395739583959396039613962396339643965396639673968396939703971397239733974397539763977397839793980398139823983398439853986398739883989399039913992399339943995399639973998399940004001400240034004400540064007400840094010401140124013401440154016401740184019402040214022402340244025402640274028402940304031403240334034403540364037403840394040404140424043404440454046404740484049405040514052405340544055405640574058405940604061406240634064406540664067406840694070407140724073407440754076407740784079408040814082408340844085408640874088408940904091409240934094409540964097409840994100410141024103410441054106410741084109411041114112411341144115411641174118411941204121412241234124412541264127412841294130413141324133413441354136413741384139414041414142414341444145414641474148414941504151415241534154415541564157415841594160416141624163416441654166416741684169417041714172417341744175417641774178417941804181418241834184418541864187418841894190419141924193419441954196419741984199420042014202420342044205420642074208420942104211421242134214421542164217421842194220422142224223422442254226422742284229423042314232423342344235423642374238423942404241424242434244424542464247424842494250425142524253425442554256425742584259426042614262426342644265426642674268426942704271427242734274427542764277427842794280428142824283428442854286428742884289429042914292429342944295429642974298429943004301430243034304430543064307430843094310431143124313431443154316431743184319432043214322432343244325432643274328432943304331433243334334433543364337433843394340434143424343434443454346434743484349435043514352435343544355435643574358435943604361436243634364436543664367436843694370437143724373437443754376437743784379438043814382438343844385438643874388438943904391439243934394439543964397439843994400440144024403440444054406440744084409441044114412441344144415441644174418441944204421442244234424442544264427442844294430443144324433443444354436443744384439444044414442444344444445444644474448444944504451445244534454445544564457445844594460446144624463446444654466446744684469447044714472447344744475447644774478447944804481448244834484448544864487448844894490449144924493449444954496449744984499450045014502450345044505450645074508450945104511451245134514451545164517451845194520452145224523452445254526452745284529453045314532453345344535453645374538453945404541454245434544454545464547454845494550455145524553455445554556455745584559456045614562456345644565456645674568456945704571457245734574457545764577457845794580458145824583458445854586458745884589459045914592459345944595459645974598459946004601460246034604460546064607460846094610461146124613461446154616461746184619462046214622462346244625462646274628462946304631463246334634463546364637463846394640464146424643464446454646464746484649465046514652465346544655465646574658465946604661466246634664466546664667466846694670467146724673467446754676467746784679468046814682468346844685468646874688468946904691469246934694469546964697469846994700470147024703470447054706470747084709471047114712471347144715471647174718471947204721472247234724472547264727472847294730473147324733473447354736473747384739474047414742474347444745474647474748474947504751475247534754475547564757475847594760476147624763476447654766476747684769477047714772477347744775477647774778477947804781478247834784478547864787478847894790479147924793479447954796479747984799480048014802480348044805480648074808480948104811481248134814481548164817481848194820482148224823482448254826482748284829483048314832483348344835483648374838483948404841484248434844484548464847484848494850485148524853485448554856485748584859486048614862486348644865486648674868486948704871487248734874487548764877487848794880488148824883488448854886488748884889489048914892489348944895489648974898489949004901490249034904490549064907490849094910491149124913491449154916491749184919492049214922492349244925492649274928492949304931493249334934493549364937493849394940494149424943494449454946494749484949495049514952495349544955495649574958495949604961496249634964496549664967496849694970497149724973497449754976497749784979498049814982498349844985498649874988498949904991499249934994499549964997499849995000500150025003500450055006500750085009501050115012501350145015501650175018501950205021502250235024502550265027502850295030503150325033503450355036503750385039504050415042504350445045504650475048504950505051505250535054505550565057505850595060506150625063506450655066506750685069507050715072507350745075507650775078507950805081508250835084508550865087508850895090509150925093509450955096509750985099510051015102510351045105510651075108510951105111511251135114511551165117511851195120512151225123512451255126512751285129513051315132513351345135513651375138513951405141514251435144514551465147514851495150515151525153515451555156515751585159516051615162516351645165516651675168516951705171517251735174517551765177517851795180518151825183518451855186518751885189519051915192519351945195519651975198519952005201520252035204520552065207520852095210521152125213521452155216521752185219522052215222522352245225522652275228522952305231523252335234523552365237523852395240524152425243524452455246524752485249525052515252525352545255525652575258525952605261526252635264526552665267526852695270527152725273527452755276527752785279528052815282528352845285528652875288528952905291529252935294529552965297529852995300530153025303530453055306530753085309531053115312531353145315531653175318531953205321532253235324532553265327532853295330533153325333533453355336533753385339534053415342534353445345534653475348534953505351535253535354535553565357535853595360536153625363536453655366536753685369537053715372537353745375537653775378537953805381538253835384538553865387538853895390539153925393539453955396539753985399540054015402540354045405540654075408540954105411541254135414541554165417541854195420542154225423542454255426542754285429543054315432543354345435543654375438543954405441544254435444544554465447544854495450545154525453545454555456545754585459546054615462546354645465546654675468546954705471547254735474547554765477547854795480548154825483548454855486548754885489549054915492549354945495549654975498549955005501550255035504550555065507550855095510551155125513551455155516551755185519552055215522552355245525552655275528552955305531553255335534553555365537553855395540554155425543554455455546554755485549555055515552555355545555555655575558555955605561556255635564556555665567556855695570557155725573557455755576557755785579558055815582558355845585558655875588558955905591559255935594559555965597559855995600560156025603560456055606560756085609561056115612561356145615561656175618561956205621562256235624562556265627562856295630563156325633563456355636563756385639564056415642564356445645564656475648564956505651565256535654565556565657565856595660566156625663566456655666566756685669567056715672567356745675567656775678567956805681568256835684568556865687568856895690569156925693569456955696569756985699570057015702570357045705570657075708570957105711571257135714571557165717571857195720572157225723572457255726572757285729573057315732573357345735573657375738573957405741574257435744574557465747574857495750575157525753575457555756575757585759576057615762576357645765576657675768576957705771577257735774577557765777577857795780578157825783578457855786578757885789579057915792579357945795579657975798579958005801580258035804580558065807580858095810581158125813581458155816581758185819582058215822582358245825582658275828582958305831583258335834583558365837583858395840584158425843584458455846584758485849585058515852585358545855585658575858585958605861586258635864586558665867586858695870587158725873587458755876587758785879588058815882588358845885588658875888588958905891589258935894589558965897589858995900590159025903590459055906590759085909591059115912591359145915591659175918591959205921592259235924592559265927592859295930593159325933593459355936593759385939594059415942594359445945594659475948594959505951595259535954595559565957595859595960596159625963596459655966596759685969597059715972597359745975597659775978597959805981598259835984598559865987598859895990599159925993599459955996599759985999600060016002600360046005600660076008600960106011601260136014601560166017601860196020602160226023602460256026602760286029603060316032603360346035603660376038603960406041604260436044604560466047604860496050605160526053605460556056605760586059606060616062606360646065606660676068606960706071607260736074607560766077607860796080608160826083608460856086608760886089609060916092609360946095609660976098609961006101610261036104610561066107610861096110611161126113611461156116611761186119612061216122612361246125612661276128612961306131613261336134613561366137613861396140614161426143614461456146614761486149615061516152615361546155615661576158615961606161616261636164616561666167616861696170617161726173617461756176617761786179618061816182618361846185618661876188618961906191619261936194619561966197619861996200620162026203620462056206620762086209621062116212621362146215621662176218621962206221622262236224622562266227622862296230623162326233623462356236623762386239624062416242624362446245624662476248624962506251625262536254625562566257625862596260626162626263626462656266626762686269627062716272627362746275627662776278627962806281628262836284628562866287628862896290629162926293629462956296629762986299630063016302630363046305630663076308630963106311631263136314631563166317631863196320632163226323632463256326632763286329633063316332633363346335633663376338633963406341634263436344634563466347634863496350635163526353635463556356635763586359636063616362636363646365636663676368636963706371637263736374637563766377637863796380638163826383638463856386 |
- unit googleplusDomains;
- {$MODE objfpc}
- {$H+}
- interface
- uses sysutils, classes, googleservice, restbase, googlebase;
- type
-
- //Top-level schema types
- TAcl = Class;
- TActivity = Class;
- TActivityFeed = Class;
- TAudience = Class;
- TAudiencesFeed = Class;
- TCircle = Class;
- TCircleFeed = Class;
- TComment = Class;
- TCommentFeed = Class;
- TMedia = Class;
- TPeopleFeed = Class;
- TPerson = Class;
- TPlace = Class;
- TPlusDomainsAclentryResource = Class;
- TVideostream = Class;
- TAclArray = Array of TAcl;
- TActivityArray = Array of TActivity;
- TActivityFeedArray = Array of TActivityFeed;
- TAudienceArray = Array of TAudience;
- TAudiencesFeedArray = Array of TAudiencesFeed;
- TCircleArray = Array of TCircle;
- TCircleFeedArray = Array of TCircleFeed;
- TCommentArray = Array of TComment;
- TCommentFeedArray = Array of TCommentFeed;
- TMediaArray = Array of TMedia;
- TPeopleFeedArray = Array of TPeopleFeed;
- TPersonArray = Array of TPerson;
- TPlaceArray = Array of TPlace;
- TPlusDomainsAclentryResourceArray = Array of TPlusDomainsAclentryResource;
- TVideostreamArray = Array of TVideostream;
- //Anonymous types, using auto-generated names
- TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class;
- TActivityTypeactorTypeclientSpecificActorInfo = Class;
- TActivityTypeactorTypeimage = Class;
- TActivityTypeactorTypename = Class;
- TActivityTypeactorTypeverification = Class;
- TActivityTypeactor = Class;
- TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class;
- TActivityTypeobjectTypeactorTypeclientSpecificActorInfo = Class;
- TActivityTypeobjectTypeactorTypeimage = Class;
- TActivityTypeobjectTypeactorTypeverification = Class;
- TActivityTypeobjectTypeactor = Class;
- TActivityTypeobjectTypeattachmentsItemTypeembed = Class;
- TActivityTypeobjectTypeattachmentsItemTypefullImage = Class;
- TActivityTypeobjectTypeattachmentsItemTypeimage = Class;
- TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsItem = Class;
- TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage = Class;
- TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem = Class;
- TActivityTypeobjectTypeattachmentsItem = Class;
- TActivityTypeobjectTypeplusoners = Class;
- TActivityTypeobjectTypereplies = Class;
- TActivityTypeobjectTyperesharers = Class;
- TActivityTypeobjectTypestatusForViewer = Class;
- TActivityTypeobject = Class;
- TActivityTypeprovider = Class;
- TCircleTypepeople = Class;
- TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class;
- TCommentTypeactorTypeclientSpecificActorInfo = Class;
- TCommentTypeactorTypeimage = Class;
- TCommentTypeactorTypeverification = Class;
- TCommentTypeactor = Class;
- TCommentTypeinReplyToItem = Class;
- TCommentTypeobject = Class;
- TCommentTypeplusoners = Class;
- TMediaTypeauthorTypeimage = Class;
- TMediaTypeauthor = Class;
- TMediaTypeexif = Class;
- TPersonTypecoverTypecoverInfo = Class;
- TPersonTypecoverTypecoverPhoto = Class;
- TPersonTypecover = Class;
- TPersonTypeemailsItem = Class;
- TPersonTypeimage = Class;
- TPersonTypename = Class;
- TPersonTypeorganizationsItem = Class;
- TPersonTypeplacesLivedItem = Class;
- TPersonTypeurlsItem = Class;
- TPlaceTypeaddress = Class;
- TPlaceTypeposition = Class;
- TAclTypeitemsArray = Array of TPlusDomainsAclentryResource;
- TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsArray = Array of TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsItem;
- TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray = Array of TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem;
- TActivityTypeobjectTypeattachmentsArray = Array of TActivityTypeobjectTypeattachmentsItem;
- TActivityFeedTypeitemsArray = Array of TActivity;
- TAudiencesFeedTypeitemsArray = Array of TAudience;
- TCircleFeedTypeitemsArray = Array of TCircle;
- TCommentTypeinReplyToArray = Array of TCommentTypeinReplyToItem;
- TCommentFeedTypeitemsArray = Array of TComment;
- TMediaTypestreamsArray = Array of TVideostream;
- TPeopleFeedTypeitemsArray = Array of TPerson;
- TPersonTypeemailsArray = Array of TPersonTypeemailsItem;
- TPersonTypeorganizationsArray = Array of TPersonTypeorganizationsItem;
- TPersonTypeplacesLivedArray = Array of TPersonTypeplacesLivedItem;
- TPersonTypeurlsArray = Array of TPersonTypeurlsItem;
-
- { --------------------------------------------------------------------
- TAcl
- --------------------------------------------------------------------}
-
- TAcl = Class(TGoogleBaseObject)
- Private
- Fdescription : String;
- FdomainRestricted : boolean;
- Fitems : TAclTypeitemsArray;
- Fkind : String;
- Protected
- //Property setters
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdomainRestricted(AIndex : Integer; const AValue : boolean); virtual;
- Procedure Setitems(AIndex : Integer; const AValue : TAclTypeitemsArray); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property description : String Index 0 Read Fdescription Write Setdescription;
- Property domainRestricted : boolean Index 8 Read FdomainRestricted Write SetdomainRestricted;
- Property items : TAclTypeitemsArray Index 16 Read Fitems Write Setitems;
- Property kind : String Index 24 Read Fkind Write Setkind;
- end;
- TAclClass = Class of TAcl;
-
- { --------------------------------------------------------------------
- TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo
- --------------------------------------------------------------------}
-
- TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class(TGoogleBaseObject)
- Private
- FchannelId : String;
- Protected
- //Property setters
- Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property channelId : String Index 0 Read FchannelId Write SetchannelId;
- end;
- TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfoClass = Class of TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo;
-
- { --------------------------------------------------------------------
- TActivityTypeactorTypeclientSpecificActorInfo
- --------------------------------------------------------------------}
-
- TActivityTypeactorTypeclientSpecificActorInfo = Class(TGoogleBaseObject)
- Private
- FyoutubeActorInfo : TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo;
- Protected
- //Property setters
- Procedure SetyoutubeActorInfo(AIndex : Integer; const AValue : TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo); virtual;
- Public
- Published
- Property youtubeActorInfo : TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo Index 0 Read FyoutubeActorInfo Write SetyoutubeActorInfo;
- end;
- TActivityTypeactorTypeclientSpecificActorInfoClass = Class of TActivityTypeactorTypeclientSpecificActorInfo;
-
- { --------------------------------------------------------------------
- TActivityTypeactorTypeimage
- --------------------------------------------------------------------}
-
- TActivityTypeactorTypeimage = Class(TGoogleBaseObject)
- Private
- Furl : String;
- Protected
- //Property setters
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property url : String Index 0 Read Furl Write Seturl;
- end;
- TActivityTypeactorTypeimageClass = Class of TActivityTypeactorTypeimage;
-
- { --------------------------------------------------------------------
- TActivityTypeactorTypename
- --------------------------------------------------------------------}
-
- TActivityTypeactorTypename = Class(TGoogleBaseObject)
- Private
- FfamilyName : String;
- FgivenName : String;
- Protected
- //Property setters
- Procedure SetfamilyName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetgivenName(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property familyName : String Index 0 Read FfamilyName Write SetfamilyName;
- Property givenName : String Index 8 Read FgivenName Write SetgivenName;
- end;
- TActivityTypeactorTypenameClass = Class of TActivityTypeactorTypename;
-
- { --------------------------------------------------------------------
- TActivityTypeactorTypeverification
- --------------------------------------------------------------------}
-
- TActivityTypeactorTypeverification = Class(TGoogleBaseObject)
- Private
- FadHocVerified : String;
- Protected
- //Property setters
- Procedure SetadHocVerified(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property adHocVerified : String Index 0 Read FadHocVerified Write SetadHocVerified;
- end;
- TActivityTypeactorTypeverificationClass = Class of TActivityTypeactorTypeverification;
-
- { --------------------------------------------------------------------
- TActivityTypeactor
- --------------------------------------------------------------------}
-
- TActivityTypeactor = Class(TGoogleBaseObject)
- Private
- FclientSpecificActorInfo : TActivityTypeactorTypeclientSpecificActorInfo;
- FdisplayName : String;
- Fid : String;
- Fimage : TActivityTypeactorTypeimage;
- Fname : TActivityTypeactorTypename;
- Furl : String;
- Fverification : TActivityTypeactorTypeverification;
- Protected
- //Property setters
- Procedure SetclientSpecificActorInfo(AIndex : Integer; const AValue : TActivityTypeactorTypeclientSpecificActorInfo); virtual;
- Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; const AValue : TActivityTypeactorTypeimage); virtual;
- Procedure Setname(AIndex : Integer; const AValue : TActivityTypeactorTypename); virtual;
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setverification(AIndex : Integer; const AValue : TActivityTypeactorTypeverification); virtual;
- Public
- Published
- Property clientSpecificActorInfo : TActivityTypeactorTypeclientSpecificActorInfo Index 0 Read FclientSpecificActorInfo Write SetclientSpecificActorInfo;
- Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
- Property id : String Index 16 Read Fid Write Setid;
- Property image : TActivityTypeactorTypeimage Index 24 Read Fimage Write Setimage;
- Property name : TActivityTypeactorTypename Index 32 Read Fname Write Setname;
- Property url : String Index 40 Read Furl Write Seturl;
- Property verification : TActivityTypeactorTypeverification Index 48 Read Fverification Write Setverification;
- end;
- TActivityTypeactorClass = Class of TActivityTypeactor;
-
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo
- --------------------------------------------------------------------}
-
- TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class(TGoogleBaseObject)
- Private
- FchannelId : String;
- Protected
- //Property setters
- Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property channelId : String Index 0 Read FchannelId Write SetchannelId;
- end;
- TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfoClass = Class of TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo;
-
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeactorTypeclientSpecificActorInfo
- --------------------------------------------------------------------}
-
- TActivityTypeobjectTypeactorTypeclientSpecificActorInfo = Class(TGoogleBaseObject)
- Private
- FyoutubeActorInfo : TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo;
- Protected
- //Property setters
- Procedure SetyoutubeActorInfo(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo); virtual;
- Public
- Published
- Property youtubeActorInfo : TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo Index 0 Read FyoutubeActorInfo Write SetyoutubeActorInfo;
- end;
- TActivityTypeobjectTypeactorTypeclientSpecificActorInfoClass = Class of TActivityTypeobjectTypeactorTypeclientSpecificActorInfo;
-
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeactorTypeimage
- --------------------------------------------------------------------}
-
- TActivityTypeobjectTypeactorTypeimage = Class(TGoogleBaseObject)
- Private
- Furl : String;
- Protected
- //Property setters
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property url : String Index 0 Read Furl Write Seturl;
- end;
- TActivityTypeobjectTypeactorTypeimageClass = Class of TActivityTypeobjectTypeactorTypeimage;
-
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeactorTypeverification
- --------------------------------------------------------------------}
-
- TActivityTypeobjectTypeactorTypeverification = Class(TGoogleBaseObject)
- Private
- FadHocVerified : String;
- Protected
- //Property setters
- Procedure SetadHocVerified(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property adHocVerified : String Index 0 Read FadHocVerified Write SetadHocVerified;
- end;
- TActivityTypeobjectTypeactorTypeverificationClass = Class of TActivityTypeobjectTypeactorTypeverification;
-
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeactor
- --------------------------------------------------------------------}
-
- TActivityTypeobjectTypeactor = Class(TGoogleBaseObject)
- Private
- FclientSpecificActorInfo : TActivityTypeobjectTypeactorTypeclientSpecificActorInfo;
- FdisplayName : String;
- Fid : String;
- Fimage : TActivityTypeobjectTypeactorTypeimage;
- Furl : String;
- Fverification : TActivityTypeobjectTypeactorTypeverification;
- Protected
- //Property setters
- Procedure SetclientSpecificActorInfo(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeclientSpecificActorInfo); virtual;
- Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeimage); virtual;
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setverification(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeverification); virtual;
- Public
- Published
- Property clientSpecificActorInfo : TActivityTypeobjectTypeactorTypeclientSpecificActorInfo Index 0 Read FclientSpecificActorInfo Write SetclientSpecificActorInfo;
- Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
- Property id : String Index 16 Read Fid Write Setid;
- Property image : TActivityTypeobjectTypeactorTypeimage Index 24 Read Fimage Write Setimage;
- Property url : String Index 32 Read Furl Write Seturl;
- Property verification : TActivityTypeobjectTypeactorTypeverification Index 40 Read Fverification Write Setverification;
- end;
- TActivityTypeobjectTypeactorClass = Class of TActivityTypeobjectTypeactor;
-
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeattachmentsItemTypeembed
- --------------------------------------------------------------------}
-
- TActivityTypeobjectTypeattachmentsItemTypeembed = Class(TGoogleBaseObject)
- Private
- F_type : String;
- Furl : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property _type : String Index 0 Read F_type Write Set_type;
- Property url : String Index 8 Read Furl Write Seturl;
- end;
- TActivityTypeobjectTypeattachmentsItemTypeembedClass = Class of TActivityTypeobjectTypeattachmentsItemTypeembed;
-
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeattachmentsItemTypefullImage
- --------------------------------------------------------------------}
-
- TActivityTypeobjectTypeattachmentsItemTypefullImage = Class(TGoogleBaseObject)
- Private
- Fheight : integer;
- F_type : String;
- Furl : String;
- Fwidth : integer;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
- Public
- Published
- Property height : integer Index 0 Read Fheight Write Setheight;
- Property _type : String Index 8 Read F_type Write Set_type;
- Property url : String Index 16 Read Furl Write Seturl;
- Property width : integer Index 24 Read Fwidth Write Setwidth;
- end;
- TActivityTypeobjectTypeattachmentsItemTypefullImageClass = Class of TActivityTypeobjectTypeattachmentsItemTypefullImage;
-
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeattachmentsItemTypeimage
- --------------------------------------------------------------------}
-
- TActivityTypeobjectTypeattachmentsItemTypeimage = Class(TGoogleBaseObject)
- Private
- Fheight : integer;
- F_type : String;
- Furl : String;
- Fwidth : integer;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
- Public
- Published
- Property height : integer Index 0 Read Fheight Write Setheight;
- Property _type : String Index 8 Read F_type Write Set_type;
- Property url : String Index 16 Read Furl Write Seturl;
- Property width : integer Index 24 Read Fwidth Write Setwidth;
- end;
- TActivityTypeobjectTypeattachmentsItemTypeimageClass = Class of TActivityTypeobjectTypeattachmentsItemTypeimage;
-
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsItem
- --------------------------------------------------------------------}
-
- TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsItem = Class(TGoogleBaseObject)
- Private
- Furl : String;
- Protected
- //Property setters
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property url : String Index 0 Read Furl Write Seturl;
- end;
- TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsItemClass = Class of TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsItem;
-
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage
- --------------------------------------------------------------------}
-
- TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage = Class(TGoogleBaseObject)
- Private
- Fheight : integer;
- F_type : String;
- Furl : String;
- Fwidth : integer;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
- Public
- Published
- Property height : integer Index 0 Read Fheight Write Setheight;
- Property _type : String Index 8 Read F_type Write Set_type;
- Property url : String Index 16 Read Furl Write Seturl;
- Property width : integer Index 24 Read Fwidth Write Setwidth;
- end;
- TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimageClass = Class of TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage;
-
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem
- --------------------------------------------------------------------}
-
- TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem = Class(TGoogleBaseObject)
- Private
- Fdescription : String;
- Fimage : TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage;
- Furl : String;
- Protected
- //Property setters
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage); virtual;
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property description : String Index 0 Read Fdescription Write Setdescription;
- Property image : TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage Index 8 Read Fimage Write Setimage;
- Property url : String Index 16 Read Furl Write Seturl;
- end;
- TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemClass = Class of TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem;
-
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeattachmentsItem
- --------------------------------------------------------------------}
-
- TActivityTypeobjectTypeattachmentsItem = Class(TGoogleBaseObject)
- Private
- Fcontent : String;
- FdisplayName : String;
- Fembed : TActivityTypeobjectTypeattachmentsItemTypeembed;
- FfullImage : TActivityTypeobjectTypeattachmentsItemTypefullImage;
- Fid : String;
- Fimage : TActivityTypeobjectTypeattachmentsItemTypeimage;
- FobjectType : String;
- FpreviewThumbnails : TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsArray;
- Fthumbnails : TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray;
- Furl : String;
- Protected
- //Property setters
- Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setembed(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypeembed); virtual;
- Procedure SetfullImage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypefullImage); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypeimage); virtual;
- Procedure SetobjectType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpreviewThumbnails(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsArray); virtual;
- Procedure Setthumbnails(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray); virtual;
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property content : String Index 0 Read Fcontent Write Setcontent;
- Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
- Property embed : TActivityTypeobjectTypeattachmentsItemTypeembed Index 16 Read Fembed Write Setembed;
- Property fullImage : TActivityTypeobjectTypeattachmentsItemTypefullImage Index 24 Read FfullImage Write SetfullImage;
- Property id : String Index 32 Read Fid Write Setid;
- Property image : TActivityTypeobjectTypeattachmentsItemTypeimage Index 40 Read Fimage Write Setimage;
- Property objectType : String Index 48 Read FobjectType Write SetobjectType;
- Property previewThumbnails : TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsArray Index 56 Read FpreviewThumbnails Write SetpreviewThumbnails;
- Property thumbnails : TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray Index 64 Read Fthumbnails Write Setthumbnails;
- Property url : String Index 72 Read Furl Write Seturl;
- end;
- TActivityTypeobjectTypeattachmentsItemClass = Class of TActivityTypeobjectTypeattachmentsItem;
-
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeplusoners
- --------------------------------------------------------------------}
-
- TActivityTypeobjectTypeplusoners = Class(TGoogleBaseObject)
- Private
- FselfLink : String;
- FtotalItems : integer;
- Protected
- //Property setters
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
- Public
- Published
- Property selfLink : String Index 0 Read FselfLink Write SetselfLink;
- Property totalItems : integer Index 8 Read FtotalItems Write SettotalItems;
- end;
- TActivityTypeobjectTypeplusonersClass = Class of TActivityTypeobjectTypeplusoners;
-
- { --------------------------------------------------------------------
- TActivityTypeobjectTypereplies
- --------------------------------------------------------------------}
-
- TActivityTypeobjectTypereplies = Class(TGoogleBaseObject)
- Private
- FselfLink : String;
- FtotalItems : integer;
- Protected
- //Property setters
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
- Public
- Published
- Property selfLink : String Index 0 Read FselfLink Write SetselfLink;
- Property totalItems : integer Index 8 Read FtotalItems Write SettotalItems;
- end;
- TActivityTypeobjectTyperepliesClass = Class of TActivityTypeobjectTypereplies;
-
- { --------------------------------------------------------------------
- TActivityTypeobjectTyperesharers
- --------------------------------------------------------------------}
-
- TActivityTypeobjectTyperesharers = Class(TGoogleBaseObject)
- Private
- FselfLink : String;
- FtotalItems : integer;
- Protected
- //Property setters
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
- Public
- Published
- Property selfLink : String Index 0 Read FselfLink Write SetselfLink;
- Property totalItems : integer Index 8 Read FtotalItems Write SettotalItems;
- end;
- TActivityTypeobjectTyperesharersClass = Class of TActivityTypeobjectTyperesharers;
-
- { --------------------------------------------------------------------
- TActivityTypeobjectTypestatusForViewer
- --------------------------------------------------------------------}
-
- TActivityTypeobjectTypestatusForViewer = Class(TGoogleBaseObject)
- Private
- FcanComment : boolean;
- FcanPlusone : boolean;
- FcanUpdate : boolean;
- FisPlusOned : boolean;
- FresharingDisabled : boolean;
- Protected
- //Property setters
- Procedure SetcanComment(AIndex : Integer; const AValue : boolean); virtual;
- Procedure SetcanPlusone(AIndex : Integer; const AValue : boolean); virtual;
- Procedure SetcanUpdate(AIndex : Integer; const AValue : boolean); virtual;
- Procedure SetisPlusOned(AIndex : Integer; const AValue : boolean); virtual;
- Procedure SetresharingDisabled(AIndex : Integer; const AValue : boolean); virtual;
- Public
- Published
- Property canComment : boolean Index 0 Read FcanComment Write SetcanComment;
- Property canPlusone : boolean Index 8 Read FcanPlusone Write SetcanPlusone;
- Property canUpdate : boolean Index 16 Read FcanUpdate Write SetcanUpdate;
- Property isPlusOned : boolean Index 24 Read FisPlusOned Write SetisPlusOned;
- Property resharingDisabled : boolean Index 32 Read FresharingDisabled Write SetresharingDisabled;
- end;
- TActivityTypeobjectTypestatusForViewerClass = Class of TActivityTypeobjectTypestatusForViewer;
-
- { --------------------------------------------------------------------
- TActivityTypeobject
- --------------------------------------------------------------------}
-
- TActivityTypeobject = Class(TGoogleBaseObject)
- Private
- Factor : TActivityTypeobjectTypeactor;
- Fattachments : TActivityTypeobjectTypeattachmentsArray;
- Fcontent : String;
- Fid : String;
- FobjectType : String;
- ForiginalContent : String;
- Fplusoners : TActivityTypeobjectTypeplusoners;
- Freplies : TActivityTypeobjectTypereplies;
- Fresharers : TActivityTypeobjectTyperesharers;
- FstatusForViewer : TActivityTypeobjectTypestatusForViewer;
- Furl : String;
- Protected
- //Property setters
- Procedure Setactor(AIndex : Integer; const AValue : TActivityTypeobjectTypeactor); virtual;
- Procedure Setattachments(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsArray); virtual;
- Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetobjectType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetoriginalContent(AIndex : Integer; const AValue : String); virtual;
- Procedure Setplusoners(AIndex : Integer; const AValue : TActivityTypeobjectTypeplusoners); virtual;
- Procedure Setreplies(AIndex : Integer; const AValue : TActivityTypeobjectTypereplies); virtual;
- Procedure Setresharers(AIndex : Integer; const AValue : TActivityTypeobjectTyperesharers); virtual;
- Procedure SetstatusForViewer(AIndex : Integer; const AValue : TActivityTypeobjectTypestatusForViewer); virtual;
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property actor : TActivityTypeobjectTypeactor Index 0 Read Factor Write Setactor;
- Property attachments : TActivityTypeobjectTypeattachmentsArray Index 8 Read Fattachments Write Setattachments;
- Property content : String Index 16 Read Fcontent Write Setcontent;
- Property id : String Index 24 Read Fid Write Setid;
- Property objectType : String Index 32 Read FobjectType Write SetobjectType;
- Property originalContent : String Index 40 Read ForiginalContent Write SetoriginalContent;
- Property plusoners : TActivityTypeobjectTypeplusoners Index 48 Read Fplusoners Write Setplusoners;
- Property replies : TActivityTypeobjectTypereplies Index 56 Read Freplies Write Setreplies;
- Property resharers : TActivityTypeobjectTyperesharers Index 64 Read Fresharers Write Setresharers;
- Property statusForViewer : TActivityTypeobjectTypestatusForViewer Index 72 Read FstatusForViewer Write SetstatusForViewer;
- Property url : String Index 80 Read Furl Write Seturl;
- end;
- TActivityTypeobjectClass = Class of TActivityTypeobject;
-
- { --------------------------------------------------------------------
- TActivityTypeprovider
- --------------------------------------------------------------------}
-
- TActivityTypeprovider = Class(TGoogleBaseObject)
- Private
- Ftitle : String;
- Protected
- //Property setters
- Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property title : String Index 0 Read Ftitle Write Settitle;
- end;
- TActivityTypeproviderClass = Class of TActivityTypeprovider;
-
- { --------------------------------------------------------------------
- TActivity
- --------------------------------------------------------------------}
-
- TActivity = Class(TGoogleBaseObject)
- Private
- Faccess : TAcl;
- Factor : TActivityTypeactor;
- Faddress : String;
- Fannotation : String;
- FcrosspostSource : String;
- Fetag : String;
- Fgeocode : String;
- Fid : String;
- Fkind : String;
- Flocation : TPlace;
- F_object : TActivityTypeobject;
- FplaceId : String;
- FplaceName : String;
- Fprovider : TActivityTypeprovider;
- F_published : TDatetime;
- Fradius : String;
- Ftitle : String;
- Fupdated : TDatetime;
- Furl : String;
- Fverb : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setaccess(AIndex : Integer; const AValue : TAcl); virtual;
- Procedure Setactor(AIndex : Integer; const AValue : TActivityTypeactor); virtual;
- Procedure Setaddress(AIndex : Integer; const AValue : String); virtual;
- Procedure Setannotation(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcrosspostSource(AIndex : Integer; const AValue : String); virtual;
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setgeocode(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlocation(AIndex : Integer; const AValue : TPlace); virtual;
- Procedure Set_object(AIndex : Integer; const AValue : TActivityTypeobject); virtual;
- Procedure SetplaceId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetplaceName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprovider(AIndex : Integer; const AValue : TActivityTypeprovider); virtual;
- Procedure Set_published(AIndex : Integer; const AValue : TDatetime); virtual;
- Procedure Setradius(AIndex : Integer; const AValue : String); virtual;
- Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setverb(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property access : TAcl Index 0 Read Faccess Write Setaccess;
- Property actor : TActivityTypeactor Index 8 Read Factor Write Setactor;
- Property address : String Index 16 Read Faddress Write Setaddress;
- Property annotation : String Index 24 Read Fannotation Write Setannotation;
- Property crosspostSource : String Index 32 Read FcrosspostSource Write SetcrosspostSource;
- Property etag : String Index 40 Read Fetag Write Setetag;
- Property geocode : String Index 48 Read Fgeocode Write Setgeocode;
- Property id : String Index 56 Read Fid Write Setid;
- Property kind : String Index 64 Read Fkind Write Setkind;
- Property location : TPlace Index 72 Read Flocation Write Setlocation;
- Property _object : TActivityTypeobject Index 80 Read F_object Write Set_object;
- Property placeId : String Index 88 Read FplaceId Write SetplaceId;
- Property placeName : String Index 96 Read FplaceName Write SetplaceName;
- Property provider : TActivityTypeprovider Index 104 Read Fprovider Write Setprovider;
- Property _published : TDatetime Index 112 Read F_published Write Set_published;
- Property radius : String Index 120 Read Fradius Write Setradius;
- Property title : String Index 128 Read Ftitle Write Settitle;
- Property updated : TDatetime Index 136 Read Fupdated Write Setupdated;
- Property url : String Index 144 Read Furl Write Seturl;
- Property verb : String Index 152 Read Fverb Write Setverb;
- end;
- TActivityClass = Class of TActivity;
-
- { --------------------------------------------------------------------
- TActivityFeed
- --------------------------------------------------------------------}
-
- TActivityFeed = Class(TGoogleBaseObject)
- Private
- Fetag : String;
- Fid : String;
- Fitems : TActivityFeedTypeitemsArray;
- Fkind : String;
- FnextLink : String;
- FnextPageToken : String;
- FselfLink : String;
- Ftitle : String;
- Fupdated : TDatetime;
- Protected
- //Property setters
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; const AValue : TActivityFeedTypeitemsArray); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property etag : String Index 0 Read Fetag Write Setetag;
- Property id : String Index 8 Read Fid Write Setid;
- Property items : TActivityFeedTypeitemsArray Index 16 Read Fitems Write Setitems;
- Property kind : String Index 24 Read Fkind Write Setkind;
- Property nextLink : String Index 32 Read FnextLink Write SetnextLink;
- Property nextPageToken : String Index 40 Read FnextPageToken Write SetnextPageToken;
- Property selfLink : String Index 48 Read FselfLink Write SetselfLink;
- Property title : String Index 56 Read Ftitle Write Settitle;
- Property updated : TDatetime Index 64 Read Fupdated Write Setupdated;
- end;
- TActivityFeedClass = Class of TActivityFeed;
-
- { --------------------------------------------------------------------
- TAudience
- --------------------------------------------------------------------}
-
- TAudience = Class(TGoogleBaseObject)
- Private
- Fetag : String;
- Fitem : TPlusDomainsAclentryResource;
- Fkind : String;
- FmemberCount : integer;
- Fvisibility : String;
- Protected
- //Property setters
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitem(AIndex : Integer; const AValue : TPlusDomainsAclentryResource); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmemberCount(AIndex : Integer; const AValue : integer); virtual;
- Procedure Setvisibility(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property etag : String Index 0 Read Fetag Write Setetag;
- Property item : TPlusDomainsAclentryResource Index 8 Read Fitem Write Setitem;
- Property kind : String Index 16 Read Fkind Write Setkind;
- Property memberCount : integer Index 24 Read FmemberCount Write SetmemberCount;
- Property visibility : String Index 32 Read Fvisibility Write Setvisibility;
- end;
- TAudienceClass = Class of TAudience;
-
- { --------------------------------------------------------------------
- TAudiencesFeed
- --------------------------------------------------------------------}
-
- TAudiencesFeed = Class(TGoogleBaseObject)
- Private
- Fetag : String;
- Fitems : TAudiencesFeedTypeitemsArray;
- Fkind : String;
- FnextPageToken : String;
- FtotalItems : integer;
- Protected
- //Property setters
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; const AValue : TAudiencesFeedTypeitemsArray); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property etag : String Index 0 Read Fetag Write Setetag;
- Property items : TAudiencesFeedTypeitemsArray Index 8 Read Fitems Write Setitems;
- Property kind : String Index 16 Read Fkind Write Setkind;
- Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
- Property totalItems : integer Index 32 Read FtotalItems Write SettotalItems;
- end;
- TAudiencesFeedClass = Class of TAudiencesFeed;
-
- { --------------------------------------------------------------------
- TCircleTypepeople
- --------------------------------------------------------------------}
-
- TCircleTypepeople = Class(TGoogleBaseObject)
- Private
- FtotalItems : integer;
- Protected
- //Property setters
- Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
- Public
- Published
- Property totalItems : integer Index 0 Read FtotalItems Write SettotalItems;
- end;
- TCircleTypepeopleClass = Class of TCircleTypepeople;
-
- { --------------------------------------------------------------------
- TCircle
- --------------------------------------------------------------------}
-
- TCircle = Class(TGoogleBaseObject)
- Private
- Fdescription : String;
- FdisplayName : String;
- Fetag : String;
- Fid : String;
- Fkind : String;
- Fpeople : TCircleTypepeople;
- FselfLink : String;
- Protected
- //Property setters
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setpeople(AIndex : Integer; const AValue : TCircleTypepeople); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property description : String Index 0 Read Fdescription Write Setdescription;
- Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
- Property etag : String Index 16 Read Fetag Write Setetag;
- Property id : String Index 24 Read Fid Write Setid;
- Property kind : String Index 32 Read Fkind Write Setkind;
- Property people : TCircleTypepeople Index 40 Read Fpeople Write Setpeople;
- Property selfLink : String Index 48 Read FselfLink Write SetselfLink;
- end;
- TCircleClass = Class of TCircle;
-
- { --------------------------------------------------------------------
- TCircleFeed
- --------------------------------------------------------------------}
-
- TCircleFeed = Class(TGoogleBaseObject)
- Private
- Fetag : String;
- Fitems : TCircleFeedTypeitemsArray;
- Fkind : String;
- FnextLink : String;
- FnextPageToken : String;
- FselfLink : String;
- Ftitle : String;
- FtotalItems : integer;
- Protected
- //Property setters
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; const AValue : TCircleFeedTypeitemsArray); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property etag : String Index 0 Read Fetag Write Setetag;
- Property items : TCircleFeedTypeitemsArray Index 8 Read Fitems Write Setitems;
- Property kind : String Index 16 Read Fkind Write Setkind;
- Property nextLink : String Index 24 Read FnextLink Write SetnextLink;
- Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
- Property selfLink : String Index 40 Read FselfLink Write SetselfLink;
- Property title : String Index 48 Read Ftitle Write Settitle;
- Property totalItems : integer Index 56 Read FtotalItems Write SettotalItems;
- end;
- TCircleFeedClass = Class of TCircleFeed;
-
- { --------------------------------------------------------------------
- TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo
- --------------------------------------------------------------------}
-
- TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class(TGoogleBaseObject)
- Private
- FchannelId : String;
- Protected
- //Property setters
- Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property channelId : String Index 0 Read FchannelId Write SetchannelId;
- end;
- TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfoClass = Class of TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo;
-
- { --------------------------------------------------------------------
- TCommentTypeactorTypeclientSpecificActorInfo
- --------------------------------------------------------------------}
-
- TCommentTypeactorTypeclientSpecificActorInfo = Class(TGoogleBaseObject)
- Private
- FyoutubeActorInfo : TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo;
- Protected
- //Property setters
- Procedure SetyoutubeActorInfo(AIndex : Integer; const AValue : TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo); virtual;
- Public
- Published
- Property youtubeActorInfo : TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo Index 0 Read FyoutubeActorInfo Write SetyoutubeActorInfo;
- end;
- TCommentTypeactorTypeclientSpecificActorInfoClass = Class of TCommentTypeactorTypeclientSpecificActorInfo;
-
- { --------------------------------------------------------------------
- TCommentTypeactorTypeimage
- --------------------------------------------------------------------}
-
- TCommentTypeactorTypeimage = Class(TGoogleBaseObject)
- Private
- Furl : String;
- Protected
- //Property setters
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property url : String Index 0 Read Furl Write Seturl;
- end;
- TCommentTypeactorTypeimageClass = Class of TCommentTypeactorTypeimage;
-
- { --------------------------------------------------------------------
- TCommentTypeactorTypeverification
- --------------------------------------------------------------------}
-
- TCommentTypeactorTypeverification = Class(TGoogleBaseObject)
- Private
- FadHocVerified : String;
- Protected
- //Property setters
- Procedure SetadHocVerified(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property adHocVerified : String Index 0 Read FadHocVerified Write SetadHocVerified;
- end;
- TCommentTypeactorTypeverificationClass = Class of TCommentTypeactorTypeverification;
-
- { --------------------------------------------------------------------
- TCommentTypeactor
- --------------------------------------------------------------------}
-
- TCommentTypeactor = Class(TGoogleBaseObject)
- Private
- FclientSpecificActorInfo : TCommentTypeactorTypeclientSpecificActorInfo;
- FdisplayName : String;
- Fid : String;
- Fimage : TCommentTypeactorTypeimage;
- Furl : String;
- Fverification : TCommentTypeactorTypeverification;
- Protected
- //Property setters
- Procedure SetclientSpecificActorInfo(AIndex : Integer; const AValue : TCommentTypeactorTypeclientSpecificActorInfo); virtual;
- Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; const AValue : TCommentTypeactorTypeimage); virtual;
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setverification(AIndex : Integer; const AValue : TCommentTypeactorTypeverification); virtual;
- Public
- Published
- Property clientSpecificActorInfo : TCommentTypeactorTypeclientSpecificActorInfo Index 0 Read FclientSpecificActorInfo Write SetclientSpecificActorInfo;
- Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
- Property id : String Index 16 Read Fid Write Setid;
- Property image : TCommentTypeactorTypeimage Index 24 Read Fimage Write Setimage;
- Property url : String Index 32 Read Furl Write Seturl;
- Property verification : TCommentTypeactorTypeverification Index 40 Read Fverification Write Setverification;
- end;
- TCommentTypeactorClass = Class of TCommentTypeactor;
-
- { --------------------------------------------------------------------
- TCommentTypeinReplyToItem
- --------------------------------------------------------------------}
-
- TCommentTypeinReplyToItem = Class(TGoogleBaseObject)
- Private
- Fid : String;
- Furl : String;
- Protected
- //Property setters
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property id : String Index 0 Read Fid Write Setid;
- Property url : String Index 8 Read Furl Write Seturl;
- end;
- TCommentTypeinReplyToItemClass = Class of TCommentTypeinReplyToItem;
-
- { --------------------------------------------------------------------
- TCommentTypeobject
- --------------------------------------------------------------------}
-
- TCommentTypeobject = Class(TGoogleBaseObject)
- Private
- Fcontent : String;
- FobjectType : String;
- ForiginalContent : String;
- Protected
- //Property setters
- Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
- Procedure SetobjectType(AIndex : Integer; const AValue : String); virtual;
- Procedure SetoriginalContent(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property content : String Index 0 Read Fcontent Write Setcontent;
- Property objectType : String Index 8 Read FobjectType Write SetobjectType;
- Property originalContent : String Index 16 Read ForiginalContent Write SetoriginalContent;
- end;
- TCommentTypeobjectClass = Class of TCommentTypeobject;
-
- { --------------------------------------------------------------------
- TCommentTypeplusoners
- --------------------------------------------------------------------}
-
- TCommentTypeplusoners = Class(TGoogleBaseObject)
- Private
- FtotalItems : integer;
- Protected
- //Property setters
- Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
- Public
- Published
- Property totalItems : integer Index 0 Read FtotalItems Write SettotalItems;
- end;
- TCommentTypeplusonersClass = Class of TCommentTypeplusoners;
-
- { --------------------------------------------------------------------
- TComment
- --------------------------------------------------------------------}
-
- TComment = Class(TGoogleBaseObject)
- Private
- Factor : TCommentTypeactor;
- Fetag : String;
- Fid : String;
- FinReplyTo : TCommentTypeinReplyToArray;
- Fkind : String;
- F_object : TCommentTypeobject;
- Fplusoners : TCommentTypeplusoners;
- F_published : TDatetime;
- FselfLink : String;
- Fupdated : TDatetime;
- Fverb : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setactor(AIndex : Integer; const AValue : TCommentTypeactor); virtual;
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure SetinReplyTo(AIndex : Integer; const AValue : TCommentTypeinReplyToArray); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_object(AIndex : Integer; const AValue : TCommentTypeobject); virtual;
- Procedure Setplusoners(AIndex : Integer; const AValue : TCommentTypeplusoners); virtual;
- Procedure Set_published(AIndex : Integer; const AValue : TDatetime); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
- Procedure Setverb(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property actor : TCommentTypeactor Index 0 Read Factor Write Setactor;
- Property etag : String Index 8 Read Fetag Write Setetag;
- Property id : String Index 16 Read Fid Write Setid;
- Property inReplyTo : TCommentTypeinReplyToArray Index 24 Read FinReplyTo Write SetinReplyTo;
- Property kind : String Index 32 Read Fkind Write Setkind;
- Property _object : TCommentTypeobject Index 40 Read F_object Write Set_object;
- Property plusoners : TCommentTypeplusoners Index 48 Read Fplusoners Write Setplusoners;
- Property _published : TDatetime Index 56 Read F_published Write Set_published;
- Property selfLink : String Index 64 Read FselfLink Write SetselfLink;
- Property updated : TDatetime Index 72 Read Fupdated Write Setupdated;
- Property verb : String Index 80 Read Fverb Write Setverb;
- end;
- TCommentClass = Class of TComment;
-
- { --------------------------------------------------------------------
- TCommentFeed
- --------------------------------------------------------------------}
-
- TCommentFeed = Class(TGoogleBaseObject)
- Private
- Fetag : String;
- Fid : String;
- Fitems : TCommentFeedTypeitemsArray;
- Fkind : String;
- FnextLink : String;
- FnextPageToken : String;
- Ftitle : String;
- Fupdated : TDatetime;
- Protected
- //Property setters
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; const AValue : TCommentFeedTypeitemsArray); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property etag : String Index 0 Read Fetag Write Setetag;
- Property id : String Index 8 Read Fid Write Setid;
- Property items : TCommentFeedTypeitemsArray Index 16 Read Fitems Write Setitems;
- Property kind : String Index 24 Read Fkind Write Setkind;
- Property nextLink : String Index 32 Read FnextLink Write SetnextLink;
- Property nextPageToken : String Index 40 Read FnextPageToken Write SetnextPageToken;
- Property title : String Index 48 Read Ftitle Write Settitle;
- Property updated : TDatetime Index 56 Read Fupdated Write Setupdated;
- end;
- TCommentFeedClass = Class of TCommentFeed;
-
- { --------------------------------------------------------------------
- TMediaTypeauthorTypeimage
- --------------------------------------------------------------------}
-
- TMediaTypeauthorTypeimage = Class(TGoogleBaseObject)
- Private
- Furl : String;
- Protected
- //Property setters
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property url : String Index 0 Read Furl Write Seturl;
- end;
- TMediaTypeauthorTypeimageClass = Class of TMediaTypeauthorTypeimage;
-
- { --------------------------------------------------------------------
- TMediaTypeauthor
- --------------------------------------------------------------------}
-
- TMediaTypeauthor = Class(TGoogleBaseObject)
- Private
- FdisplayName : String;
- Fid : String;
- Fimage : TMediaTypeauthorTypeimage;
- Furl : String;
- Protected
- //Property setters
- Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; const AValue : TMediaTypeauthorTypeimage); virtual;
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
- Property id : String Index 8 Read Fid Write Setid;
- Property image : TMediaTypeauthorTypeimage Index 16 Read Fimage Write Setimage;
- Property url : String Index 24 Read Furl Write Seturl;
- end;
- TMediaTypeauthorClass = Class of TMediaTypeauthor;
-
- { --------------------------------------------------------------------
- TMediaTypeexif
- --------------------------------------------------------------------}
-
- TMediaTypeexif = Class(TGoogleBaseObject)
- Private
- Ftime : TDatetime;
- Protected
- //Property setters
- Procedure Settime(AIndex : Integer; const AValue : TDatetime); virtual;
- Public
- Published
- Property time : TDatetime Index 0 Read Ftime Write Settime;
- end;
- TMediaTypeexifClass = Class of TMediaTypeexif;
-
- { --------------------------------------------------------------------
- TMedia
- --------------------------------------------------------------------}
-
- TMedia = Class(TGoogleBaseObject)
- Private
- Fauthor : TMediaTypeauthor;
- FdisplayName : String;
- Fetag : String;
- Fexif : TMediaTypeexif;
- Fheight : integer;
- Fid : String;
- Fkind : String;
- FmediaCreatedTime : TDatetime;
- FmediaUrl : String;
- F_published : TDatetime;
- FsizeBytes : String;
- Fstreams : TMediaTypestreamsArray;
- Fsummary : String;
- Fupdated : TDatetime;
- Furl : String;
- FvideoDuration : String;
- FvideoStatus : String;
- Fwidth : integer;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setauthor(AIndex : Integer; const AValue : TMediaTypeauthor); virtual;
- Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setexif(AIndex : Integer; const AValue : TMediaTypeexif); virtual;
- Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmediaCreatedTime(AIndex : Integer; const AValue : TDatetime); virtual;
- Procedure SetmediaUrl(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_published(AIndex : Integer; const AValue : TDatetime); virtual;
- Procedure SetsizeBytes(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstreams(AIndex : Integer; const AValue : TMediaTypestreamsArray); virtual;
- Procedure Setsummary(AIndex : Integer; const AValue : String); virtual;
- Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure SetvideoDuration(AIndex : Integer; const AValue : String); virtual;
- Procedure SetvideoStatus(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property author : TMediaTypeauthor Index 0 Read Fauthor Write Setauthor;
- Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
- Property etag : String Index 16 Read Fetag Write Setetag;
- Property exif : TMediaTypeexif Index 24 Read Fexif Write Setexif;
- Property height : integer Index 32 Read Fheight Write Setheight;
- Property id : String Index 40 Read Fid Write Setid;
- Property kind : String Index 48 Read Fkind Write Setkind;
- Property mediaCreatedTime : TDatetime Index 56 Read FmediaCreatedTime Write SetmediaCreatedTime;
- Property mediaUrl : String Index 64 Read FmediaUrl Write SetmediaUrl;
- Property _published : TDatetime Index 72 Read F_published Write Set_published;
- Property sizeBytes : String Index 80 Read FsizeBytes Write SetsizeBytes;
- Property streams : TMediaTypestreamsArray Index 88 Read Fstreams Write Setstreams;
- Property summary : String Index 96 Read Fsummary Write Setsummary;
- Property updated : TDatetime Index 104 Read Fupdated Write Setupdated;
- Property url : String Index 112 Read Furl Write Seturl;
- Property videoDuration : String Index 120 Read FvideoDuration Write SetvideoDuration;
- Property videoStatus : String Index 128 Read FvideoStatus Write SetvideoStatus;
- Property width : integer Index 136 Read Fwidth Write Setwidth;
- end;
- TMediaClass = Class of TMedia;
-
- { --------------------------------------------------------------------
- TPeopleFeed
- --------------------------------------------------------------------}
-
- TPeopleFeed = Class(TGoogleBaseObject)
- Private
- Fetag : String;
- Fitems : TPeopleFeedTypeitemsArray;
- Fkind : String;
- FnextPageToken : String;
- FselfLink : String;
- Ftitle : String;
- FtotalItems : integer;
- Protected
- //Property setters
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setitems(AIndex : Integer; const AValue : TPeopleFeedTypeitemsArray); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
- Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property etag : String Index 0 Read Fetag Write Setetag;
- Property items : TPeopleFeedTypeitemsArray Index 8 Read Fitems Write Setitems;
- Property kind : String Index 16 Read Fkind Write Setkind;
- Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
- Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
- Property title : String Index 40 Read Ftitle Write Settitle;
- Property totalItems : integer Index 48 Read FtotalItems Write SettotalItems;
- end;
- TPeopleFeedClass = Class of TPeopleFeed;
-
- { --------------------------------------------------------------------
- TPersonTypecoverTypecoverInfo
- --------------------------------------------------------------------}
-
- TPersonTypecoverTypecoverInfo = Class(TGoogleBaseObject)
- Private
- FleftImageOffset : integer;
- FtopImageOffset : integer;
- Protected
- //Property setters
- Procedure SetleftImageOffset(AIndex : Integer; const AValue : integer); virtual;
- Procedure SettopImageOffset(AIndex : Integer; const AValue : integer); virtual;
- Public
- Published
- Property leftImageOffset : integer Index 0 Read FleftImageOffset Write SetleftImageOffset;
- Property topImageOffset : integer Index 8 Read FtopImageOffset Write SettopImageOffset;
- end;
- TPersonTypecoverTypecoverInfoClass = Class of TPersonTypecoverTypecoverInfo;
-
- { --------------------------------------------------------------------
- TPersonTypecoverTypecoverPhoto
- --------------------------------------------------------------------}
-
- TPersonTypecoverTypecoverPhoto = Class(TGoogleBaseObject)
- Private
- Fheight : integer;
- Furl : String;
- Fwidth : integer;
- Protected
- //Property setters
- Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
- Public
- Published
- Property height : integer Index 0 Read Fheight Write Setheight;
- Property url : String Index 8 Read Furl Write Seturl;
- Property width : integer Index 16 Read Fwidth Write Setwidth;
- end;
- TPersonTypecoverTypecoverPhotoClass = Class of TPersonTypecoverTypecoverPhoto;
-
- { --------------------------------------------------------------------
- TPersonTypecover
- --------------------------------------------------------------------}
-
- TPersonTypecover = Class(TGoogleBaseObject)
- Private
- FcoverInfo : TPersonTypecoverTypecoverInfo;
- FcoverPhoto : TPersonTypecoverTypecoverPhoto;
- Flayout : String;
- Protected
- //Property setters
- Procedure SetcoverInfo(AIndex : Integer; const AValue : TPersonTypecoverTypecoverInfo); virtual;
- Procedure SetcoverPhoto(AIndex : Integer; const AValue : TPersonTypecoverTypecoverPhoto); virtual;
- Procedure Setlayout(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property coverInfo : TPersonTypecoverTypecoverInfo Index 0 Read FcoverInfo Write SetcoverInfo;
- Property coverPhoto : TPersonTypecoverTypecoverPhoto Index 8 Read FcoverPhoto Write SetcoverPhoto;
- Property layout : String Index 16 Read Flayout Write Setlayout;
- end;
- TPersonTypecoverClass = Class of TPersonTypecover;
-
- { --------------------------------------------------------------------
- TPersonTypeemailsItem
- --------------------------------------------------------------------}
-
- TPersonTypeemailsItem = Class(TGoogleBaseObject)
- Private
- F_type : String;
- Fvalue : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property _type : String Index 0 Read F_type Write Set_type;
- Property value : String Index 8 Read Fvalue Write Setvalue;
- end;
- TPersonTypeemailsItemClass = Class of TPersonTypeemailsItem;
-
- { --------------------------------------------------------------------
- TPersonTypeimage
- --------------------------------------------------------------------}
-
- TPersonTypeimage = Class(TGoogleBaseObject)
- Private
- FisDefault : boolean;
- Furl : String;
- Protected
- //Property setters
- Procedure SetisDefault(AIndex : Integer; const AValue : boolean); virtual;
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property isDefault : boolean Index 0 Read FisDefault Write SetisDefault;
- Property url : String Index 8 Read Furl Write Seturl;
- end;
- TPersonTypeimageClass = Class of TPersonTypeimage;
-
- { --------------------------------------------------------------------
- TPersonTypename
- --------------------------------------------------------------------}
-
- TPersonTypename = Class(TGoogleBaseObject)
- Private
- FfamilyName : String;
- Fformatted : String;
- FgivenName : String;
- FhonorificPrefix : String;
- FhonorificSuffix : String;
- FmiddleName : String;
- Protected
- //Property setters
- Procedure SetfamilyName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setformatted(AIndex : Integer; const AValue : String); virtual;
- Procedure SetgivenName(AIndex : Integer; const AValue : String); virtual;
- Procedure SethonorificPrefix(AIndex : Integer; const AValue : String); virtual;
- Procedure SethonorificSuffix(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmiddleName(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property familyName : String Index 0 Read FfamilyName Write SetfamilyName;
- Property formatted : String Index 8 Read Fformatted Write Setformatted;
- Property givenName : String Index 16 Read FgivenName Write SetgivenName;
- Property honorificPrefix : String Index 24 Read FhonorificPrefix Write SethonorificPrefix;
- Property honorificSuffix : String Index 32 Read FhonorificSuffix Write SethonorificSuffix;
- Property middleName : String Index 40 Read FmiddleName Write SetmiddleName;
- end;
- TPersonTypenameClass = Class of TPersonTypename;
-
- { --------------------------------------------------------------------
- TPersonTypeorganizationsItem
- --------------------------------------------------------------------}
-
- TPersonTypeorganizationsItem = Class(TGoogleBaseObject)
- Private
- Fdepartment : String;
- Fdescription : String;
- FendDate : String;
- Flocation : String;
- Fname : String;
- Fprimary : boolean;
- FstartDate : String;
- Ftitle : String;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setdepartment(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetendDate(AIndex : Integer; const AValue : String); virtual;
- Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprimary(AIndex : Integer; const AValue : boolean); virtual;
- Procedure SetstartDate(AIndex : Integer; const AValue : String); virtual;
- Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property department : String Index 0 Read Fdepartment Write Setdepartment;
- Property description : String Index 8 Read Fdescription Write Setdescription;
- Property endDate : String Index 16 Read FendDate Write SetendDate;
- Property location : String Index 24 Read Flocation Write Setlocation;
- Property name : String Index 32 Read Fname Write Setname;
- Property primary : boolean Index 40 Read Fprimary Write Setprimary;
- Property startDate : String Index 48 Read FstartDate Write SetstartDate;
- Property title : String Index 56 Read Ftitle Write Settitle;
- Property _type : String Index 64 Read F_type Write Set_type;
- end;
- TPersonTypeorganizationsItemClass = Class of TPersonTypeorganizationsItem;
-
- { --------------------------------------------------------------------
- TPersonTypeplacesLivedItem
- --------------------------------------------------------------------}
-
- TPersonTypeplacesLivedItem = Class(TGoogleBaseObject)
- Private
- Fprimary : boolean;
- Fvalue : String;
- Protected
- //Property setters
- Procedure Setprimary(AIndex : Integer; const AValue : boolean); virtual;
- Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property primary : boolean Index 0 Read Fprimary Write Setprimary;
- Property value : String Index 8 Read Fvalue Write Setvalue;
- end;
- TPersonTypeplacesLivedItemClass = Class of TPersonTypeplacesLivedItem;
-
- { --------------------------------------------------------------------
- TPersonTypeurlsItem
- --------------------------------------------------------------------}
-
- TPersonTypeurlsItem = Class(TGoogleBaseObject)
- Private
- F_label : String;
- F_type : String;
- Fvalue : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Set_label(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property _label : String Index 0 Read F_label Write Set_label;
- Property _type : String Index 8 Read F_type Write Set_type;
- Property value : String Index 16 Read Fvalue Write Setvalue;
- end;
- TPersonTypeurlsItemClass = Class of TPersonTypeurlsItem;
-
- { --------------------------------------------------------------------
- TPerson
- --------------------------------------------------------------------}
-
- TPerson = Class(TGoogleBaseObject)
- Private
- FaboutMe : String;
- Fbirthday : String;
- FbraggingRights : String;
- FcircledByCount : integer;
- Fcover : TPersonTypecover;
- FcurrentLocation : String;
- FdisplayName : String;
- Fdomain : String;
- Femails : TPersonTypeemailsArray;
- Fetag : String;
- Fgender : String;
- Fid : String;
- Fimage : TPersonTypeimage;
- FisPlusUser : boolean;
- Fkind : String;
- Fname : TPersonTypename;
- Fnickname : String;
- FobjectType : String;
- Foccupation : String;
- Forganizations : TPersonTypeorganizationsArray;
- FplacesLived : TPersonTypeplacesLivedArray;
- FplusOneCount : integer;
- FrelationshipStatus : String;
- Fskills : String;
- Ftagline : String;
- Furl : String;
- Furls : TPersonTypeurlsArray;
- Fverified : boolean;
- Protected
- //Property setters
- Procedure SetaboutMe(AIndex : Integer; const AValue : String); virtual;
- Procedure Setbirthday(AIndex : Integer; const AValue : String); virtual;
- Procedure SetbraggingRights(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcircledByCount(AIndex : Integer; const AValue : integer); virtual;
- Procedure Setcover(AIndex : Integer; const AValue : TPersonTypecover); virtual;
- Procedure SetcurrentLocation(AIndex : Integer; const AValue : String); virtual;
- Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdomain(AIndex : Integer; const AValue : String); virtual;
- Procedure Setemails(AIndex : Integer; const AValue : TPersonTypeemailsArray); virtual;
- Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
- Procedure Setgender(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setimage(AIndex : Integer; const AValue : TPersonTypeimage); virtual;
- Procedure SetisPlusUser(AIndex : Integer; const AValue : boolean); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : TPersonTypename); virtual;
- Procedure Setnickname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetobjectType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setoccupation(AIndex : Integer; const AValue : String); virtual;
- Procedure Setorganizations(AIndex : Integer; const AValue : TPersonTypeorganizationsArray); virtual;
- Procedure SetplacesLived(AIndex : Integer; const AValue : TPersonTypeplacesLivedArray); virtual;
- Procedure SetplusOneCount(AIndex : Integer; const AValue : integer); virtual;
- Procedure SetrelationshipStatus(AIndex : Integer; const AValue : String); virtual;
- Procedure Setskills(AIndex : Integer; const AValue : String); virtual;
- Procedure Settagline(AIndex : Integer; const AValue : String); virtual;
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Seturls(AIndex : Integer; const AValue : TPersonTypeurlsArray); virtual;
- Procedure Setverified(AIndex : Integer; const AValue : boolean); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property aboutMe : String Index 0 Read FaboutMe Write SetaboutMe;
- Property birthday : String Index 8 Read Fbirthday Write Setbirthday;
- Property braggingRights : String Index 16 Read FbraggingRights Write SetbraggingRights;
- Property circledByCount : integer Index 24 Read FcircledByCount Write SetcircledByCount;
- Property cover : TPersonTypecover Index 32 Read Fcover Write Setcover;
- Property currentLocation : String Index 40 Read FcurrentLocation Write SetcurrentLocation;
- Property displayName : String Index 48 Read FdisplayName Write SetdisplayName;
- Property domain : String Index 56 Read Fdomain Write Setdomain;
- Property emails : TPersonTypeemailsArray Index 64 Read Femails Write Setemails;
- Property etag : String Index 72 Read Fetag Write Setetag;
- Property gender : String Index 80 Read Fgender Write Setgender;
- Property id : String Index 88 Read Fid Write Setid;
- Property image : TPersonTypeimage Index 96 Read Fimage Write Setimage;
- Property isPlusUser : boolean Index 104 Read FisPlusUser Write SetisPlusUser;
- Property kind : String Index 112 Read Fkind Write Setkind;
- Property name : TPersonTypename Index 120 Read Fname Write Setname;
- Property nickname : String Index 128 Read Fnickname Write Setnickname;
- Property objectType : String Index 136 Read FobjectType Write SetobjectType;
- Property occupation : String Index 144 Read Foccupation Write Setoccupation;
- Property organizations : TPersonTypeorganizationsArray Index 152 Read Forganizations Write Setorganizations;
- Property placesLived : TPersonTypeplacesLivedArray Index 160 Read FplacesLived Write SetplacesLived;
- Property plusOneCount : integer Index 168 Read FplusOneCount Write SetplusOneCount;
- Property relationshipStatus : String Index 176 Read FrelationshipStatus Write SetrelationshipStatus;
- Property skills : String Index 184 Read Fskills Write Setskills;
- Property tagline : String Index 192 Read Ftagline Write Settagline;
- Property url : String Index 200 Read Furl Write Seturl;
- Property urls : TPersonTypeurlsArray Index 208 Read Furls Write Seturls;
- Property verified : boolean Index 216 Read Fverified Write Setverified;
- end;
- TPersonClass = Class of TPerson;
-
- { --------------------------------------------------------------------
- TPlaceTypeaddress
- --------------------------------------------------------------------}
-
- TPlaceTypeaddress = Class(TGoogleBaseObject)
- Private
- Fformatted : String;
- Protected
- //Property setters
- Procedure Setformatted(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property formatted : String Index 0 Read Fformatted Write Setformatted;
- end;
- TPlaceTypeaddressClass = Class of TPlaceTypeaddress;
-
- { --------------------------------------------------------------------
- TPlaceTypeposition
- --------------------------------------------------------------------}
-
- TPlaceTypeposition = Class(TGoogleBaseObject)
- Private
- Flatitude : double;
- Flongitude : double;
- Protected
- //Property setters
- Procedure Setlatitude(AIndex : Integer; const AValue : double); virtual;
- Procedure Setlongitude(AIndex : Integer; const AValue : double); virtual;
- Public
- Published
- Property latitude : double Index 0 Read Flatitude Write Setlatitude;
- Property longitude : double Index 8 Read Flongitude Write Setlongitude;
- end;
- TPlaceTypepositionClass = Class of TPlaceTypeposition;
-
- { --------------------------------------------------------------------
- TPlace
- --------------------------------------------------------------------}
-
- TPlace = Class(TGoogleBaseObject)
- Private
- Faddress : TPlaceTypeaddress;
- FdisplayName : String;
- Fid : String;
- Fkind : String;
- Fposition : TPlaceTypeposition;
- Protected
- //Property setters
- Procedure Setaddress(AIndex : Integer; const AValue : TPlaceTypeaddress); virtual;
- Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setposition(AIndex : Integer; const AValue : TPlaceTypeposition); virtual;
- Public
- Published
- Property address : TPlaceTypeaddress Index 0 Read Faddress Write Setaddress;
- Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
- Property id : String Index 16 Read Fid Write Setid;
- Property kind : String Index 24 Read Fkind Write Setkind;
- Property position : TPlaceTypeposition Index 32 Read Fposition Write Setposition;
- end;
- TPlaceClass = Class of TPlace;
-
- { --------------------------------------------------------------------
- TPlusDomainsAclentryResource
- --------------------------------------------------------------------}
-
- TPlusDomainsAclentryResource = Class(TGoogleBaseObject)
- Private
- FdisplayName : String;
- Fid : String;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
- Property id : String Index 8 Read Fid Write Setid;
- Property _type : String Index 16 Read F_type Write Set_type;
- end;
- TPlusDomainsAclentryResourceClass = Class of TPlusDomainsAclentryResource;
-
- { --------------------------------------------------------------------
- TVideostream
- --------------------------------------------------------------------}
-
- TVideostream = Class(TGoogleBaseObject)
- Private
- Fheight : integer;
- F_type : String;
- Furl : String;
- Fwidth : integer;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
- Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
- Public
- Published
- Property height : integer Index 0 Read Fheight Write Setheight;
- Property _type : String Index 8 Read F_type Write Set_type;
- Property url : String Index 16 Read Furl Write Seturl;
- Property width : integer Index 24 Read Fwidth Write Setwidth;
- end;
- TVideostreamClass = Class of TVideostream;
-
- { --------------------------------------------------------------------
- TActivitiesResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TActivitiesResource, method Insert
-
- TActivitiesInsertOptions = Record
- preview : boolean;
- end;
-
-
- //Optional query Options for TActivitiesResource, method List
-
- TActivitiesListOptions = Record
- maxResults : integer;
- pageToken : String;
- end;
-
- TActivitiesResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Get(activityId: string) : TActivity;
- Function Insert(userId: string; aActivity : TActivity; AQuery : string = '') : TActivity;
- Function Insert(userId: string; aActivity : TActivity; AQuery : TActivitiesinsertOptions) : TActivity;
- Function List(collection: string; userId: string; AQuery : string = '') : TActivityFeed;
- Function List(collection: string; userId: string; AQuery : TActivitieslistOptions) : TActivityFeed;
- end;
-
-
- { --------------------------------------------------------------------
- TAudiencesResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TAudiencesResource, method List
-
- TAudiencesListOptions = Record
- maxResults : integer;
- pageToken : String;
- end;
-
- TAudiencesResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function List(userId: string; AQuery : string = '') : TAudiencesFeed;
- Function List(userId: string; AQuery : TAudienceslistOptions) : TAudiencesFeed;
- end;
-
-
- { --------------------------------------------------------------------
- TCirclesResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TCirclesResource, method AddPeople
-
- TCirclesAddPeopleOptions = Record
- email : String;
- userId : String;
- end;
-
-
- //Optional query Options for TCirclesResource, method List
-
- TCirclesListOptions = Record
- maxResults : integer;
- pageToken : String;
- end;
-
-
- //Optional query Options for TCirclesResource, method RemovePeople
-
- TCirclesRemovePeopleOptions = Record
- email : String;
- userId : String;
- end;
-
- TCirclesResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function AddPeople(circleId: string; AQuery : string = '') : TCircle;
- Function AddPeople(circleId: string; AQuery : TCirclesaddPeopleOptions) : TCircle;
- Function Get(circleId: string) : TCircle;
- Function Insert(userId: string; aCircle : TCircle) : TCircle;
- Function List(userId: string; AQuery : string = '') : TCircleFeed;
- Function List(userId: string; AQuery : TCircleslistOptions) : TCircleFeed;
- Function Patch(circleId: string; aCircle : TCircle) : TCircle;
- Procedure Remove(circleId: string);
- Procedure RemovePeople(circleId: string; AQuery : string = '');
- Procedure RemovePeople(circleId: string; AQuery : TCirclesremovePeopleOptions);
- Function Update(circleId: string; aCircle : TCircle) : TCircle;
- end;
-
-
- { --------------------------------------------------------------------
- TCommentsResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TCommentsResource, method List
-
- TCommentsListOptions = Record
- maxResults : integer;
- pageToken : String;
- sortOrder : String;
- end;
-
- TCommentsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Get(commentId: string) : TComment;
- Function Insert(activityId: string; aComment : TComment) : TComment;
- Function List(activityId: string; AQuery : string = '') : TCommentFeed;
- Function List(activityId: string; AQuery : TCommentslistOptions) : TCommentFeed;
- end;
-
-
- { --------------------------------------------------------------------
- TMediaResource
- --------------------------------------------------------------------}
-
- TMediaResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Insert(collection: string; userId: string; aMedia : TMedia) : TMedia;
- end;
-
-
- { --------------------------------------------------------------------
- TPeopleResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TPeopleResource, method List
-
- TPeopleListOptions = Record
- maxResults : integer;
- orderBy : String;
- pageToken : String;
- end;
-
-
- //Optional query Options for TPeopleResource, method ListByActivity
-
- TPeopleListByActivityOptions = Record
- maxResults : integer;
- pageToken : String;
- end;
-
-
- //Optional query Options for TPeopleResource, method ListByCircle
-
- TPeopleListByCircleOptions = Record
- maxResults : integer;
- pageToken : String;
- end;
-
- TPeopleResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Get(userId: string) : TPerson;
- Function List(collection: string; userId: string; AQuery : string = '') : TPeopleFeed;
- Function List(collection: string; userId: string; AQuery : TPeoplelistOptions) : TPeopleFeed;
- Function ListByActivity(activityId: string; collection: string; AQuery : string = '') : TPeopleFeed;
- Function ListByActivity(activityId: string; collection: string; AQuery : TPeoplelistByActivityOptions) : TPeopleFeed;
- Function ListByCircle(circleId: string; AQuery : string = '') : TPeopleFeed;
- Function ListByCircle(circleId: string; AQuery : TPeoplelistByCircleOptions) : TPeopleFeed;
- end;
-
-
- { --------------------------------------------------------------------
- TPlusDomainsAPI
- --------------------------------------------------------------------}
-
- TPlusDomainsAPI = Class(TGoogleAPI)
- Private
- FActivitiesInstance : TActivitiesResource;
- FAudiencesInstance : TAudiencesResource;
- FCirclesInstance : TCirclesResource;
- FCommentsInstance : TCommentsResource;
- FMediaInstance : TMediaResource;
- FPeopleInstance : TPeopleResource;
- Function GetActivitiesInstance : TActivitiesResource;virtual;
- Function GetAudiencesInstance : TAudiencesResource;virtual;
- Function GetCirclesInstance : TCirclesResource;virtual;
- Function GetCommentsInstance : TCommentsResource;virtual;
- Function GetMediaInstance : TMediaResource;virtual;
- Function GetPeopleInstance : TPeopleResource;virtual;
- Public
- //Override class functions with API info
- Class Function APIName : String; override;
- Class Function APIVersion : String; override;
- Class Function APIRevision : String; override;
- Class Function APIID : String; override;
- Class Function APITitle : String; override;
- Class Function APIDescription : String; override;
- Class Function APIOwnerDomain : String; override;
- Class Function APIOwnerName : String; override;
- Class Function APIIcon16 : String; override;
- Class Function APIIcon32 : String; override;
- Class Function APIdocumentationLink : String; override;
- Class Function APIrootUrl : string; override;
- Class Function APIbasePath : string;override;
- Class Function APIbaseURL : String;override;
- Class Function APIProtocol : string;override;
- Class Function APIservicePath : string;override;
- Class Function APIbatchPath : String;override;
- Class Function APIAuthScopes : TScopeInfoArray;override;
- Class Function APINeedsAuth : Boolean;override;
- Class Procedure RegisterAPIResources; override;
- //Add create function for resources
- Function CreateActivitiesResource(AOwner : TComponent) : TActivitiesResource;virtual;overload;
- Function CreateActivitiesResource : TActivitiesResource;virtual;overload;
- Function CreateAudiencesResource(AOwner : TComponent) : TAudiencesResource;virtual;overload;
- Function CreateAudiencesResource : TAudiencesResource;virtual;overload;
- Function CreateCirclesResource(AOwner : TComponent) : TCirclesResource;virtual;overload;
- Function CreateCirclesResource : TCirclesResource;virtual;overload;
- Function CreateCommentsResource(AOwner : TComponent) : TCommentsResource;virtual;overload;
- Function CreateCommentsResource : TCommentsResource;virtual;overload;
- Function CreateMediaResource(AOwner : TComponent) : TMediaResource;virtual;overload;
- Function CreateMediaResource : TMediaResource;virtual;overload;
- Function CreatePeopleResource(AOwner : TComponent) : TPeopleResource;virtual;overload;
- Function CreatePeopleResource : TPeopleResource;virtual;overload;
- //Add default on-demand instances for resources
- Property ActivitiesResource : TActivitiesResource Read GetActivitiesInstance;
- Property AudiencesResource : TAudiencesResource Read GetAudiencesInstance;
- Property CirclesResource : TCirclesResource Read GetCirclesInstance;
- Property CommentsResource : TCommentsResource Read GetCommentsInstance;
- Property MediaResource : TMediaResource Read GetMediaInstance;
- Property PeopleResource : TPeopleResource Read GetPeopleInstance;
- end;
- implementation
- { --------------------------------------------------------------------
- TAcl
- --------------------------------------------------------------------}
- Procedure TAcl.Setdescription(AIndex : Integer; const AValue : String);
- begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAcl.SetdomainRestricted(AIndex : Integer; const AValue : boolean);
- begin
- If (FdomainRestricted=AValue) then exit;
- FdomainRestricted:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAcl.Setitems(AIndex : Integer; const AValue : TAclTypeitemsArray);
- begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAcl.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TAcl.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'items' : SetLength(Fitems,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo
- --------------------------------------------------------------------}
- Procedure TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.SetchannelId(AIndex : Integer; const AValue : String);
- begin
- If (FchannelId=AValue) then exit;
- FchannelId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TActivityTypeactorTypeclientSpecificActorInfo
- --------------------------------------------------------------------}
- Procedure TActivityTypeactorTypeclientSpecificActorInfo.SetyoutubeActorInfo(AIndex : Integer; const AValue : TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo);
- begin
- If (FyoutubeActorInfo=AValue) then exit;
- FyoutubeActorInfo:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TActivityTypeactorTypeimage
- --------------------------------------------------------------------}
- Procedure TActivityTypeactorTypeimage.Seturl(AIndex : Integer; const AValue : String);
- begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TActivityTypeactorTypename
- --------------------------------------------------------------------}
- Procedure TActivityTypeactorTypename.SetfamilyName(AIndex : Integer; const AValue : String);
- begin
- If (FfamilyName=AValue) then exit;
- FfamilyName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeactorTypename.SetgivenName(AIndex : Integer; const AValue : String);
- begin
- If (FgivenName=AValue) then exit;
- FgivenName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TActivityTypeactorTypeverification
- --------------------------------------------------------------------}
- Procedure TActivityTypeactorTypeverification.SetadHocVerified(AIndex : Integer; const AValue : String);
- begin
- If (FadHocVerified=AValue) then exit;
- FadHocVerified:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TActivityTypeactor
- --------------------------------------------------------------------}
- Procedure TActivityTypeactor.SetclientSpecificActorInfo(AIndex : Integer; const AValue : TActivityTypeactorTypeclientSpecificActorInfo);
- begin
- If (FclientSpecificActorInfo=AValue) then exit;
- FclientSpecificActorInfo:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeactor.SetdisplayName(AIndex : Integer; const AValue : String);
- begin
- If (FdisplayName=AValue) then exit;
- FdisplayName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeactor.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeactor.Setimage(AIndex : Integer; const AValue : TActivityTypeactorTypeimage);
- begin
- If (Fimage=AValue) then exit;
- Fimage:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeactor.Setname(AIndex : Integer; const AValue : TActivityTypeactorTypename);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeactor.Seturl(AIndex : Integer; const AValue : String);
- begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeactor.Setverification(AIndex : Integer; const AValue : TActivityTypeactorTypeverification);
- begin
- If (Fverification=AValue) then exit;
- Fverification:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo
- --------------------------------------------------------------------}
- Procedure TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.SetchannelId(AIndex : Integer; const AValue : String);
- begin
- If (FchannelId=AValue) then exit;
- FchannelId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeactorTypeclientSpecificActorInfo
- --------------------------------------------------------------------}
- Procedure TActivityTypeobjectTypeactorTypeclientSpecificActorInfo.SetyoutubeActorInfo(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo);
- begin
- If (FyoutubeActorInfo=AValue) then exit;
- FyoutubeActorInfo:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeactorTypeimage
- --------------------------------------------------------------------}
- Procedure TActivityTypeobjectTypeactorTypeimage.Seturl(AIndex : Integer; const AValue : String);
- begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeactorTypeverification
- --------------------------------------------------------------------}
- Procedure TActivityTypeobjectTypeactorTypeverification.SetadHocVerified(AIndex : Integer; const AValue : String);
- begin
- If (FadHocVerified=AValue) then exit;
- FadHocVerified:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeactor
- --------------------------------------------------------------------}
- Procedure TActivityTypeobjectTypeactor.SetclientSpecificActorInfo(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeclientSpecificActorInfo);
- begin
- If (FclientSpecificActorInfo=AValue) then exit;
- FclientSpecificActorInfo:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeactor.SetdisplayName(AIndex : Integer; const AValue : String);
- begin
- If (FdisplayName=AValue) then exit;
- FdisplayName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeactor.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeactor.Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeimage);
- begin
- If (Fimage=AValue) then exit;
- Fimage:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeactor.Seturl(AIndex : Integer; const AValue : String);
- begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeactor.Setverification(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeverification);
- begin
- If (Fverification=AValue) then exit;
- Fverification:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeattachmentsItemTypeembed
- --------------------------------------------------------------------}
- Procedure TActivityTypeobjectTypeattachmentsItemTypeembed.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeattachmentsItemTypeembed.Seturl(AIndex : Integer; const AValue : String);
- begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TActivityTypeobjectTypeattachmentsItemTypeembed.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeattachmentsItemTypefullImage
- --------------------------------------------------------------------}
- Procedure TActivityTypeobjectTypeattachmentsItemTypefullImage.Setheight(AIndex : Integer; const AValue : integer);
- begin
- If (Fheight=AValue) then exit;
- Fheight:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeattachmentsItemTypefullImage.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeattachmentsItemTypefullImage.Seturl(AIndex : Integer; const AValue : String);
- begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeattachmentsItemTypefullImage.Setwidth(AIndex : Integer; const AValue : integer);
- begin
- If (Fwidth=AValue) then exit;
- Fwidth:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TActivityTypeobjectTypeattachmentsItemTypefullImage.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeattachmentsItemTypeimage
- --------------------------------------------------------------------}
- Procedure TActivityTypeobjectTypeattachmentsItemTypeimage.Setheight(AIndex : Integer; const AValue : integer);
- begin
- If (Fheight=AValue) then exit;
- Fheight:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeattachmentsItemTypeimage.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeattachmentsItemTypeimage.Seturl(AIndex : Integer; const AValue : String);
- begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeattachmentsItemTypeimage.Setwidth(AIndex : Integer; const AValue : integer);
- begin
- If (Fwidth=AValue) then exit;
- Fwidth:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TActivityTypeobjectTypeattachmentsItemTypeimage.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsItem
- --------------------------------------------------------------------}
- Procedure TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsItem.Seturl(AIndex : Integer; const AValue : String);
- begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage
- --------------------------------------------------------------------}
- Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage.Setheight(AIndex : Integer; const AValue : integer);
- begin
- If (Fheight=AValue) then exit;
- Fheight:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage.Seturl(AIndex : Integer; const AValue : String);
- begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage.Setwidth(AIndex : Integer; const AValue : integer);
- begin
- If (Fwidth=AValue) then exit;
- Fwidth:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem
- --------------------------------------------------------------------}
- Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem.Setdescription(AIndex : Integer; const AValue : String);
- begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem.Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage);
- begin
- If (Fimage=AValue) then exit;
- Fimage:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem.Seturl(AIndex : Integer; const AValue : String);
- begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeattachmentsItem
- --------------------------------------------------------------------}
- Procedure TActivityTypeobjectTypeattachmentsItem.Setcontent(AIndex : Integer; const AValue : String);
- begin
- If (Fcontent=AValue) then exit;
- Fcontent:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeattachmentsItem.SetdisplayName(AIndex : Integer; const AValue : String);
- begin
- If (FdisplayName=AValue) then exit;
- FdisplayName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeattachmentsItem.Setembed(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypeembed);
- begin
- If (Fembed=AValue) then exit;
- Fembed:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeattachmentsItem.SetfullImage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypefullImage);
- begin
- If (FfullImage=AValue) then exit;
- FfullImage:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeattachmentsItem.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeattachmentsItem.Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypeimage);
- begin
- If (Fimage=AValue) then exit;
- Fimage:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeattachmentsItem.SetobjectType(AIndex : Integer; const AValue : String);
- begin
- If (FobjectType=AValue) then exit;
- FobjectType:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeattachmentsItem.SetpreviewThumbnails(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsArray);
- begin
- If (FpreviewThumbnails=AValue) then exit;
- FpreviewThumbnails:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeattachmentsItem.Setthumbnails(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray);
- begin
- If (Fthumbnails=AValue) then exit;
- Fthumbnails:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeattachmentsItem.Seturl(AIndex : Integer; const AValue : String);
- begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TActivityTypeobjectTypeattachmentsItem.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'previewthumbnails' : SetLength(FpreviewThumbnails,ALength);
- 'thumbnails' : SetLength(Fthumbnails,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TActivityTypeobjectTypeplusoners
- --------------------------------------------------------------------}
- Procedure TActivityTypeobjectTypeplusoners.SetselfLink(AIndex : Integer; const AValue : String);
- begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypeplusoners.SettotalItems(AIndex : Integer; const AValue : integer);
- begin
- If (FtotalItems=AValue) then exit;
- FtotalItems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TActivityTypeobjectTypereplies
- --------------------------------------------------------------------}
- Procedure TActivityTypeobjectTypereplies.SetselfLink(AIndex : Integer; const AValue : String);
- begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypereplies.SettotalItems(AIndex : Integer; const AValue : integer);
- begin
- If (FtotalItems=AValue) then exit;
- FtotalItems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TActivityTypeobjectTyperesharers
- --------------------------------------------------------------------}
- Procedure TActivityTypeobjectTyperesharers.SetselfLink(AIndex : Integer; const AValue : String);
- begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTyperesharers.SettotalItems(AIndex : Integer; const AValue : integer);
- begin
- If (FtotalItems=AValue) then exit;
- FtotalItems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TActivityTypeobjectTypestatusForViewer
- --------------------------------------------------------------------}
- Procedure TActivityTypeobjectTypestatusForViewer.SetcanComment(AIndex : Integer; const AValue : boolean);
- begin
- If (FcanComment=AValue) then exit;
- FcanComment:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypestatusForViewer.SetcanPlusone(AIndex : Integer; const AValue : boolean);
- begin
- If (FcanPlusone=AValue) then exit;
- FcanPlusone:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypestatusForViewer.SetcanUpdate(AIndex : Integer; const AValue : boolean);
- begin
- If (FcanUpdate=AValue) then exit;
- FcanUpdate:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypestatusForViewer.SetisPlusOned(AIndex : Integer; const AValue : boolean);
- begin
- If (FisPlusOned=AValue) then exit;
- FisPlusOned:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobjectTypestatusForViewer.SetresharingDisabled(AIndex : Integer; const AValue : boolean);
- begin
- If (FresharingDisabled=AValue) then exit;
- FresharingDisabled:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TActivityTypeobject
- --------------------------------------------------------------------}
- Procedure TActivityTypeobject.Setactor(AIndex : Integer; const AValue : TActivityTypeobjectTypeactor);
- begin
- If (Factor=AValue) then exit;
- Factor:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobject.Setattachments(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsArray);
- begin
- If (Fattachments=AValue) then exit;
- Fattachments:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobject.Setcontent(AIndex : Integer; const AValue : String);
- begin
- If (Fcontent=AValue) then exit;
- Fcontent:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobject.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobject.SetobjectType(AIndex : Integer; const AValue : String);
- begin
- If (FobjectType=AValue) then exit;
- FobjectType:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobject.SetoriginalContent(AIndex : Integer; const AValue : String);
- begin
- If (ForiginalContent=AValue) then exit;
- ForiginalContent:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobject.Setplusoners(AIndex : Integer; const AValue : TActivityTypeobjectTypeplusoners);
- begin
- If (Fplusoners=AValue) then exit;
- Fplusoners:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobject.Setreplies(AIndex : Integer; const AValue : TActivityTypeobjectTypereplies);
- begin
- If (Freplies=AValue) then exit;
- Freplies:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobject.Setresharers(AIndex : Integer; const AValue : TActivityTypeobjectTyperesharers);
- begin
- If (Fresharers=AValue) then exit;
- Fresharers:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobject.SetstatusForViewer(AIndex : Integer; const AValue : TActivityTypeobjectTypestatusForViewer);
- begin
- If (FstatusForViewer=AValue) then exit;
- FstatusForViewer:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityTypeobject.Seturl(AIndex : Integer; const AValue : String);
- begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TActivityTypeobject.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'attachments' : SetLength(Fattachments,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TActivityTypeprovider
- --------------------------------------------------------------------}
- Procedure TActivityTypeprovider.Settitle(AIndex : Integer; const AValue : String);
- begin
- If (Ftitle=AValue) then exit;
- Ftitle:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TActivity
- --------------------------------------------------------------------}
- Procedure TActivity.Setaccess(AIndex : Integer; const AValue : TAcl);
- begin
- If (Faccess=AValue) then exit;
- Faccess:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivity.Setactor(AIndex : Integer; const AValue : TActivityTypeactor);
- begin
- If (Factor=AValue) then exit;
- Factor:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivity.Setaddress(AIndex : Integer; const AValue : String);
- begin
- If (Faddress=AValue) then exit;
- Faddress:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivity.Setannotation(AIndex : Integer; const AValue : String);
- begin
- If (Fannotation=AValue) then exit;
- Fannotation:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivity.SetcrosspostSource(AIndex : Integer; const AValue : String);
- begin
- If (FcrosspostSource=AValue) then exit;
- FcrosspostSource:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivity.Setetag(AIndex : Integer; const AValue : String);
- begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivity.Setgeocode(AIndex : Integer; const AValue : String);
- begin
- If (Fgeocode=AValue) then exit;
- Fgeocode:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivity.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivity.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivity.Setlocation(AIndex : Integer; const AValue : TPlace);
- begin
- If (Flocation=AValue) then exit;
- Flocation:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivity.Set_object(AIndex : Integer; const AValue : TActivityTypeobject);
- begin
- If (F_object=AValue) then exit;
- F_object:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivity.SetplaceId(AIndex : Integer; const AValue : String);
- begin
- If (FplaceId=AValue) then exit;
- FplaceId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivity.SetplaceName(AIndex : Integer; const AValue : String);
- begin
- If (FplaceName=AValue) then exit;
- FplaceName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivity.Setprovider(AIndex : Integer; const AValue : TActivityTypeprovider);
- begin
- If (Fprovider=AValue) then exit;
- Fprovider:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivity.Set_published(AIndex : Integer; const AValue : TDatetime);
- begin
- If (F_published=AValue) then exit;
- F_published:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivity.Setradius(AIndex : Integer; const AValue : String);
- begin
- If (Fradius=AValue) then exit;
- Fradius:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivity.Settitle(AIndex : Integer; const AValue : String);
- begin
- If (Ftitle=AValue) then exit;
- Ftitle:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivity.Setupdated(AIndex : Integer; const AValue : TDatetime);
- begin
- If (Fupdated=AValue) then exit;
- Fupdated:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivity.Seturl(AIndex : Integer; const AValue : String);
- begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivity.Setverb(AIndex : Integer; const AValue : String);
- begin
- If (Fverb=AValue) then exit;
- Fverb:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TActivity.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_object' : Result:='object';
- '_published' : Result:='published';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- { --------------------------------------------------------------------
- TActivityFeed
- --------------------------------------------------------------------}
- Procedure TActivityFeed.Setetag(AIndex : Integer; const AValue : String);
- begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityFeed.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityFeed.Setitems(AIndex : Integer; const AValue : TActivityFeedTypeitemsArray);
- begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityFeed.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityFeed.SetnextLink(AIndex : Integer; const AValue : String);
- begin
- If (FnextLink=AValue) then exit;
- FnextLink:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityFeed.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityFeed.SetselfLink(AIndex : Integer; const AValue : String);
- begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityFeed.Settitle(AIndex : Integer; const AValue : String);
- begin
- If (Ftitle=AValue) then exit;
- Ftitle:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TActivityFeed.Setupdated(AIndex : Integer; const AValue : TDatetime);
- begin
- If (Fupdated=AValue) then exit;
- Fupdated:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TActivityFeed.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'items' : SetLength(Fitems,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TAudience
- --------------------------------------------------------------------}
- Procedure TAudience.Setetag(AIndex : Integer; const AValue : String);
- begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAudience.Setitem(AIndex : Integer; const AValue : TPlusDomainsAclentryResource);
- begin
- If (Fitem=AValue) then exit;
- Fitem:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAudience.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAudience.SetmemberCount(AIndex : Integer; const AValue : integer);
- begin
- If (FmemberCount=AValue) then exit;
- FmemberCount:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAudience.Setvisibility(AIndex : Integer; const AValue : String);
- begin
- If (Fvisibility=AValue) then exit;
- Fvisibility:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TAudiencesFeed
- --------------------------------------------------------------------}
- Procedure TAudiencesFeed.Setetag(AIndex : Integer; const AValue : String);
- begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAudiencesFeed.Setitems(AIndex : Integer; const AValue : TAudiencesFeedTypeitemsArray);
- begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAudiencesFeed.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAudiencesFeed.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAudiencesFeed.SettotalItems(AIndex : Integer; const AValue : integer);
- begin
- If (FtotalItems=AValue) then exit;
- FtotalItems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TAudiencesFeed.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'items' : SetLength(Fitems,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TCircleTypepeople
- --------------------------------------------------------------------}
- Procedure TCircleTypepeople.SettotalItems(AIndex : Integer; const AValue : integer);
- begin
- If (FtotalItems=AValue) then exit;
- FtotalItems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TCircle
- --------------------------------------------------------------------}
- Procedure TCircle.Setdescription(AIndex : Integer; const AValue : String);
- begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCircle.SetdisplayName(AIndex : Integer; const AValue : String);
- begin
- If (FdisplayName=AValue) then exit;
- FdisplayName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCircle.Setetag(AIndex : Integer; const AValue : String);
- begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCircle.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCircle.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCircle.Setpeople(AIndex : Integer; const AValue : TCircleTypepeople);
- begin
- If (Fpeople=AValue) then exit;
- Fpeople:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCircle.SetselfLink(AIndex : Integer; const AValue : String);
- begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TCircleFeed
- --------------------------------------------------------------------}
- Procedure TCircleFeed.Setetag(AIndex : Integer; const AValue : String);
- begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCircleFeed.Setitems(AIndex : Integer; const AValue : TCircleFeedTypeitemsArray);
- begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCircleFeed.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCircleFeed.SetnextLink(AIndex : Integer; const AValue : String);
- begin
- If (FnextLink=AValue) then exit;
- FnextLink:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCircleFeed.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCircleFeed.SetselfLink(AIndex : Integer; const AValue : String);
- begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCircleFeed.Settitle(AIndex : Integer; const AValue : String);
- begin
- If (Ftitle=AValue) then exit;
- Ftitle:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCircleFeed.SettotalItems(AIndex : Integer; const AValue : integer);
- begin
- If (FtotalItems=AValue) then exit;
- FtotalItems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TCircleFeed.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'items' : SetLength(Fitems,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo
- --------------------------------------------------------------------}
- Procedure TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.SetchannelId(AIndex : Integer; const AValue : String);
- begin
- If (FchannelId=AValue) then exit;
- FchannelId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TCommentTypeactorTypeclientSpecificActorInfo
- --------------------------------------------------------------------}
- Procedure TCommentTypeactorTypeclientSpecificActorInfo.SetyoutubeActorInfo(AIndex : Integer; const AValue : TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo);
- begin
- If (FyoutubeActorInfo=AValue) then exit;
- FyoutubeActorInfo:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TCommentTypeactorTypeimage
- --------------------------------------------------------------------}
- Procedure TCommentTypeactorTypeimage.Seturl(AIndex : Integer; const AValue : String);
- begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TCommentTypeactorTypeverification
- --------------------------------------------------------------------}
- Procedure TCommentTypeactorTypeverification.SetadHocVerified(AIndex : Integer; const AValue : String);
- begin
- If (FadHocVerified=AValue) then exit;
- FadHocVerified:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TCommentTypeactor
- --------------------------------------------------------------------}
- Procedure TCommentTypeactor.SetclientSpecificActorInfo(AIndex : Integer; const AValue : TCommentTypeactorTypeclientSpecificActorInfo);
- begin
- If (FclientSpecificActorInfo=AValue) then exit;
- FclientSpecificActorInfo:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCommentTypeactor.SetdisplayName(AIndex : Integer; const AValue : String);
- begin
- If (FdisplayName=AValue) then exit;
- FdisplayName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCommentTypeactor.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCommentTypeactor.Setimage(AIndex : Integer; const AValue : TCommentTypeactorTypeimage);
- begin
- If (Fimage=AValue) then exit;
- Fimage:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCommentTypeactor.Seturl(AIndex : Integer; const AValue : String);
- begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCommentTypeactor.Setverification(AIndex : Integer; const AValue : TCommentTypeactorTypeverification);
- begin
- If (Fverification=AValue) then exit;
- Fverification:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TCommentTypeinReplyToItem
- --------------------------------------------------------------------}
- Procedure TCommentTypeinReplyToItem.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCommentTypeinReplyToItem.Seturl(AIndex : Integer; const AValue : String);
- begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TCommentTypeobject
- --------------------------------------------------------------------}
- Procedure TCommentTypeobject.Setcontent(AIndex : Integer; const AValue : String);
- begin
- If (Fcontent=AValue) then exit;
- Fcontent:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCommentTypeobject.SetobjectType(AIndex : Integer; const AValue : String);
- begin
- If (FobjectType=AValue) then exit;
- FobjectType:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCommentTypeobject.SetoriginalContent(AIndex : Integer; const AValue : String);
- begin
- If (ForiginalContent=AValue) then exit;
- ForiginalContent:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TCommentTypeplusoners
- --------------------------------------------------------------------}
- Procedure TCommentTypeplusoners.SettotalItems(AIndex : Integer; const AValue : integer);
- begin
- If (FtotalItems=AValue) then exit;
- FtotalItems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TComment
- --------------------------------------------------------------------}
- Procedure TComment.Setactor(AIndex : Integer; const AValue : TCommentTypeactor);
- begin
- If (Factor=AValue) then exit;
- Factor:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TComment.Setetag(AIndex : Integer; const AValue : String);
- begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TComment.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TComment.SetinReplyTo(AIndex : Integer; const AValue : TCommentTypeinReplyToArray);
- begin
- If (FinReplyTo=AValue) then exit;
- FinReplyTo:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TComment.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TComment.Set_object(AIndex : Integer; const AValue : TCommentTypeobject);
- begin
- If (F_object=AValue) then exit;
- F_object:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TComment.Setplusoners(AIndex : Integer; const AValue : TCommentTypeplusoners);
- begin
- If (Fplusoners=AValue) then exit;
- Fplusoners:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TComment.Set_published(AIndex : Integer; const AValue : TDatetime);
- begin
- If (F_published=AValue) then exit;
- F_published:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TComment.SetselfLink(AIndex : Integer; const AValue : String);
- begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TComment.Setupdated(AIndex : Integer; const AValue : TDatetime);
- begin
- If (Fupdated=AValue) then exit;
- Fupdated:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TComment.Setverb(AIndex : Integer; const AValue : String);
- begin
- If (Fverb=AValue) then exit;
- Fverb:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TComment.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_object' : Result:='object';
- '_published' : Result:='published';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TComment.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'inreplyto' : SetLength(FinReplyTo,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TCommentFeed
- --------------------------------------------------------------------}
- Procedure TCommentFeed.Setetag(AIndex : Integer; const AValue : String);
- begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCommentFeed.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCommentFeed.Setitems(AIndex : Integer; const AValue : TCommentFeedTypeitemsArray);
- begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCommentFeed.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCommentFeed.SetnextLink(AIndex : Integer; const AValue : String);
- begin
- If (FnextLink=AValue) then exit;
- FnextLink:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCommentFeed.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCommentFeed.Settitle(AIndex : Integer; const AValue : String);
- begin
- If (Ftitle=AValue) then exit;
- Ftitle:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TCommentFeed.Setupdated(AIndex : Integer; const AValue : TDatetime);
- begin
- If (Fupdated=AValue) then exit;
- Fupdated:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TCommentFeed.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'items' : SetLength(Fitems,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TMediaTypeauthorTypeimage
- --------------------------------------------------------------------}
- Procedure TMediaTypeauthorTypeimage.Seturl(AIndex : Integer; const AValue : String);
- begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TMediaTypeauthor
- --------------------------------------------------------------------}
- Procedure TMediaTypeauthor.SetdisplayName(AIndex : Integer; const AValue : String);
- begin
- If (FdisplayName=AValue) then exit;
- FdisplayName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMediaTypeauthor.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMediaTypeauthor.Setimage(AIndex : Integer; const AValue : TMediaTypeauthorTypeimage);
- begin
- If (Fimage=AValue) then exit;
- Fimage:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMediaTypeauthor.Seturl(AIndex : Integer; const AValue : String);
- begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TMediaTypeexif
- --------------------------------------------------------------------}
- Procedure TMediaTypeexif.Settime(AIndex : Integer; const AValue : TDatetime);
- begin
- If (Ftime=AValue) then exit;
- Ftime:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TMedia
- --------------------------------------------------------------------}
- Procedure TMedia.Setauthor(AIndex : Integer; const AValue : TMediaTypeauthor);
- begin
- If (Fauthor=AValue) then exit;
- Fauthor:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMedia.SetdisplayName(AIndex : Integer; const AValue : String);
- begin
- If (FdisplayName=AValue) then exit;
- FdisplayName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMedia.Setetag(AIndex : Integer; const AValue : String);
- begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMedia.Setexif(AIndex : Integer; const AValue : TMediaTypeexif);
- begin
- If (Fexif=AValue) then exit;
- Fexif:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMedia.Setheight(AIndex : Integer; const AValue : integer);
- begin
- If (Fheight=AValue) then exit;
- Fheight:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMedia.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMedia.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMedia.SetmediaCreatedTime(AIndex : Integer; const AValue : TDatetime);
- begin
- If (FmediaCreatedTime=AValue) then exit;
- FmediaCreatedTime:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMedia.SetmediaUrl(AIndex : Integer; const AValue : String);
- begin
- If (FmediaUrl=AValue) then exit;
- FmediaUrl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMedia.Set_published(AIndex : Integer; const AValue : TDatetime);
- begin
- If (F_published=AValue) then exit;
- F_published:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMedia.SetsizeBytes(AIndex : Integer; const AValue : String);
- begin
- If (FsizeBytes=AValue) then exit;
- FsizeBytes:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMedia.Setstreams(AIndex : Integer; const AValue : TMediaTypestreamsArray);
- begin
- If (Fstreams=AValue) then exit;
- Fstreams:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMedia.Setsummary(AIndex : Integer; const AValue : String);
- begin
- If (Fsummary=AValue) then exit;
- Fsummary:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMedia.Setupdated(AIndex : Integer; const AValue : TDatetime);
- begin
- If (Fupdated=AValue) then exit;
- Fupdated:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMedia.Seturl(AIndex : Integer; const AValue : String);
- begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMedia.SetvideoDuration(AIndex : Integer; const AValue : String);
- begin
- If (FvideoDuration=AValue) then exit;
- FvideoDuration:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMedia.SetvideoStatus(AIndex : Integer; const AValue : String);
- begin
- If (FvideoStatus=AValue) then exit;
- FvideoStatus:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TMedia.Setwidth(AIndex : Integer; const AValue : integer);
- begin
- If (Fwidth=AValue) then exit;
- Fwidth:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TMedia.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_published' : Result:='published';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TMedia.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'streams' : SetLength(Fstreams,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TPeopleFeed
- --------------------------------------------------------------------}
- Procedure TPeopleFeed.Setetag(AIndex : Integer; const AValue : String);
- begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPeopleFeed.Setitems(AIndex : Integer; const AValue : TPeopleFeedTypeitemsArray);
- begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPeopleFeed.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPeopleFeed.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPeopleFeed.SetselfLink(AIndex : Integer; const AValue : String);
- begin
- If (FselfLink=AValue) then exit;
- FselfLink:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPeopleFeed.Settitle(AIndex : Integer; const AValue : String);
- begin
- If (Ftitle=AValue) then exit;
- Ftitle:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPeopleFeed.SettotalItems(AIndex : Integer; const AValue : integer);
- begin
- If (FtotalItems=AValue) then exit;
- FtotalItems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TPeopleFeed.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'items' : SetLength(Fitems,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TPersonTypecoverTypecoverInfo
- --------------------------------------------------------------------}
- Procedure TPersonTypecoverTypecoverInfo.SetleftImageOffset(AIndex : Integer; const AValue : integer);
- begin
- If (FleftImageOffset=AValue) then exit;
- FleftImageOffset:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPersonTypecoverTypecoverInfo.SettopImageOffset(AIndex : Integer; const AValue : integer);
- begin
- If (FtopImageOffset=AValue) then exit;
- FtopImageOffset:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TPersonTypecoverTypecoverPhoto
- --------------------------------------------------------------------}
- Procedure TPersonTypecoverTypecoverPhoto.Setheight(AIndex : Integer; const AValue : integer);
- begin
- If (Fheight=AValue) then exit;
- Fheight:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPersonTypecoverTypecoverPhoto.Seturl(AIndex : Integer; const AValue : String);
- begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPersonTypecoverTypecoverPhoto.Setwidth(AIndex : Integer; const AValue : integer);
- begin
- If (Fwidth=AValue) then exit;
- Fwidth:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TPersonTypecover
- --------------------------------------------------------------------}
- Procedure TPersonTypecover.SetcoverInfo(AIndex : Integer; const AValue : TPersonTypecoverTypecoverInfo);
- begin
- If (FcoverInfo=AValue) then exit;
- FcoverInfo:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPersonTypecover.SetcoverPhoto(AIndex : Integer; const AValue : TPersonTypecoverTypecoverPhoto);
- begin
- If (FcoverPhoto=AValue) then exit;
- FcoverPhoto:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPersonTypecover.Setlayout(AIndex : Integer; const AValue : String);
- begin
- If (Flayout=AValue) then exit;
- Flayout:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TPersonTypeemailsItem
- --------------------------------------------------------------------}
- Procedure TPersonTypeemailsItem.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPersonTypeemailsItem.Setvalue(AIndex : Integer; const AValue : String);
- begin
- If (Fvalue=AValue) then exit;
- Fvalue:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TPersonTypeemailsItem.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- { --------------------------------------------------------------------
- TPersonTypeimage
- --------------------------------------------------------------------}
- Procedure TPersonTypeimage.SetisDefault(AIndex : Integer; const AValue : boolean);
- begin
- If (FisDefault=AValue) then exit;
- FisDefault:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPersonTypeimage.Seturl(AIndex : Integer; const AValue : String);
- begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TPersonTypename
- --------------------------------------------------------------------}
- Procedure TPersonTypename.SetfamilyName(AIndex : Integer; const AValue : String);
- begin
- If (FfamilyName=AValue) then exit;
- FfamilyName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPersonTypename.Setformatted(AIndex : Integer; const AValue : String);
- begin
- If (Fformatted=AValue) then exit;
- Fformatted:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPersonTypename.SetgivenName(AIndex : Integer; const AValue : String);
- begin
- If (FgivenName=AValue) then exit;
- FgivenName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPersonTypename.SethonorificPrefix(AIndex : Integer; const AValue : String);
- begin
- If (FhonorificPrefix=AValue) then exit;
- FhonorificPrefix:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPersonTypename.SethonorificSuffix(AIndex : Integer; const AValue : String);
- begin
- If (FhonorificSuffix=AValue) then exit;
- FhonorificSuffix:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPersonTypename.SetmiddleName(AIndex : Integer; const AValue : String);
- begin
- If (FmiddleName=AValue) then exit;
- FmiddleName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TPersonTypeorganizationsItem
- --------------------------------------------------------------------}
- Procedure TPersonTypeorganizationsItem.Setdepartment(AIndex : Integer; const AValue : String);
- begin
- If (Fdepartment=AValue) then exit;
- Fdepartment:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPersonTypeorganizationsItem.Setdescription(AIndex : Integer; const AValue : String);
- begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPersonTypeorganizationsItem.SetendDate(AIndex : Integer; const AValue : String);
- begin
- If (FendDate=AValue) then exit;
- FendDate:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPersonTypeorganizationsItem.Setlocation(AIndex : Integer; const AValue : String);
- begin
- If (Flocation=AValue) then exit;
- Flocation:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPersonTypeorganizationsItem.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPersonTypeorganizationsItem.Setprimary(AIndex : Integer; const AValue : boolean);
- begin
- If (Fprimary=AValue) then exit;
- Fprimary:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPersonTypeorganizationsItem.SetstartDate(AIndex : Integer; const AValue : String);
- begin
- If (FstartDate=AValue) then exit;
- FstartDate:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPersonTypeorganizationsItem.Settitle(AIndex : Integer; const AValue : String);
- begin
- If (Ftitle=AValue) then exit;
- Ftitle:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPersonTypeorganizationsItem.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TPersonTypeorganizationsItem.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- { --------------------------------------------------------------------
- TPersonTypeplacesLivedItem
- --------------------------------------------------------------------}
- Procedure TPersonTypeplacesLivedItem.Setprimary(AIndex : Integer; const AValue : boolean);
- begin
- If (Fprimary=AValue) then exit;
- Fprimary:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPersonTypeplacesLivedItem.Setvalue(AIndex : Integer; const AValue : String);
- begin
- If (Fvalue=AValue) then exit;
- Fvalue:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TPersonTypeurlsItem
- --------------------------------------------------------------------}
- Procedure TPersonTypeurlsItem.Set_label(AIndex : Integer; const AValue : String);
- begin
- If (F_label=AValue) then exit;
- F_label:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPersonTypeurlsItem.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPersonTypeurlsItem.Setvalue(AIndex : Integer; const AValue : String);
- begin
- If (Fvalue=AValue) then exit;
- Fvalue:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TPersonTypeurlsItem.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_label' : Result:='label';
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- { --------------------------------------------------------------------
- TPerson
- --------------------------------------------------------------------}
- Procedure TPerson.SetaboutMe(AIndex : Integer; const AValue : String);
- begin
- If (FaboutMe=AValue) then exit;
- FaboutMe:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.Setbirthday(AIndex : Integer; const AValue : String);
- begin
- If (Fbirthday=AValue) then exit;
- Fbirthday:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.SetbraggingRights(AIndex : Integer; const AValue : String);
- begin
- If (FbraggingRights=AValue) then exit;
- FbraggingRights:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.SetcircledByCount(AIndex : Integer; const AValue : integer);
- begin
- If (FcircledByCount=AValue) then exit;
- FcircledByCount:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.Setcover(AIndex : Integer; const AValue : TPersonTypecover);
- begin
- If (Fcover=AValue) then exit;
- Fcover:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.SetcurrentLocation(AIndex : Integer; const AValue : String);
- begin
- If (FcurrentLocation=AValue) then exit;
- FcurrentLocation:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.SetdisplayName(AIndex : Integer; const AValue : String);
- begin
- If (FdisplayName=AValue) then exit;
- FdisplayName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.Setdomain(AIndex : Integer; const AValue : String);
- begin
- If (Fdomain=AValue) then exit;
- Fdomain:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.Setemails(AIndex : Integer; const AValue : TPersonTypeemailsArray);
- begin
- If (Femails=AValue) then exit;
- Femails:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.Setetag(AIndex : Integer; const AValue : String);
- begin
- If (Fetag=AValue) then exit;
- Fetag:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.Setgender(AIndex : Integer; const AValue : String);
- begin
- If (Fgender=AValue) then exit;
- Fgender:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.Setimage(AIndex : Integer; const AValue : TPersonTypeimage);
- begin
- If (Fimage=AValue) then exit;
- Fimage:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.SetisPlusUser(AIndex : Integer; const AValue : boolean);
- begin
- If (FisPlusUser=AValue) then exit;
- FisPlusUser:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.Setname(AIndex : Integer; const AValue : TPersonTypename);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.Setnickname(AIndex : Integer; const AValue : String);
- begin
- If (Fnickname=AValue) then exit;
- Fnickname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.SetobjectType(AIndex : Integer; const AValue : String);
- begin
- If (FobjectType=AValue) then exit;
- FobjectType:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.Setoccupation(AIndex : Integer; const AValue : String);
- begin
- If (Foccupation=AValue) then exit;
- Foccupation:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.Setorganizations(AIndex : Integer; const AValue : TPersonTypeorganizationsArray);
- begin
- If (Forganizations=AValue) then exit;
- Forganizations:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.SetplacesLived(AIndex : Integer; const AValue : TPersonTypeplacesLivedArray);
- begin
- If (FplacesLived=AValue) then exit;
- FplacesLived:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.SetplusOneCount(AIndex : Integer; const AValue : integer);
- begin
- If (FplusOneCount=AValue) then exit;
- FplusOneCount:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.SetrelationshipStatus(AIndex : Integer; const AValue : String);
- begin
- If (FrelationshipStatus=AValue) then exit;
- FrelationshipStatus:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.Setskills(AIndex : Integer; const AValue : String);
- begin
- If (Fskills=AValue) then exit;
- Fskills:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.Settagline(AIndex : Integer; const AValue : String);
- begin
- If (Ftagline=AValue) then exit;
- Ftagline:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.Seturl(AIndex : Integer; const AValue : String);
- begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.Seturls(AIndex : Integer; const AValue : TPersonTypeurlsArray);
- begin
- If (Furls=AValue) then exit;
- Furls:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPerson.Setverified(AIndex : Integer; const AValue : boolean);
- begin
- If (Fverified=AValue) then exit;
- Fverified:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TPerson.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'emails' : SetLength(Femails,ALength);
- 'organizations' : SetLength(Forganizations,ALength);
- 'placeslived' : SetLength(FplacesLived,ALength);
- 'urls' : SetLength(Furls,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TPlaceTypeaddress
- --------------------------------------------------------------------}
- Procedure TPlaceTypeaddress.Setformatted(AIndex : Integer; const AValue : String);
- begin
- If (Fformatted=AValue) then exit;
- Fformatted:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TPlaceTypeposition
- --------------------------------------------------------------------}
- Procedure TPlaceTypeposition.Setlatitude(AIndex : Integer; const AValue : double);
- begin
- If (Flatitude=AValue) then exit;
- Flatitude:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPlaceTypeposition.Setlongitude(AIndex : Integer; const AValue : double);
- begin
- If (Flongitude=AValue) then exit;
- Flongitude:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TPlace
- --------------------------------------------------------------------}
- Procedure TPlace.Setaddress(AIndex : Integer; const AValue : TPlaceTypeaddress);
- begin
- If (Faddress=AValue) then exit;
- Faddress:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPlace.SetdisplayName(AIndex : Integer; const AValue : String);
- begin
- If (FdisplayName=AValue) then exit;
- FdisplayName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPlace.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPlace.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPlace.Setposition(AIndex : Integer; const AValue : TPlaceTypeposition);
- begin
- If (Fposition=AValue) then exit;
- Fposition:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TPlusDomainsAclentryResource
- --------------------------------------------------------------------}
- Procedure TPlusDomainsAclentryResource.SetdisplayName(AIndex : Integer; const AValue : String);
- begin
- If (FdisplayName=AValue) then exit;
- FdisplayName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPlusDomainsAclentryResource.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPlusDomainsAclentryResource.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TPlusDomainsAclentryResource.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- { --------------------------------------------------------------------
- TVideostream
- --------------------------------------------------------------------}
- Procedure TVideostream.Setheight(AIndex : Integer; const AValue : integer);
- begin
- If (Fheight=AValue) then exit;
- Fheight:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TVideostream.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TVideostream.Seturl(AIndex : Integer; const AValue : String);
- begin
- If (Furl=AValue) then exit;
- Furl:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TVideostream.Setwidth(AIndex : Integer; const AValue : integer);
- begin
- If (Fwidth=AValue) then exit;
- Fwidth:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TVideostream.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- { --------------------------------------------------------------------
- TActivitiesResource
- --------------------------------------------------------------------}
- Class Function TActivitiesResource.ResourceName : String;
- begin
- Result:='activities';
- end;
- Class Function TActivitiesResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TplusDomainsAPI;
- end;
- Function TActivitiesResource.Get(activityId: string) : TActivity;
- Const
- _HTTPMethod = 'GET';
- _Path = 'activities/{activityId}';
- _Methodid = 'plusDomains.activities.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['activityId',activityId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TActivity) as TActivity;
- end;
- Function TActivitiesResource.Insert(userId: string; aActivity : TActivity; AQuery : string = '') : TActivity;
- Const
- _HTTPMethod = 'POST';
- _Path = 'people/{userId}/activities';
- _Methodid = 'plusDomains.activities.insert';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['userId',userId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,aActivity,TActivity) as TActivity;
- end;
- Function TActivitiesResource.Insert(userId: string; aActivity : TActivity; AQuery : TActivitiesinsertOptions) : TActivity;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'preview',AQuery.preview);
- Result:=Insert(userId,aActivity,_Q);
- end;
- Function TActivitiesResource.List(collection: string; userId: string; AQuery : string = '') : TActivityFeed;
- Const
- _HTTPMethod = 'GET';
- _Path = 'people/{userId}/activities/{collection}';
- _Methodid = 'plusDomains.activities.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['collection',collection,'userId',userId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TActivityFeed) as TActivityFeed;
- end;
- Function TActivitiesResource.List(collection: string; userId: string; AQuery : TActivitieslistOptions) : TActivityFeed;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- Result:=List(collection,userId,_Q);
- end;
- { --------------------------------------------------------------------
- TAudiencesResource
- --------------------------------------------------------------------}
- Class Function TAudiencesResource.ResourceName : String;
- begin
- Result:='audiences';
- end;
- Class Function TAudiencesResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TplusDomainsAPI;
- end;
- Function TAudiencesResource.List(userId: string; AQuery : string = '') : TAudiencesFeed;
- Const
- _HTTPMethod = 'GET';
- _Path = 'people/{userId}/audiences';
- _Methodid = 'plusDomains.audiences.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['userId',userId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAudiencesFeed) as TAudiencesFeed;
- end;
- Function TAudiencesResource.List(userId: string; AQuery : TAudienceslistOptions) : TAudiencesFeed;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- Result:=List(userId,_Q);
- end;
- { --------------------------------------------------------------------
- TCirclesResource
- --------------------------------------------------------------------}
- Class Function TCirclesResource.ResourceName : String;
- begin
- Result:='circles';
- end;
- Class Function TCirclesResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TplusDomainsAPI;
- end;
- Function TCirclesResource.AddPeople(circleId: string; AQuery : string = '') : TCircle;
- Const
- _HTTPMethod = 'PUT';
- _Path = 'circles/{circleId}/people';
- _Methodid = 'plusDomains.circles.addPeople';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['circleId',circleId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TCircle) as TCircle;
- end;
- Function TCirclesResource.AddPeople(circleId: string; AQuery : TCirclesaddPeopleOptions) : TCircle;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'email',AQuery.email);
- AddToQuery(_Q,'userId',AQuery.userId);
- Result:=AddPeople(circleId,_Q);
- end;
- Function TCirclesResource.Get(circleId: string) : TCircle;
- Const
- _HTTPMethod = 'GET';
- _Path = 'circles/{circleId}';
- _Methodid = 'plusDomains.circles.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['circleId',circleId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TCircle) as TCircle;
- end;
- Function TCirclesResource.Insert(userId: string; aCircle : TCircle) : TCircle;
- Const
- _HTTPMethod = 'POST';
- _Path = 'people/{userId}/circles';
- _Methodid = 'plusDomains.circles.insert';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['userId',userId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aCircle,TCircle) as TCircle;
- end;
- Function TCirclesResource.List(userId: string; AQuery : string = '') : TCircleFeed;
- Const
- _HTTPMethod = 'GET';
- _Path = 'people/{userId}/circles';
- _Methodid = 'plusDomains.circles.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['userId',userId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TCircleFeed) as TCircleFeed;
- end;
- Function TCirclesResource.List(userId: string; AQuery : TCircleslistOptions) : TCircleFeed;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- Result:=List(userId,_Q);
- end;
- Function TCirclesResource.Patch(circleId: string; aCircle : TCircle) : TCircle;
- Const
- _HTTPMethod = 'PATCH';
- _Path = 'circles/{circleId}';
- _Methodid = 'plusDomains.circles.patch';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['circleId',circleId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aCircle,TCircle) as TCircle;
- end;
- Procedure TCirclesResource.Remove(circleId: string);
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'circles/{circleId}';
- _Methodid = 'plusDomains.circles.remove';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['circleId',circleId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
- end;
- Procedure TCirclesResource.RemovePeople(circleId: string; AQuery : string = '');
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'circles/{circleId}/people';
- _Methodid = 'plusDomains.circles.removePeople';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['circleId',circleId]);
- ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil);
- end;
- Procedure TCirclesResource.RemovePeople(circleId: string; AQuery : TCirclesremovePeopleOptions);
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'email',AQuery.email);
- AddToQuery(_Q,'userId',AQuery.userId);
- RemovePeople(circleId,_Q);
- end;
- Function TCirclesResource.Update(circleId: string; aCircle : TCircle) : TCircle;
- Const
- _HTTPMethod = 'PUT';
- _Path = 'circles/{circleId}';
- _Methodid = 'plusDomains.circles.update';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['circleId',circleId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aCircle,TCircle) as TCircle;
- end;
- { --------------------------------------------------------------------
- TCommentsResource
- --------------------------------------------------------------------}
- Class Function TCommentsResource.ResourceName : String;
- begin
- Result:='comments';
- end;
- Class Function TCommentsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TplusDomainsAPI;
- end;
- Function TCommentsResource.Get(commentId: string) : TComment;
- Const
- _HTTPMethod = 'GET';
- _Path = 'comments/{commentId}';
- _Methodid = 'plusDomains.comments.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['commentId',commentId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TComment) as TComment;
- end;
- Function TCommentsResource.Insert(activityId: string; aComment : TComment) : TComment;
- Const
- _HTTPMethod = 'POST';
- _Path = 'activities/{activityId}/comments';
- _Methodid = 'plusDomains.comments.insert';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['activityId',activityId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aComment,TComment) as TComment;
- end;
- Function TCommentsResource.List(activityId: string; AQuery : string = '') : TCommentFeed;
- Const
- _HTTPMethod = 'GET';
- _Path = 'activities/{activityId}/comments';
- _Methodid = 'plusDomains.comments.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['activityId',activityId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TCommentFeed) as TCommentFeed;
- end;
- Function TCommentsResource.List(activityId: string; AQuery : TCommentslistOptions) : TCommentFeed;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'sortOrder',AQuery.sortOrder);
- Result:=List(activityId,_Q);
- end;
- { --------------------------------------------------------------------
- TMediaResource
- --------------------------------------------------------------------}
- Class Function TMediaResource.ResourceName : String;
- begin
- Result:='media';
- end;
- Class Function TMediaResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TplusDomainsAPI;
- end;
- Function TMediaResource.Insert(collection: string; userId: string; aMedia : TMedia) : TMedia;
- Const
- _HTTPMethod = 'POST';
- _Path = 'people/{userId}/media/{collection}';
- _Methodid = 'plusDomains.media.insert';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['collection',collection,'userId',userId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aMedia,TMedia) as TMedia;
- end;
- { --------------------------------------------------------------------
- TPeopleResource
- --------------------------------------------------------------------}
- Class Function TPeopleResource.ResourceName : String;
- begin
- Result:='people';
- end;
- Class Function TPeopleResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TplusDomainsAPI;
- end;
- Function TPeopleResource.Get(userId: string) : TPerson;
- Const
- _HTTPMethod = 'GET';
- _Path = 'people/{userId}';
- _Methodid = 'plusDomains.people.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['userId',userId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPerson) as TPerson;
- end;
- Function TPeopleResource.List(collection: string; userId: string; AQuery : string = '') : TPeopleFeed;
- Const
- _HTTPMethod = 'GET';
- _Path = 'people/{userId}/people/{collection}';
- _Methodid = 'plusDomains.people.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['collection',collection,'userId',userId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPeopleFeed) as TPeopleFeed;
- end;
- Function TPeopleResource.List(collection: string; userId: string; AQuery : TPeoplelistOptions) : TPeopleFeed;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'orderBy',AQuery.orderBy);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- Result:=List(collection,userId,_Q);
- end;
- Function TPeopleResource.ListByActivity(activityId: string; collection: string; AQuery : string = '') : TPeopleFeed;
- Const
- _HTTPMethod = 'GET';
- _Path = 'activities/{activityId}/people/{collection}';
- _Methodid = 'plusDomains.people.listByActivity';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['activityId',activityId,'collection',collection]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPeopleFeed) as TPeopleFeed;
- end;
- Function TPeopleResource.ListByActivity(activityId: string; collection: string; AQuery : TPeoplelistByActivityOptions) : TPeopleFeed;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- Result:=ListByActivity(activityId,collection,_Q);
- end;
- Function TPeopleResource.ListByCircle(circleId: string; AQuery : string = '') : TPeopleFeed;
- Const
- _HTTPMethod = 'GET';
- _Path = 'circles/{circleId}/people';
- _Methodid = 'plusDomains.people.listByCircle';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['circleId',circleId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPeopleFeed) as TPeopleFeed;
- end;
- Function TPeopleResource.ListByCircle(circleId: string; AQuery : TPeoplelistByCircleOptions) : TPeopleFeed;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- Result:=ListByCircle(circleId,_Q);
- end;
- { --------------------------------------------------------------------
- TPlusDomainsAPI
- --------------------------------------------------------------------}
- Class Function TPlusDomainsAPI.APIName : String;
- begin
- Result:='plusDomains';
- end;
- Class Function TPlusDomainsAPI.APIVersion : String;
- begin
- Result:='v1';
- end;
- Class Function TPlusDomainsAPI.APIRevision : String;
- begin
- Result:='20160521';
- end;
- Class Function TPlusDomainsAPI.APIID : String;
- begin
- Result:='plusDomains:v1';
- end;
- Class Function TPlusDomainsAPI.APITitle : String;
- begin
- Result:='Google+ Domains API';
- end;
- Class Function TPlusDomainsAPI.APIDescription : String;
- begin
- Result:='Builds on top of the Google+ platform for Google Apps Domains.';
- end;
- Class Function TPlusDomainsAPI.APIOwnerDomain : String;
- begin
- Result:='google.com';
- end;
- Class Function TPlusDomainsAPI.APIOwnerName : String;
- begin
- Result:='Google';
- end;
- Class Function TPlusDomainsAPI.APIIcon16 : String;
- begin
- Result:='http://www.google.com/images/icons/product/gplus-16.png';
- end;
- Class Function TPlusDomainsAPI.APIIcon32 : String;
- begin
- Result:='http://www.google.com/images/icons/product/gplus-32.png';
- end;
- Class Function TPlusDomainsAPI.APIdocumentationLink : String;
- begin
- Result:='https://developers.google.com/+/domains/';
- end;
- Class Function TPlusDomainsAPI.APIrootUrl : string;
- begin
- Result:='https://www.googleapis.com/';
- end;
- Class Function TPlusDomainsAPI.APIbasePath : string;
- begin
- Result:='/plusDomains/v1/';
- end;
- Class Function TPlusDomainsAPI.APIbaseURL : String;
- begin
- Result:='https://www.googleapis.com/plusDomains/v1/';
- end;
- Class Function TPlusDomainsAPI.APIProtocol : string;
- begin
- Result:='rest';
- end;
- Class Function TPlusDomainsAPI.APIservicePath : string;
- begin
- Result:='plusDomains/v1/';
- end;
- Class Function TPlusDomainsAPI.APIbatchPath : String;
- begin
- Result:='batch';
- end;
- Class Function TPlusDomainsAPI.APIAuthScopes : TScopeInfoArray;
- begin
- SetLength(Result,10);
- Result[0].Name:='https://www.googleapis.com/auth/plus.circles.read';
- Result[0].Description:='View your circles and the people and pages in them';
- Result[1].Name:='https://www.googleapis.com/auth/plus.circles.write';
- Result[1].Description:='Manage your circles and add people and pages. People and pages you add to your circles will be notified. Others may see this information publicly. People you add to circles can use Hangouts with you.';
- Result[2].Name:='https://www.googleapis.com/auth/plus.login';
- Result[2].Description:='Know the list of people in your circles, your age range, and language';
- Result[3].Name:='https://www.googleapis.com/auth/plus.me';
- Result[3].Description:='Know who you are on Google';
- Result[4].Name:='https://www.googleapis.com/auth/plus.media.upload';
- Result[4].Description:='Send your photos and videos to Google+';
- Result[5].Name:='https://www.googleapis.com/auth/plus.profiles.read';
- Result[5].Description:='View your own Google+ profile and profiles visible to you';
- Result[6].Name:='https://www.googleapis.com/auth/plus.stream.read';
- Result[6].Description:='View your Google+ posts, comments, and stream';
- Result[7].Name:='https://www.googleapis.com/auth/plus.stream.write';
- Result[7].Description:='Manage your Google+ posts, comments, and stream';
- Result[8].Name:='https://www.googleapis.com/auth/userinfo.email';
- Result[8].Description:='View your email address';
- Result[9].Name:='https://www.googleapis.com/auth/userinfo.profile';
- Result[9].Description:='View your basic profile info';
-
- end;
- Class Function TPlusDomainsAPI.APINeedsAuth : Boolean;
- begin
- Result:=True;
- end;
- Class Procedure TPlusDomainsAPI.RegisterAPIResources;
- begin
- TAcl.RegisterObject;
- TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.RegisterObject;
- TActivityTypeactorTypeclientSpecificActorInfo.RegisterObject;
- TActivityTypeactorTypeimage.RegisterObject;
- TActivityTypeactorTypename.RegisterObject;
- TActivityTypeactorTypeverification.RegisterObject;
- TActivityTypeactor.RegisterObject;
- TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.RegisterObject;
- TActivityTypeobjectTypeactorTypeclientSpecificActorInfo.RegisterObject;
- TActivityTypeobjectTypeactorTypeimage.RegisterObject;
- TActivityTypeobjectTypeactorTypeverification.RegisterObject;
- TActivityTypeobjectTypeactor.RegisterObject;
- TActivityTypeobjectTypeattachmentsItemTypeembed.RegisterObject;
- TActivityTypeobjectTypeattachmentsItemTypefullImage.RegisterObject;
- TActivityTypeobjectTypeattachmentsItemTypeimage.RegisterObject;
- TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsItem.RegisterObject;
- TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage.RegisterObject;
- TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem.RegisterObject;
- TActivityTypeobjectTypeattachmentsItem.RegisterObject;
- TActivityTypeobjectTypeplusoners.RegisterObject;
- TActivityTypeobjectTypereplies.RegisterObject;
- TActivityTypeobjectTyperesharers.RegisterObject;
- TActivityTypeobjectTypestatusForViewer.RegisterObject;
- TActivityTypeobject.RegisterObject;
- TActivityTypeprovider.RegisterObject;
- TActivity.RegisterObject;
- TActivityFeed.RegisterObject;
- TAudience.RegisterObject;
- TAudiencesFeed.RegisterObject;
- TCircleTypepeople.RegisterObject;
- TCircle.RegisterObject;
- TCircleFeed.RegisterObject;
- TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.RegisterObject;
- TCommentTypeactorTypeclientSpecificActorInfo.RegisterObject;
- TCommentTypeactorTypeimage.RegisterObject;
- TCommentTypeactorTypeverification.RegisterObject;
- TCommentTypeactor.RegisterObject;
- TCommentTypeinReplyToItem.RegisterObject;
- TCommentTypeobject.RegisterObject;
- TCommentTypeplusoners.RegisterObject;
- TComment.RegisterObject;
- TCommentFeed.RegisterObject;
- TMediaTypeauthorTypeimage.RegisterObject;
- TMediaTypeauthor.RegisterObject;
- TMediaTypeexif.RegisterObject;
- TMedia.RegisterObject;
- TPeopleFeed.RegisterObject;
- TPersonTypecoverTypecoverInfo.RegisterObject;
- TPersonTypecoverTypecoverPhoto.RegisterObject;
- TPersonTypecover.RegisterObject;
- TPersonTypeemailsItem.RegisterObject;
- TPersonTypeimage.RegisterObject;
- TPersonTypename.RegisterObject;
- TPersonTypeorganizationsItem.RegisterObject;
- TPersonTypeplacesLivedItem.RegisterObject;
- TPersonTypeurlsItem.RegisterObject;
- TPerson.RegisterObject;
- TPlaceTypeaddress.RegisterObject;
- TPlaceTypeposition.RegisterObject;
- TPlace.RegisterObject;
- TPlusDomainsAclentryResource.RegisterObject;
- TVideostream.RegisterObject;
- end;
- Function TPlusDomainsAPI.GetActivitiesInstance : TActivitiesResource;
- begin
- if (FActivitiesInstance=Nil) then
- FActivitiesInstance:=CreateActivitiesResource;
- Result:=FActivitiesInstance;
- end;
- Function TPlusDomainsAPI.CreateActivitiesResource : TActivitiesResource;
- begin
- Result:=CreateActivitiesResource(Self);
- end;
- Function TPlusDomainsAPI.CreateActivitiesResource(AOwner : TComponent) : TActivitiesResource;
- begin
- Result:=TActivitiesResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TPlusDomainsAPI.GetAudiencesInstance : TAudiencesResource;
- begin
- if (FAudiencesInstance=Nil) then
- FAudiencesInstance:=CreateAudiencesResource;
- Result:=FAudiencesInstance;
- end;
- Function TPlusDomainsAPI.CreateAudiencesResource : TAudiencesResource;
- begin
- Result:=CreateAudiencesResource(Self);
- end;
- Function TPlusDomainsAPI.CreateAudiencesResource(AOwner : TComponent) : TAudiencesResource;
- begin
- Result:=TAudiencesResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TPlusDomainsAPI.GetCirclesInstance : TCirclesResource;
- begin
- if (FCirclesInstance=Nil) then
- FCirclesInstance:=CreateCirclesResource;
- Result:=FCirclesInstance;
- end;
- Function TPlusDomainsAPI.CreateCirclesResource : TCirclesResource;
- begin
- Result:=CreateCirclesResource(Self);
- end;
- Function TPlusDomainsAPI.CreateCirclesResource(AOwner : TComponent) : TCirclesResource;
- begin
- Result:=TCirclesResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TPlusDomainsAPI.GetCommentsInstance : TCommentsResource;
- begin
- if (FCommentsInstance=Nil) then
- FCommentsInstance:=CreateCommentsResource;
- Result:=FCommentsInstance;
- end;
- Function TPlusDomainsAPI.CreateCommentsResource : TCommentsResource;
- begin
- Result:=CreateCommentsResource(Self);
- end;
- Function TPlusDomainsAPI.CreateCommentsResource(AOwner : TComponent) : TCommentsResource;
- begin
- Result:=TCommentsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TPlusDomainsAPI.GetMediaInstance : TMediaResource;
- begin
- if (FMediaInstance=Nil) then
- FMediaInstance:=CreateMediaResource;
- Result:=FMediaInstance;
- end;
- Function TPlusDomainsAPI.CreateMediaResource : TMediaResource;
- begin
- Result:=CreateMediaResource(Self);
- end;
- Function TPlusDomainsAPI.CreateMediaResource(AOwner : TComponent) : TMediaResource;
- begin
- Result:=TMediaResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TPlusDomainsAPI.GetPeopleInstance : TPeopleResource;
- begin
- if (FPeopleInstance=Nil) then
- FPeopleInstance:=CreatePeopleResource;
- Result:=FPeopleInstance;
- end;
- Function TPlusDomainsAPI.CreatePeopleResource : TPeopleResource;
- begin
- Result:=CreatePeopleResource(Self);
- end;
- Function TPlusDomainsAPI.CreatePeopleResource(AOwner : TComponent) : TPeopleResource;
- begin
- Result:=TPeopleResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- initialization
- TPlusDomainsAPI.RegisterAPI;
- end.
|