googleplusdomains.pp 179 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662366336643665366636673668366936703671367236733674367536763677367836793680368136823683368436853686368736883689369036913692369336943695369636973698369937003701370237033704370537063707370837093710371137123713371437153716371737183719372037213722372337243725372637273728372937303731373237333734373537363737373837393740374137423743374437453746374737483749375037513752375337543755375637573758375937603761376237633764376537663767376837693770377137723773377437753776377737783779378037813782378337843785378637873788378937903791379237933794379537963797379837993800380138023803380438053806380738083809381038113812381338143815381638173818381938203821382238233824382538263827382838293830383138323833383438353836383738383839384038413842384338443845384638473848384938503851385238533854385538563857385838593860386138623863386438653866386738683869387038713872387338743875387638773878387938803881388238833884388538863887388838893890389138923893389438953896389738983899390039013902390339043905390639073908390939103911391239133914391539163917391839193920392139223923392439253926392739283929393039313932393339343935393639373938393939403941394239433944394539463947394839493950395139523953395439553956395739583959396039613962396339643965396639673968396939703971397239733974397539763977397839793980398139823983398439853986398739883989399039913992399339943995399639973998399940004001400240034004400540064007400840094010401140124013401440154016401740184019402040214022402340244025402640274028402940304031403240334034403540364037403840394040404140424043404440454046404740484049405040514052405340544055405640574058405940604061406240634064406540664067406840694070407140724073407440754076407740784079408040814082408340844085408640874088408940904091409240934094409540964097409840994100410141024103410441054106410741084109411041114112411341144115411641174118411941204121412241234124412541264127412841294130413141324133413441354136413741384139414041414142414341444145414641474148414941504151415241534154415541564157415841594160416141624163416441654166416741684169417041714172417341744175417641774178417941804181418241834184418541864187418841894190419141924193419441954196419741984199420042014202420342044205420642074208420942104211421242134214421542164217421842194220422142224223422442254226422742284229423042314232423342344235423642374238423942404241424242434244424542464247424842494250425142524253425442554256425742584259426042614262426342644265426642674268426942704271427242734274427542764277427842794280428142824283428442854286428742884289429042914292429342944295429642974298429943004301430243034304430543064307430843094310431143124313431443154316431743184319432043214322432343244325432643274328432943304331433243334334433543364337433843394340434143424343434443454346434743484349435043514352435343544355435643574358435943604361436243634364436543664367436843694370437143724373437443754376437743784379438043814382438343844385438643874388438943904391439243934394439543964397439843994400440144024403440444054406440744084409441044114412441344144415441644174418441944204421442244234424442544264427442844294430443144324433443444354436443744384439444044414442444344444445444644474448444944504451445244534454445544564457445844594460446144624463446444654466446744684469447044714472447344744475447644774478447944804481448244834484448544864487448844894490449144924493449444954496449744984499450045014502450345044505450645074508450945104511451245134514451545164517451845194520452145224523452445254526452745284529453045314532453345344535453645374538453945404541454245434544454545464547454845494550455145524553455445554556455745584559456045614562456345644565456645674568456945704571457245734574457545764577457845794580458145824583458445854586458745884589459045914592459345944595459645974598459946004601460246034604460546064607460846094610461146124613461446154616461746184619462046214622462346244625462646274628462946304631463246334634463546364637463846394640464146424643464446454646464746484649465046514652465346544655465646574658465946604661466246634664466546664667466846694670467146724673467446754676467746784679468046814682468346844685468646874688468946904691469246934694469546964697469846994700470147024703470447054706470747084709471047114712471347144715471647174718471947204721472247234724472547264727472847294730473147324733473447354736473747384739474047414742474347444745474647474748474947504751475247534754475547564757475847594760476147624763476447654766476747684769477047714772477347744775477647774778477947804781478247834784478547864787478847894790479147924793479447954796479747984799480048014802480348044805480648074808480948104811481248134814481548164817481848194820482148224823482448254826482748284829483048314832483348344835483648374838483948404841484248434844484548464847484848494850485148524853485448554856485748584859486048614862486348644865486648674868486948704871487248734874487548764877487848794880488148824883488448854886488748884889489048914892489348944895489648974898489949004901490249034904490549064907490849094910491149124913491449154916491749184919492049214922492349244925492649274928492949304931493249334934493549364937493849394940494149424943494449454946494749484949495049514952495349544955495649574958495949604961496249634964496549664967496849694970497149724973497449754976497749784979498049814982498349844985498649874988498949904991499249934994499549964997499849995000500150025003500450055006500750085009501050115012501350145015501650175018501950205021502250235024502550265027502850295030503150325033503450355036503750385039504050415042504350445045504650475048504950505051505250535054505550565057505850595060506150625063506450655066506750685069507050715072507350745075507650775078507950805081508250835084508550865087508850895090509150925093509450955096509750985099510051015102510351045105510651075108510951105111511251135114511551165117511851195120512151225123512451255126512751285129513051315132513351345135513651375138513951405141514251435144514551465147514851495150515151525153515451555156515751585159516051615162516351645165516651675168516951705171517251735174517551765177517851795180518151825183518451855186518751885189519051915192519351945195519651975198519952005201520252035204520552065207520852095210521152125213521452155216521752185219522052215222522352245225522652275228522952305231523252335234523552365237523852395240524152425243524452455246524752485249525052515252525352545255525652575258525952605261526252635264526552665267526852695270527152725273527452755276527752785279528052815282528352845285528652875288528952905291529252935294529552965297529852995300530153025303530453055306530753085309531053115312531353145315531653175318531953205321532253235324532553265327532853295330533153325333533453355336533753385339534053415342534353445345534653475348534953505351535253535354535553565357535853595360536153625363536453655366536753685369537053715372537353745375537653775378537953805381538253835384538553865387538853895390539153925393539453955396539753985399540054015402540354045405540654075408540954105411541254135414541554165417541854195420542154225423542454255426542754285429543054315432543354345435543654375438543954405441544254435444544554465447544854495450545154525453545454555456545754585459546054615462546354645465546654675468546954705471547254735474547554765477547854795480548154825483548454855486548754885489549054915492549354945495549654975498549955005501550255035504550555065507550855095510551155125513551455155516551755185519552055215522552355245525552655275528552955305531553255335534553555365537553855395540554155425543554455455546554755485549555055515552555355545555555655575558555955605561556255635564556555665567556855695570557155725573557455755576557755785579558055815582558355845585558655875588558955905591559255935594559555965597559855995600560156025603560456055606560756085609561056115612561356145615561656175618561956205621562256235624562556265627562856295630563156325633563456355636563756385639564056415642564356445645564656475648564956505651565256535654565556565657565856595660566156625663566456655666566756685669567056715672567356745675567656775678567956805681568256835684568556865687568856895690569156925693569456955696569756985699570057015702570357045705570657075708570957105711571257135714571557165717571857195720572157225723572457255726572757285729573057315732573357345735573657375738573957405741574257435744574557465747574857495750575157525753575457555756575757585759576057615762576357645765576657675768576957705771577257735774577557765777577857795780578157825783578457855786578757885789579057915792579357945795579657975798579958005801580258035804580558065807580858095810581158125813581458155816581758185819582058215822582358245825582658275828582958305831583258335834583558365837583858395840584158425843584458455846584758485849585058515852585358545855585658575858585958605861586258635864586558665867586858695870587158725873587458755876587758785879588058815882588358845885588658875888588958905891589258935894589558965897589858995900590159025903590459055906590759085909591059115912591359145915591659175918591959205921592259235924592559265927592859295930593159325933593459355936593759385939594059415942594359445945594659475948594959505951595259535954595559565957595859595960596159625963596459655966596759685969597059715972597359745975597659775978597959805981598259835984598559865987598859895990599159925993599459955996599759985999600060016002600360046005600660076008600960106011601260136014601560166017601860196020602160226023602460256026602760286029603060316032603360346035603660376038603960406041604260436044604560466047604860496050605160526053605460556056605760586059606060616062606360646065606660676068606960706071607260736074607560766077607860796080608160826083608460856086608760886089609060916092609360946095609660976098609961006101610261036104610561066107610861096110611161126113611461156116611761186119612061216122612361246125612661276128612961306131613261336134613561366137613861396140614161426143614461456146614761486149615061516152615361546155615661576158615961606161616261636164616561666167616861696170617161726173617461756176617761786179618061816182618361846185618661876188618961906191619261936194619561966197619861996200620162026203620462056206620762086209621062116212621362146215621662176218621962206221622262236224622562266227622862296230623162326233623462356236623762386239624062416242624362446245624662476248624962506251625262536254625562566257625862596260626162626263626462656266626762686269627062716272627362746275627662776278627962806281628262836284628562866287628862896290629162926293629462956296629762986299630063016302630363046305630663076308630963106311631263136314631563166317631863196320632163226323632463256326632763286329633063316332633363346335633663376338633963406341634263436344634563466347634863496350635163526353635463556356635763586359636063616362636363646365636663676368636963706371637263736374637563766377637863796380638163826383638463856386
  1. unit googleplusDomains;
  2. {$MODE objfpc}
  3. {$H+}
  4. interface
  5. uses sysutils, classes, googleservice, restbase, googlebase;
  6. type
  7. //Top-level schema types
  8. TAcl = Class;
  9. TActivity = Class;
  10. TActivityFeed = Class;
  11. TAudience = Class;
  12. TAudiencesFeed = Class;
  13. TCircle = Class;
  14. TCircleFeed = Class;
  15. TComment = Class;
  16. TCommentFeed = Class;
  17. TMedia = Class;
  18. TPeopleFeed = Class;
  19. TPerson = Class;
  20. TPlace = Class;
  21. TPlusDomainsAclentryResource = Class;
  22. TVideostream = Class;
  23. TAclArray = Array of TAcl;
  24. TActivityArray = Array of TActivity;
  25. TActivityFeedArray = Array of TActivityFeed;
  26. TAudienceArray = Array of TAudience;
  27. TAudiencesFeedArray = Array of TAudiencesFeed;
  28. TCircleArray = Array of TCircle;
  29. TCircleFeedArray = Array of TCircleFeed;
  30. TCommentArray = Array of TComment;
  31. TCommentFeedArray = Array of TCommentFeed;
  32. TMediaArray = Array of TMedia;
  33. TPeopleFeedArray = Array of TPeopleFeed;
  34. TPersonArray = Array of TPerson;
  35. TPlaceArray = Array of TPlace;
  36. TPlusDomainsAclentryResourceArray = Array of TPlusDomainsAclentryResource;
  37. TVideostreamArray = Array of TVideostream;
  38. //Anonymous types, using auto-generated names
  39. TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class;
  40. TActivityTypeactorTypeclientSpecificActorInfo = Class;
  41. TActivityTypeactorTypeimage = Class;
  42. TActivityTypeactorTypename = Class;
  43. TActivityTypeactorTypeverification = Class;
  44. TActivityTypeactor = Class;
  45. TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class;
  46. TActivityTypeobjectTypeactorTypeclientSpecificActorInfo = Class;
  47. TActivityTypeobjectTypeactorTypeimage = Class;
  48. TActivityTypeobjectTypeactorTypeverification = Class;
  49. TActivityTypeobjectTypeactor = Class;
  50. TActivityTypeobjectTypeattachmentsItemTypeembed = Class;
  51. TActivityTypeobjectTypeattachmentsItemTypefullImage = Class;
  52. TActivityTypeobjectTypeattachmentsItemTypeimage = Class;
  53. TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsItem = Class;
  54. TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage = Class;
  55. TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem = Class;
  56. TActivityTypeobjectTypeattachmentsItem = Class;
  57. TActivityTypeobjectTypeplusoners = Class;
  58. TActivityTypeobjectTypereplies = Class;
  59. TActivityTypeobjectTyperesharers = Class;
  60. TActivityTypeobjectTypestatusForViewer = Class;
  61. TActivityTypeobject = Class;
  62. TActivityTypeprovider = Class;
  63. TCircleTypepeople = Class;
  64. TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class;
  65. TCommentTypeactorTypeclientSpecificActorInfo = Class;
  66. TCommentTypeactorTypeimage = Class;
  67. TCommentTypeactorTypeverification = Class;
  68. TCommentTypeactor = Class;
  69. TCommentTypeinReplyToItem = Class;
  70. TCommentTypeobject = Class;
  71. TCommentTypeplusoners = Class;
  72. TMediaTypeauthorTypeimage = Class;
  73. TMediaTypeauthor = Class;
  74. TMediaTypeexif = Class;
  75. TPersonTypecoverTypecoverInfo = Class;
  76. TPersonTypecoverTypecoverPhoto = Class;
  77. TPersonTypecover = Class;
  78. TPersonTypeemailsItem = Class;
  79. TPersonTypeimage = Class;
  80. TPersonTypename = Class;
  81. TPersonTypeorganizationsItem = Class;
  82. TPersonTypeplacesLivedItem = Class;
  83. TPersonTypeurlsItem = Class;
  84. TPlaceTypeaddress = Class;
  85. TPlaceTypeposition = Class;
  86. TAclTypeitemsArray = Array of TPlusDomainsAclentryResource;
  87. TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsArray = Array of TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsItem;
  88. TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray = Array of TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem;
  89. TActivityTypeobjectTypeattachmentsArray = Array of TActivityTypeobjectTypeattachmentsItem;
  90. TActivityFeedTypeitemsArray = Array of TActivity;
  91. TAudiencesFeedTypeitemsArray = Array of TAudience;
  92. TCircleFeedTypeitemsArray = Array of TCircle;
  93. TCommentTypeinReplyToArray = Array of TCommentTypeinReplyToItem;
  94. TCommentFeedTypeitemsArray = Array of TComment;
  95. TMediaTypestreamsArray = Array of TVideostream;
  96. TPeopleFeedTypeitemsArray = Array of TPerson;
  97. TPersonTypeemailsArray = Array of TPersonTypeemailsItem;
  98. TPersonTypeorganizationsArray = Array of TPersonTypeorganizationsItem;
  99. TPersonTypeplacesLivedArray = Array of TPersonTypeplacesLivedItem;
  100. TPersonTypeurlsArray = Array of TPersonTypeurlsItem;
  101. { --------------------------------------------------------------------
  102. TAcl
  103. --------------------------------------------------------------------}
  104. TAcl = Class(TGoogleBaseObject)
  105. Private
  106. Fdescription : String;
  107. FdomainRestricted : boolean;
  108. Fitems : TAclTypeitemsArray;
  109. Fkind : String;
  110. Protected
  111. //Property setters
  112. Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
  113. Procedure SetdomainRestricted(AIndex : Integer; const AValue : boolean); virtual;
  114. Procedure Setitems(AIndex : Integer; const AValue : TAclTypeitemsArray); virtual;
  115. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  116. //2.6.4. bug workaround
  117. {$IFDEF VER2_6}
  118. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  119. {$ENDIF VER2_6}
  120. Public
  121. Published
  122. Property description : String Index 0 Read Fdescription Write Setdescription;
  123. Property domainRestricted : boolean Index 8 Read FdomainRestricted Write SetdomainRestricted;
  124. Property items : TAclTypeitemsArray Index 16 Read Fitems Write Setitems;
  125. Property kind : String Index 24 Read Fkind Write Setkind;
  126. end;
  127. TAclClass = Class of TAcl;
  128. { --------------------------------------------------------------------
  129. TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo
  130. --------------------------------------------------------------------}
  131. TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class(TGoogleBaseObject)
  132. Private
  133. FchannelId : String;
  134. Protected
  135. //Property setters
  136. Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
  137. Public
  138. Published
  139. Property channelId : String Index 0 Read FchannelId Write SetchannelId;
  140. end;
  141. TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfoClass = Class of TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo;
  142. { --------------------------------------------------------------------
  143. TActivityTypeactorTypeclientSpecificActorInfo
  144. --------------------------------------------------------------------}
  145. TActivityTypeactorTypeclientSpecificActorInfo = Class(TGoogleBaseObject)
  146. Private
  147. FyoutubeActorInfo : TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo;
  148. Protected
  149. //Property setters
  150. Procedure SetyoutubeActorInfo(AIndex : Integer; const AValue : TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo); virtual;
  151. Public
  152. Published
  153. Property youtubeActorInfo : TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo Index 0 Read FyoutubeActorInfo Write SetyoutubeActorInfo;
  154. end;
  155. TActivityTypeactorTypeclientSpecificActorInfoClass = Class of TActivityTypeactorTypeclientSpecificActorInfo;
  156. { --------------------------------------------------------------------
  157. TActivityTypeactorTypeimage
  158. --------------------------------------------------------------------}
  159. TActivityTypeactorTypeimage = Class(TGoogleBaseObject)
  160. Private
  161. Furl : String;
  162. Protected
  163. //Property setters
  164. Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  165. Public
  166. Published
  167. Property url : String Index 0 Read Furl Write Seturl;
  168. end;
  169. TActivityTypeactorTypeimageClass = Class of TActivityTypeactorTypeimage;
  170. { --------------------------------------------------------------------
  171. TActivityTypeactorTypename
  172. --------------------------------------------------------------------}
  173. TActivityTypeactorTypename = Class(TGoogleBaseObject)
  174. Private
  175. FfamilyName : String;
  176. FgivenName : String;
  177. Protected
  178. //Property setters
  179. Procedure SetfamilyName(AIndex : Integer; const AValue : String); virtual;
  180. Procedure SetgivenName(AIndex : Integer; const AValue : String); virtual;
  181. Public
  182. Published
  183. Property familyName : String Index 0 Read FfamilyName Write SetfamilyName;
  184. Property givenName : String Index 8 Read FgivenName Write SetgivenName;
  185. end;
  186. TActivityTypeactorTypenameClass = Class of TActivityTypeactorTypename;
  187. { --------------------------------------------------------------------
  188. TActivityTypeactorTypeverification
  189. --------------------------------------------------------------------}
  190. TActivityTypeactorTypeverification = Class(TGoogleBaseObject)
  191. Private
  192. FadHocVerified : String;
  193. Protected
  194. //Property setters
  195. Procedure SetadHocVerified(AIndex : Integer; const AValue : String); virtual;
  196. Public
  197. Published
  198. Property adHocVerified : String Index 0 Read FadHocVerified Write SetadHocVerified;
  199. end;
  200. TActivityTypeactorTypeverificationClass = Class of TActivityTypeactorTypeverification;
  201. { --------------------------------------------------------------------
  202. TActivityTypeactor
  203. --------------------------------------------------------------------}
  204. TActivityTypeactor = Class(TGoogleBaseObject)
  205. Private
  206. FclientSpecificActorInfo : TActivityTypeactorTypeclientSpecificActorInfo;
  207. FdisplayName : String;
  208. Fid : String;
  209. Fimage : TActivityTypeactorTypeimage;
  210. Fname : TActivityTypeactorTypename;
  211. Furl : String;
  212. Fverification : TActivityTypeactorTypeverification;
  213. Protected
  214. //Property setters
  215. Procedure SetclientSpecificActorInfo(AIndex : Integer; const AValue : TActivityTypeactorTypeclientSpecificActorInfo); virtual;
  216. Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
  217. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  218. Procedure Setimage(AIndex : Integer; const AValue : TActivityTypeactorTypeimage); virtual;
  219. Procedure Setname(AIndex : Integer; const AValue : TActivityTypeactorTypename); virtual;
  220. Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  221. Procedure Setverification(AIndex : Integer; const AValue : TActivityTypeactorTypeverification); virtual;
  222. Public
  223. Published
  224. Property clientSpecificActorInfo : TActivityTypeactorTypeclientSpecificActorInfo Index 0 Read FclientSpecificActorInfo Write SetclientSpecificActorInfo;
  225. Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
  226. Property id : String Index 16 Read Fid Write Setid;
  227. Property image : TActivityTypeactorTypeimage Index 24 Read Fimage Write Setimage;
  228. Property name : TActivityTypeactorTypename Index 32 Read Fname Write Setname;
  229. Property url : String Index 40 Read Furl Write Seturl;
  230. Property verification : TActivityTypeactorTypeverification Index 48 Read Fverification Write Setverification;
  231. end;
  232. TActivityTypeactorClass = Class of TActivityTypeactor;
  233. { --------------------------------------------------------------------
  234. TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo
  235. --------------------------------------------------------------------}
  236. TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class(TGoogleBaseObject)
  237. Private
  238. FchannelId : String;
  239. Protected
  240. //Property setters
  241. Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
  242. Public
  243. Published
  244. Property channelId : String Index 0 Read FchannelId Write SetchannelId;
  245. end;
  246. TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfoClass = Class of TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo;
  247. { --------------------------------------------------------------------
  248. TActivityTypeobjectTypeactorTypeclientSpecificActorInfo
  249. --------------------------------------------------------------------}
  250. TActivityTypeobjectTypeactorTypeclientSpecificActorInfo = Class(TGoogleBaseObject)
  251. Private
  252. FyoutubeActorInfo : TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo;
  253. Protected
  254. //Property setters
  255. Procedure SetyoutubeActorInfo(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo); virtual;
  256. Public
  257. Published
  258. Property youtubeActorInfo : TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo Index 0 Read FyoutubeActorInfo Write SetyoutubeActorInfo;
  259. end;
  260. TActivityTypeobjectTypeactorTypeclientSpecificActorInfoClass = Class of TActivityTypeobjectTypeactorTypeclientSpecificActorInfo;
  261. { --------------------------------------------------------------------
  262. TActivityTypeobjectTypeactorTypeimage
  263. --------------------------------------------------------------------}
  264. TActivityTypeobjectTypeactorTypeimage = Class(TGoogleBaseObject)
  265. Private
  266. Furl : String;
  267. Protected
  268. //Property setters
  269. Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  270. Public
  271. Published
  272. Property url : String Index 0 Read Furl Write Seturl;
  273. end;
  274. TActivityTypeobjectTypeactorTypeimageClass = Class of TActivityTypeobjectTypeactorTypeimage;
  275. { --------------------------------------------------------------------
  276. TActivityTypeobjectTypeactorTypeverification
  277. --------------------------------------------------------------------}
  278. TActivityTypeobjectTypeactorTypeverification = Class(TGoogleBaseObject)
  279. Private
  280. FadHocVerified : String;
  281. Protected
  282. //Property setters
  283. Procedure SetadHocVerified(AIndex : Integer; const AValue : String); virtual;
  284. Public
  285. Published
  286. Property adHocVerified : String Index 0 Read FadHocVerified Write SetadHocVerified;
  287. end;
  288. TActivityTypeobjectTypeactorTypeverificationClass = Class of TActivityTypeobjectTypeactorTypeverification;
  289. { --------------------------------------------------------------------
  290. TActivityTypeobjectTypeactor
  291. --------------------------------------------------------------------}
  292. TActivityTypeobjectTypeactor = Class(TGoogleBaseObject)
  293. Private
  294. FclientSpecificActorInfo : TActivityTypeobjectTypeactorTypeclientSpecificActorInfo;
  295. FdisplayName : String;
  296. Fid : String;
  297. Fimage : TActivityTypeobjectTypeactorTypeimage;
  298. Furl : String;
  299. Fverification : TActivityTypeobjectTypeactorTypeverification;
  300. Protected
  301. //Property setters
  302. Procedure SetclientSpecificActorInfo(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeclientSpecificActorInfo); virtual;
  303. Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
  304. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  305. Procedure Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeimage); virtual;
  306. Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  307. Procedure Setverification(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeverification); virtual;
  308. Public
  309. Published
  310. Property clientSpecificActorInfo : TActivityTypeobjectTypeactorTypeclientSpecificActorInfo Index 0 Read FclientSpecificActorInfo Write SetclientSpecificActorInfo;
  311. Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
  312. Property id : String Index 16 Read Fid Write Setid;
  313. Property image : TActivityTypeobjectTypeactorTypeimage Index 24 Read Fimage Write Setimage;
  314. Property url : String Index 32 Read Furl Write Seturl;
  315. Property verification : TActivityTypeobjectTypeactorTypeverification Index 40 Read Fverification Write Setverification;
  316. end;
  317. TActivityTypeobjectTypeactorClass = Class of TActivityTypeobjectTypeactor;
  318. { --------------------------------------------------------------------
  319. TActivityTypeobjectTypeattachmentsItemTypeembed
  320. --------------------------------------------------------------------}
  321. TActivityTypeobjectTypeattachmentsItemTypeembed = Class(TGoogleBaseObject)
  322. Private
  323. F_type : String;
  324. Furl : String;
  325. Protected
  326. Class Function ExportPropertyName(Const AName : String) : string; override;
  327. //Property setters
  328. Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  329. Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  330. Public
  331. Published
  332. Property _type : String Index 0 Read F_type Write Set_type;
  333. Property url : String Index 8 Read Furl Write Seturl;
  334. end;
  335. TActivityTypeobjectTypeattachmentsItemTypeembedClass = Class of TActivityTypeobjectTypeattachmentsItemTypeembed;
  336. { --------------------------------------------------------------------
  337. TActivityTypeobjectTypeattachmentsItemTypefullImage
  338. --------------------------------------------------------------------}
  339. TActivityTypeobjectTypeattachmentsItemTypefullImage = Class(TGoogleBaseObject)
  340. Private
  341. Fheight : integer;
  342. F_type : String;
  343. Furl : String;
  344. Fwidth : integer;
  345. Protected
  346. Class Function ExportPropertyName(Const AName : String) : string; override;
  347. //Property setters
  348. Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
  349. Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  350. Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  351. Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
  352. Public
  353. Published
  354. Property height : integer Index 0 Read Fheight Write Setheight;
  355. Property _type : String Index 8 Read F_type Write Set_type;
  356. Property url : String Index 16 Read Furl Write Seturl;
  357. Property width : integer Index 24 Read Fwidth Write Setwidth;
  358. end;
  359. TActivityTypeobjectTypeattachmentsItemTypefullImageClass = Class of TActivityTypeobjectTypeattachmentsItemTypefullImage;
  360. { --------------------------------------------------------------------
  361. TActivityTypeobjectTypeattachmentsItemTypeimage
  362. --------------------------------------------------------------------}
  363. TActivityTypeobjectTypeattachmentsItemTypeimage = Class(TGoogleBaseObject)
  364. Private
  365. Fheight : integer;
  366. F_type : String;
  367. Furl : String;
  368. Fwidth : integer;
  369. Protected
  370. Class Function ExportPropertyName(Const AName : String) : string; override;
  371. //Property setters
  372. Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
  373. Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  374. Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  375. Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
  376. Public
  377. Published
  378. Property height : integer Index 0 Read Fheight Write Setheight;
  379. Property _type : String Index 8 Read F_type Write Set_type;
  380. Property url : String Index 16 Read Furl Write Seturl;
  381. Property width : integer Index 24 Read Fwidth Write Setwidth;
  382. end;
  383. TActivityTypeobjectTypeattachmentsItemTypeimageClass = Class of TActivityTypeobjectTypeattachmentsItemTypeimage;
  384. { --------------------------------------------------------------------
  385. TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsItem
  386. --------------------------------------------------------------------}
  387. TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsItem = Class(TGoogleBaseObject)
  388. Private
  389. Furl : String;
  390. Protected
  391. //Property setters
  392. Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  393. Public
  394. Published
  395. Property url : String Index 0 Read Furl Write Seturl;
  396. end;
  397. TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsItemClass = Class of TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsItem;
  398. { --------------------------------------------------------------------
  399. TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage
  400. --------------------------------------------------------------------}
  401. TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage = Class(TGoogleBaseObject)
  402. Private
  403. Fheight : integer;
  404. F_type : String;
  405. Furl : String;
  406. Fwidth : integer;
  407. Protected
  408. Class Function ExportPropertyName(Const AName : String) : string; override;
  409. //Property setters
  410. Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
  411. Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  412. Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  413. Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
  414. Public
  415. Published
  416. Property height : integer Index 0 Read Fheight Write Setheight;
  417. Property _type : String Index 8 Read F_type Write Set_type;
  418. Property url : String Index 16 Read Furl Write Seturl;
  419. Property width : integer Index 24 Read Fwidth Write Setwidth;
  420. end;
  421. TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimageClass = Class of TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage;
  422. { --------------------------------------------------------------------
  423. TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem
  424. --------------------------------------------------------------------}
  425. TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem = Class(TGoogleBaseObject)
  426. Private
  427. Fdescription : String;
  428. Fimage : TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage;
  429. Furl : String;
  430. Protected
  431. //Property setters
  432. Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
  433. Procedure Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage); virtual;
  434. Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  435. Public
  436. Published
  437. Property description : String Index 0 Read Fdescription Write Setdescription;
  438. Property image : TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage Index 8 Read Fimage Write Setimage;
  439. Property url : String Index 16 Read Furl Write Seturl;
  440. end;
  441. TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemClass = Class of TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem;
  442. { --------------------------------------------------------------------
  443. TActivityTypeobjectTypeattachmentsItem
  444. --------------------------------------------------------------------}
  445. TActivityTypeobjectTypeattachmentsItem = Class(TGoogleBaseObject)
  446. Private
  447. Fcontent : String;
  448. FdisplayName : String;
  449. Fembed : TActivityTypeobjectTypeattachmentsItemTypeembed;
  450. FfullImage : TActivityTypeobjectTypeattachmentsItemTypefullImage;
  451. Fid : String;
  452. Fimage : TActivityTypeobjectTypeattachmentsItemTypeimage;
  453. FobjectType : String;
  454. FpreviewThumbnails : TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsArray;
  455. Fthumbnails : TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray;
  456. Furl : String;
  457. Protected
  458. //Property setters
  459. Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
  460. Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
  461. Procedure Setembed(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypeembed); virtual;
  462. Procedure SetfullImage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypefullImage); virtual;
  463. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  464. Procedure Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypeimage); virtual;
  465. Procedure SetobjectType(AIndex : Integer; const AValue : String); virtual;
  466. Procedure SetpreviewThumbnails(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsArray); virtual;
  467. Procedure Setthumbnails(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray); virtual;
  468. Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  469. //2.6.4. bug workaround
  470. {$IFDEF VER2_6}
  471. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  472. {$ENDIF VER2_6}
  473. Public
  474. Published
  475. Property content : String Index 0 Read Fcontent Write Setcontent;
  476. Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
  477. Property embed : TActivityTypeobjectTypeattachmentsItemTypeembed Index 16 Read Fembed Write Setembed;
  478. Property fullImage : TActivityTypeobjectTypeattachmentsItemTypefullImage Index 24 Read FfullImage Write SetfullImage;
  479. Property id : String Index 32 Read Fid Write Setid;
  480. Property image : TActivityTypeobjectTypeattachmentsItemTypeimage Index 40 Read Fimage Write Setimage;
  481. Property objectType : String Index 48 Read FobjectType Write SetobjectType;
  482. Property previewThumbnails : TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsArray Index 56 Read FpreviewThumbnails Write SetpreviewThumbnails;
  483. Property thumbnails : TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray Index 64 Read Fthumbnails Write Setthumbnails;
  484. Property url : String Index 72 Read Furl Write Seturl;
  485. end;
  486. TActivityTypeobjectTypeattachmentsItemClass = Class of TActivityTypeobjectTypeattachmentsItem;
  487. { --------------------------------------------------------------------
  488. TActivityTypeobjectTypeplusoners
  489. --------------------------------------------------------------------}
  490. TActivityTypeobjectTypeplusoners = Class(TGoogleBaseObject)
  491. Private
  492. FselfLink : String;
  493. FtotalItems : integer;
  494. Protected
  495. //Property setters
  496. Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  497. Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
  498. Public
  499. Published
  500. Property selfLink : String Index 0 Read FselfLink Write SetselfLink;
  501. Property totalItems : integer Index 8 Read FtotalItems Write SettotalItems;
  502. end;
  503. TActivityTypeobjectTypeplusonersClass = Class of TActivityTypeobjectTypeplusoners;
  504. { --------------------------------------------------------------------
  505. TActivityTypeobjectTypereplies
  506. --------------------------------------------------------------------}
  507. TActivityTypeobjectTypereplies = Class(TGoogleBaseObject)
  508. Private
  509. FselfLink : String;
  510. FtotalItems : integer;
  511. Protected
  512. //Property setters
  513. Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  514. Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
  515. Public
  516. Published
  517. Property selfLink : String Index 0 Read FselfLink Write SetselfLink;
  518. Property totalItems : integer Index 8 Read FtotalItems Write SettotalItems;
  519. end;
  520. TActivityTypeobjectTyperepliesClass = Class of TActivityTypeobjectTypereplies;
  521. { --------------------------------------------------------------------
  522. TActivityTypeobjectTyperesharers
  523. --------------------------------------------------------------------}
  524. TActivityTypeobjectTyperesharers = Class(TGoogleBaseObject)
  525. Private
  526. FselfLink : String;
  527. FtotalItems : integer;
  528. Protected
  529. //Property setters
  530. Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  531. Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
  532. Public
  533. Published
  534. Property selfLink : String Index 0 Read FselfLink Write SetselfLink;
  535. Property totalItems : integer Index 8 Read FtotalItems Write SettotalItems;
  536. end;
  537. TActivityTypeobjectTyperesharersClass = Class of TActivityTypeobjectTyperesharers;
  538. { --------------------------------------------------------------------
  539. TActivityTypeobjectTypestatusForViewer
  540. --------------------------------------------------------------------}
  541. TActivityTypeobjectTypestatusForViewer = Class(TGoogleBaseObject)
  542. Private
  543. FcanComment : boolean;
  544. FcanPlusone : boolean;
  545. FcanUpdate : boolean;
  546. FisPlusOned : boolean;
  547. FresharingDisabled : boolean;
  548. Protected
  549. //Property setters
  550. Procedure SetcanComment(AIndex : Integer; const AValue : boolean); virtual;
  551. Procedure SetcanPlusone(AIndex : Integer; const AValue : boolean); virtual;
  552. Procedure SetcanUpdate(AIndex : Integer; const AValue : boolean); virtual;
  553. Procedure SetisPlusOned(AIndex : Integer; const AValue : boolean); virtual;
  554. Procedure SetresharingDisabled(AIndex : Integer; const AValue : boolean); virtual;
  555. Public
  556. Published
  557. Property canComment : boolean Index 0 Read FcanComment Write SetcanComment;
  558. Property canPlusone : boolean Index 8 Read FcanPlusone Write SetcanPlusone;
  559. Property canUpdate : boolean Index 16 Read FcanUpdate Write SetcanUpdate;
  560. Property isPlusOned : boolean Index 24 Read FisPlusOned Write SetisPlusOned;
  561. Property resharingDisabled : boolean Index 32 Read FresharingDisabled Write SetresharingDisabled;
  562. end;
  563. TActivityTypeobjectTypestatusForViewerClass = Class of TActivityTypeobjectTypestatusForViewer;
  564. { --------------------------------------------------------------------
  565. TActivityTypeobject
  566. --------------------------------------------------------------------}
  567. TActivityTypeobject = Class(TGoogleBaseObject)
  568. Private
  569. Factor : TActivityTypeobjectTypeactor;
  570. Fattachments : TActivityTypeobjectTypeattachmentsArray;
  571. Fcontent : String;
  572. Fid : String;
  573. FobjectType : String;
  574. ForiginalContent : String;
  575. Fplusoners : TActivityTypeobjectTypeplusoners;
  576. Freplies : TActivityTypeobjectTypereplies;
  577. Fresharers : TActivityTypeobjectTyperesharers;
  578. FstatusForViewer : TActivityTypeobjectTypestatusForViewer;
  579. Furl : String;
  580. Protected
  581. //Property setters
  582. Procedure Setactor(AIndex : Integer; const AValue : TActivityTypeobjectTypeactor); virtual;
  583. Procedure Setattachments(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsArray); virtual;
  584. Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
  585. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  586. Procedure SetobjectType(AIndex : Integer; const AValue : String); virtual;
  587. Procedure SetoriginalContent(AIndex : Integer; const AValue : String); virtual;
  588. Procedure Setplusoners(AIndex : Integer; const AValue : TActivityTypeobjectTypeplusoners); virtual;
  589. Procedure Setreplies(AIndex : Integer; const AValue : TActivityTypeobjectTypereplies); virtual;
  590. Procedure Setresharers(AIndex : Integer; const AValue : TActivityTypeobjectTyperesharers); virtual;
  591. Procedure SetstatusForViewer(AIndex : Integer; const AValue : TActivityTypeobjectTypestatusForViewer); virtual;
  592. Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  593. //2.6.4. bug workaround
  594. {$IFDEF VER2_6}
  595. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  596. {$ENDIF VER2_6}
  597. Public
  598. Published
  599. Property actor : TActivityTypeobjectTypeactor Index 0 Read Factor Write Setactor;
  600. Property attachments : TActivityTypeobjectTypeattachmentsArray Index 8 Read Fattachments Write Setattachments;
  601. Property content : String Index 16 Read Fcontent Write Setcontent;
  602. Property id : String Index 24 Read Fid Write Setid;
  603. Property objectType : String Index 32 Read FobjectType Write SetobjectType;
  604. Property originalContent : String Index 40 Read ForiginalContent Write SetoriginalContent;
  605. Property plusoners : TActivityTypeobjectTypeplusoners Index 48 Read Fplusoners Write Setplusoners;
  606. Property replies : TActivityTypeobjectTypereplies Index 56 Read Freplies Write Setreplies;
  607. Property resharers : TActivityTypeobjectTyperesharers Index 64 Read Fresharers Write Setresharers;
  608. Property statusForViewer : TActivityTypeobjectTypestatusForViewer Index 72 Read FstatusForViewer Write SetstatusForViewer;
  609. Property url : String Index 80 Read Furl Write Seturl;
  610. end;
  611. TActivityTypeobjectClass = Class of TActivityTypeobject;
  612. { --------------------------------------------------------------------
  613. TActivityTypeprovider
  614. --------------------------------------------------------------------}
  615. TActivityTypeprovider = Class(TGoogleBaseObject)
  616. Private
  617. Ftitle : String;
  618. Protected
  619. //Property setters
  620. Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
  621. Public
  622. Published
  623. Property title : String Index 0 Read Ftitle Write Settitle;
  624. end;
  625. TActivityTypeproviderClass = Class of TActivityTypeprovider;
  626. { --------------------------------------------------------------------
  627. TActivity
  628. --------------------------------------------------------------------}
  629. TActivity = Class(TGoogleBaseObject)
  630. Private
  631. Faccess : TAcl;
  632. Factor : TActivityTypeactor;
  633. Faddress : String;
  634. Fannotation : String;
  635. FcrosspostSource : String;
  636. Fetag : String;
  637. Fgeocode : String;
  638. Fid : String;
  639. Fkind : String;
  640. Flocation : TPlace;
  641. F_object : TActivityTypeobject;
  642. FplaceId : String;
  643. FplaceName : String;
  644. Fprovider : TActivityTypeprovider;
  645. F_published : TDatetime;
  646. Fradius : String;
  647. Ftitle : String;
  648. Fupdated : TDatetime;
  649. Furl : String;
  650. Fverb : String;
  651. Protected
  652. Class Function ExportPropertyName(Const AName : String) : string; override;
  653. //Property setters
  654. Procedure Setaccess(AIndex : Integer; const AValue : TAcl); virtual;
  655. Procedure Setactor(AIndex : Integer; const AValue : TActivityTypeactor); virtual;
  656. Procedure Setaddress(AIndex : Integer; const AValue : String); virtual;
  657. Procedure Setannotation(AIndex : Integer; const AValue : String); virtual;
  658. Procedure SetcrosspostSource(AIndex : Integer; const AValue : String); virtual;
  659. Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
  660. Procedure Setgeocode(AIndex : Integer; const AValue : String); virtual;
  661. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  662. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  663. Procedure Setlocation(AIndex : Integer; const AValue : TPlace); virtual;
  664. Procedure Set_object(AIndex : Integer; const AValue : TActivityTypeobject); virtual;
  665. Procedure SetplaceId(AIndex : Integer; const AValue : String); virtual;
  666. Procedure SetplaceName(AIndex : Integer; const AValue : String); virtual;
  667. Procedure Setprovider(AIndex : Integer; const AValue : TActivityTypeprovider); virtual;
  668. Procedure Set_published(AIndex : Integer; const AValue : TDatetime); virtual;
  669. Procedure Setradius(AIndex : Integer; const AValue : String); virtual;
  670. Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
  671. Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
  672. Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  673. Procedure Setverb(AIndex : Integer; const AValue : String); virtual;
  674. Public
  675. Published
  676. Property access : TAcl Index 0 Read Faccess Write Setaccess;
  677. Property actor : TActivityTypeactor Index 8 Read Factor Write Setactor;
  678. Property address : String Index 16 Read Faddress Write Setaddress;
  679. Property annotation : String Index 24 Read Fannotation Write Setannotation;
  680. Property crosspostSource : String Index 32 Read FcrosspostSource Write SetcrosspostSource;
  681. Property etag : String Index 40 Read Fetag Write Setetag;
  682. Property geocode : String Index 48 Read Fgeocode Write Setgeocode;
  683. Property id : String Index 56 Read Fid Write Setid;
  684. Property kind : String Index 64 Read Fkind Write Setkind;
  685. Property location : TPlace Index 72 Read Flocation Write Setlocation;
  686. Property _object : TActivityTypeobject Index 80 Read F_object Write Set_object;
  687. Property placeId : String Index 88 Read FplaceId Write SetplaceId;
  688. Property placeName : String Index 96 Read FplaceName Write SetplaceName;
  689. Property provider : TActivityTypeprovider Index 104 Read Fprovider Write Setprovider;
  690. Property _published : TDatetime Index 112 Read F_published Write Set_published;
  691. Property radius : String Index 120 Read Fradius Write Setradius;
  692. Property title : String Index 128 Read Ftitle Write Settitle;
  693. Property updated : TDatetime Index 136 Read Fupdated Write Setupdated;
  694. Property url : String Index 144 Read Furl Write Seturl;
  695. Property verb : String Index 152 Read Fverb Write Setverb;
  696. end;
  697. TActivityClass = Class of TActivity;
  698. { --------------------------------------------------------------------
  699. TActivityFeed
  700. --------------------------------------------------------------------}
  701. TActivityFeed = Class(TGoogleBaseObject)
  702. Private
  703. Fetag : String;
  704. Fid : String;
  705. Fitems : TActivityFeedTypeitemsArray;
  706. Fkind : String;
  707. FnextLink : String;
  708. FnextPageToken : String;
  709. FselfLink : String;
  710. Ftitle : String;
  711. Fupdated : TDatetime;
  712. Protected
  713. //Property setters
  714. Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
  715. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  716. Procedure Setitems(AIndex : Integer; const AValue : TActivityFeedTypeitemsArray); virtual;
  717. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  718. Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
  719. Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
  720. Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  721. Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
  722. Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
  723. //2.6.4. bug workaround
  724. {$IFDEF VER2_6}
  725. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  726. {$ENDIF VER2_6}
  727. Public
  728. Published
  729. Property etag : String Index 0 Read Fetag Write Setetag;
  730. Property id : String Index 8 Read Fid Write Setid;
  731. Property items : TActivityFeedTypeitemsArray Index 16 Read Fitems Write Setitems;
  732. Property kind : String Index 24 Read Fkind Write Setkind;
  733. Property nextLink : String Index 32 Read FnextLink Write SetnextLink;
  734. Property nextPageToken : String Index 40 Read FnextPageToken Write SetnextPageToken;
  735. Property selfLink : String Index 48 Read FselfLink Write SetselfLink;
  736. Property title : String Index 56 Read Ftitle Write Settitle;
  737. Property updated : TDatetime Index 64 Read Fupdated Write Setupdated;
  738. end;
  739. TActivityFeedClass = Class of TActivityFeed;
  740. { --------------------------------------------------------------------
  741. TAudience
  742. --------------------------------------------------------------------}
  743. TAudience = Class(TGoogleBaseObject)
  744. Private
  745. Fetag : String;
  746. Fitem : TPlusDomainsAclentryResource;
  747. Fkind : String;
  748. FmemberCount : integer;
  749. Fvisibility : String;
  750. Protected
  751. //Property setters
  752. Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
  753. Procedure Setitem(AIndex : Integer; const AValue : TPlusDomainsAclentryResource); virtual;
  754. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  755. Procedure SetmemberCount(AIndex : Integer; const AValue : integer); virtual;
  756. Procedure Setvisibility(AIndex : Integer; const AValue : String); virtual;
  757. Public
  758. Published
  759. Property etag : String Index 0 Read Fetag Write Setetag;
  760. Property item : TPlusDomainsAclentryResource Index 8 Read Fitem Write Setitem;
  761. Property kind : String Index 16 Read Fkind Write Setkind;
  762. Property memberCount : integer Index 24 Read FmemberCount Write SetmemberCount;
  763. Property visibility : String Index 32 Read Fvisibility Write Setvisibility;
  764. end;
  765. TAudienceClass = Class of TAudience;
  766. { --------------------------------------------------------------------
  767. TAudiencesFeed
  768. --------------------------------------------------------------------}
  769. TAudiencesFeed = Class(TGoogleBaseObject)
  770. Private
  771. Fetag : String;
  772. Fitems : TAudiencesFeedTypeitemsArray;
  773. Fkind : String;
  774. FnextPageToken : String;
  775. FtotalItems : integer;
  776. Protected
  777. //Property setters
  778. Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
  779. Procedure Setitems(AIndex : Integer; const AValue : TAudiencesFeedTypeitemsArray); virtual;
  780. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  781. Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
  782. Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
  783. //2.6.4. bug workaround
  784. {$IFDEF VER2_6}
  785. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  786. {$ENDIF VER2_6}
  787. Public
  788. Published
  789. Property etag : String Index 0 Read Fetag Write Setetag;
  790. Property items : TAudiencesFeedTypeitemsArray Index 8 Read Fitems Write Setitems;
  791. Property kind : String Index 16 Read Fkind Write Setkind;
  792. Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
  793. Property totalItems : integer Index 32 Read FtotalItems Write SettotalItems;
  794. end;
  795. TAudiencesFeedClass = Class of TAudiencesFeed;
  796. { --------------------------------------------------------------------
  797. TCircleTypepeople
  798. --------------------------------------------------------------------}
  799. TCircleTypepeople = Class(TGoogleBaseObject)
  800. Private
  801. FtotalItems : integer;
  802. Protected
  803. //Property setters
  804. Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
  805. Public
  806. Published
  807. Property totalItems : integer Index 0 Read FtotalItems Write SettotalItems;
  808. end;
  809. TCircleTypepeopleClass = Class of TCircleTypepeople;
  810. { --------------------------------------------------------------------
  811. TCircle
  812. --------------------------------------------------------------------}
  813. TCircle = Class(TGoogleBaseObject)
  814. Private
  815. Fdescription : String;
  816. FdisplayName : String;
  817. Fetag : String;
  818. Fid : String;
  819. Fkind : String;
  820. Fpeople : TCircleTypepeople;
  821. FselfLink : String;
  822. Protected
  823. //Property setters
  824. Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
  825. Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
  826. Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
  827. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  828. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  829. Procedure Setpeople(AIndex : Integer; const AValue : TCircleTypepeople); virtual;
  830. Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  831. Public
  832. Published
  833. Property description : String Index 0 Read Fdescription Write Setdescription;
  834. Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
  835. Property etag : String Index 16 Read Fetag Write Setetag;
  836. Property id : String Index 24 Read Fid Write Setid;
  837. Property kind : String Index 32 Read Fkind Write Setkind;
  838. Property people : TCircleTypepeople Index 40 Read Fpeople Write Setpeople;
  839. Property selfLink : String Index 48 Read FselfLink Write SetselfLink;
  840. end;
  841. TCircleClass = Class of TCircle;
  842. { --------------------------------------------------------------------
  843. TCircleFeed
  844. --------------------------------------------------------------------}
  845. TCircleFeed = Class(TGoogleBaseObject)
  846. Private
  847. Fetag : String;
  848. Fitems : TCircleFeedTypeitemsArray;
  849. Fkind : String;
  850. FnextLink : String;
  851. FnextPageToken : String;
  852. FselfLink : String;
  853. Ftitle : String;
  854. FtotalItems : integer;
  855. Protected
  856. //Property setters
  857. Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
  858. Procedure Setitems(AIndex : Integer; const AValue : TCircleFeedTypeitemsArray); virtual;
  859. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  860. Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
  861. Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
  862. Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  863. Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
  864. Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
  865. //2.6.4. bug workaround
  866. {$IFDEF VER2_6}
  867. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  868. {$ENDIF VER2_6}
  869. Public
  870. Published
  871. Property etag : String Index 0 Read Fetag Write Setetag;
  872. Property items : TCircleFeedTypeitemsArray Index 8 Read Fitems Write Setitems;
  873. Property kind : String Index 16 Read Fkind Write Setkind;
  874. Property nextLink : String Index 24 Read FnextLink Write SetnextLink;
  875. Property nextPageToken : String Index 32 Read FnextPageToken Write SetnextPageToken;
  876. Property selfLink : String Index 40 Read FselfLink Write SetselfLink;
  877. Property title : String Index 48 Read Ftitle Write Settitle;
  878. Property totalItems : integer Index 56 Read FtotalItems Write SettotalItems;
  879. end;
  880. TCircleFeedClass = Class of TCircleFeed;
  881. { --------------------------------------------------------------------
  882. TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo
  883. --------------------------------------------------------------------}
  884. TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo = Class(TGoogleBaseObject)
  885. Private
  886. FchannelId : String;
  887. Protected
  888. //Property setters
  889. Procedure SetchannelId(AIndex : Integer; const AValue : String); virtual;
  890. Public
  891. Published
  892. Property channelId : String Index 0 Read FchannelId Write SetchannelId;
  893. end;
  894. TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfoClass = Class of TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo;
  895. { --------------------------------------------------------------------
  896. TCommentTypeactorTypeclientSpecificActorInfo
  897. --------------------------------------------------------------------}
  898. TCommentTypeactorTypeclientSpecificActorInfo = Class(TGoogleBaseObject)
  899. Private
  900. FyoutubeActorInfo : TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo;
  901. Protected
  902. //Property setters
  903. Procedure SetyoutubeActorInfo(AIndex : Integer; const AValue : TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo); virtual;
  904. Public
  905. Published
  906. Property youtubeActorInfo : TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo Index 0 Read FyoutubeActorInfo Write SetyoutubeActorInfo;
  907. end;
  908. TCommentTypeactorTypeclientSpecificActorInfoClass = Class of TCommentTypeactorTypeclientSpecificActorInfo;
  909. { --------------------------------------------------------------------
  910. TCommentTypeactorTypeimage
  911. --------------------------------------------------------------------}
  912. TCommentTypeactorTypeimage = Class(TGoogleBaseObject)
  913. Private
  914. Furl : String;
  915. Protected
  916. //Property setters
  917. Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  918. Public
  919. Published
  920. Property url : String Index 0 Read Furl Write Seturl;
  921. end;
  922. TCommentTypeactorTypeimageClass = Class of TCommentTypeactorTypeimage;
  923. { --------------------------------------------------------------------
  924. TCommentTypeactorTypeverification
  925. --------------------------------------------------------------------}
  926. TCommentTypeactorTypeverification = Class(TGoogleBaseObject)
  927. Private
  928. FadHocVerified : String;
  929. Protected
  930. //Property setters
  931. Procedure SetadHocVerified(AIndex : Integer; const AValue : String); virtual;
  932. Public
  933. Published
  934. Property adHocVerified : String Index 0 Read FadHocVerified Write SetadHocVerified;
  935. end;
  936. TCommentTypeactorTypeverificationClass = Class of TCommentTypeactorTypeverification;
  937. { --------------------------------------------------------------------
  938. TCommentTypeactor
  939. --------------------------------------------------------------------}
  940. TCommentTypeactor = Class(TGoogleBaseObject)
  941. Private
  942. FclientSpecificActorInfo : TCommentTypeactorTypeclientSpecificActorInfo;
  943. FdisplayName : String;
  944. Fid : String;
  945. Fimage : TCommentTypeactorTypeimage;
  946. Furl : String;
  947. Fverification : TCommentTypeactorTypeverification;
  948. Protected
  949. //Property setters
  950. Procedure SetclientSpecificActorInfo(AIndex : Integer; const AValue : TCommentTypeactorTypeclientSpecificActorInfo); virtual;
  951. Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
  952. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  953. Procedure Setimage(AIndex : Integer; const AValue : TCommentTypeactorTypeimage); virtual;
  954. Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  955. Procedure Setverification(AIndex : Integer; const AValue : TCommentTypeactorTypeverification); virtual;
  956. Public
  957. Published
  958. Property clientSpecificActorInfo : TCommentTypeactorTypeclientSpecificActorInfo Index 0 Read FclientSpecificActorInfo Write SetclientSpecificActorInfo;
  959. Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
  960. Property id : String Index 16 Read Fid Write Setid;
  961. Property image : TCommentTypeactorTypeimage Index 24 Read Fimage Write Setimage;
  962. Property url : String Index 32 Read Furl Write Seturl;
  963. Property verification : TCommentTypeactorTypeverification Index 40 Read Fverification Write Setverification;
  964. end;
  965. TCommentTypeactorClass = Class of TCommentTypeactor;
  966. { --------------------------------------------------------------------
  967. TCommentTypeinReplyToItem
  968. --------------------------------------------------------------------}
  969. TCommentTypeinReplyToItem = Class(TGoogleBaseObject)
  970. Private
  971. Fid : String;
  972. Furl : String;
  973. Protected
  974. //Property setters
  975. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  976. Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  977. Public
  978. Published
  979. Property id : String Index 0 Read Fid Write Setid;
  980. Property url : String Index 8 Read Furl Write Seturl;
  981. end;
  982. TCommentTypeinReplyToItemClass = Class of TCommentTypeinReplyToItem;
  983. { --------------------------------------------------------------------
  984. TCommentTypeobject
  985. --------------------------------------------------------------------}
  986. TCommentTypeobject = Class(TGoogleBaseObject)
  987. Private
  988. Fcontent : String;
  989. FobjectType : String;
  990. ForiginalContent : String;
  991. Protected
  992. //Property setters
  993. Procedure Setcontent(AIndex : Integer; const AValue : String); virtual;
  994. Procedure SetobjectType(AIndex : Integer; const AValue : String); virtual;
  995. Procedure SetoriginalContent(AIndex : Integer; const AValue : String); virtual;
  996. Public
  997. Published
  998. Property content : String Index 0 Read Fcontent Write Setcontent;
  999. Property objectType : String Index 8 Read FobjectType Write SetobjectType;
  1000. Property originalContent : String Index 16 Read ForiginalContent Write SetoriginalContent;
  1001. end;
  1002. TCommentTypeobjectClass = Class of TCommentTypeobject;
  1003. { --------------------------------------------------------------------
  1004. TCommentTypeplusoners
  1005. --------------------------------------------------------------------}
  1006. TCommentTypeplusoners = Class(TGoogleBaseObject)
  1007. Private
  1008. FtotalItems : integer;
  1009. Protected
  1010. //Property setters
  1011. Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
  1012. Public
  1013. Published
  1014. Property totalItems : integer Index 0 Read FtotalItems Write SettotalItems;
  1015. end;
  1016. TCommentTypeplusonersClass = Class of TCommentTypeplusoners;
  1017. { --------------------------------------------------------------------
  1018. TComment
  1019. --------------------------------------------------------------------}
  1020. TComment = Class(TGoogleBaseObject)
  1021. Private
  1022. Factor : TCommentTypeactor;
  1023. Fetag : String;
  1024. Fid : String;
  1025. FinReplyTo : TCommentTypeinReplyToArray;
  1026. Fkind : String;
  1027. F_object : TCommentTypeobject;
  1028. Fplusoners : TCommentTypeplusoners;
  1029. F_published : TDatetime;
  1030. FselfLink : String;
  1031. Fupdated : TDatetime;
  1032. Fverb : String;
  1033. Protected
  1034. Class Function ExportPropertyName(Const AName : String) : string; override;
  1035. //Property setters
  1036. Procedure Setactor(AIndex : Integer; const AValue : TCommentTypeactor); virtual;
  1037. Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
  1038. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  1039. Procedure SetinReplyTo(AIndex : Integer; const AValue : TCommentTypeinReplyToArray); virtual;
  1040. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  1041. Procedure Set_object(AIndex : Integer; const AValue : TCommentTypeobject); virtual;
  1042. Procedure Setplusoners(AIndex : Integer; const AValue : TCommentTypeplusoners); virtual;
  1043. Procedure Set_published(AIndex : Integer; const AValue : TDatetime); virtual;
  1044. Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  1045. Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
  1046. Procedure Setverb(AIndex : Integer; const AValue : String); virtual;
  1047. //2.6.4. bug workaround
  1048. {$IFDEF VER2_6}
  1049. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1050. {$ENDIF VER2_6}
  1051. Public
  1052. Published
  1053. Property actor : TCommentTypeactor Index 0 Read Factor Write Setactor;
  1054. Property etag : String Index 8 Read Fetag Write Setetag;
  1055. Property id : String Index 16 Read Fid Write Setid;
  1056. Property inReplyTo : TCommentTypeinReplyToArray Index 24 Read FinReplyTo Write SetinReplyTo;
  1057. Property kind : String Index 32 Read Fkind Write Setkind;
  1058. Property _object : TCommentTypeobject Index 40 Read F_object Write Set_object;
  1059. Property plusoners : TCommentTypeplusoners Index 48 Read Fplusoners Write Setplusoners;
  1060. Property _published : TDatetime Index 56 Read F_published Write Set_published;
  1061. Property selfLink : String Index 64 Read FselfLink Write SetselfLink;
  1062. Property updated : TDatetime Index 72 Read Fupdated Write Setupdated;
  1063. Property verb : String Index 80 Read Fverb Write Setverb;
  1064. end;
  1065. TCommentClass = Class of TComment;
  1066. { --------------------------------------------------------------------
  1067. TCommentFeed
  1068. --------------------------------------------------------------------}
  1069. TCommentFeed = Class(TGoogleBaseObject)
  1070. Private
  1071. Fetag : String;
  1072. Fid : String;
  1073. Fitems : TCommentFeedTypeitemsArray;
  1074. Fkind : String;
  1075. FnextLink : String;
  1076. FnextPageToken : String;
  1077. Ftitle : String;
  1078. Fupdated : TDatetime;
  1079. Protected
  1080. //Property setters
  1081. Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
  1082. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  1083. Procedure Setitems(AIndex : Integer; const AValue : TCommentFeedTypeitemsArray); virtual;
  1084. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  1085. Procedure SetnextLink(AIndex : Integer; const AValue : String); virtual;
  1086. Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
  1087. Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
  1088. Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
  1089. //2.6.4. bug workaround
  1090. {$IFDEF VER2_6}
  1091. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1092. {$ENDIF VER2_6}
  1093. Public
  1094. Published
  1095. Property etag : String Index 0 Read Fetag Write Setetag;
  1096. Property id : String Index 8 Read Fid Write Setid;
  1097. Property items : TCommentFeedTypeitemsArray Index 16 Read Fitems Write Setitems;
  1098. Property kind : String Index 24 Read Fkind Write Setkind;
  1099. Property nextLink : String Index 32 Read FnextLink Write SetnextLink;
  1100. Property nextPageToken : String Index 40 Read FnextPageToken Write SetnextPageToken;
  1101. Property title : String Index 48 Read Ftitle Write Settitle;
  1102. Property updated : TDatetime Index 56 Read Fupdated Write Setupdated;
  1103. end;
  1104. TCommentFeedClass = Class of TCommentFeed;
  1105. { --------------------------------------------------------------------
  1106. TMediaTypeauthorTypeimage
  1107. --------------------------------------------------------------------}
  1108. TMediaTypeauthorTypeimage = Class(TGoogleBaseObject)
  1109. Private
  1110. Furl : String;
  1111. Protected
  1112. //Property setters
  1113. Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  1114. Public
  1115. Published
  1116. Property url : String Index 0 Read Furl Write Seturl;
  1117. end;
  1118. TMediaTypeauthorTypeimageClass = Class of TMediaTypeauthorTypeimage;
  1119. { --------------------------------------------------------------------
  1120. TMediaTypeauthor
  1121. --------------------------------------------------------------------}
  1122. TMediaTypeauthor = Class(TGoogleBaseObject)
  1123. Private
  1124. FdisplayName : String;
  1125. Fid : String;
  1126. Fimage : TMediaTypeauthorTypeimage;
  1127. Furl : String;
  1128. Protected
  1129. //Property setters
  1130. Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
  1131. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  1132. Procedure Setimage(AIndex : Integer; const AValue : TMediaTypeauthorTypeimage); virtual;
  1133. Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  1134. Public
  1135. Published
  1136. Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
  1137. Property id : String Index 8 Read Fid Write Setid;
  1138. Property image : TMediaTypeauthorTypeimage Index 16 Read Fimage Write Setimage;
  1139. Property url : String Index 24 Read Furl Write Seturl;
  1140. end;
  1141. TMediaTypeauthorClass = Class of TMediaTypeauthor;
  1142. { --------------------------------------------------------------------
  1143. TMediaTypeexif
  1144. --------------------------------------------------------------------}
  1145. TMediaTypeexif = Class(TGoogleBaseObject)
  1146. Private
  1147. Ftime : TDatetime;
  1148. Protected
  1149. //Property setters
  1150. Procedure Settime(AIndex : Integer; const AValue : TDatetime); virtual;
  1151. Public
  1152. Published
  1153. Property time : TDatetime Index 0 Read Ftime Write Settime;
  1154. end;
  1155. TMediaTypeexifClass = Class of TMediaTypeexif;
  1156. { --------------------------------------------------------------------
  1157. TMedia
  1158. --------------------------------------------------------------------}
  1159. TMedia = Class(TGoogleBaseObject)
  1160. Private
  1161. Fauthor : TMediaTypeauthor;
  1162. FdisplayName : String;
  1163. Fetag : String;
  1164. Fexif : TMediaTypeexif;
  1165. Fheight : integer;
  1166. Fid : String;
  1167. Fkind : String;
  1168. FmediaCreatedTime : TDatetime;
  1169. FmediaUrl : String;
  1170. F_published : TDatetime;
  1171. FsizeBytes : String;
  1172. Fstreams : TMediaTypestreamsArray;
  1173. Fsummary : String;
  1174. Fupdated : TDatetime;
  1175. Furl : String;
  1176. FvideoDuration : String;
  1177. FvideoStatus : String;
  1178. Fwidth : integer;
  1179. Protected
  1180. Class Function ExportPropertyName(Const AName : String) : string; override;
  1181. //Property setters
  1182. Procedure Setauthor(AIndex : Integer; const AValue : TMediaTypeauthor); virtual;
  1183. Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
  1184. Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
  1185. Procedure Setexif(AIndex : Integer; const AValue : TMediaTypeexif); virtual;
  1186. Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
  1187. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  1188. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  1189. Procedure SetmediaCreatedTime(AIndex : Integer; const AValue : TDatetime); virtual;
  1190. Procedure SetmediaUrl(AIndex : Integer; const AValue : String); virtual;
  1191. Procedure Set_published(AIndex : Integer; const AValue : TDatetime); virtual;
  1192. Procedure SetsizeBytes(AIndex : Integer; const AValue : String); virtual;
  1193. Procedure Setstreams(AIndex : Integer; const AValue : TMediaTypestreamsArray); virtual;
  1194. Procedure Setsummary(AIndex : Integer; const AValue : String); virtual;
  1195. Procedure Setupdated(AIndex : Integer; const AValue : TDatetime); virtual;
  1196. Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  1197. Procedure SetvideoDuration(AIndex : Integer; const AValue : String); virtual;
  1198. Procedure SetvideoStatus(AIndex : Integer; const AValue : String); virtual;
  1199. Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
  1200. //2.6.4. bug workaround
  1201. {$IFDEF VER2_6}
  1202. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1203. {$ENDIF VER2_6}
  1204. Public
  1205. Published
  1206. Property author : TMediaTypeauthor Index 0 Read Fauthor Write Setauthor;
  1207. Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
  1208. Property etag : String Index 16 Read Fetag Write Setetag;
  1209. Property exif : TMediaTypeexif Index 24 Read Fexif Write Setexif;
  1210. Property height : integer Index 32 Read Fheight Write Setheight;
  1211. Property id : String Index 40 Read Fid Write Setid;
  1212. Property kind : String Index 48 Read Fkind Write Setkind;
  1213. Property mediaCreatedTime : TDatetime Index 56 Read FmediaCreatedTime Write SetmediaCreatedTime;
  1214. Property mediaUrl : String Index 64 Read FmediaUrl Write SetmediaUrl;
  1215. Property _published : TDatetime Index 72 Read F_published Write Set_published;
  1216. Property sizeBytes : String Index 80 Read FsizeBytes Write SetsizeBytes;
  1217. Property streams : TMediaTypestreamsArray Index 88 Read Fstreams Write Setstreams;
  1218. Property summary : String Index 96 Read Fsummary Write Setsummary;
  1219. Property updated : TDatetime Index 104 Read Fupdated Write Setupdated;
  1220. Property url : String Index 112 Read Furl Write Seturl;
  1221. Property videoDuration : String Index 120 Read FvideoDuration Write SetvideoDuration;
  1222. Property videoStatus : String Index 128 Read FvideoStatus Write SetvideoStatus;
  1223. Property width : integer Index 136 Read Fwidth Write Setwidth;
  1224. end;
  1225. TMediaClass = Class of TMedia;
  1226. { --------------------------------------------------------------------
  1227. TPeopleFeed
  1228. --------------------------------------------------------------------}
  1229. TPeopleFeed = Class(TGoogleBaseObject)
  1230. Private
  1231. Fetag : String;
  1232. Fitems : TPeopleFeedTypeitemsArray;
  1233. Fkind : String;
  1234. FnextPageToken : String;
  1235. FselfLink : String;
  1236. Ftitle : String;
  1237. FtotalItems : integer;
  1238. Protected
  1239. //Property setters
  1240. Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
  1241. Procedure Setitems(AIndex : Integer; const AValue : TPeopleFeedTypeitemsArray); virtual;
  1242. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  1243. Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
  1244. Procedure SetselfLink(AIndex : Integer; const AValue : String); virtual;
  1245. Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
  1246. Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
  1247. //2.6.4. bug workaround
  1248. {$IFDEF VER2_6}
  1249. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1250. {$ENDIF VER2_6}
  1251. Public
  1252. Published
  1253. Property etag : String Index 0 Read Fetag Write Setetag;
  1254. Property items : TPeopleFeedTypeitemsArray Index 8 Read Fitems Write Setitems;
  1255. Property kind : String Index 16 Read Fkind Write Setkind;
  1256. Property nextPageToken : String Index 24 Read FnextPageToken Write SetnextPageToken;
  1257. Property selfLink : String Index 32 Read FselfLink Write SetselfLink;
  1258. Property title : String Index 40 Read Ftitle Write Settitle;
  1259. Property totalItems : integer Index 48 Read FtotalItems Write SettotalItems;
  1260. end;
  1261. TPeopleFeedClass = Class of TPeopleFeed;
  1262. { --------------------------------------------------------------------
  1263. TPersonTypecoverTypecoverInfo
  1264. --------------------------------------------------------------------}
  1265. TPersonTypecoverTypecoverInfo = Class(TGoogleBaseObject)
  1266. Private
  1267. FleftImageOffset : integer;
  1268. FtopImageOffset : integer;
  1269. Protected
  1270. //Property setters
  1271. Procedure SetleftImageOffset(AIndex : Integer; const AValue : integer); virtual;
  1272. Procedure SettopImageOffset(AIndex : Integer; const AValue : integer); virtual;
  1273. Public
  1274. Published
  1275. Property leftImageOffset : integer Index 0 Read FleftImageOffset Write SetleftImageOffset;
  1276. Property topImageOffset : integer Index 8 Read FtopImageOffset Write SettopImageOffset;
  1277. end;
  1278. TPersonTypecoverTypecoverInfoClass = Class of TPersonTypecoverTypecoverInfo;
  1279. { --------------------------------------------------------------------
  1280. TPersonTypecoverTypecoverPhoto
  1281. --------------------------------------------------------------------}
  1282. TPersonTypecoverTypecoverPhoto = Class(TGoogleBaseObject)
  1283. Private
  1284. Fheight : integer;
  1285. Furl : String;
  1286. Fwidth : integer;
  1287. Protected
  1288. //Property setters
  1289. Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
  1290. Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  1291. Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
  1292. Public
  1293. Published
  1294. Property height : integer Index 0 Read Fheight Write Setheight;
  1295. Property url : String Index 8 Read Furl Write Seturl;
  1296. Property width : integer Index 16 Read Fwidth Write Setwidth;
  1297. end;
  1298. TPersonTypecoverTypecoverPhotoClass = Class of TPersonTypecoverTypecoverPhoto;
  1299. { --------------------------------------------------------------------
  1300. TPersonTypecover
  1301. --------------------------------------------------------------------}
  1302. TPersonTypecover = Class(TGoogleBaseObject)
  1303. Private
  1304. FcoverInfo : TPersonTypecoverTypecoverInfo;
  1305. FcoverPhoto : TPersonTypecoverTypecoverPhoto;
  1306. Flayout : String;
  1307. Protected
  1308. //Property setters
  1309. Procedure SetcoverInfo(AIndex : Integer; const AValue : TPersonTypecoverTypecoverInfo); virtual;
  1310. Procedure SetcoverPhoto(AIndex : Integer; const AValue : TPersonTypecoverTypecoverPhoto); virtual;
  1311. Procedure Setlayout(AIndex : Integer; const AValue : String); virtual;
  1312. Public
  1313. Published
  1314. Property coverInfo : TPersonTypecoverTypecoverInfo Index 0 Read FcoverInfo Write SetcoverInfo;
  1315. Property coverPhoto : TPersonTypecoverTypecoverPhoto Index 8 Read FcoverPhoto Write SetcoverPhoto;
  1316. Property layout : String Index 16 Read Flayout Write Setlayout;
  1317. end;
  1318. TPersonTypecoverClass = Class of TPersonTypecover;
  1319. { --------------------------------------------------------------------
  1320. TPersonTypeemailsItem
  1321. --------------------------------------------------------------------}
  1322. TPersonTypeemailsItem = Class(TGoogleBaseObject)
  1323. Private
  1324. F_type : String;
  1325. Fvalue : String;
  1326. Protected
  1327. Class Function ExportPropertyName(Const AName : String) : string; override;
  1328. //Property setters
  1329. Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  1330. Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  1331. Public
  1332. Published
  1333. Property _type : String Index 0 Read F_type Write Set_type;
  1334. Property value : String Index 8 Read Fvalue Write Setvalue;
  1335. end;
  1336. TPersonTypeemailsItemClass = Class of TPersonTypeemailsItem;
  1337. { --------------------------------------------------------------------
  1338. TPersonTypeimage
  1339. --------------------------------------------------------------------}
  1340. TPersonTypeimage = Class(TGoogleBaseObject)
  1341. Private
  1342. FisDefault : boolean;
  1343. Furl : String;
  1344. Protected
  1345. //Property setters
  1346. Procedure SetisDefault(AIndex : Integer; const AValue : boolean); virtual;
  1347. Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  1348. Public
  1349. Published
  1350. Property isDefault : boolean Index 0 Read FisDefault Write SetisDefault;
  1351. Property url : String Index 8 Read Furl Write Seturl;
  1352. end;
  1353. TPersonTypeimageClass = Class of TPersonTypeimage;
  1354. { --------------------------------------------------------------------
  1355. TPersonTypename
  1356. --------------------------------------------------------------------}
  1357. TPersonTypename = Class(TGoogleBaseObject)
  1358. Private
  1359. FfamilyName : String;
  1360. Fformatted : String;
  1361. FgivenName : String;
  1362. FhonorificPrefix : String;
  1363. FhonorificSuffix : String;
  1364. FmiddleName : String;
  1365. Protected
  1366. //Property setters
  1367. Procedure SetfamilyName(AIndex : Integer; const AValue : String); virtual;
  1368. Procedure Setformatted(AIndex : Integer; const AValue : String); virtual;
  1369. Procedure SetgivenName(AIndex : Integer; const AValue : String); virtual;
  1370. Procedure SethonorificPrefix(AIndex : Integer; const AValue : String); virtual;
  1371. Procedure SethonorificSuffix(AIndex : Integer; const AValue : String); virtual;
  1372. Procedure SetmiddleName(AIndex : Integer; const AValue : String); virtual;
  1373. Public
  1374. Published
  1375. Property familyName : String Index 0 Read FfamilyName Write SetfamilyName;
  1376. Property formatted : String Index 8 Read Fformatted Write Setformatted;
  1377. Property givenName : String Index 16 Read FgivenName Write SetgivenName;
  1378. Property honorificPrefix : String Index 24 Read FhonorificPrefix Write SethonorificPrefix;
  1379. Property honorificSuffix : String Index 32 Read FhonorificSuffix Write SethonorificSuffix;
  1380. Property middleName : String Index 40 Read FmiddleName Write SetmiddleName;
  1381. end;
  1382. TPersonTypenameClass = Class of TPersonTypename;
  1383. { --------------------------------------------------------------------
  1384. TPersonTypeorganizationsItem
  1385. --------------------------------------------------------------------}
  1386. TPersonTypeorganizationsItem = Class(TGoogleBaseObject)
  1387. Private
  1388. Fdepartment : String;
  1389. Fdescription : String;
  1390. FendDate : String;
  1391. Flocation : String;
  1392. Fname : String;
  1393. Fprimary : boolean;
  1394. FstartDate : String;
  1395. Ftitle : String;
  1396. F_type : String;
  1397. Protected
  1398. Class Function ExportPropertyName(Const AName : String) : string; override;
  1399. //Property setters
  1400. Procedure Setdepartment(AIndex : Integer; const AValue : String); virtual;
  1401. Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
  1402. Procedure SetendDate(AIndex : Integer; const AValue : String); virtual;
  1403. Procedure Setlocation(AIndex : Integer; const AValue : String); virtual;
  1404. Procedure Setname(AIndex : Integer; const AValue : String); virtual;
  1405. Procedure Setprimary(AIndex : Integer; const AValue : boolean); virtual;
  1406. Procedure SetstartDate(AIndex : Integer; const AValue : String); virtual;
  1407. Procedure Settitle(AIndex : Integer; const AValue : String); virtual;
  1408. Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  1409. Public
  1410. Published
  1411. Property department : String Index 0 Read Fdepartment Write Setdepartment;
  1412. Property description : String Index 8 Read Fdescription Write Setdescription;
  1413. Property endDate : String Index 16 Read FendDate Write SetendDate;
  1414. Property location : String Index 24 Read Flocation Write Setlocation;
  1415. Property name : String Index 32 Read Fname Write Setname;
  1416. Property primary : boolean Index 40 Read Fprimary Write Setprimary;
  1417. Property startDate : String Index 48 Read FstartDate Write SetstartDate;
  1418. Property title : String Index 56 Read Ftitle Write Settitle;
  1419. Property _type : String Index 64 Read F_type Write Set_type;
  1420. end;
  1421. TPersonTypeorganizationsItemClass = Class of TPersonTypeorganizationsItem;
  1422. { --------------------------------------------------------------------
  1423. TPersonTypeplacesLivedItem
  1424. --------------------------------------------------------------------}
  1425. TPersonTypeplacesLivedItem = Class(TGoogleBaseObject)
  1426. Private
  1427. Fprimary : boolean;
  1428. Fvalue : String;
  1429. Protected
  1430. //Property setters
  1431. Procedure Setprimary(AIndex : Integer; const AValue : boolean); virtual;
  1432. Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  1433. Public
  1434. Published
  1435. Property primary : boolean Index 0 Read Fprimary Write Setprimary;
  1436. Property value : String Index 8 Read Fvalue Write Setvalue;
  1437. end;
  1438. TPersonTypeplacesLivedItemClass = Class of TPersonTypeplacesLivedItem;
  1439. { --------------------------------------------------------------------
  1440. TPersonTypeurlsItem
  1441. --------------------------------------------------------------------}
  1442. TPersonTypeurlsItem = Class(TGoogleBaseObject)
  1443. Private
  1444. F_label : String;
  1445. F_type : String;
  1446. Fvalue : String;
  1447. Protected
  1448. Class Function ExportPropertyName(Const AName : String) : string; override;
  1449. //Property setters
  1450. Procedure Set_label(AIndex : Integer; const AValue : String); virtual;
  1451. Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  1452. Procedure Setvalue(AIndex : Integer; const AValue : String); virtual;
  1453. Public
  1454. Published
  1455. Property _label : String Index 0 Read F_label Write Set_label;
  1456. Property _type : String Index 8 Read F_type Write Set_type;
  1457. Property value : String Index 16 Read Fvalue Write Setvalue;
  1458. end;
  1459. TPersonTypeurlsItemClass = Class of TPersonTypeurlsItem;
  1460. { --------------------------------------------------------------------
  1461. TPerson
  1462. --------------------------------------------------------------------}
  1463. TPerson = Class(TGoogleBaseObject)
  1464. Private
  1465. FaboutMe : String;
  1466. Fbirthday : String;
  1467. FbraggingRights : String;
  1468. FcircledByCount : integer;
  1469. Fcover : TPersonTypecover;
  1470. FcurrentLocation : String;
  1471. FdisplayName : String;
  1472. Fdomain : String;
  1473. Femails : TPersonTypeemailsArray;
  1474. Fetag : String;
  1475. Fgender : String;
  1476. Fid : String;
  1477. Fimage : TPersonTypeimage;
  1478. FisPlusUser : boolean;
  1479. Fkind : String;
  1480. Fname : TPersonTypename;
  1481. Fnickname : String;
  1482. FobjectType : String;
  1483. Foccupation : String;
  1484. Forganizations : TPersonTypeorganizationsArray;
  1485. FplacesLived : TPersonTypeplacesLivedArray;
  1486. FplusOneCount : integer;
  1487. FrelationshipStatus : String;
  1488. Fskills : String;
  1489. Ftagline : String;
  1490. Furl : String;
  1491. Furls : TPersonTypeurlsArray;
  1492. Fverified : boolean;
  1493. Protected
  1494. //Property setters
  1495. Procedure SetaboutMe(AIndex : Integer; const AValue : String); virtual;
  1496. Procedure Setbirthday(AIndex : Integer; const AValue : String); virtual;
  1497. Procedure SetbraggingRights(AIndex : Integer; const AValue : String); virtual;
  1498. Procedure SetcircledByCount(AIndex : Integer; const AValue : integer); virtual;
  1499. Procedure Setcover(AIndex : Integer; const AValue : TPersonTypecover); virtual;
  1500. Procedure SetcurrentLocation(AIndex : Integer; const AValue : String); virtual;
  1501. Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
  1502. Procedure Setdomain(AIndex : Integer; const AValue : String); virtual;
  1503. Procedure Setemails(AIndex : Integer; const AValue : TPersonTypeemailsArray); virtual;
  1504. Procedure Setetag(AIndex : Integer; const AValue : String); virtual;
  1505. Procedure Setgender(AIndex : Integer; const AValue : String); virtual;
  1506. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  1507. Procedure Setimage(AIndex : Integer; const AValue : TPersonTypeimage); virtual;
  1508. Procedure SetisPlusUser(AIndex : Integer; const AValue : boolean); virtual;
  1509. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  1510. Procedure Setname(AIndex : Integer; const AValue : TPersonTypename); virtual;
  1511. Procedure Setnickname(AIndex : Integer; const AValue : String); virtual;
  1512. Procedure SetobjectType(AIndex : Integer; const AValue : String); virtual;
  1513. Procedure Setoccupation(AIndex : Integer; const AValue : String); virtual;
  1514. Procedure Setorganizations(AIndex : Integer; const AValue : TPersonTypeorganizationsArray); virtual;
  1515. Procedure SetplacesLived(AIndex : Integer; const AValue : TPersonTypeplacesLivedArray); virtual;
  1516. Procedure SetplusOneCount(AIndex : Integer; const AValue : integer); virtual;
  1517. Procedure SetrelationshipStatus(AIndex : Integer; const AValue : String); virtual;
  1518. Procedure Setskills(AIndex : Integer; const AValue : String); virtual;
  1519. Procedure Settagline(AIndex : Integer; const AValue : String); virtual;
  1520. Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  1521. Procedure Seturls(AIndex : Integer; const AValue : TPersonTypeurlsArray); virtual;
  1522. Procedure Setverified(AIndex : Integer; const AValue : boolean); virtual;
  1523. //2.6.4. bug workaround
  1524. {$IFDEF VER2_6}
  1525. Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
  1526. {$ENDIF VER2_6}
  1527. Public
  1528. Published
  1529. Property aboutMe : String Index 0 Read FaboutMe Write SetaboutMe;
  1530. Property birthday : String Index 8 Read Fbirthday Write Setbirthday;
  1531. Property braggingRights : String Index 16 Read FbraggingRights Write SetbraggingRights;
  1532. Property circledByCount : integer Index 24 Read FcircledByCount Write SetcircledByCount;
  1533. Property cover : TPersonTypecover Index 32 Read Fcover Write Setcover;
  1534. Property currentLocation : String Index 40 Read FcurrentLocation Write SetcurrentLocation;
  1535. Property displayName : String Index 48 Read FdisplayName Write SetdisplayName;
  1536. Property domain : String Index 56 Read Fdomain Write Setdomain;
  1537. Property emails : TPersonTypeemailsArray Index 64 Read Femails Write Setemails;
  1538. Property etag : String Index 72 Read Fetag Write Setetag;
  1539. Property gender : String Index 80 Read Fgender Write Setgender;
  1540. Property id : String Index 88 Read Fid Write Setid;
  1541. Property image : TPersonTypeimage Index 96 Read Fimage Write Setimage;
  1542. Property isPlusUser : boolean Index 104 Read FisPlusUser Write SetisPlusUser;
  1543. Property kind : String Index 112 Read Fkind Write Setkind;
  1544. Property name : TPersonTypename Index 120 Read Fname Write Setname;
  1545. Property nickname : String Index 128 Read Fnickname Write Setnickname;
  1546. Property objectType : String Index 136 Read FobjectType Write SetobjectType;
  1547. Property occupation : String Index 144 Read Foccupation Write Setoccupation;
  1548. Property organizations : TPersonTypeorganizationsArray Index 152 Read Forganizations Write Setorganizations;
  1549. Property placesLived : TPersonTypeplacesLivedArray Index 160 Read FplacesLived Write SetplacesLived;
  1550. Property plusOneCount : integer Index 168 Read FplusOneCount Write SetplusOneCount;
  1551. Property relationshipStatus : String Index 176 Read FrelationshipStatus Write SetrelationshipStatus;
  1552. Property skills : String Index 184 Read Fskills Write Setskills;
  1553. Property tagline : String Index 192 Read Ftagline Write Settagline;
  1554. Property url : String Index 200 Read Furl Write Seturl;
  1555. Property urls : TPersonTypeurlsArray Index 208 Read Furls Write Seturls;
  1556. Property verified : boolean Index 216 Read Fverified Write Setverified;
  1557. end;
  1558. TPersonClass = Class of TPerson;
  1559. { --------------------------------------------------------------------
  1560. TPlaceTypeaddress
  1561. --------------------------------------------------------------------}
  1562. TPlaceTypeaddress = Class(TGoogleBaseObject)
  1563. Private
  1564. Fformatted : String;
  1565. Protected
  1566. //Property setters
  1567. Procedure Setformatted(AIndex : Integer; const AValue : String); virtual;
  1568. Public
  1569. Published
  1570. Property formatted : String Index 0 Read Fformatted Write Setformatted;
  1571. end;
  1572. TPlaceTypeaddressClass = Class of TPlaceTypeaddress;
  1573. { --------------------------------------------------------------------
  1574. TPlaceTypeposition
  1575. --------------------------------------------------------------------}
  1576. TPlaceTypeposition = Class(TGoogleBaseObject)
  1577. Private
  1578. Flatitude : double;
  1579. Flongitude : double;
  1580. Protected
  1581. //Property setters
  1582. Procedure Setlatitude(AIndex : Integer; const AValue : double); virtual;
  1583. Procedure Setlongitude(AIndex : Integer; const AValue : double); virtual;
  1584. Public
  1585. Published
  1586. Property latitude : double Index 0 Read Flatitude Write Setlatitude;
  1587. Property longitude : double Index 8 Read Flongitude Write Setlongitude;
  1588. end;
  1589. TPlaceTypepositionClass = Class of TPlaceTypeposition;
  1590. { --------------------------------------------------------------------
  1591. TPlace
  1592. --------------------------------------------------------------------}
  1593. TPlace = Class(TGoogleBaseObject)
  1594. Private
  1595. Faddress : TPlaceTypeaddress;
  1596. FdisplayName : String;
  1597. Fid : String;
  1598. Fkind : String;
  1599. Fposition : TPlaceTypeposition;
  1600. Protected
  1601. //Property setters
  1602. Procedure Setaddress(AIndex : Integer; const AValue : TPlaceTypeaddress); virtual;
  1603. Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
  1604. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  1605. Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
  1606. Procedure Setposition(AIndex : Integer; const AValue : TPlaceTypeposition); virtual;
  1607. Public
  1608. Published
  1609. Property address : TPlaceTypeaddress Index 0 Read Faddress Write Setaddress;
  1610. Property displayName : String Index 8 Read FdisplayName Write SetdisplayName;
  1611. Property id : String Index 16 Read Fid Write Setid;
  1612. Property kind : String Index 24 Read Fkind Write Setkind;
  1613. Property position : TPlaceTypeposition Index 32 Read Fposition Write Setposition;
  1614. end;
  1615. TPlaceClass = Class of TPlace;
  1616. { --------------------------------------------------------------------
  1617. TPlusDomainsAclentryResource
  1618. --------------------------------------------------------------------}
  1619. TPlusDomainsAclentryResource = Class(TGoogleBaseObject)
  1620. Private
  1621. FdisplayName : String;
  1622. Fid : String;
  1623. F_type : String;
  1624. Protected
  1625. Class Function ExportPropertyName(Const AName : String) : string; override;
  1626. //Property setters
  1627. Procedure SetdisplayName(AIndex : Integer; const AValue : String); virtual;
  1628. Procedure Setid(AIndex : Integer; const AValue : String); virtual;
  1629. Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  1630. Public
  1631. Published
  1632. Property displayName : String Index 0 Read FdisplayName Write SetdisplayName;
  1633. Property id : String Index 8 Read Fid Write Setid;
  1634. Property _type : String Index 16 Read F_type Write Set_type;
  1635. end;
  1636. TPlusDomainsAclentryResourceClass = Class of TPlusDomainsAclentryResource;
  1637. { --------------------------------------------------------------------
  1638. TVideostream
  1639. --------------------------------------------------------------------}
  1640. TVideostream = Class(TGoogleBaseObject)
  1641. Private
  1642. Fheight : integer;
  1643. F_type : String;
  1644. Furl : String;
  1645. Fwidth : integer;
  1646. Protected
  1647. Class Function ExportPropertyName(Const AName : String) : string; override;
  1648. //Property setters
  1649. Procedure Setheight(AIndex : Integer; const AValue : integer); virtual;
  1650. Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
  1651. Procedure Seturl(AIndex : Integer; const AValue : String); virtual;
  1652. Procedure Setwidth(AIndex : Integer; const AValue : integer); virtual;
  1653. Public
  1654. Published
  1655. Property height : integer Index 0 Read Fheight Write Setheight;
  1656. Property _type : String Index 8 Read F_type Write Set_type;
  1657. Property url : String Index 16 Read Furl Write Seturl;
  1658. Property width : integer Index 24 Read Fwidth Write Setwidth;
  1659. end;
  1660. TVideostreamClass = Class of TVideostream;
  1661. { --------------------------------------------------------------------
  1662. TActivitiesResource
  1663. --------------------------------------------------------------------}
  1664. //Optional query Options for TActivitiesResource, method Insert
  1665. TActivitiesInsertOptions = Record
  1666. preview : boolean;
  1667. end;
  1668. //Optional query Options for TActivitiesResource, method List
  1669. TActivitiesListOptions = Record
  1670. maxResults : integer;
  1671. pageToken : String;
  1672. end;
  1673. TActivitiesResource = Class(TGoogleResource)
  1674. Public
  1675. Class Function ResourceName : String; override;
  1676. Class Function DefaultAPI : TGoogleAPIClass; override;
  1677. Function Get(activityId: string) : TActivity;
  1678. Function Insert(userId: string; aActivity : TActivity; AQuery : string = '') : TActivity;
  1679. Function Insert(userId: string; aActivity : TActivity; AQuery : TActivitiesinsertOptions) : TActivity;
  1680. Function List(collection: string; userId: string; AQuery : string = '') : TActivityFeed;
  1681. Function List(collection: string; userId: string; AQuery : TActivitieslistOptions) : TActivityFeed;
  1682. end;
  1683. { --------------------------------------------------------------------
  1684. TAudiencesResource
  1685. --------------------------------------------------------------------}
  1686. //Optional query Options for TAudiencesResource, method List
  1687. TAudiencesListOptions = Record
  1688. maxResults : integer;
  1689. pageToken : String;
  1690. end;
  1691. TAudiencesResource = Class(TGoogleResource)
  1692. Public
  1693. Class Function ResourceName : String; override;
  1694. Class Function DefaultAPI : TGoogleAPIClass; override;
  1695. Function List(userId: string; AQuery : string = '') : TAudiencesFeed;
  1696. Function List(userId: string; AQuery : TAudienceslistOptions) : TAudiencesFeed;
  1697. end;
  1698. { --------------------------------------------------------------------
  1699. TCirclesResource
  1700. --------------------------------------------------------------------}
  1701. //Optional query Options for TCirclesResource, method AddPeople
  1702. TCirclesAddPeopleOptions = Record
  1703. email : String;
  1704. userId : String;
  1705. end;
  1706. //Optional query Options for TCirclesResource, method List
  1707. TCirclesListOptions = Record
  1708. maxResults : integer;
  1709. pageToken : String;
  1710. end;
  1711. //Optional query Options for TCirclesResource, method RemovePeople
  1712. TCirclesRemovePeopleOptions = Record
  1713. email : String;
  1714. userId : String;
  1715. end;
  1716. TCirclesResource = Class(TGoogleResource)
  1717. Public
  1718. Class Function ResourceName : String; override;
  1719. Class Function DefaultAPI : TGoogleAPIClass; override;
  1720. Function AddPeople(circleId: string; AQuery : string = '') : TCircle;
  1721. Function AddPeople(circleId: string; AQuery : TCirclesaddPeopleOptions) : TCircle;
  1722. Function Get(circleId: string) : TCircle;
  1723. Function Insert(userId: string; aCircle : TCircle) : TCircle;
  1724. Function List(userId: string; AQuery : string = '') : TCircleFeed;
  1725. Function List(userId: string; AQuery : TCircleslistOptions) : TCircleFeed;
  1726. Function Patch(circleId: string; aCircle : TCircle) : TCircle;
  1727. Procedure Remove(circleId: string);
  1728. Procedure RemovePeople(circleId: string; AQuery : string = '');
  1729. Procedure RemovePeople(circleId: string; AQuery : TCirclesremovePeopleOptions);
  1730. Function Update(circleId: string; aCircle : TCircle) : TCircle;
  1731. end;
  1732. { --------------------------------------------------------------------
  1733. TCommentsResource
  1734. --------------------------------------------------------------------}
  1735. //Optional query Options for TCommentsResource, method List
  1736. TCommentsListOptions = Record
  1737. maxResults : integer;
  1738. pageToken : String;
  1739. sortOrder : String;
  1740. end;
  1741. TCommentsResource = Class(TGoogleResource)
  1742. Public
  1743. Class Function ResourceName : String; override;
  1744. Class Function DefaultAPI : TGoogleAPIClass; override;
  1745. Function Get(commentId: string) : TComment;
  1746. Function Insert(activityId: string; aComment : TComment) : TComment;
  1747. Function List(activityId: string; AQuery : string = '') : TCommentFeed;
  1748. Function List(activityId: string; AQuery : TCommentslistOptions) : TCommentFeed;
  1749. end;
  1750. { --------------------------------------------------------------------
  1751. TMediaResource
  1752. --------------------------------------------------------------------}
  1753. TMediaResource = Class(TGoogleResource)
  1754. Public
  1755. Class Function ResourceName : String; override;
  1756. Class Function DefaultAPI : TGoogleAPIClass; override;
  1757. Function Insert(collection: string; userId: string; aMedia : TMedia) : TMedia;
  1758. end;
  1759. { --------------------------------------------------------------------
  1760. TPeopleResource
  1761. --------------------------------------------------------------------}
  1762. //Optional query Options for TPeopleResource, method List
  1763. TPeopleListOptions = Record
  1764. maxResults : integer;
  1765. orderBy : String;
  1766. pageToken : String;
  1767. end;
  1768. //Optional query Options for TPeopleResource, method ListByActivity
  1769. TPeopleListByActivityOptions = Record
  1770. maxResults : integer;
  1771. pageToken : String;
  1772. end;
  1773. //Optional query Options for TPeopleResource, method ListByCircle
  1774. TPeopleListByCircleOptions = Record
  1775. maxResults : integer;
  1776. pageToken : String;
  1777. end;
  1778. TPeopleResource = Class(TGoogleResource)
  1779. Public
  1780. Class Function ResourceName : String; override;
  1781. Class Function DefaultAPI : TGoogleAPIClass; override;
  1782. Function Get(userId: string) : TPerson;
  1783. Function List(collection: string; userId: string; AQuery : string = '') : TPeopleFeed;
  1784. Function List(collection: string; userId: string; AQuery : TPeoplelistOptions) : TPeopleFeed;
  1785. Function ListByActivity(activityId: string; collection: string; AQuery : string = '') : TPeopleFeed;
  1786. Function ListByActivity(activityId: string; collection: string; AQuery : TPeoplelistByActivityOptions) : TPeopleFeed;
  1787. Function ListByCircle(circleId: string; AQuery : string = '') : TPeopleFeed;
  1788. Function ListByCircle(circleId: string; AQuery : TPeoplelistByCircleOptions) : TPeopleFeed;
  1789. end;
  1790. { --------------------------------------------------------------------
  1791. TPlusDomainsAPI
  1792. --------------------------------------------------------------------}
  1793. TPlusDomainsAPI = Class(TGoogleAPI)
  1794. Private
  1795. FActivitiesInstance : TActivitiesResource;
  1796. FAudiencesInstance : TAudiencesResource;
  1797. FCirclesInstance : TCirclesResource;
  1798. FCommentsInstance : TCommentsResource;
  1799. FMediaInstance : TMediaResource;
  1800. FPeopleInstance : TPeopleResource;
  1801. Function GetActivitiesInstance : TActivitiesResource;virtual;
  1802. Function GetAudiencesInstance : TAudiencesResource;virtual;
  1803. Function GetCirclesInstance : TCirclesResource;virtual;
  1804. Function GetCommentsInstance : TCommentsResource;virtual;
  1805. Function GetMediaInstance : TMediaResource;virtual;
  1806. Function GetPeopleInstance : TPeopleResource;virtual;
  1807. Public
  1808. //Override class functions with API info
  1809. Class Function APIName : String; override;
  1810. Class Function APIVersion : String; override;
  1811. Class Function APIRevision : String; override;
  1812. Class Function APIID : String; override;
  1813. Class Function APITitle : String; override;
  1814. Class Function APIDescription : String; override;
  1815. Class Function APIOwnerDomain : String; override;
  1816. Class Function APIOwnerName : String; override;
  1817. Class Function APIIcon16 : String; override;
  1818. Class Function APIIcon32 : String; override;
  1819. Class Function APIdocumentationLink : String; override;
  1820. Class Function APIrootUrl : string; override;
  1821. Class Function APIbasePath : string;override;
  1822. Class Function APIbaseURL : String;override;
  1823. Class Function APIProtocol : string;override;
  1824. Class Function APIservicePath : string;override;
  1825. Class Function APIbatchPath : String;override;
  1826. Class Function APIAuthScopes : TScopeInfoArray;override;
  1827. Class Function APINeedsAuth : Boolean;override;
  1828. Class Procedure RegisterAPIResources; override;
  1829. //Add create function for resources
  1830. Function CreateActivitiesResource(AOwner : TComponent) : TActivitiesResource;virtual;overload;
  1831. Function CreateActivitiesResource : TActivitiesResource;virtual;overload;
  1832. Function CreateAudiencesResource(AOwner : TComponent) : TAudiencesResource;virtual;overload;
  1833. Function CreateAudiencesResource : TAudiencesResource;virtual;overload;
  1834. Function CreateCirclesResource(AOwner : TComponent) : TCirclesResource;virtual;overload;
  1835. Function CreateCirclesResource : TCirclesResource;virtual;overload;
  1836. Function CreateCommentsResource(AOwner : TComponent) : TCommentsResource;virtual;overload;
  1837. Function CreateCommentsResource : TCommentsResource;virtual;overload;
  1838. Function CreateMediaResource(AOwner : TComponent) : TMediaResource;virtual;overload;
  1839. Function CreateMediaResource : TMediaResource;virtual;overload;
  1840. Function CreatePeopleResource(AOwner : TComponent) : TPeopleResource;virtual;overload;
  1841. Function CreatePeopleResource : TPeopleResource;virtual;overload;
  1842. //Add default on-demand instances for resources
  1843. Property ActivitiesResource : TActivitiesResource Read GetActivitiesInstance;
  1844. Property AudiencesResource : TAudiencesResource Read GetAudiencesInstance;
  1845. Property CirclesResource : TCirclesResource Read GetCirclesInstance;
  1846. Property CommentsResource : TCommentsResource Read GetCommentsInstance;
  1847. Property MediaResource : TMediaResource Read GetMediaInstance;
  1848. Property PeopleResource : TPeopleResource Read GetPeopleInstance;
  1849. end;
  1850. implementation
  1851. { --------------------------------------------------------------------
  1852. TAcl
  1853. --------------------------------------------------------------------}
  1854. Procedure TAcl.Setdescription(AIndex : Integer; const AValue : String);
  1855. begin
  1856. If (Fdescription=AValue) then exit;
  1857. Fdescription:=AValue;
  1858. MarkPropertyChanged(AIndex);
  1859. end;
  1860. Procedure TAcl.SetdomainRestricted(AIndex : Integer; const AValue : boolean);
  1861. begin
  1862. If (FdomainRestricted=AValue) then exit;
  1863. FdomainRestricted:=AValue;
  1864. MarkPropertyChanged(AIndex);
  1865. end;
  1866. Procedure TAcl.Setitems(AIndex : Integer; const AValue : TAclTypeitemsArray);
  1867. begin
  1868. If (Fitems=AValue) then exit;
  1869. Fitems:=AValue;
  1870. MarkPropertyChanged(AIndex);
  1871. end;
  1872. Procedure TAcl.Setkind(AIndex : Integer; const AValue : String);
  1873. begin
  1874. If (Fkind=AValue) then exit;
  1875. Fkind:=AValue;
  1876. MarkPropertyChanged(AIndex);
  1877. end;
  1878. //2.6.4. bug workaround
  1879. {$IFDEF VER2_6}
  1880. Procedure TAcl.SetArrayLength(Const AName : String; ALength : Longint);
  1881. begin
  1882. Case AName of
  1883. 'items' : SetLength(Fitems,ALength);
  1884. else
  1885. Inherited SetArrayLength(AName,ALength);
  1886. end;
  1887. end;
  1888. {$ENDIF VER2_6}
  1889. { --------------------------------------------------------------------
  1890. TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo
  1891. --------------------------------------------------------------------}
  1892. Procedure TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.SetchannelId(AIndex : Integer; const AValue : String);
  1893. begin
  1894. If (FchannelId=AValue) then exit;
  1895. FchannelId:=AValue;
  1896. MarkPropertyChanged(AIndex);
  1897. end;
  1898. { --------------------------------------------------------------------
  1899. TActivityTypeactorTypeclientSpecificActorInfo
  1900. --------------------------------------------------------------------}
  1901. Procedure TActivityTypeactorTypeclientSpecificActorInfo.SetyoutubeActorInfo(AIndex : Integer; const AValue : TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo);
  1902. begin
  1903. If (FyoutubeActorInfo=AValue) then exit;
  1904. FyoutubeActorInfo:=AValue;
  1905. MarkPropertyChanged(AIndex);
  1906. end;
  1907. { --------------------------------------------------------------------
  1908. TActivityTypeactorTypeimage
  1909. --------------------------------------------------------------------}
  1910. Procedure TActivityTypeactorTypeimage.Seturl(AIndex : Integer; const AValue : String);
  1911. begin
  1912. If (Furl=AValue) then exit;
  1913. Furl:=AValue;
  1914. MarkPropertyChanged(AIndex);
  1915. end;
  1916. { --------------------------------------------------------------------
  1917. TActivityTypeactorTypename
  1918. --------------------------------------------------------------------}
  1919. Procedure TActivityTypeactorTypename.SetfamilyName(AIndex : Integer; const AValue : String);
  1920. begin
  1921. If (FfamilyName=AValue) then exit;
  1922. FfamilyName:=AValue;
  1923. MarkPropertyChanged(AIndex);
  1924. end;
  1925. Procedure TActivityTypeactorTypename.SetgivenName(AIndex : Integer; const AValue : String);
  1926. begin
  1927. If (FgivenName=AValue) then exit;
  1928. FgivenName:=AValue;
  1929. MarkPropertyChanged(AIndex);
  1930. end;
  1931. { --------------------------------------------------------------------
  1932. TActivityTypeactorTypeverification
  1933. --------------------------------------------------------------------}
  1934. Procedure TActivityTypeactorTypeverification.SetadHocVerified(AIndex : Integer; const AValue : String);
  1935. begin
  1936. If (FadHocVerified=AValue) then exit;
  1937. FadHocVerified:=AValue;
  1938. MarkPropertyChanged(AIndex);
  1939. end;
  1940. { --------------------------------------------------------------------
  1941. TActivityTypeactor
  1942. --------------------------------------------------------------------}
  1943. Procedure TActivityTypeactor.SetclientSpecificActorInfo(AIndex : Integer; const AValue : TActivityTypeactorTypeclientSpecificActorInfo);
  1944. begin
  1945. If (FclientSpecificActorInfo=AValue) then exit;
  1946. FclientSpecificActorInfo:=AValue;
  1947. MarkPropertyChanged(AIndex);
  1948. end;
  1949. Procedure TActivityTypeactor.SetdisplayName(AIndex : Integer; const AValue : String);
  1950. begin
  1951. If (FdisplayName=AValue) then exit;
  1952. FdisplayName:=AValue;
  1953. MarkPropertyChanged(AIndex);
  1954. end;
  1955. Procedure TActivityTypeactor.Setid(AIndex : Integer; const AValue : String);
  1956. begin
  1957. If (Fid=AValue) then exit;
  1958. Fid:=AValue;
  1959. MarkPropertyChanged(AIndex);
  1960. end;
  1961. Procedure TActivityTypeactor.Setimage(AIndex : Integer; const AValue : TActivityTypeactorTypeimage);
  1962. begin
  1963. If (Fimage=AValue) then exit;
  1964. Fimage:=AValue;
  1965. MarkPropertyChanged(AIndex);
  1966. end;
  1967. Procedure TActivityTypeactor.Setname(AIndex : Integer; const AValue : TActivityTypeactorTypename);
  1968. begin
  1969. If (Fname=AValue) then exit;
  1970. Fname:=AValue;
  1971. MarkPropertyChanged(AIndex);
  1972. end;
  1973. Procedure TActivityTypeactor.Seturl(AIndex : Integer; const AValue : String);
  1974. begin
  1975. If (Furl=AValue) then exit;
  1976. Furl:=AValue;
  1977. MarkPropertyChanged(AIndex);
  1978. end;
  1979. Procedure TActivityTypeactor.Setverification(AIndex : Integer; const AValue : TActivityTypeactorTypeverification);
  1980. begin
  1981. If (Fverification=AValue) then exit;
  1982. Fverification:=AValue;
  1983. MarkPropertyChanged(AIndex);
  1984. end;
  1985. { --------------------------------------------------------------------
  1986. TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo
  1987. --------------------------------------------------------------------}
  1988. Procedure TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.SetchannelId(AIndex : Integer; const AValue : String);
  1989. begin
  1990. If (FchannelId=AValue) then exit;
  1991. FchannelId:=AValue;
  1992. MarkPropertyChanged(AIndex);
  1993. end;
  1994. { --------------------------------------------------------------------
  1995. TActivityTypeobjectTypeactorTypeclientSpecificActorInfo
  1996. --------------------------------------------------------------------}
  1997. Procedure TActivityTypeobjectTypeactorTypeclientSpecificActorInfo.SetyoutubeActorInfo(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo);
  1998. begin
  1999. If (FyoutubeActorInfo=AValue) then exit;
  2000. FyoutubeActorInfo:=AValue;
  2001. MarkPropertyChanged(AIndex);
  2002. end;
  2003. { --------------------------------------------------------------------
  2004. TActivityTypeobjectTypeactorTypeimage
  2005. --------------------------------------------------------------------}
  2006. Procedure TActivityTypeobjectTypeactorTypeimage.Seturl(AIndex : Integer; const AValue : String);
  2007. begin
  2008. If (Furl=AValue) then exit;
  2009. Furl:=AValue;
  2010. MarkPropertyChanged(AIndex);
  2011. end;
  2012. { --------------------------------------------------------------------
  2013. TActivityTypeobjectTypeactorTypeverification
  2014. --------------------------------------------------------------------}
  2015. Procedure TActivityTypeobjectTypeactorTypeverification.SetadHocVerified(AIndex : Integer; const AValue : String);
  2016. begin
  2017. If (FadHocVerified=AValue) then exit;
  2018. FadHocVerified:=AValue;
  2019. MarkPropertyChanged(AIndex);
  2020. end;
  2021. { --------------------------------------------------------------------
  2022. TActivityTypeobjectTypeactor
  2023. --------------------------------------------------------------------}
  2024. Procedure TActivityTypeobjectTypeactor.SetclientSpecificActorInfo(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeclientSpecificActorInfo);
  2025. begin
  2026. If (FclientSpecificActorInfo=AValue) then exit;
  2027. FclientSpecificActorInfo:=AValue;
  2028. MarkPropertyChanged(AIndex);
  2029. end;
  2030. Procedure TActivityTypeobjectTypeactor.SetdisplayName(AIndex : Integer; const AValue : String);
  2031. begin
  2032. If (FdisplayName=AValue) then exit;
  2033. FdisplayName:=AValue;
  2034. MarkPropertyChanged(AIndex);
  2035. end;
  2036. Procedure TActivityTypeobjectTypeactor.Setid(AIndex : Integer; const AValue : String);
  2037. begin
  2038. If (Fid=AValue) then exit;
  2039. Fid:=AValue;
  2040. MarkPropertyChanged(AIndex);
  2041. end;
  2042. Procedure TActivityTypeobjectTypeactor.Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeimage);
  2043. begin
  2044. If (Fimage=AValue) then exit;
  2045. Fimage:=AValue;
  2046. MarkPropertyChanged(AIndex);
  2047. end;
  2048. Procedure TActivityTypeobjectTypeactor.Seturl(AIndex : Integer; const AValue : String);
  2049. begin
  2050. If (Furl=AValue) then exit;
  2051. Furl:=AValue;
  2052. MarkPropertyChanged(AIndex);
  2053. end;
  2054. Procedure TActivityTypeobjectTypeactor.Setverification(AIndex : Integer; const AValue : TActivityTypeobjectTypeactorTypeverification);
  2055. begin
  2056. If (Fverification=AValue) then exit;
  2057. Fverification:=AValue;
  2058. MarkPropertyChanged(AIndex);
  2059. end;
  2060. { --------------------------------------------------------------------
  2061. TActivityTypeobjectTypeattachmentsItemTypeembed
  2062. --------------------------------------------------------------------}
  2063. Procedure TActivityTypeobjectTypeattachmentsItemTypeembed.Set_type(AIndex : Integer; const AValue : String);
  2064. begin
  2065. If (F_type=AValue) then exit;
  2066. F_type:=AValue;
  2067. MarkPropertyChanged(AIndex);
  2068. end;
  2069. Procedure TActivityTypeobjectTypeattachmentsItemTypeembed.Seturl(AIndex : Integer; const AValue : String);
  2070. begin
  2071. If (Furl=AValue) then exit;
  2072. Furl:=AValue;
  2073. MarkPropertyChanged(AIndex);
  2074. end;
  2075. Class Function TActivityTypeobjectTypeattachmentsItemTypeembed.ExportPropertyName(Const AName : String) :String;
  2076. begin
  2077. Case AName of
  2078. '_type' : Result:='type';
  2079. else
  2080. Result:=Inherited ExportPropertyName(AName);
  2081. end;
  2082. end;
  2083. { --------------------------------------------------------------------
  2084. TActivityTypeobjectTypeattachmentsItemTypefullImage
  2085. --------------------------------------------------------------------}
  2086. Procedure TActivityTypeobjectTypeattachmentsItemTypefullImage.Setheight(AIndex : Integer; const AValue : integer);
  2087. begin
  2088. If (Fheight=AValue) then exit;
  2089. Fheight:=AValue;
  2090. MarkPropertyChanged(AIndex);
  2091. end;
  2092. Procedure TActivityTypeobjectTypeattachmentsItemTypefullImage.Set_type(AIndex : Integer; const AValue : String);
  2093. begin
  2094. If (F_type=AValue) then exit;
  2095. F_type:=AValue;
  2096. MarkPropertyChanged(AIndex);
  2097. end;
  2098. Procedure TActivityTypeobjectTypeattachmentsItemTypefullImage.Seturl(AIndex : Integer; const AValue : String);
  2099. begin
  2100. If (Furl=AValue) then exit;
  2101. Furl:=AValue;
  2102. MarkPropertyChanged(AIndex);
  2103. end;
  2104. Procedure TActivityTypeobjectTypeattachmentsItemTypefullImage.Setwidth(AIndex : Integer; const AValue : integer);
  2105. begin
  2106. If (Fwidth=AValue) then exit;
  2107. Fwidth:=AValue;
  2108. MarkPropertyChanged(AIndex);
  2109. end;
  2110. Class Function TActivityTypeobjectTypeattachmentsItemTypefullImage.ExportPropertyName(Const AName : String) :String;
  2111. begin
  2112. Case AName of
  2113. '_type' : Result:='type';
  2114. else
  2115. Result:=Inherited ExportPropertyName(AName);
  2116. end;
  2117. end;
  2118. { --------------------------------------------------------------------
  2119. TActivityTypeobjectTypeattachmentsItemTypeimage
  2120. --------------------------------------------------------------------}
  2121. Procedure TActivityTypeobjectTypeattachmentsItemTypeimage.Setheight(AIndex : Integer; const AValue : integer);
  2122. begin
  2123. If (Fheight=AValue) then exit;
  2124. Fheight:=AValue;
  2125. MarkPropertyChanged(AIndex);
  2126. end;
  2127. Procedure TActivityTypeobjectTypeattachmentsItemTypeimage.Set_type(AIndex : Integer; const AValue : String);
  2128. begin
  2129. If (F_type=AValue) then exit;
  2130. F_type:=AValue;
  2131. MarkPropertyChanged(AIndex);
  2132. end;
  2133. Procedure TActivityTypeobjectTypeattachmentsItemTypeimage.Seturl(AIndex : Integer; const AValue : String);
  2134. begin
  2135. If (Furl=AValue) then exit;
  2136. Furl:=AValue;
  2137. MarkPropertyChanged(AIndex);
  2138. end;
  2139. Procedure TActivityTypeobjectTypeattachmentsItemTypeimage.Setwidth(AIndex : Integer; const AValue : integer);
  2140. begin
  2141. If (Fwidth=AValue) then exit;
  2142. Fwidth:=AValue;
  2143. MarkPropertyChanged(AIndex);
  2144. end;
  2145. Class Function TActivityTypeobjectTypeattachmentsItemTypeimage.ExportPropertyName(Const AName : String) :String;
  2146. begin
  2147. Case AName of
  2148. '_type' : Result:='type';
  2149. else
  2150. Result:=Inherited ExportPropertyName(AName);
  2151. end;
  2152. end;
  2153. { --------------------------------------------------------------------
  2154. TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsItem
  2155. --------------------------------------------------------------------}
  2156. Procedure TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsItem.Seturl(AIndex : Integer; const AValue : String);
  2157. begin
  2158. If (Furl=AValue) then exit;
  2159. Furl:=AValue;
  2160. MarkPropertyChanged(AIndex);
  2161. end;
  2162. { --------------------------------------------------------------------
  2163. TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage
  2164. --------------------------------------------------------------------}
  2165. Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage.Setheight(AIndex : Integer; const AValue : integer);
  2166. begin
  2167. If (Fheight=AValue) then exit;
  2168. Fheight:=AValue;
  2169. MarkPropertyChanged(AIndex);
  2170. end;
  2171. Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage.Set_type(AIndex : Integer; const AValue : String);
  2172. begin
  2173. If (F_type=AValue) then exit;
  2174. F_type:=AValue;
  2175. MarkPropertyChanged(AIndex);
  2176. end;
  2177. Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage.Seturl(AIndex : Integer; const AValue : String);
  2178. begin
  2179. If (Furl=AValue) then exit;
  2180. Furl:=AValue;
  2181. MarkPropertyChanged(AIndex);
  2182. end;
  2183. Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage.Setwidth(AIndex : Integer; const AValue : integer);
  2184. begin
  2185. If (Fwidth=AValue) then exit;
  2186. Fwidth:=AValue;
  2187. MarkPropertyChanged(AIndex);
  2188. end;
  2189. Class Function TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage.ExportPropertyName(Const AName : String) :String;
  2190. begin
  2191. Case AName of
  2192. '_type' : Result:='type';
  2193. else
  2194. Result:=Inherited ExportPropertyName(AName);
  2195. end;
  2196. end;
  2197. { --------------------------------------------------------------------
  2198. TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem
  2199. --------------------------------------------------------------------}
  2200. Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem.Setdescription(AIndex : Integer; const AValue : String);
  2201. begin
  2202. If (Fdescription=AValue) then exit;
  2203. Fdescription:=AValue;
  2204. MarkPropertyChanged(AIndex);
  2205. end;
  2206. Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem.Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage);
  2207. begin
  2208. If (Fimage=AValue) then exit;
  2209. Fimage:=AValue;
  2210. MarkPropertyChanged(AIndex);
  2211. end;
  2212. Procedure TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem.Seturl(AIndex : Integer; const AValue : String);
  2213. begin
  2214. If (Furl=AValue) then exit;
  2215. Furl:=AValue;
  2216. MarkPropertyChanged(AIndex);
  2217. end;
  2218. { --------------------------------------------------------------------
  2219. TActivityTypeobjectTypeattachmentsItem
  2220. --------------------------------------------------------------------}
  2221. Procedure TActivityTypeobjectTypeattachmentsItem.Setcontent(AIndex : Integer; const AValue : String);
  2222. begin
  2223. If (Fcontent=AValue) then exit;
  2224. Fcontent:=AValue;
  2225. MarkPropertyChanged(AIndex);
  2226. end;
  2227. Procedure TActivityTypeobjectTypeattachmentsItem.SetdisplayName(AIndex : Integer; const AValue : String);
  2228. begin
  2229. If (FdisplayName=AValue) then exit;
  2230. FdisplayName:=AValue;
  2231. MarkPropertyChanged(AIndex);
  2232. end;
  2233. Procedure TActivityTypeobjectTypeattachmentsItem.Setembed(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypeembed);
  2234. begin
  2235. If (Fembed=AValue) then exit;
  2236. Fembed:=AValue;
  2237. MarkPropertyChanged(AIndex);
  2238. end;
  2239. Procedure TActivityTypeobjectTypeattachmentsItem.SetfullImage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypefullImage);
  2240. begin
  2241. If (FfullImage=AValue) then exit;
  2242. FfullImage:=AValue;
  2243. MarkPropertyChanged(AIndex);
  2244. end;
  2245. Procedure TActivityTypeobjectTypeattachmentsItem.Setid(AIndex : Integer; const AValue : String);
  2246. begin
  2247. If (Fid=AValue) then exit;
  2248. Fid:=AValue;
  2249. MarkPropertyChanged(AIndex);
  2250. end;
  2251. Procedure TActivityTypeobjectTypeattachmentsItem.Setimage(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypeimage);
  2252. begin
  2253. If (Fimage=AValue) then exit;
  2254. Fimage:=AValue;
  2255. MarkPropertyChanged(AIndex);
  2256. end;
  2257. Procedure TActivityTypeobjectTypeattachmentsItem.SetobjectType(AIndex : Integer; const AValue : String);
  2258. begin
  2259. If (FobjectType=AValue) then exit;
  2260. FobjectType:=AValue;
  2261. MarkPropertyChanged(AIndex);
  2262. end;
  2263. Procedure TActivityTypeobjectTypeattachmentsItem.SetpreviewThumbnails(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsArray);
  2264. begin
  2265. If (FpreviewThumbnails=AValue) then exit;
  2266. FpreviewThumbnails:=AValue;
  2267. MarkPropertyChanged(AIndex);
  2268. end;
  2269. Procedure TActivityTypeobjectTypeattachmentsItem.Setthumbnails(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsItemTypethumbnailsArray);
  2270. begin
  2271. If (Fthumbnails=AValue) then exit;
  2272. Fthumbnails:=AValue;
  2273. MarkPropertyChanged(AIndex);
  2274. end;
  2275. Procedure TActivityTypeobjectTypeattachmentsItem.Seturl(AIndex : Integer; const AValue : String);
  2276. begin
  2277. If (Furl=AValue) then exit;
  2278. Furl:=AValue;
  2279. MarkPropertyChanged(AIndex);
  2280. end;
  2281. //2.6.4. bug workaround
  2282. {$IFDEF VER2_6}
  2283. Procedure TActivityTypeobjectTypeattachmentsItem.SetArrayLength(Const AName : String; ALength : Longint);
  2284. begin
  2285. Case AName of
  2286. 'previewthumbnails' : SetLength(FpreviewThumbnails,ALength);
  2287. 'thumbnails' : SetLength(Fthumbnails,ALength);
  2288. else
  2289. Inherited SetArrayLength(AName,ALength);
  2290. end;
  2291. end;
  2292. {$ENDIF VER2_6}
  2293. { --------------------------------------------------------------------
  2294. TActivityTypeobjectTypeplusoners
  2295. --------------------------------------------------------------------}
  2296. Procedure TActivityTypeobjectTypeplusoners.SetselfLink(AIndex : Integer; const AValue : String);
  2297. begin
  2298. If (FselfLink=AValue) then exit;
  2299. FselfLink:=AValue;
  2300. MarkPropertyChanged(AIndex);
  2301. end;
  2302. Procedure TActivityTypeobjectTypeplusoners.SettotalItems(AIndex : Integer; const AValue : integer);
  2303. begin
  2304. If (FtotalItems=AValue) then exit;
  2305. FtotalItems:=AValue;
  2306. MarkPropertyChanged(AIndex);
  2307. end;
  2308. { --------------------------------------------------------------------
  2309. TActivityTypeobjectTypereplies
  2310. --------------------------------------------------------------------}
  2311. Procedure TActivityTypeobjectTypereplies.SetselfLink(AIndex : Integer; const AValue : String);
  2312. begin
  2313. If (FselfLink=AValue) then exit;
  2314. FselfLink:=AValue;
  2315. MarkPropertyChanged(AIndex);
  2316. end;
  2317. Procedure TActivityTypeobjectTypereplies.SettotalItems(AIndex : Integer; const AValue : integer);
  2318. begin
  2319. If (FtotalItems=AValue) then exit;
  2320. FtotalItems:=AValue;
  2321. MarkPropertyChanged(AIndex);
  2322. end;
  2323. { --------------------------------------------------------------------
  2324. TActivityTypeobjectTyperesharers
  2325. --------------------------------------------------------------------}
  2326. Procedure TActivityTypeobjectTyperesharers.SetselfLink(AIndex : Integer; const AValue : String);
  2327. begin
  2328. If (FselfLink=AValue) then exit;
  2329. FselfLink:=AValue;
  2330. MarkPropertyChanged(AIndex);
  2331. end;
  2332. Procedure TActivityTypeobjectTyperesharers.SettotalItems(AIndex : Integer; const AValue : integer);
  2333. begin
  2334. If (FtotalItems=AValue) then exit;
  2335. FtotalItems:=AValue;
  2336. MarkPropertyChanged(AIndex);
  2337. end;
  2338. { --------------------------------------------------------------------
  2339. TActivityTypeobjectTypestatusForViewer
  2340. --------------------------------------------------------------------}
  2341. Procedure TActivityTypeobjectTypestatusForViewer.SetcanComment(AIndex : Integer; const AValue : boolean);
  2342. begin
  2343. If (FcanComment=AValue) then exit;
  2344. FcanComment:=AValue;
  2345. MarkPropertyChanged(AIndex);
  2346. end;
  2347. Procedure TActivityTypeobjectTypestatusForViewer.SetcanPlusone(AIndex : Integer; const AValue : boolean);
  2348. begin
  2349. If (FcanPlusone=AValue) then exit;
  2350. FcanPlusone:=AValue;
  2351. MarkPropertyChanged(AIndex);
  2352. end;
  2353. Procedure TActivityTypeobjectTypestatusForViewer.SetcanUpdate(AIndex : Integer; const AValue : boolean);
  2354. begin
  2355. If (FcanUpdate=AValue) then exit;
  2356. FcanUpdate:=AValue;
  2357. MarkPropertyChanged(AIndex);
  2358. end;
  2359. Procedure TActivityTypeobjectTypestatusForViewer.SetisPlusOned(AIndex : Integer; const AValue : boolean);
  2360. begin
  2361. If (FisPlusOned=AValue) then exit;
  2362. FisPlusOned:=AValue;
  2363. MarkPropertyChanged(AIndex);
  2364. end;
  2365. Procedure TActivityTypeobjectTypestatusForViewer.SetresharingDisabled(AIndex : Integer; const AValue : boolean);
  2366. begin
  2367. If (FresharingDisabled=AValue) then exit;
  2368. FresharingDisabled:=AValue;
  2369. MarkPropertyChanged(AIndex);
  2370. end;
  2371. { --------------------------------------------------------------------
  2372. TActivityTypeobject
  2373. --------------------------------------------------------------------}
  2374. Procedure TActivityTypeobject.Setactor(AIndex : Integer; const AValue : TActivityTypeobjectTypeactor);
  2375. begin
  2376. If (Factor=AValue) then exit;
  2377. Factor:=AValue;
  2378. MarkPropertyChanged(AIndex);
  2379. end;
  2380. Procedure TActivityTypeobject.Setattachments(AIndex : Integer; const AValue : TActivityTypeobjectTypeattachmentsArray);
  2381. begin
  2382. If (Fattachments=AValue) then exit;
  2383. Fattachments:=AValue;
  2384. MarkPropertyChanged(AIndex);
  2385. end;
  2386. Procedure TActivityTypeobject.Setcontent(AIndex : Integer; const AValue : String);
  2387. begin
  2388. If (Fcontent=AValue) then exit;
  2389. Fcontent:=AValue;
  2390. MarkPropertyChanged(AIndex);
  2391. end;
  2392. Procedure TActivityTypeobject.Setid(AIndex : Integer; const AValue : String);
  2393. begin
  2394. If (Fid=AValue) then exit;
  2395. Fid:=AValue;
  2396. MarkPropertyChanged(AIndex);
  2397. end;
  2398. Procedure TActivityTypeobject.SetobjectType(AIndex : Integer; const AValue : String);
  2399. begin
  2400. If (FobjectType=AValue) then exit;
  2401. FobjectType:=AValue;
  2402. MarkPropertyChanged(AIndex);
  2403. end;
  2404. Procedure TActivityTypeobject.SetoriginalContent(AIndex : Integer; const AValue : String);
  2405. begin
  2406. If (ForiginalContent=AValue) then exit;
  2407. ForiginalContent:=AValue;
  2408. MarkPropertyChanged(AIndex);
  2409. end;
  2410. Procedure TActivityTypeobject.Setplusoners(AIndex : Integer; const AValue : TActivityTypeobjectTypeplusoners);
  2411. begin
  2412. If (Fplusoners=AValue) then exit;
  2413. Fplusoners:=AValue;
  2414. MarkPropertyChanged(AIndex);
  2415. end;
  2416. Procedure TActivityTypeobject.Setreplies(AIndex : Integer; const AValue : TActivityTypeobjectTypereplies);
  2417. begin
  2418. If (Freplies=AValue) then exit;
  2419. Freplies:=AValue;
  2420. MarkPropertyChanged(AIndex);
  2421. end;
  2422. Procedure TActivityTypeobject.Setresharers(AIndex : Integer; const AValue : TActivityTypeobjectTyperesharers);
  2423. begin
  2424. If (Fresharers=AValue) then exit;
  2425. Fresharers:=AValue;
  2426. MarkPropertyChanged(AIndex);
  2427. end;
  2428. Procedure TActivityTypeobject.SetstatusForViewer(AIndex : Integer; const AValue : TActivityTypeobjectTypestatusForViewer);
  2429. begin
  2430. If (FstatusForViewer=AValue) then exit;
  2431. FstatusForViewer:=AValue;
  2432. MarkPropertyChanged(AIndex);
  2433. end;
  2434. Procedure TActivityTypeobject.Seturl(AIndex : Integer; const AValue : String);
  2435. begin
  2436. If (Furl=AValue) then exit;
  2437. Furl:=AValue;
  2438. MarkPropertyChanged(AIndex);
  2439. end;
  2440. //2.6.4. bug workaround
  2441. {$IFDEF VER2_6}
  2442. Procedure TActivityTypeobject.SetArrayLength(Const AName : String; ALength : Longint);
  2443. begin
  2444. Case AName of
  2445. 'attachments' : SetLength(Fattachments,ALength);
  2446. else
  2447. Inherited SetArrayLength(AName,ALength);
  2448. end;
  2449. end;
  2450. {$ENDIF VER2_6}
  2451. { --------------------------------------------------------------------
  2452. TActivityTypeprovider
  2453. --------------------------------------------------------------------}
  2454. Procedure TActivityTypeprovider.Settitle(AIndex : Integer; const AValue : String);
  2455. begin
  2456. If (Ftitle=AValue) then exit;
  2457. Ftitle:=AValue;
  2458. MarkPropertyChanged(AIndex);
  2459. end;
  2460. { --------------------------------------------------------------------
  2461. TActivity
  2462. --------------------------------------------------------------------}
  2463. Procedure TActivity.Setaccess(AIndex : Integer; const AValue : TAcl);
  2464. begin
  2465. If (Faccess=AValue) then exit;
  2466. Faccess:=AValue;
  2467. MarkPropertyChanged(AIndex);
  2468. end;
  2469. Procedure TActivity.Setactor(AIndex : Integer; const AValue : TActivityTypeactor);
  2470. begin
  2471. If (Factor=AValue) then exit;
  2472. Factor:=AValue;
  2473. MarkPropertyChanged(AIndex);
  2474. end;
  2475. Procedure TActivity.Setaddress(AIndex : Integer; const AValue : String);
  2476. begin
  2477. If (Faddress=AValue) then exit;
  2478. Faddress:=AValue;
  2479. MarkPropertyChanged(AIndex);
  2480. end;
  2481. Procedure TActivity.Setannotation(AIndex : Integer; const AValue : String);
  2482. begin
  2483. If (Fannotation=AValue) then exit;
  2484. Fannotation:=AValue;
  2485. MarkPropertyChanged(AIndex);
  2486. end;
  2487. Procedure TActivity.SetcrosspostSource(AIndex : Integer; const AValue : String);
  2488. begin
  2489. If (FcrosspostSource=AValue) then exit;
  2490. FcrosspostSource:=AValue;
  2491. MarkPropertyChanged(AIndex);
  2492. end;
  2493. Procedure TActivity.Setetag(AIndex : Integer; const AValue : String);
  2494. begin
  2495. If (Fetag=AValue) then exit;
  2496. Fetag:=AValue;
  2497. MarkPropertyChanged(AIndex);
  2498. end;
  2499. Procedure TActivity.Setgeocode(AIndex : Integer; const AValue : String);
  2500. begin
  2501. If (Fgeocode=AValue) then exit;
  2502. Fgeocode:=AValue;
  2503. MarkPropertyChanged(AIndex);
  2504. end;
  2505. Procedure TActivity.Setid(AIndex : Integer; const AValue : String);
  2506. begin
  2507. If (Fid=AValue) then exit;
  2508. Fid:=AValue;
  2509. MarkPropertyChanged(AIndex);
  2510. end;
  2511. Procedure TActivity.Setkind(AIndex : Integer; const AValue : String);
  2512. begin
  2513. If (Fkind=AValue) then exit;
  2514. Fkind:=AValue;
  2515. MarkPropertyChanged(AIndex);
  2516. end;
  2517. Procedure TActivity.Setlocation(AIndex : Integer; const AValue : TPlace);
  2518. begin
  2519. If (Flocation=AValue) then exit;
  2520. Flocation:=AValue;
  2521. MarkPropertyChanged(AIndex);
  2522. end;
  2523. Procedure TActivity.Set_object(AIndex : Integer; const AValue : TActivityTypeobject);
  2524. begin
  2525. If (F_object=AValue) then exit;
  2526. F_object:=AValue;
  2527. MarkPropertyChanged(AIndex);
  2528. end;
  2529. Procedure TActivity.SetplaceId(AIndex : Integer; const AValue : String);
  2530. begin
  2531. If (FplaceId=AValue) then exit;
  2532. FplaceId:=AValue;
  2533. MarkPropertyChanged(AIndex);
  2534. end;
  2535. Procedure TActivity.SetplaceName(AIndex : Integer; const AValue : String);
  2536. begin
  2537. If (FplaceName=AValue) then exit;
  2538. FplaceName:=AValue;
  2539. MarkPropertyChanged(AIndex);
  2540. end;
  2541. Procedure TActivity.Setprovider(AIndex : Integer; const AValue : TActivityTypeprovider);
  2542. begin
  2543. If (Fprovider=AValue) then exit;
  2544. Fprovider:=AValue;
  2545. MarkPropertyChanged(AIndex);
  2546. end;
  2547. Procedure TActivity.Set_published(AIndex : Integer; const AValue : TDatetime);
  2548. begin
  2549. If (F_published=AValue) then exit;
  2550. F_published:=AValue;
  2551. MarkPropertyChanged(AIndex);
  2552. end;
  2553. Procedure TActivity.Setradius(AIndex : Integer; const AValue : String);
  2554. begin
  2555. If (Fradius=AValue) then exit;
  2556. Fradius:=AValue;
  2557. MarkPropertyChanged(AIndex);
  2558. end;
  2559. Procedure TActivity.Settitle(AIndex : Integer; const AValue : String);
  2560. begin
  2561. If (Ftitle=AValue) then exit;
  2562. Ftitle:=AValue;
  2563. MarkPropertyChanged(AIndex);
  2564. end;
  2565. Procedure TActivity.Setupdated(AIndex : Integer; const AValue : TDatetime);
  2566. begin
  2567. If (Fupdated=AValue) then exit;
  2568. Fupdated:=AValue;
  2569. MarkPropertyChanged(AIndex);
  2570. end;
  2571. Procedure TActivity.Seturl(AIndex : Integer; const AValue : String);
  2572. begin
  2573. If (Furl=AValue) then exit;
  2574. Furl:=AValue;
  2575. MarkPropertyChanged(AIndex);
  2576. end;
  2577. Procedure TActivity.Setverb(AIndex : Integer; const AValue : String);
  2578. begin
  2579. If (Fverb=AValue) then exit;
  2580. Fverb:=AValue;
  2581. MarkPropertyChanged(AIndex);
  2582. end;
  2583. Class Function TActivity.ExportPropertyName(Const AName : String) :String;
  2584. begin
  2585. Case AName of
  2586. '_object' : Result:='object';
  2587. '_published' : Result:='published';
  2588. else
  2589. Result:=Inherited ExportPropertyName(AName);
  2590. end;
  2591. end;
  2592. { --------------------------------------------------------------------
  2593. TActivityFeed
  2594. --------------------------------------------------------------------}
  2595. Procedure TActivityFeed.Setetag(AIndex : Integer; const AValue : String);
  2596. begin
  2597. If (Fetag=AValue) then exit;
  2598. Fetag:=AValue;
  2599. MarkPropertyChanged(AIndex);
  2600. end;
  2601. Procedure TActivityFeed.Setid(AIndex : Integer; const AValue : String);
  2602. begin
  2603. If (Fid=AValue) then exit;
  2604. Fid:=AValue;
  2605. MarkPropertyChanged(AIndex);
  2606. end;
  2607. Procedure TActivityFeed.Setitems(AIndex : Integer; const AValue : TActivityFeedTypeitemsArray);
  2608. begin
  2609. If (Fitems=AValue) then exit;
  2610. Fitems:=AValue;
  2611. MarkPropertyChanged(AIndex);
  2612. end;
  2613. Procedure TActivityFeed.Setkind(AIndex : Integer; const AValue : String);
  2614. begin
  2615. If (Fkind=AValue) then exit;
  2616. Fkind:=AValue;
  2617. MarkPropertyChanged(AIndex);
  2618. end;
  2619. Procedure TActivityFeed.SetnextLink(AIndex : Integer; const AValue : String);
  2620. begin
  2621. If (FnextLink=AValue) then exit;
  2622. FnextLink:=AValue;
  2623. MarkPropertyChanged(AIndex);
  2624. end;
  2625. Procedure TActivityFeed.SetnextPageToken(AIndex : Integer; const AValue : String);
  2626. begin
  2627. If (FnextPageToken=AValue) then exit;
  2628. FnextPageToken:=AValue;
  2629. MarkPropertyChanged(AIndex);
  2630. end;
  2631. Procedure TActivityFeed.SetselfLink(AIndex : Integer; const AValue : String);
  2632. begin
  2633. If (FselfLink=AValue) then exit;
  2634. FselfLink:=AValue;
  2635. MarkPropertyChanged(AIndex);
  2636. end;
  2637. Procedure TActivityFeed.Settitle(AIndex : Integer; const AValue : String);
  2638. begin
  2639. If (Ftitle=AValue) then exit;
  2640. Ftitle:=AValue;
  2641. MarkPropertyChanged(AIndex);
  2642. end;
  2643. Procedure TActivityFeed.Setupdated(AIndex : Integer; const AValue : TDatetime);
  2644. begin
  2645. If (Fupdated=AValue) then exit;
  2646. Fupdated:=AValue;
  2647. MarkPropertyChanged(AIndex);
  2648. end;
  2649. //2.6.4. bug workaround
  2650. {$IFDEF VER2_6}
  2651. Procedure TActivityFeed.SetArrayLength(Const AName : String; ALength : Longint);
  2652. begin
  2653. Case AName of
  2654. 'items' : SetLength(Fitems,ALength);
  2655. else
  2656. Inherited SetArrayLength(AName,ALength);
  2657. end;
  2658. end;
  2659. {$ENDIF VER2_6}
  2660. { --------------------------------------------------------------------
  2661. TAudience
  2662. --------------------------------------------------------------------}
  2663. Procedure TAudience.Setetag(AIndex : Integer; const AValue : String);
  2664. begin
  2665. If (Fetag=AValue) then exit;
  2666. Fetag:=AValue;
  2667. MarkPropertyChanged(AIndex);
  2668. end;
  2669. Procedure TAudience.Setitem(AIndex : Integer; const AValue : TPlusDomainsAclentryResource);
  2670. begin
  2671. If (Fitem=AValue) then exit;
  2672. Fitem:=AValue;
  2673. MarkPropertyChanged(AIndex);
  2674. end;
  2675. Procedure TAudience.Setkind(AIndex : Integer; const AValue : String);
  2676. begin
  2677. If (Fkind=AValue) then exit;
  2678. Fkind:=AValue;
  2679. MarkPropertyChanged(AIndex);
  2680. end;
  2681. Procedure TAudience.SetmemberCount(AIndex : Integer; const AValue : integer);
  2682. begin
  2683. If (FmemberCount=AValue) then exit;
  2684. FmemberCount:=AValue;
  2685. MarkPropertyChanged(AIndex);
  2686. end;
  2687. Procedure TAudience.Setvisibility(AIndex : Integer; const AValue : String);
  2688. begin
  2689. If (Fvisibility=AValue) then exit;
  2690. Fvisibility:=AValue;
  2691. MarkPropertyChanged(AIndex);
  2692. end;
  2693. { --------------------------------------------------------------------
  2694. TAudiencesFeed
  2695. --------------------------------------------------------------------}
  2696. Procedure TAudiencesFeed.Setetag(AIndex : Integer; const AValue : String);
  2697. begin
  2698. If (Fetag=AValue) then exit;
  2699. Fetag:=AValue;
  2700. MarkPropertyChanged(AIndex);
  2701. end;
  2702. Procedure TAudiencesFeed.Setitems(AIndex : Integer; const AValue : TAudiencesFeedTypeitemsArray);
  2703. begin
  2704. If (Fitems=AValue) then exit;
  2705. Fitems:=AValue;
  2706. MarkPropertyChanged(AIndex);
  2707. end;
  2708. Procedure TAudiencesFeed.Setkind(AIndex : Integer; const AValue : String);
  2709. begin
  2710. If (Fkind=AValue) then exit;
  2711. Fkind:=AValue;
  2712. MarkPropertyChanged(AIndex);
  2713. end;
  2714. Procedure TAudiencesFeed.SetnextPageToken(AIndex : Integer; const AValue : String);
  2715. begin
  2716. If (FnextPageToken=AValue) then exit;
  2717. FnextPageToken:=AValue;
  2718. MarkPropertyChanged(AIndex);
  2719. end;
  2720. Procedure TAudiencesFeed.SettotalItems(AIndex : Integer; const AValue : integer);
  2721. begin
  2722. If (FtotalItems=AValue) then exit;
  2723. FtotalItems:=AValue;
  2724. MarkPropertyChanged(AIndex);
  2725. end;
  2726. //2.6.4. bug workaround
  2727. {$IFDEF VER2_6}
  2728. Procedure TAudiencesFeed.SetArrayLength(Const AName : String; ALength : Longint);
  2729. begin
  2730. Case AName of
  2731. 'items' : SetLength(Fitems,ALength);
  2732. else
  2733. Inherited SetArrayLength(AName,ALength);
  2734. end;
  2735. end;
  2736. {$ENDIF VER2_6}
  2737. { --------------------------------------------------------------------
  2738. TCircleTypepeople
  2739. --------------------------------------------------------------------}
  2740. Procedure TCircleTypepeople.SettotalItems(AIndex : Integer; const AValue : integer);
  2741. begin
  2742. If (FtotalItems=AValue) then exit;
  2743. FtotalItems:=AValue;
  2744. MarkPropertyChanged(AIndex);
  2745. end;
  2746. { --------------------------------------------------------------------
  2747. TCircle
  2748. --------------------------------------------------------------------}
  2749. Procedure TCircle.Setdescription(AIndex : Integer; const AValue : String);
  2750. begin
  2751. If (Fdescription=AValue) then exit;
  2752. Fdescription:=AValue;
  2753. MarkPropertyChanged(AIndex);
  2754. end;
  2755. Procedure TCircle.SetdisplayName(AIndex : Integer; const AValue : String);
  2756. begin
  2757. If (FdisplayName=AValue) then exit;
  2758. FdisplayName:=AValue;
  2759. MarkPropertyChanged(AIndex);
  2760. end;
  2761. Procedure TCircle.Setetag(AIndex : Integer; const AValue : String);
  2762. begin
  2763. If (Fetag=AValue) then exit;
  2764. Fetag:=AValue;
  2765. MarkPropertyChanged(AIndex);
  2766. end;
  2767. Procedure TCircle.Setid(AIndex : Integer; const AValue : String);
  2768. begin
  2769. If (Fid=AValue) then exit;
  2770. Fid:=AValue;
  2771. MarkPropertyChanged(AIndex);
  2772. end;
  2773. Procedure TCircle.Setkind(AIndex : Integer; const AValue : String);
  2774. begin
  2775. If (Fkind=AValue) then exit;
  2776. Fkind:=AValue;
  2777. MarkPropertyChanged(AIndex);
  2778. end;
  2779. Procedure TCircle.Setpeople(AIndex : Integer; const AValue : TCircleTypepeople);
  2780. begin
  2781. If (Fpeople=AValue) then exit;
  2782. Fpeople:=AValue;
  2783. MarkPropertyChanged(AIndex);
  2784. end;
  2785. Procedure TCircle.SetselfLink(AIndex : Integer; const AValue : String);
  2786. begin
  2787. If (FselfLink=AValue) then exit;
  2788. FselfLink:=AValue;
  2789. MarkPropertyChanged(AIndex);
  2790. end;
  2791. { --------------------------------------------------------------------
  2792. TCircleFeed
  2793. --------------------------------------------------------------------}
  2794. Procedure TCircleFeed.Setetag(AIndex : Integer; const AValue : String);
  2795. begin
  2796. If (Fetag=AValue) then exit;
  2797. Fetag:=AValue;
  2798. MarkPropertyChanged(AIndex);
  2799. end;
  2800. Procedure TCircleFeed.Setitems(AIndex : Integer; const AValue : TCircleFeedTypeitemsArray);
  2801. begin
  2802. If (Fitems=AValue) then exit;
  2803. Fitems:=AValue;
  2804. MarkPropertyChanged(AIndex);
  2805. end;
  2806. Procedure TCircleFeed.Setkind(AIndex : Integer; const AValue : String);
  2807. begin
  2808. If (Fkind=AValue) then exit;
  2809. Fkind:=AValue;
  2810. MarkPropertyChanged(AIndex);
  2811. end;
  2812. Procedure TCircleFeed.SetnextLink(AIndex : Integer; const AValue : String);
  2813. begin
  2814. If (FnextLink=AValue) then exit;
  2815. FnextLink:=AValue;
  2816. MarkPropertyChanged(AIndex);
  2817. end;
  2818. Procedure TCircleFeed.SetnextPageToken(AIndex : Integer; const AValue : String);
  2819. begin
  2820. If (FnextPageToken=AValue) then exit;
  2821. FnextPageToken:=AValue;
  2822. MarkPropertyChanged(AIndex);
  2823. end;
  2824. Procedure TCircleFeed.SetselfLink(AIndex : Integer; const AValue : String);
  2825. begin
  2826. If (FselfLink=AValue) then exit;
  2827. FselfLink:=AValue;
  2828. MarkPropertyChanged(AIndex);
  2829. end;
  2830. Procedure TCircleFeed.Settitle(AIndex : Integer; const AValue : String);
  2831. begin
  2832. If (Ftitle=AValue) then exit;
  2833. Ftitle:=AValue;
  2834. MarkPropertyChanged(AIndex);
  2835. end;
  2836. Procedure TCircleFeed.SettotalItems(AIndex : Integer; const AValue : integer);
  2837. begin
  2838. If (FtotalItems=AValue) then exit;
  2839. FtotalItems:=AValue;
  2840. MarkPropertyChanged(AIndex);
  2841. end;
  2842. //2.6.4. bug workaround
  2843. {$IFDEF VER2_6}
  2844. Procedure TCircleFeed.SetArrayLength(Const AName : String; ALength : Longint);
  2845. begin
  2846. Case AName of
  2847. 'items' : SetLength(Fitems,ALength);
  2848. else
  2849. Inherited SetArrayLength(AName,ALength);
  2850. end;
  2851. end;
  2852. {$ENDIF VER2_6}
  2853. { --------------------------------------------------------------------
  2854. TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo
  2855. --------------------------------------------------------------------}
  2856. Procedure TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.SetchannelId(AIndex : Integer; const AValue : String);
  2857. begin
  2858. If (FchannelId=AValue) then exit;
  2859. FchannelId:=AValue;
  2860. MarkPropertyChanged(AIndex);
  2861. end;
  2862. { --------------------------------------------------------------------
  2863. TCommentTypeactorTypeclientSpecificActorInfo
  2864. --------------------------------------------------------------------}
  2865. Procedure TCommentTypeactorTypeclientSpecificActorInfo.SetyoutubeActorInfo(AIndex : Integer; const AValue : TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo);
  2866. begin
  2867. If (FyoutubeActorInfo=AValue) then exit;
  2868. FyoutubeActorInfo:=AValue;
  2869. MarkPropertyChanged(AIndex);
  2870. end;
  2871. { --------------------------------------------------------------------
  2872. TCommentTypeactorTypeimage
  2873. --------------------------------------------------------------------}
  2874. Procedure TCommentTypeactorTypeimage.Seturl(AIndex : Integer; const AValue : String);
  2875. begin
  2876. If (Furl=AValue) then exit;
  2877. Furl:=AValue;
  2878. MarkPropertyChanged(AIndex);
  2879. end;
  2880. { --------------------------------------------------------------------
  2881. TCommentTypeactorTypeverification
  2882. --------------------------------------------------------------------}
  2883. Procedure TCommentTypeactorTypeverification.SetadHocVerified(AIndex : Integer; const AValue : String);
  2884. begin
  2885. If (FadHocVerified=AValue) then exit;
  2886. FadHocVerified:=AValue;
  2887. MarkPropertyChanged(AIndex);
  2888. end;
  2889. { --------------------------------------------------------------------
  2890. TCommentTypeactor
  2891. --------------------------------------------------------------------}
  2892. Procedure TCommentTypeactor.SetclientSpecificActorInfo(AIndex : Integer; const AValue : TCommentTypeactorTypeclientSpecificActorInfo);
  2893. begin
  2894. If (FclientSpecificActorInfo=AValue) then exit;
  2895. FclientSpecificActorInfo:=AValue;
  2896. MarkPropertyChanged(AIndex);
  2897. end;
  2898. Procedure TCommentTypeactor.SetdisplayName(AIndex : Integer; const AValue : String);
  2899. begin
  2900. If (FdisplayName=AValue) then exit;
  2901. FdisplayName:=AValue;
  2902. MarkPropertyChanged(AIndex);
  2903. end;
  2904. Procedure TCommentTypeactor.Setid(AIndex : Integer; const AValue : String);
  2905. begin
  2906. If (Fid=AValue) then exit;
  2907. Fid:=AValue;
  2908. MarkPropertyChanged(AIndex);
  2909. end;
  2910. Procedure TCommentTypeactor.Setimage(AIndex : Integer; const AValue : TCommentTypeactorTypeimage);
  2911. begin
  2912. If (Fimage=AValue) then exit;
  2913. Fimage:=AValue;
  2914. MarkPropertyChanged(AIndex);
  2915. end;
  2916. Procedure TCommentTypeactor.Seturl(AIndex : Integer; const AValue : String);
  2917. begin
  2918. If (Furl=AValue) then exit;
  2919. Furl:=AValue;
  2920. MarkPropertyChanged(AIndex);
  2921. end;
  2922. Procedure TCommentTypeactor.Setverification(AIndex : Integer; const AValue : TCommentTypeactorTypeverification);
  2923. begin
  2924. If (Fverification=AValue) then exit;
  2925. Fverification:=AValue;
  2926. MarkPropertyChanged(AIndex);
  2927. end;
  2928. { --------------------------------------------------------------------
  2929. TCommentTypeinReplyToItem
  2930. --------------------------------------------------------------------}
  2931. Procedure TCommentTypeinReplyToItem.Setid(AIndex : Integer; const AValue : String);
  2932. begin
  2933. If (Fid=AValue) then exit;
  2934. Fid:=AValue;
  2935. MarkPropertyChanged(AIndex);
  2936. end;
  2937. Procedure TCommentTypeinReplyToItem.Seturl(AIndex : Integer; const AValue : String);
  2938. begin
  2939. If (Furl=AValue) then exit;
  2940. Furl:=AValue;
  2941. MarkPropertyChanged(AIndex);
  2942. end;
  2943. { --------------------------------------------------------------------
  2944. TCommentTypeobject
  2945. --------------------------------------------------------------------}
  2946. Procedure TCommentTypeobject.Setcontent(AIndex : Integer; const AValue : String);
  2947. begin
  2948. If (Fcontent=AValue) then exit;
  2949. Fcontent:=AValue;
  2950. MarkPropertyChanged(AIndex);
  2951. end;
  2952. Procedure TCommentTypeobject.SetobjectType(AIndex : Integer; const AValue : String);
  2953. begin
  2954. If (FobjectType=AValue) then exit;
  2955. FobjectType:=AValue;
  2956. MarkPropertyChanged(AIndex);
  2957. end;
  2958. Procedure TCommentTypeobject.SetoriginalContent(AIndex : Integer; const AValue : String);
  2959. begin
  2960. If (ForiginalContent=AValue) then exit;
  2961. ForiginalContent:=AValue;
  2962. MarkPropertyChanged(AIndex);
  2963. end;
  2964. { --------------------------------------------------------------------
  2965. TCommentTypeplusoners
  2966. --------------------------------------------------------------------}
  2967. Procedure TCommentTypeplusoners.SettotalItems(AIndex : Integer; const AValue : integer);
  2968. begin
  2969. If (FtotalItems=AValue) then exit;
  2970. FtotalItems:=AValue;
  2971. MarkPropertyChanged(AIndex);
  2972. end;
  2973. { --------------------------------------------------------------------
  2974. TComment
  2975. --------------------------------------------------------------------}
  2976. Procedure TComment.Setactor(AIndex : Integer; const AValue : TCommentTypeactor);
  2977. begin
  2978. If (Factor=AValue) then exit;
  2979. Factor:=AValue;
  2980. MarkPropertyChanged(AIndex);
  2981. end;
  2982. Procedure TComment.Setetag(AIndex : Integer; const AValue : String);
  2983. begin
  2984. If (Fetag=AValue) then exit;
  2985. Fetag:=AValue;
  2986. MarkPropertyChanged(AIndex);
  2987. end;
  2988. Procedure TComment.Setid(AIndex : Integer; const AValue : String);
  2989. begin
  2990. If (Fid=AValue) then exit;
  2991. Fid:=AValue;
  2992. MarkPropertyChanged(AIndex);
  2993. end;
  2994. Procedure TComment.SetinReplyTo(AIndex : Integer; const AValue : TCommentTypeinReplyToArray);
  2995. begin
  2996. If (FinReplyTo=AValue) then exit;
  2997. FinReplyTo:=AValue;
  2998. MarkPropertyChanged(AIndex);
  2999. end;
  3000. Procedure TComment.Setkind(AIndex : Integer; const AValue : String);
  3001. begin
  3002. If (Fkind=AValue) then exit;
  3003. Fkind:=AValue;
  3004. MarkPropertyChanged(AIndex);
  3005. end;
  3006. Procedure TComment.Set_object(AIndex : Integer; const AValue : TCommentTypeobject);
  3007. begin
  3008. If (F_object=AValue) then exit;
  3009. F_object:=AValue;
  3010. MarkPropertyChanged(AIndex);
  3011. end;
  3012. Procedure TComment.Setplusoners(AIndex : Integer; const AValue : TCommentTypeplusoners);
  3013. begin
  3014. If (Fplusoners=AValue) then exit;
  3015. Fplusoners:=AValue;
  3016. MarkPropertyChanged(AIndex);
  3017. end;
  3018. Procedure TComment.Set_published(AIndex : Integer; const AValue : TDatetime);
  3019. begin
  3020. If (F_published=AValue) then exit;
  3021. F_published:=AValue;
  3022. MarkPropertyChanged(AIndex);
  3023. end;
  3024. Procedure TComment.SetselfLink(AIndex : Integer; const AValue : String);
  3025. begin
  3026. If (FselfLink=AValue) then exit;
  3027. FselfLink:=AValue;
  3028. MarkPropertyChanged(AIndex);
  3029. end;
  3030. Procedure TComment.Setupdated(AIndex : Integer; const AValue : TDatetime);
  3031. begin
  3032. If (Fupdated=AValue) then exit;
  3033. Fupdated:=AValue;
  3034. MarkPropertyChanged(AIndex);
  3035. end;
  3036. Procedure TComment.Setverb(AIndex : Integer; const AValue : String);
  3037. begin
  3038. If (Fverb=AValue) then exit;
  3039. Fverb:=AValue;
  3040. MarkPropertyChanged(AIndex);
  3041. end;
  3042. Class Function TComment.ExportPropertyName(Const AName : String) :String;
  3043. begin
  3044. Case AName of
  3045. '_object' : Result:='object';
  3046. '_published' : Result:='published';
  3047. else
  3048. Result:=Inherited ExportPropertyName(AName);
  3049. end;
  3050. end;
  3051. //2.6.4. bug workaround
  3052. {$IFDEF VER2_6}
  3053. Procedure TComment.SetArrayLength(Const AName : String; ALength : Longint);
  3054. begin
  3055. Case AName of
  3056. 'inreplyto' : SetLength(FinReplyTo,ALength);
  3057. else
  3058. Inherited SetArrayLength(AName,ALength);
  3059. end;
  3060. end;
  3061. {$ENDIF VER2_6}
  3062. { --------------------------------------------------------------------
  3063. TCommentFeed
  3064. --------------------------------------------------------------------}
  3065. Procedure TCommentFeed.Setetag(AIndex : Integer; const AValue : String);
  3066. begin
  3067. If (Fetag=AValue) then exit;
  3068. Fetag:=AValue;
  3069. MarkPropertyChanged(AIndex);
  3070. end;
  3071. Procedure TCommentFeed.Setid(AIndex : Integer; const AValue : String);
  3072. begin
  3073. If (Fid=AValue) then exit;
  3074. Fid:=AValue;
  3075. MarkPropertyChanged(AIndex);
  3076. end;
  3077. Procedure TCommentFeed.Setitems(AIndex : Integer; const AValue : TCommentFeedTypeitemsArray);
  3078. begin
  3079. If (Fitems=AValue) then exit;
  3080. Fitems:=AValue;
  3081. MarkPropertyChanged(AIndex);
  3082. end;
  3083. Procedure TCommentFeed.Setkind(AIndex : Integer; const AValue : String);
  3084. begin
  3085. If (Fkind=AValue) then exit;
  3086. Fkind:=AValue;
  3087. MarkPropertyChanged(AIndex);
  3088. end;
  3089. Procedure TCommentFeed.SetnextLink(AIndex : Integer; const AValue : String);
  3090. begin
  3091. If (FnextLink=AValue) then exit;
  3092. FnextLink:=AValue;
  3093. MarkPropertyChanged(AIndex);
  3094. end;
  3095. Procedure TCommentFeed.SetnextPageToken(AIndex : Integer; const AValue : String);
  3096. begin
  3097. If (FnextPageToken=AValue) then exit;
  3098. FnextPageToken:=AValue;
  3099. MarkPropertyChanged(AIndex);
  3100. end;
  3101. Procedure TCommentFeed.Settitle(AIndex : Integer; const AValue : String);
  3102. begin
  3103. If (Ftitle=AValue) then exit;
  3104. Ftitle:=AValue;
  3105. MarkPropertyChanged(AIndex);
  3106. end;
  3107. Procedure TCommentFeed.Setupdated(AIndex : Integer; const AValue : TDatetime);
  3108. begin
  3109. If (Fupdated=AValue) then exit;
  3110. Fupdated:=AValue;
  3111. MarkPropertyChanged(AIndex);
  3112. end;
  3113. //2.6.4. bug workaround
  3114. {$IFDEF VER2_6}
  3115. Procedure TCommentFeed.SetArrayLength(Const AName : String; ALength : Longint);
  3116. begin
  3117. Case AName of
  3118. 'items' : SetLength(Fitems,ALength);
  3119. else
  3120. Inherited SetArrayLength(AName,ALength);
  3121. end;
  3122. end;
  3123. {$ENDIF VER2_6}
  3124. { --------------------------------------------------------------------
  3125. TMediaTypeauthorTypeimage
  3126. --------------------------------------------------------------------}
  3127. Procedure TMediaTypeauthorTypeimage.Seturl(AIndex : Integer; const AValue : String);
  3128. begin
  3129. If (Furl=AValue) then exit;
  3130. Furl:=AValue;
  3131. MarkPropertyChanged(AIndex);
  3132. end;
  3133. { --------------------------------------------------------------------
  3134. TMediaTypeauthor
  3135. --------------------------------------------------------------------}
  3136. Procedure TMediaTypeauthor.SetdisplayName(AIndex : Integer; const AValue : String);
  3137. begin
  3138. If (FdisplayName=AValue) then exit;
  3139. FdisplayName:=AValue;
  3140. MarkPropertyChanged(AIndex);
  3141. end;
  3142. Procedure TMediaTypeauthor.Setid(AIndex : Integer; const AValue : String);
  3143. begin
  3144. If (Fid=AValue) then exit;
  3145. Fid:=AValue;
  3146. MarkPropertyChanged(AIndex);
  3147. end;
  3148. Procedure TMediaTypeauthor.Setimage(AIndex : Integer; const AValue : TMediaTypeauthorTypeimage);
  3149. begin
  3150. If (Fimage=AValue) then exit;
  3151. Fimage:=AValue;
  3152. MarkPropertyChanged(AIndex);
  3153. end;
  3154. Procedure TMediaTypeauthor.Seturl(AIndex : Integer; const AValue : String);
  3155. begin
  3156. If (Furl=AValue) then exit;
  3157. Furl:=AValue;
  3158. MarkPropertyChanged(AIndex);
  3159. end;
  3160. { --------------------------------------------------------------------
  3161. TMediaTypeexif
  3162. --------------------------------------------------------------------}
  3163. Procedure TMediaTypeexif.Settime(AIndex : Integer; const AValue : TDatetime);
  3164. begin
  3165. If (Ftime=AValue) then exit;
  3166. Ftime:=AValue;
  3167. MarkPropertyChanged(AIndex);
  3168. end;
  3169. { --------------------------------------------------------------------
  3170. TMedia
  3171. --------------------------------------------------------------------}
  3172. Procedure TMedia.Setauthor(AIndex : Integer; const AValue : TMediaTypeauthor);
  3173. begin
  3174. If (Fauthor=AValue) then exit;
  3175. Fauthor:=AValue;
  3176. MarkPropertyChanged(AIndex);
  3177. end;
  3178. Procedure TMedia.SetdisplayName(AIndex : Integer; const AValue : String);
  3179. begin
  3180. If (FdisplayName=AValue) then exit;
  3181. FdisplayName:=AValue;
  3182. MarkPropertyChanged(AIndex);
  3183. end;
  3184. Procedure TMedia.Setetag(AIndex : Integer; const AValue : String);
  3185. begin
  3186. If (Fetag=AValue) then exit;
  3187. Fetag:=AValue;
  3188. MarkPropertyChanged(AIndex);
  3189. end;
  3190. Procedure TMedia.Setexif(AIndex : Integer; const AValue : TMediaTypeexif);
  3191. begin
  3192. If (Fexif=AValue) then exit;
  3193. Fexif:=AValue;
  3194. MarkPropertyChanged(AIndex);
  3195. end;
  3196. Procedure TMedia.Setheight(AIndex : Integer; const AValue : integer);
  3197. begin
  3198. If (Fheight=AValue) then exit;
  3199. Fheight:=AValue;
  3200. MarkPropertyChanged(AIndex);
  3201. end;
  3202. Procedure TMedia.Setid(AIndex : Integer; const AValue : String);
  3203. begin
  3204. If (Fid=AValue) then exit;
  3205. Fid:=AValue;
  3206. MarkPropertyChanged(AIndex);
  3207. end;
  3208. Procedure TMedia.Setkind(AIndex : Integer; const AValue : String);
  3209. begin
  3210. If (Fkind=AValue) then exit;
  3211. Fkind:=AValue;
  3212. MarkPropertyChanged(AIndex);
  3213. end;
  3214. Procedure TMedia.SetmediaCreatedTime(AIndex : Integer; const AValue : TDatetime);
  3215. begin
  3216. If (FmediaCreatedTime=AValue) then exit;
  3217. FmediaCreatedTime:=AValue;
  3218. MarkPropertyChanged(AIndex);
  3219. end;
  3220. Procedure TMedia.SetmediaUrl(AIndex : Integer; const AValue : String);
  3221. begin
  3222. If (FmediaUrl=AValue) then exit;
  3223. FmediaUrl:=AValue;
  3224. MarkPropertyChanged(AIndex);
  3225. end;
  3226. Procedure TMedia.Set_published(AIndex : Integer; const AValue : TDatetime);
  3227. begin
  3228. If (F_published=AValue) then exit;
  3229. F_published:=AValue;
  3230. MarkPropertyChanged(AIndex);
  3231. end;
  3232. Procedure TMedia.SetsizeBytes(AIndex : Integer; const AValue : String);
  3233. begin
  3234. If (FsizeBytes=AValue) then exit;
  3235. FsizeBytes:=AValue;
  3236. MarkPropertyChanged(AIndex);
  3237. end;
  3238. Procedure TMedia.Setstreams(AIndex : Integer; const AValue : TMediaTypestreamsArray);
  3239. begin
  3240. If (Fstreams=AValue) then exit;
  3241. Fstreams:=AValue;
  3242. MarkPropertyChanged(AIndex);
  3243. end;
  3244. Procedure TMedia.Setsummary(AIndex : Integer; const AValue : String);
  3245. begin
  3246. If (Fsummary=AValue) then exit;
  3247. Fsummary:=AValue;
  3248. MarkPropertyChanged(AIndex);
  3249. end;
  3250. Procedure TMedia.Setupdated(AIndex : Integer; const AValue : TDatetime);
  3251. begin
  3252. If (Fupdated=AValue) then exit;
  3253. Fupdated:=AValue;
  3254. MarkPropertyChanged(AIndex);
  3255. end;
  3256. Procedure TMedia.Seturl(AIndex : Integer; const AValue : String);
  3257. begin
  3258. If (Furl=AValue) then exit;
  3259. Furl:=AValue;
  3260. MarkPropertyChanged(AIndex);
  3261. end;
  3262. Procedure TMedia.SetvideoDuration(AIndex : Integer; const AValue : String);
  3263. begin
  3264. If (FvideoDuration=AValue) then exit;
  3265. FvideoDuration:=AValue;
  3266. MarkPropertyChanged(AIndex);
  3267. end;
  3268. Procedure TMedia.SetvideoStatus(AIndex : Integer; const AValue : String);
  3269. begin
  3270. If (FvideoStatus=AValue) then exit;
  3271. FvideoStatus:=AValue;
  3272. MarkPropertyChanged(AIndex);
  3273. end;
  3274. Procedure TMedia.Setwidth(AIndex : Integer; const AValue : integer);
  3275. begin
  3276. If (Fwidth=AValue) then exit;
  3277. Fwidth:=AValue;
  3278. MarkPropertyChanged(AIndex);
  3279. end;
  3280. Class Function TMedia.ExportPropertyName(Const AName : String) :String;
  3281. begin
  3282. Case AName of
  3283. '_published' : Result:='published';
  3284. else
  3285. Result:=Inherited ExportPropertyName(AName);
  3286. end;
  3287. end;
  3288. //2.6.4. bug workaround
  3289. {$IFDEF VER2_6}
  3290. Procedure TMedia.SetArrayLength(Const AName : String; ALength : Longint);
  3291. begin
  3292. Case AName of
  3293. 'streams' : SetLength(Fstreams,ALength);
  3294. else
  3295. Inherited SetArrayLength(AName,ALength);
  3296. end;
  3297. end;
  3298. {$ENDIF VER2_6}
  3299. { --------------------------------------------------------------------
  3300. TPeopleFeed
  3301. --------------------------------------------------------------------}
  3302. Procedure TPeopleFeed.Setetag(AIndex : Integer; const AValue : String);
  3303. begin
  3304. If (Fetag=AValue) then exit;
  3305. Fetag:=AValue;
  3306. MarkPropertyChanged(AIndex);
  3307. end;
  3308. Procedure TPeopleFeed.Setitems(AIndex : Integer; const AValue : TPeopleFeedTypeitemsArray);
  3309. begin
  3310. If (Fitems=AValue) then exit;
  3311. Fitems:=AValue;
  3312. MarkPropertyChanged(AIndex);
  3313. end;
  3314. Procedure TPeopleFeed.Setkind(AIndex : Integer; const AValue : String);
  3315. begin
  3316. If (Fkind=AValue) then exit;
  3317. Fkind:=AValue;
  3318. MarkPropertyChanged(AIndex);
  3319. end;
  3320. Procedure TPeopleFeed.SetnextPageToken(AIndex : Integer; const AValue : String);
  3321. begin
  3322. If (FnextPageToken=AValue) then exit;
  3323. FnextPageToken:=AValue;
  3324. MarkPropertyChanged(AIndex);
  3325. end;
  3326. Procedure TPeopleFeed.SetselfLink(AIndex : Integer; const AValue : String);
  3327. begin
  3328. If (FselfLink=AValue) then exit;
  3329. FselfLink:=AValue;
  3330. MarkPropertyChanged(AIndex);
  3331. end;
  3332. Procedure TPeopleFeed.Settitle(AIndex : Integer; const AValue : String);
  3333. begin
  3334. If (Ftitle=AValue) then exit;
  3335. Ftitle:=AValue;
  3336. MarkPropertyChanged(AIndex);
  3337. end;
  3338. Procedure TPeopleFeed.SettotalItems(AIndex : Integer; const AValue : integer);
  3339. begin
  3340. If (FtotalItems=AValue) then exit;
  3341. FtotalItems:=AValue;
  3342. MarkPropertyChanged(AIndex);
  3343. end;
  3344. //2.6.4. bug workaround
  3345. {$IFDEF VER2_6}
  3346. Procedure TPeopleFeed.SetArrayLength(Const AName : String; ALength : Longint);
  3347. begin
  3348. Case AName of
  3349. 'items' : SetLength(Fitems,ALength);
  3350. else
  3351. Inherited SetArrayLength(AName,ALength);
  3352. end;
  3353. end;
  3354. {$ENDIF VER2_6}
  3355. { --------------------------------------------------------------------
  3356. TPersonTypecoverTypecoverInfo
  3357. --------------------------------------------------------------------}
  3358. Procedure TPersonTypecoverTypecoverInfo.SetleftImageOffset(AIndex : Integer; const AValue : integer);
  3359. begin
  3360. If (FleftImageOffset=AValue) then exit;
  3361. FleftImageOffset:=AValue;
  3362. MarkPropertyChanged(AIndex);
  3363. end;
  3364. Procedure TPersonTypecoverTypecoverInfo.SettopImageOffset(AIndex : Integer; const AValue : integer);
  3365. begin
  3366. If (FtopImageOffset=AValue) then exit;
  3367. FtopImageOffset:=AValue;
  3368. MarkPropertyChanged(AIndex);
  3369. end;
  3370. { --------------------------------------------------------------------
  3371. TPersonTypecoverTypecoverPhoto
  3372. --------------------------------------------------------------------}
  3373. Procedure TPersonTypecoverTypecoverPhoto.Setheight(AIndex : Integer; const AValue : integer);
  3374. begin
  3375. If (Fheight=AValue) then exit;
  3376. Fheight:=AValue;
  3377. MarkPropertyChanged(AIndex);
  3378. end;
  3379. Procedure TPersonTypecoverTypecoverPhoto.Seturl(AIndex : Integer; const AValue : String);
  3380. begin
  3381. If (Furl=AValue) then exit;
  3382. Furl:=AValue;
  3383. MarkPropertyChanged(AIndex);
  3384. end;
  3385. Procedure TPersonTypecoverTypecoverPhoto.Setwidth(AIndex : Integer; const AValue : integer);
  3386. begin
  3387. If (Fwidth=AValue) then exit;
  3388. Fwidth:=AValue;
  3389. MarkPropertyChanged(AIndex);
  3390. end;
  3391. { --------------------------------------------------------------------
  3392. TPersonTypecover
  3393. --------------------------------------------------------------------}
  3394. Procedure TPersonTypecover.SetcoverInfo(AIndex : Integer; const AValue : TPersonTypecoverTypecoverInfo);
  3395. begin
  3396. If (FcoverInfo=AValue) then exit;
  3397. FcoverInfo:=AValue;
  3398. MarkPropertyChanged(AIndex);
  3399. end;
  3400. Procedure TPersonTypecover.SetcoverPhoto(AIndex : Integer; const AValue : TPersonTypecoverTypecoverPhoto);
  3401. begin
  3402. If (FcoverPhoto=AValue) then exit;
  3403. FcoverPhoto:=AValue;
  3404. MarkPropertyChanged(AIndex);
  3405. end;
  3406. Procedure TPersonTypecover.Setlayout(AIndex : Integer; const AValue : String);
  3407. begin
  3408. If (Flayout=AValue) then exit;
  3409. Flayout:=AValue;
  3410. MarkPropertyChanged(AIndex);
  3411. end;
  3412. { --------------------------------------------------------------------
  3413. TPersonTypeemailsItem
  3414. --------------------------------------------------------------------}
  3415. Procedure TPersonTypeemailsItem.Set_type(AIndex : Integer; const AValue : String);
  3416. begin
  3417. If (F_type=AValue) then exit;
  3418. F_type:=AValue;
  3419. MarkPropertyChanged(AIndex);
  3420. end;
  3421. Procedure TPersonTypeemailsItem.Setvalue(AIndex : Integer; const AValue : String);
  3422. begin
  3423. If (Fvalue=AValue) then exit;
  3424. Fvalue:=AValue;
  3425. MarkPropertyChanged(AIndex);
  3426. end;
  3427. Class Function TPersonTypeemailsItem.ExportPropertyName(Const AName : String) :String;
  3428. begin
  3429. Case AName of
  3430. '_type' : Result:='type';
  3431. else
  3432. Result:=Inherited ExportPropertyName(AName);
  3433. end;
  3434. end;
  3435. { --------------------------------------------------------------------
  3436. TPersonTypeimage
  3437. --------------------------------------------------------------------}
  3438. Procedure TPersonTypeimage.SetisDefault(AIndex : Integer; const AValue : boolean);
  3439. begin
  3440. If (FisDefault=AValue) then exit;
  3441. FisDefault:=AValue;
  3442. MarkPropertyChanged(AIndex);
  3443. end;
  3444. Procedure TPersonTypeimage.Seturl(AIndex : Integer; const AValue : String);
  3445. begin
  3446. If (Furl=AValue) then exit;
  3447. Furl:=AValue;
  3448. MarkPropertyChanged(AIndex);
  3449. end;
  3450. { --------------------------------------------------------------------
  3451. TPersonTypename
  3452. --------------------------------------------------------------------}
  3453. Procedure TPersonTypename.SetfamilyName(AIndex : Integer; const AValue : String);
  3454. begin
  3455. If (FfamilyName=AValue) then exit;
  3456. FfamilyName:=AValue;
  3457. MarkPropertyChanged(AIndex);
  3458. end;
  3459. Procedure TPersonTypename.Setformatted(AIndex : Integer; const AValue : String);
  3460. begin
  3461. If (Fformatted=AValue) then exit;
  3462. Fformatted:=AValue;
  3463. MarkPropertyChanged(AIndex);
  3464. end;
  3465. Procedure TPersonTypename.SetgivenName(AIndex : Integer; const AValue : String);
  3466. begin
  3467. If (FgivenName=AValue) then exit;
  3468. FgivenName:=AValue;
  3469. MarkPropertyChanged(AIndex);
  3470. end;
  3471. Procedure TPersonTypename.SethonorificPrefix(AIndex : Integer; const AValue : String);
  3472. begin
  3473. If (FhonorificPrefix=AValue) then exit;
  3474. FhonorificPrefix:=AValue;
  3475. MarkPropertyChanged(AIndex);
  3476. end;
  3477. Procedure TPersonTypename.SethonorificSuffix(AIndex : Integer; const AValue : String);
  3478. begin
  3479. If (FhonorificSuffix=AValue) then exit;
  3480. FhonorificSuffix:=AValue;
  3481. MarkPropertyChanged(AIndex);
  3482. end;
  3483. Procedure TPersonTypename.SetmiddleName(AIndex : Integer; const AValue : String);
  3484. begin
  3485. If (FmiddleName=AValue) then exit;
  3486. FmiddleName:=AValue;
  3487. MarkPropertyChanged(AIndex);
  3488. end;
  3489. { --------------------------------------------------------------------
  3490. TPersonTypeorganizationsItem
  3491. --------------------------------------------------------------------}
  3492. Procedure TPersonTypeorganizationsItem.Setdepartment(AIndex : Integer; const AValue : String);
  3493. begin
  3494. If (Fdepartment=AValue) then exit;
  3495. Fdepartment:=AValue;
  3496. MarkPropertyChanged(AIndex);
  3497. end;
  3498. Procedure TPersonTypeorganizationsItem.Setdescription(AIndex : Integer; const AValue : String);
  3499. begin
  3500. If (Fdescription=AValue) then exit;
  3501. Fdescription:=AValue;
  3502. MarkPropertyChanged(AIndex);
  3503. end;
  3504. Procedure TPersonTypeorganizationsItem.SetendDate(AIndex : Integer; const AValue : String);
  3505. begin
  3506. If (FendDate=AValue) then exit;
  3507. FendDate:=AValue;
  3508. MarkPropertyChanged(AIndex);
  3509. end;
  3510. Procedure TPersonTypeorganizationsItem.Setlocation(AIndex : Integer; const AValue : String);
  3511. begin
  3512. If (Flocation=AValue) then exit;
  3513. Flocation:=AValue;
  3514. MarkPropertyChanged(AIndex);
  3515. end;
  3516. Procedure TPersonTypeorganizationsItem.Setname(AIndex : Integer; const AValue : String);
  3517. begin
  3518. If (Fname=AValue) then exit;
  3519. Fname:=AValue;
  3520. MarkPropertyChanged(AIndex);
  3521. end;
  3522. Procedure TPersonTypeorganizationsItem.Setprimary(AIndex : Integer; const AValue : boolean);
  3523. begin
  3524. If (Fprimary=AValue) then exit;
  3525. Fprimary:=AValue;
  3526. MarkPropertyChanged(AIndex);
  3527. end;
  3528. Procedure TPersonTypeorganizationsItem.SetstartDate(AIndex : Integer; const AValue : String);
  3529. begin
  3530. If (FstartDate=AValue) then exit;
  3531. FstartDate:=AValue;
  3532. MarkPropertyChanged(AIndex);
  3533. end;
  3534. Procedure TPersonTypeorganizationsItem.Settitle(AIndex : Integer; const AValue : String);
  3535. begin
  3536. If (Ftitle=AValue) then exit;
  3537. Ftitle:=AValue;
  3538. MarkPropertyChanged(AIndex);
  3539. end;
  3540. Procedure TPersonTypeorganizationsItem.Set_type(AIndex : Integer; const AValue : String);
  3541. begin
  3542. If (F_type=AValue) then exit;
  3543. F_type:=AValue;
  3544. MarkPropertyChanged(AIndex);
  3545. end;
  3546. Class Function TPersonTypeorganizationsItem.ExportPropertyName(Const AName : String) :String;
  3547. begin
  3548. Case AName of
  3549. '_type' : Result:='type';
  3550. else
  3551. Result:=Inherited ExportPropertyName(AName);
  3552. end;
  3553. end;
  3554. { --------------------------------------------------------------------
  3555. TPersonTypeplacesLivedItem
  3556. --------------------------------------------------------------------}
  3557. Procedure TPersonTypeplacesLivedItem.Setprimary(AIndex : Integer; const AValue : boolean);
  3558. begin
  3559. If (Fprimary=AValue) then exit;
  3560. Fprimary:=AValue;
  3561. MarkPropertyChanged(AIndex);
  3562. end;
  3563. Procedure TPersonTypeplacesLivedItem.Setvalue(AIndex : Integer; const AValue : String);
  3564. begin
  3565. If (Fvalue=AValue) then exit;
  3566. Fvalue:=AValue;
  3567. MarkPropertyChanged(AIndex);
  3568. end;
  3569. { --------------------------------------------------------------------
  3570. TPersonTypeurlsItem
  3571. --------------------------------------------------------------------}
  3572. Procedure TPersonTypeurlsItem.Set_label(AIndex : Integer; const AValue : String);
  3573. begin
  3574. If (F_label=AValue) then exit;
  3575. F_label:=AValue;
  3576. MarkPropertyChanged(AIndex);
  3577. end;
  3578. Procedure TPersonTypeurlsItem.Set_type(AIndex : Integer; const AValue : String);
  3579. begin
  3580. If (F_type=AValue) then exit;
  3581. F_type:=AValue;
  3582. MarkPropertyChanged(AIndex);
  3583. end;
  3584. Procedure TPersonTypeurlsItem.Setvalue(AIndex : Integer; const AValue : String);
  3585. begin
  3586. If (Fvalue=AValue) then exit;
  3587. Fvalue:=AValue;
  3588. MarkPropertyChanged(AIndex);
  3589. end;
  3590. Class Function TPersonTypeurlsItem.ExportPropertyName(Const AName : String) :String;
  3591. begin
  3592. Case AName of
  3593. '_label' : Result:='label';
  3594. '_type' : Result:='type';
  3595. else
  3596. Result:=Inherited ExportPropertyName(AName);
  3597. end;
  3598. end;
  3599. { --------------------------------------------------------------------
  3600. TPerson
  3601. --------------------------------------------------------------------}
  3602. Procedure TPerson.SetaboutMe(AIndex : Integer; const AValue : String);
  3603. begin
  3604. If (FaboutMe=AValue) then exit;
  3605. FaboutMe:=AValue;
  3606. MarkPropertyChanged(AIndex);
  3607. end;
  3608. Procedure TPerson.Setbirthday(AIndex : Integer; const AValue : String);
  3609. begin
  3610. If (Fbirthday=AValue) then exit;
  3611. Fbirthday:=AValue;
  3612. MarkPropertyChanged(AIndex);
  3613. end;
  3614. Procedure TPerson.SetbraggingRights(AIndex : Integer; const AValue : String);
  3615. begin
  3616. If (FbraggingRights=AValue) then exit;
  3617. FbraggingRights:=AValue;
  3618. MarkPropertyChanged(AIndex);
  3619. end;
  3620. Procedure TPerson.SetcircledByCount(AIndex : Integer; const AValue : integer);
  3621. begin
  3622. If (FcircledByCount=AValue) then exit;
  3623. FcircledByCount:=AValue;
  3624. MarkPropertyChanged(AIndex);
  3625. end;
  3626. Procedure TPerson.Setcover(AIndex : Integer; const AValue : TPersonTypecover);
  3627. begin
  3628. If (Fcover=AValue) then exit;
  3629. Fcover:=AValue;
  3630. MarkPropertyChanged(AIndex);
  3631. end;
  3632. Procedure TPerson.SetcurrentLocation(AIndex : Integer; const AValue : String);
  3633. begin
  3634. If (FcurrentLocation=AValue) then exit;
  3635. FcurrentLocation:=AValue;
  3636. MarkPropertyChanged(AIndex);
  3637. end;
  3638. Procedure TPerson.SetdisplayName(AIndex : Integer; const AValue : String);
  3639. begin
  3640. If (FdisplayName=AValue) then exit;
  3641. FdisplayName:=AValue;
  3642. MarkPropertyChanged(AIndex);
  3643. end;
  3644. Procedure TPerson.Setdomain(AIndex : Integer; const AValue : String);
  3645. begin
  3646. If (Fdomain=AValue) then exit;
  3647. Fdomain:=AValue;
  3648. MarkPropertyChanged(AIndex);
  3649. end;
  3650. Procedure TPerson.Setemails(AIndex : Integer; const AValue : TPersonTypeemailsArray);
  3651. begin
  3652. If (Femails=AValue) then exit;
  3653. Femails:=AValue;
  3654. MarkPropertyChanged(AIndex);
  3655. end;
  3656. Procedure TPerson.Setetag(AIndex : Integer; const AValue : String);
  3657. begin
  3658. If (Fetag=AValue) then exit;
  3659. Fetag:=AValue;
  3660. MarkPropertyChanged(AIndex);
  3661. end;
  3662. Procedure TPerson.Setgender(AIndex : Integer; const AValue : String);
  3663. begin
  3664. If (Fgender=AValue) then exit;
  3665. Fgender:=AValue;
  3666. MarkPropertyChanged(AIndex);
  3667. end;
  3668. Procedure TPerson.Setid(AIndex : Integer; const AValue : String);
  3669. begin
  3670. If (Fid=AValue) then exit;
  3671. Fid:=AValue;
  3672. MarkPropertyChanged(AIndex);
  3673. end;
  3674. Procedure TPerson.Setimage(AIndex : Integer; const AValue : TPersonTypeimage);
  3675. begin
  3676. If (Fimage=AValue) then exit;
  3677. Fimage:=AValue;
  3678. MarkPropertyChanged(AIndex);
  3679. end;
  3680. Procedure TPerson.SetisPlusUser(AIndex : Integer; const AValue : boolean);
  3681. begin
  3682. If (FisPlusUser=AValue) then exit;
  3683. FisPlusUser:=AValue;
  3684. MarkPropertyChanged(AIndex);
  3685. end;
  3686. Procedure TPerson.Setkind(AIndex : Integer; const AValue : String);
  3687. begin
  3688. If (Fkind=AValue) then exit;
  3689. Fkind:=AValue;
  3690. MarkPropertyChanged(AIndex);
  3691. end;
  3692. Procedure TPerson.Setname(AIndex : Integer; const AValue : TPersonTypename);
  3693. begin
  3694. If (Fname=AValue) then exit;
  3695. Fname:=AValue;
  3696. MarkPropertyChanged(AIndex);
  3697. end;
  3698. Procedure TPerson.Setnickname(AIndex : Integer; const AValue : String);
  3699. begin
  3700. If (Fnickname=AValue) then exit;
  3701. Fnickname:=AValue;
  3702. MarkPropertyChanged(AIndex);
  3703. end;
  3704. Procedure TPerson.SetobjectType(AIndex : Integer; const AValue : String);
  3705. begin
  3706. If (FobjectType=AValue) then exit;
  3707. FobjectType:=AValue;
  3708. MarkPropertyChanged(AIndex);
  3709. end;
  3710. Procedure TPerson.Setoccupation(AIndex : Integer; const AValue : String);
  3711. begin
  3712. If (Foccupation=AValue) then exit;
  3713. Foccupation:=AValue;
  3714. MarkPropertyChanged(AIndex);
  3715. end;
  3716. Procedure TPerson.Setorganizations(AIndex : Integer; const AValue : TPersonTypeorganizationsArray);
  3717. begin
  3718. If (Forganizations=AValue) then exit;
  3719. Forganizations:=AValue;
  3720. MarkPropertyChanged(AIndex);
  3721. end;
  3722. Procedure TPerson.SetplacesLived(AIndex : Integer; const AValue : TPersonTypeplacesLivedArray);
  3723. begin
  3724. If (FplacesLived=AValue) then exit;
  3725. FplacesLived:=AValue;
  3726. MarkPropertyChanged(AIndex);
  3727. end;
  3728. Procedure TPerson.SetplusOneCount(AIndex : Integer; const AValue : integer);
  3729. begin
  3730. If (FplusOneCount=AValue) then exit;
  3731. FplusOneCount:=AValue;
  3732. MarkPropertyChanged(AIndex);
  3733. end;
  3734. Procedure TPerson.SetrelationshipStatus(AIndex : Integer; const AValue : String);
  3735. begin
  3736. If (FrelationshipStatus=AValue) then exit;
  3737. FrelationshipStatus:=AValue;
  3738. MarkPropertyChanged(AIndex);
  3739. end;
  3740. Procedure TPerson.Setskills(AIndex : Integer; const AValue : String);
  3741. begin
  3742. If (Fskills=AValue) then exit;
  3743. Fskills:=AValue;
  3744. MarkPropertyChanged(AIndex);
  3745. end;
  3746. Procedure TPerson.Settagline(AIndex : Integer; const AValue : String);
  3747. begin
  3748. If (Ftagline=AValue) then exit;
  3749. Ftagline:=AValue;
  3750. MarkPropertyChanged(AIndex);
  3751. end;
  3752. Procedure TPerson.Seturl(AIndex : Integer; const AValue : String);
  3753. begin
  3754. If (Furl=AValue) then exit;
  3755. Furl:=AValue;
  3756. MarkPropertyChanged(AIndex);
  3757. end;
  3758. Procedure TPerson.Seturls(AIndex : Integer; const AValue : TPersonTypeurlsArray);
  3759. begin
  3760. If (Furls=AValue) then exit;
  3761. Furls:=AValue;
  3762. MarkPropertyChanged(AIndex);
  3763. end;
  3764. Procedure TPerson.Setverified(AIndex : Integer; const AValue : boolean);
  3765. begin
  3766. If (Fverified=AValue) then exit;
  3767. Fverified:=AValue;
  3768. MarkPropertyChanged(AIndex);
  3769. end;
  3770. //2.6.4. bug workaround
  3771. {$IFDEF VER2_6}
  3772. Procedure TPerson.SetArrayLength(Const AName : String; ALength : Longint);
  3773. begin
  3774. Case AName of
  3775. 'emails' : SetLength(Femails,ALength);
  3776. 'organizations' : SetLength(Forganizations,ALength);
  3777. 'placeslived' : SetLength(FplacesLived,ALength);
  3778. 'urls' : SetLength(Furls,ALength);
  3779. else
  3780. Inherited SetArrayLength(AName,ALength);
  3781. end;
  3782. end;
  3783. {$ENDIF VER2_6}
  3784. { --------------------------------------------------------------------
  3785. TPlaceTypeaddress
  3786. --------------------------------------------------------------------}
  3787. Procedure TPlaceTypeaddress.Setformatted(AIndex : Integer; const AValue : String);
  3788. begin
  3789. If (Fformatted=AValue) then exit;
  3790. Fformatted:=AValue;
  3791. MarkPropertyChanged(AIndex);
  3792. end;
  3793. { --------------------------------------------------------------------
  3794. TPlaceTypeposition
  3795. --------------------------------------------------------------------}
  3796. Procedure TPlaceTypeposition.Setlatitude(AIndex : Integer; const AValue : double);
  3797. begin
  3798. If (Flatitude=AValue) then exit;
  3799. Flatitude:=AValue;
  3800. MarkPropertyChanged(AIndex);
  3801. end;
  3802. Procedure TPlaceTypeposition.Setlongitude(AIndex : Integer; const AValue : double);
  3803. begin
  3804. If (Flongitude=AValue) then exit;
  3805. Flongitude:=AValue;
  3806. MarkPropertyChanged(AIndex);
  3807. end;
  3808. { --------------------------------------------------------------------
  3809. TPlace
  3810. --------------------------------------------------------------------}
  3811. Procedure TPlace.Setaddress(AIndex : Integer; const AValue : TPlaceTypeaddress);
  3812. begin
  3813. If (Faddress=AValue) then exit;
  3814. Faddress:=AValue;
  3815. MarkPropertyChanged(AIndex);
  3816. end;
  3817. Procedure TPlace.SetdisplayName(AIndex : Integer; const AValue : String);
  3818. begin
  3819. If (FdisplayName=AValue) then exit;
  3820. FdisplayName:=AValue;
  3821. MarkPropertyChanged(AIndex);
  3822. end;
  3823. Procedure TPlace.Setid(AIndex : Integer; const AValue : String);
  3824. begin
  3825. If (Fid=AValue) then exit;
  3826. Fid:=AValue;
  3827. MarkPropertyChanged(AIndex);
  3828. end;
  3829. Procedure TPlace.Setkind(AIndex : Integer; const AValue : String);
  3830. begin
  3831. If (Fkind=AValue) then exit;
  3832. Fkind:=AValue;
  3833. MarkPropertyChanged(AIndex);
  3834. end;
  3835. Procedure TPlace.Setposition(AIndex : Integer; const AValue : TPlaceTypeposition);
  3836. begin
  3837. If (Fposition=AValue) then exit;
  3838. Fposition:=AValue;
  3839. MarkPropertyChanged(AIndex);
  3840. end;
  3841. { --------------------------------------------------------------------
  3842. TPlusDomainsAclentryResource
  3843. --------------------------------------------------------------------}
  3844. Procedure TPlusDomainsAclentryResource.SetdisplayName(AIndex : Integer; const AValue : String);
  3845. begin
  3846. If (FdisplayName=AValue) then exit;
  3847. FdisplayName:=AValue;
  3848. MarkPropertyChanged(AIndex);
  3849. end;
  3850. Procedure TPlusDomainsAclentryResource.Setid(AIndex : Integer; const AValue : String);
  3851. begin
  3852. If (Fid=AValue) then exit;
  3853. Fid:=AValue;
  3854. MarkPropertyChanged(AIndex);
  3855. end;
  3856. Procedure TPlusDomainsAclentryResource.Set_type(AIndex : Integer; const AValue : String);
  3857. begin
  3858. If (F_type=AValue) then exit;
  3859. F_type:=AValue;
  3860. MarkPropertyChanged(AIndex);
  3861. end;
  3862. Class Function TPlusDomainsAclentryResource.ExportPropertyName(Const AName : String) :String;
  3863. begin
  3864. Case AName of
  3865. '_type' : Result:='type';
  3866. else
  3867. Result:=Inherited ExportPropertyName(AName);
  3868. end;
  3869. end;
  3870. { --------------------------------------------------------------------
  3871. TVideostream
  3872. --------------------------------------------------------------------}
  3873. Procedure TVideostream.Setheight(AIndex : Integer; const AValue : integer);
  3874. begin
  3875. If (Fheight=AValue) then exit;
  3876. Fheight:=AValue;
  3877. MarkPropertyChanged(AIndex);
  3878. end;
  3879. Procedure TVideostream.Set_type(AIndex : Integer; const AValue : String);
  3880. begin
  3881. If (F_type=AValue) then exit;
  3882. F_type:=AValue;
  3883. MarkPropertyChanged(AIndex);
  3884. end;
  3885. Procedure TVideostream.Seturl(AIndex : Integer; const AValue : String);
  3886. begin
  3887. If (Furl=AValue) then exit;
  3888. Furl:=AValue;
  3889. MarkPropertyChanged(AIndex);
  3890. end;
  3891. Procedure TVideostream.Setwidth(AIndex : Integer; const AValue : integer);
  3892. begin
  3893. If (Fwidth=AValue) then exit;
  3894. Fwidth:=AValue;
  3895. MarkPropertyChanged(AIndex);
  3896. end;
  3897. Class Function TVideostream.ExportPropertyName(Const AName : String) :String;
  3898. begin
  3899. Case AName of
  3900. '_type' : Result:='type';
  3901. else
  3902. Result:=Inherited ExportPropertyName(AName);
  3903. end;
  3904. end;
  3905. { --------------------------------------------------------------------
  3906. TActivitiesResource
  3907. --------------------------------------------------------------------}
  3908. Class Function TActivitiesResource.ResourceName : String;
  3909. begin
  3910. Result:='activities';
  3911. end;
  3912. Class Function TActivitiesResource.DefaultAPI : TGoogleAPIClass;
  3913. begin
  3914. Result:=TplusDomainsAPI;
  3915. end;
  3916. Function TActivitiesResource.Get(activityId: string) : TActivity;
  3917. Const
  3918. _HTTPMethod = 'GET';
  3919. _Path = 'activities/{activityId}';
  3920. _Methodid = 'plusDomains.activities.get';
  3921. Var
  3922. _P : String;
  3923. begin
  3924. _P:=SubstitutePath(_Path,['activityId',activityId]);
  3925. Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TActivity) as TActivity;
  3926. end;
  3927. Function TActivitiesResource.Insert(userId: string; aActivity : TActivity; AQuery : string = '') : TActivity;
  3928. Const
  3929. _HTTPMethod = 'POST';
  3930. _Path = 'people/{userId}/activities';
  3931. _Methodid = 'plusDomains.activities.insert';
  3932. Var
  3933. _P : String;
  3934. begin
  3935. _P:=SubstitutePath(_Path,['userId',userId]);
  3936. Result:=ServiceCall(_HTTPMethod,_P,AQuery,aActivity,TActivity) as TActivity;
  3937. end;
  3938. Function TActivitiesResource.Insert(userId: string; aActivity : TActivity; AQuery : TActivitiesinsertOptions) : TActivity;
  3939. Var
  3940. _Q : String;
  3941. begin
  3942. _Q:='';
  3943. AddToQuery(_Q,'preview',AQuery.preview);
  3944. Result:=Insert(userId,aActivity,_Q);
  3945. end;
  3946. Function TActivitiesResource.List(collection: string; userId: string; AQuery : string = '') : TActivityFeed;
  3947. Const
  3948. _HTTPMethod = 'GET';
  3949. _Path = 'people/{userId}/activities/{collection}';
  3950. _Methodid = 'plusDomains.activities.list';
  3951. Var
  3952. _P : String;
  3953. begin
  3954. _P:=SubstitutePath(_Path,['collection',collection,'userId',userId]);
  3955. Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TActivityFeed) as TActivityFeed;
  3956. end;
  3957. Function TActivitiesResource.List(collection: string; userId: string; AQuery : TActivitieslistOptions) : TActivityFeed;
  3958. Var
  3959. _Q : String;
  3960. begin
  3961. _Q:='';
  3962. AddToQuery(_Q,'maxResults',AQuery.maxResults);
  3963. AddToQuery(_Q,'pageToken',AQuery.pageToken);
  3964. Result:=List(collection,userId,_Q);
  3965. end;
  3966. { --------------------------------------------------------------------
  3967. TAudiencesResource
  3968. --------------------------------------------------------------------}
  3969. Class Function TAudiencesResource.ResourceName : String;
  3970. begin
  3971. Result:='audiences';
  3972. end;
  3973. Class Function TAudiencesResource.DefaultAPI : TGoogleAPIClass;
  3974. begin
  3975. Result:=TplusDomainsAPI;
  3976. end;
  3977. Function TAudiencesResource.List(userId: string; AQuery : string = '') : TAudiencesFeed;
  3978. Const
  3979. _HTTPMethod = 'GET';
  3980. _Path = 'people/{userId}/audiences';
  3981. _Methodid = 'plusDomains.audiences.list';
  3982. Var
  3983. _P : String;
  3984. begin
  3985. _P:=SubstitutePath(_Path,['userId',userId]);
  3986. Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TAudiencesFeed) as TAudiencesFeed;
  3987. end;
  3988. Function TAudiencesResource.List(userId: string; AQuery : TAudienceslistOptions) : TAudiencesFeed;
  3989. Var
  3990. _Q : String;
  3991. begin
  3992. _Q:='';
  3993. AddToQuery(_Q,'maxResults',AQuery.maxResults);
  3994. AddToQuery(_Q,'pageToken',AQuery.pageToken);
  3995. Result:=List(userId,_Q);
  3996. end;
  3997. { --------------------------------------------------------------------
  3998. TCirclesResource
  3999. --------------------------------------------------------------------}
  4000. Class Function TCirclesResource.ResourceName : String;
  4001. begin
  4002. Result:='circles';
  4003. end;
  4004. Class Function TCirclesResource.DefaultAPI : TGoogleAPIClass;
  4005. begin
  4006. Result:=TplusDomainsAPI;
  4007. end;
  4008. Function TCirclesResource.AddPeople(circleId: string; AQuery : string = '') : TCircle;
  4009. Const
  4010. _HTTPMethod = 'PUT';
  4011. _Path = 'circles/{circleId}/people';
  4012. _Methodid = 'plusDomains.circles.addPeople';
  4013. Var
  4014. _P : String;
  4015. begin
  4016. _P:=SubstitutePath(_Path,['circleId',circleId]);
  4017. Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TCircle) as TCircle;
  4018. end;
  4019. Function TCirclesResource.AddPeople(circleId: string; AQuery : TCirclesaddPeopleOptions) : TCircle;
  4020. Var
  4021. _Q : String;
  4022. begin
  4023. _Q:='';
  4024. AddToQuery(_Q,'email',AQuery.email);
  4025. AddToQuery(_Q,'userId',AQuery.userId);
  4026. Result:=AddPeople(circleId,_Q);
  4027. end;
  4028. Function TCirclesResource.Get(circleId: string) : TCircle;
  4029. Const
  4030. _HTTPMethod = 'GET';
  4031. _Path = 'circles/{circleId}';
  4032. _Methodid = 'plusDomains.circles.get';
  4033. Var
  4034. _P : String;
  4035. begin
  4036. _P:=SubstitutePath(_Path,['circleId',circleId]);
  4037. Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TCircle) as TCircle;
  4038. end;
  4039. Function TCirclesResource.Insert(userId: string; aCircle : TCircle) : TCircle;
  4040. Const
  4041. _HTTPMethod = 'POST';
  4042. _Path = 'people/{userId}/circles';
  4043. _Methodid = 'plusDomains.circles.insert';
  4044. Var
  4045. _P : String;
  4046. begin
  4047. _P:=SubstitutePath(_Path,['userId',userId]);
  4048. Result:=ServiceCall(_HTTPMethod,_P,'',aCircle,TCircle) as TCircle;
  4049. end;
  4050. Function TCirclesResource.List(userId: string; AQuery : string = '') : TCircleFeed;
  4051. Const
  4052. _HTTPMethod = 'GET';
  4053. _Path = 'people/{userId}/circles';
  4054. _Methodid = 'plusDomains.circles.list';
  4055. Var
  4056. _P : String;
  4057. begin
  4058. _P:=SubstitutePath(_Path,['userId',userId]);
  4059. Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TCircleFeed) as TCircleFeed;
  4060. end;
  4061. Function TCirclesResource.List(userId: string; AQuery : TCircleslistOptions) : TCircleFeed;
  4062. Var
  4063. _Q : String;
  4064. begin
  4065. _Q:='';
  4066. AddToQuery(_Q,'maxResults',AQuery.maxResults);
  4067. AddToQuery(_Q,'pageToken',AQuery.pageToken);
  4068. Result:=List(userId,_Q);
  4069. end;
  4070. Function TCirclesResource.Patch(circleId: string; aCircle : TCircle) : TCircle;
  4071. Const
  4072. _HTTPMethod = 'PATCH';
  4073. _Path = 'circles/{circleId}';
  4074. _Methodid = 'plusDomains.circles.patch';
  4075. Var
  4076. _P : String;
  4077. begin
  4078. _P:=SubstitutePath(_Path,['circleId',circleId]);
  4079. Result:=ServiceCall(_HTTPMethod,_P,'',aCircle,TCircle) as TCircle;
  4080. end;
  4081. Procedure TCirclesResource.Remove(circleId: string);
  4082. Const
  4083. _HTTPMethod = 'DELETE';
  4084. _Path = 'circles/{circleId}';
  4085. _Methodid = 'plusDomains.circles.remove';
  4086. Var
  4087. _P : String;
  4088. begin
  4089. _P:=SubstitutePath(_Path,['circleId',circleId]);
  4090. ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
  4091. end;
  4092. Procedure TCirclesResource.RemovePeople(circleId: string; AQuery : string = '');
  4093. Const
  4094. _HTTPMethod = 'DELETE';
  4095. _Path = 'circles/{circleId}/people';
  4096. _Methodid = 'plusDomains.circles.removePeople';
  4097. Var
  4098. _P : String;
  4099. begin
  4100. _P:=SubstitutePath(_Path,['circleId',circleId]);
  4101. ServiceCall(_HTTPMethod,_P,AQuery,Nil,Nil);
  4102. end;
  4103. Procedure TCirclesResource.RemovePeople(circleId: string; AQuery : TCirclesremovePeopleOptions);
  4104. Var
  4105. _Q : String;
  4106. begin
  4107. _Q:='';
  4108. AddToQuery(_Q,'email',AQuery.email);
  4109. AddToQuery(_Q,'userId',AQuery.userId);
  4110. RemovePeople(circleId,_Q);
  4111. end;
  4112. Function TCirclesResource.Update(circleId: string; aCircle : TCircle) : TCircle;
  4113. Const
  4114. _HTTPMethod = 'PUT';
  4115. _Path = 'circles/{circleId}';
  4116. _Methodid = 'plusDomains.circles.update';
  4117. Var
  4118. _P : String;
  4119. begin
  4120. _P:=SubstitutePath(_Path,['circleId',circleId]);
  4121. Result:=ServiceCall(_HTTPMethod,_P,'',aCircle,TCircle) as TCircle;
  4122. end;
  4123. { --------------------------------------------------------------------
  4124. TCommentsResource
  4125. --------------------------------------------------------------------}
  4126. Class Function TCommentsResource.ResourceName : String;
  4127. begin
  4128. Result:='comments';
  4129. end;
  4130. Class Function TCommentsResource.DefaultAPI : TGoogleAPIClass;
  4131. begin
  4132. Result:=TplusDomainsAPI;
  4133. end;
  4134. Function TCommentsResource.Get(commentId: string) : TComment;
  4135. Const
  4136. _HTTPMethod = 'GET';
  4137. _Path = 'comments/{commentId}';
  4138. _Methodid = 'plusDomains.comments.get';
  4139. Var
  4140. _P : String;
  4141. begin
  4142. _P:=SubstitutePath(_Path,['commentId',commentId]);
  4143. Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TComment) as TComment;
  4144. end;
  4145. Function TCommentsResource.Insert(activityId: string; aComment : TComment) : TComment;
  4146. Const
  4147. _HTTPMethod = 'POST';
  4148. _Path = 'activities/{activityId}/comments';
  4149. _Methodid = 'plusDomains.comments.insert';
  4150. Var
  4151. _P : String;
  4152. begin
  4153. _P:=SubstitutePath(_Path,['activityId',activityId]);
  4154. Result:=ServiceCall(_HTTPMethod,_P,'',aComment,TComment) as TComment;
  4155. end;
  4156. Function TCommentsResource.List(activityId: string; AQuery : string = '') : TCommentFeed;
  4157. Const
  4158. _HTTPMethod = 'GET';
  4159. _Path = 'activities/{activityId}/comments';
  4160. _Methodid = 'plusDomains.comments.list';
  4161. Var
  4162. _P : String;
  4163. begin
  4164. _P:=SubstitutePath(_Path,['activityId',activityId]);
  4165. Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TCommentFeed) as TCommentFeed;
  4166. end;
  4167. Function TCommentsResource.List(activityId: string; AQuery : TCommentslistOptions) : TCommentFeed;
  4168. Var
  4169. _Q : String;
  4170. begin
  4171. _Q:='';
  4172. AddToQuery(_Q,'maxResults',AQuery.maxResults);
  4173. AddToQuery(_Q,'pageToken',AQuery.pageToken);
  4174. AddToQuery(_Q,'sortOrder',AQuery.sortOrder);
  4175. Result:=List(activityId,_Q);
  4176. end;
  4177. { --------------------------------------------------------------------
  4178. TMediaResource
  4179. --------------------------------------------------------------------}
  4180. Class Function TMediaResource.ResourceName : String;
  4181. begin
  4182. Result:='media';
  4183. end;
  4184. Class Function TMediaResource.DefaultAPI : TGoogleAPIClass;
  4185. begin
  4186. Result:=TplusDomainsAPI;
  4187. end;
  4188. Function TMediaResource.Insert(collection: string; userId: string; aMedia : TMedia) : TMedia;
  4189. Const
  4190. _HTTPMethod = 'POST';
  4191. _Path = 'people/{userId}/media/{collection}';
  4192. _Methodid = 'plusDomains.media.insert';
  4193. Var
  4194. _P : String;
  4195. begin
  4196. _P:=SubstitutePath(_Path,['collection',collection,'userId',userId]);
  4197. Result:=ServiceCall(_HTTPMethod,_P,'',aMedia,TMedia) as TMedia;
  4198. end;
  4199. { --------------------------------------------------------------------
  4200. TPeopleResource
  4201. --------------------------------------------------------------------}
  4202. Class Function TPeopleResource.ResourceName : String;
  4203. begin
  4204. Result:='people';
  4205. end;
  4206. Class Function TPeopleResource.DefaultAPI : TGoogleAPIClass;
  4207. begin
  4208. Result:=TplusDomainsAPI;
  4209. end;
  4210. Function TPeopleResource.Get(userId: string) : TPerson;
  4211. Const
  4212. _HTTPMethod = 'GET';
  4213. _Path = 'people/{userId}';
  4214. _Methodid = 'plusDomains.people.get';
  4215. Var
  4216. _P : String;
  4217. begin
  4218. _P:=SubstitutePath(_Path,['userId',userId]);
  4219. Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TPerson) as TPerson;
  4220. end;
  4221. Function TPeopleResource.List(collection: string; userId: string; AQuery : string = '') : TPeopleFeed;
  4222. Const
  4223. _HTTPMethod = 'GET';
  4224. _Path = 'people/{userId}/people/{collection}';
  4225. _Methodid = 'plusDomains.people.list';
  4226. Var
  4227. _P : String;
  4228. begin
  4229. _P:=SubstitutePath(_Path,['collection',collection,'userId',userId]);
  4230. Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPeopleFeed) as TPeopleFeed;
  4231. end;
  4232. Function TPeopleResource.List(collection: string; userId: string; AQuery : TPeoplelistOptions) : TPeopleFeed;
  4233. Var
  4234. _Q : String;
  4235. begin
  4236. _Q:='';
  4237. AddToQuery(_Q,'maxResults',AQuery.maxResults);
  4238. AddToQuery(_Q,'orderBy',AQuery.orderBy);
  4239. AddToQuery(_Q,'pageToken',AQuery.pageToken);
  4240. Result:=List(collection,userId,_Q);
  4241. end;
  4242. Function TPeopleResource.ListByActivity(activityId: string; collection: string; AQuery : string = '') : TPeopleFeed;
  4243. Const
  4244. _HTTPMethod = 'GET';
  4245. _Path = 'activities/{activityId}/people/{collection}';
  4246. _Methodid = 'plusDomains.people.listByActivity';
  4247. Var
  4248. _P : String;
  4249. begin
  4250. _P:=SubstitutePath(_Path,['activityId',activityId,'collection',collection]);
  4251. Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPeopleFeed) as TPeopleFeed;
  4252. end;
  4253. Function TPeopleResource.ListByActivity(activityId: string; collection: string; AQuery : TPeoplelistByActivityOptions) : TPeopleFeed;
  4254. Var
  4255. _Q : String;
  4256. begin
  4257. _Q:='';
  4258. AddToQuery(_Q,'maxResults',AQuery.maxResults);
  4259. AddToQuery(_Q,'pageToken',AQuery.pageToken);
  4260. Result:=ListByActivity(activityId,collection,_Q);
  4261. end;
  4262. Function TPeopleResource.ListByCircle(circleId: string; AQuery : string = '') : TPeopleFeed;
  4263. Const
  4264. _HTTPMethod = 'GET';
  4265. _Path = 'circles/{circleId}/people';
  4266. _Methodid = 'plusDomains.people.listByCircle';
  4267. Var
  4268. _P : String;
  4269. begin
  4270. _P:=SubstitutePath(_Path,['circleId',circleId]);
  4271. Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TPeopleFeed) as TPeopleFeed;
  4272. end;
  4273. Function TPeopleResource.ListByCircle(circleId: string; AQuery : TPeoplelistByCircleOptions) : TPeopleFeed;
  4274. Var
  4275. _Q : String;
  4276. begin
  4277. _Q:='';
  4278. AddToQuery(_Q,'maxResults',AQuery.maxResults);
  4279. AddToQuery(_Q,'pageToken',AQuery.pageToken);
  4280. Result:=ListByCircle(circleId,_Q);
  4281. end;
  4282. { --------------------------------------------------------------------
  4283. TPlusDomainsAPI
  4284. --------------------------------------------------------------------}
  4285. Class Function TPlusDomainsAPI.APIName : String;
  4286. begin
  4287. Result:='plusDomains';
  4288. end;
  4289. Class Function TPlusDomainsAPI.APIVersion : String;
  4290. begin
  4291. Result:='v1';
  4292. end;
  4293. Class Function TPlusDomainsAPI.APIRevision : String;
  4294. begin
  4295. Result:='20160521';
  4296. end;
  4297. Class Function TPlusDomainsAPI.APIID : String;
  4298. begin
  4299. Result:='plusDomains:v1';
  4300. end;
  4301. Class Function TPlusDomainsAPI.APITitle : String;
  4302. begin
  4303. Result:='Google+ Domains API';
  4304. end;
  4305. Class Function TPlusDomainsAPI.APIDescription : String;
  4306. begin
  4307. Result:='Builds on top of the Google+ platform for Google Apps Domains.';
  4308. end;
  4309. Class Function TPlusDomainsAPI.APIOwnerDomain : String;
  4310. begin
  4311. Result:='google.com';
  4312. end;
  4313. Class Function TPlusDomainsAPI.APIOwnerName : String;
  4314. begin
  4315. Result:='Google';
  4316. end;
  4317. Class Function TPlusDomainsAPI.APIIcon16 : String;
  4318. begin
  4319. Result:='http://www.google.com/images/icons/product/gplus-16.png';
  4320. end;
  4321. Class Function TPlusDomainsAPI.APIIcon32 : String;
  4322. begin
  4323. Result:='http://www.google.com/images/icons/product/gplus-32.png';
  4324. end;
  4325. Class Function TPlusDomainsAPI.APIdocumentationLink : String;
  4326. begin
  4327. Result:='https://developers.google.com/+/domains/';
  4328. end;
  4329. Class Function TPlusDomainsAPI.APIrootUrl : string;
  4330. begin
  4331. Result:='https://www.googleapis.com/';
  4332. end;
  4333. Class Function TPlusDomainsAPI.APIbasePath : string;
  4334. begin
  4335. Result:='/plusDomains/v1/';
  4336. end;
  4337. Class Function TPlusDomainsAPI.APIbaseURL : String;
  4338. begin
  4339. Result:='https://www.googleapis.com/plusDomains/v1/';
  4340. end;
  4341. Class Function TPlusDomainsAPI.APIProtocol : string;
  4342. begin
  4343. Result:='rest';
  4344. end;
  4345. Class Function TPlusDomainsAPI.APIservicePath : string;
  4346. begin
  4347. Result:='plusDomains/v1/';
  4348. end;
  4349. Class Function TPlusDomainsAPI.APIbatchPath : String;
  4350. begin
  4351. Result:='batch';
  4352. end;
  4353. Class Function TPlusDomainsAPI.APIAuthScopes : TScopeInfoArray;
  4354. begin
  4355. SetLength(Result,10);
  4356. Result[0].Name:='https://www.googleapis.com/auth/plus.circles.read';
  4357. Result[0].Description:='View your circles and the people and pages in them';
  4358. Result[1].Name:='https://www.googleapis.com/auth/plus.circles.write';
  4359. 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.';
  4360. Result[2].Name:='https://www.googleapis.com/auth/plus.login';
  4361. Result[2].Description:='Know the list of people in your circles, your age range, and language';
  4362. Result[3].Name:='https://www.googleapis.com/auth/plus.me';
  4363. Result[3].Description:='Know who you are on Google';
  4364. Result[4].Name:='https://www.googleapis.com/auth/plus.media.upload';
  4365. Result[4].Description:='Send your photos and videos to Google+';
  4366. Result[5].Name:='https://www.googleapis.com/auth/plus.profiles.read';
  4367. Result[5].Description:='View your own Google+ profile and profiles visible to you';
  4368. Result[6].Name:='https://www.googleapis.com/auth/plus.stream.read';
  4369. Result[6].Description:='View your Google+ posts, comments, and stream';
  4370. Result[7].Name:='https://www.googleapis.com/auth/plus.stream.write';
  4371. Result[7].Description:='Manage your Google+ posts, comments, and stream';
  4372. Result[8].Name:='https://www.googleapis.com/auth/userinfo.email';
  4373. Result[8].Description:='View your email address';
  4374. Result[9].Name:='https://www.googleapis.com/auth/userinfo.profile';
  4375. Result[9].Description:='View your basic profile info';
  4376. end;
  4377. Class Function TPlusDomainsAPI.APINeedsAuth : Boolean;
  4378. begin
  4379. Result:=True;
  4380. end;
  4381. Class Procedure TPlusDomainsAPI.RegisterAPIResources;
  4382. begin
  4383. TAcl.RegisterObject;
  4384. TActivityTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.RegisterObject;
  4385. TActivityTypeactorTypeclientSpecificActorInfo.RegisterObject;
  4386. TActivityTypeactorTypeimage.RegisterObject;
  4387. TActivityTypeactorTypename.RegisterObject;
  4388. TActivityTypeactorTypeverification.RegisterObject;
  4389. TActivityTypeactor.RegisterObject;
  4390. TActivityTypeobjectTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.RegisterObject;
  4391. TActivityTypeobjectTypeactorTypeclientSpecificActorInfo.RegisterObject;
  4392. TActivityTypeobjectTypeactorTypeimage.RegisterObject;
  4393. TActivityTypeobjectTypeactorTypeverification.RegisterObject;
  4394. TActivityTypeobjectTypeactor.RegisterObject;
  4395. TActivityTypeobjectTypeattachmentsItemTypeembed.RegisterObject;
  4396. TActivityTypeobjectTypeattachmentsItemTypefullImage.RegisterObject;
  4397. TActivityTypeobjectTypeattachmentsItemTypeimage.RegisterObject;
  4398. TActivityTypeobjectTypeattachmentsItemTypepreviewThumbnailsItem.RegisterObject;
  4399. TActivityTypeobjectTypeattachmentsItemTypethumbnailsItemTypeimage.RegisterObject;
  4400. TActivityTypeobjectTypeattachmentsItemTypethumbnailsItem.RegisterObject;
  4401. TActivityTypeobjectTypeattachmentsItem.RegisterObject;
  4402. TActivityTypeobjectTypeplusoners.RegisterObject;
  4403. TActivityTypeobjectTypereplies.RegisterObject;
  4404. TActivityTypeobjectTyperesharers.RegisterObject;
  4405. TActivityTypeobjectTypestatusForViewer.RegisterObject;
  4406. TActivityTypeobject.RegisterObject;
  4407. TActivityTypeprovider.RegisterObject;
  4408. TActivity.RegisterObject;
  4409. TActivityFeed.RegisterObject;
  4410. TAudience.RegisterObject;
  4411. TAudiencesFeed.RegisterObject;
  4412. TCircleTypepeople.RegisterObject;
  4413. TCircle.RegisterObject;
  4414. TCircleFeed.RegisterObject;
  4415. TCommentTypeactorTypeclientSpecificActorInfoTypeyoutubeActorInfo.RegisterObject;
  4416. TCommentTypeactorTypeclientSpecificActorInfo.RegisterObject;
  4417. TCommentTypeactorTypeimage.RegisterObject;
  4418. TCommentTypeactorTypeverification.RegisterObject;
  4419. TCommentTypeactor.RegisterObject;
  4420. TCommentTypeinReplyToItem.RegisterObject;
  4421. TCommentTypeobject.RegisterObject;
  4422. TCommentTypeplusoners.RegisterObject;
  4423. TComment.RegisterObject;
  4424. TCommentFeed.RegisterObject;
  4425. TMediaTypeauthorTypeimage.RegisterObject;
  4426. TMediaTypeauthor.RegisterObject;
  4427. TMediaTypeexif.RegisterObject;
  4428. TMedia.RegisterObject;
  4429. TPeopleFeed.RegisterObject;
  4430. TPersonTypecoverTypecoverInfo.RegisterObject;
  4431. TPersonTypecoverTypecoverPhoto.RegisterObject;
  4432. TPersonTypecover.RegisterObject;
  4433. TPersonTypeemailsItem.RegisterObject;
  4434. TPersonTypeimage.RegisterObject;
  4435. TPersonTypename.RegisterObject;
  4436. TPersonTypeorganizationsItem.RegisterObject;
  4437. TPersonTypeplacesLivedItem.RegisterObject;
  4438. TPersonTypeurlsItem.RegisterObject;
  4439. TPerson.RegisterObject;
  4440. TPlaceTypeaddress.RegisterObject;
  4441. TPlaceTypeposition.RegisterObject;
  4442. TPlace.RegisterObject;
  4443. TPlusDomainsAclentryResource.RegisterObject;
  4444. TVideostream.RegisterObject;
  4445. end;
  4446. Function TPlusDomainsAPI.GetActivitiesInstance : TActivitiesResource;
  4447. begin
  4448. if (FActivitiesInstance=Nil) then
  4449. FActivitiesInstance:=CreateActivitiesResource;
  4450. Result:=FActivitiesInstance;
  4451. end;
  4452. Function TPlusDomainsAPI.CreateActivitiesResource : TActivitiesResource;
  4453. begin
  4454. Result:=CreateActivitiesResource(Self);
  4455. end;
  4456. Function TPlusDomainsAPI.CreateActivitiesResource(AOwner : TComponent) : TActivitiesResource;
  4457. begin
  4458. Result:=TActivitiesResource.Create(AOwner);
  4459. Result.API:=Self.API;
  4460. end;
  4461. Function TPlusDomainsAPI.GetAudiencesInstance : TAudiencesResource;
  4462. begin
  4463. if (FAudiencesInstance=Nil) then
  4464. FAudiencesInstance:=CreateAudiencesResource;
  4465. Result:=FAudiencesInstance;
  4466. end;
  4467. Function TPlusDomainsAPI.CreateAudiencesResource : TAudiencesResource;
  4468. begin
  4469. Result:=CreateAudiencesResource(Self);
  4470. end;
  4471. Function TPlusDomainsAPI.CreateAudiencesResource(AOwner : TComponent) : TAudiencesResource;
  4472. begin
  4473. Result:=TAudiencesResource.Create(AOwner);
  4474. Result.API:=Self.API;
  4475. end;
  4476. Function TPlusDomainsAPI.GetCirclesInstance : TCirclesResource;
  4477. begin
  4478. if (FCirclesInstance=Nil) then
  4479. FCirclesInstance:=CreateCirclesResource;
  4480. Result:=FCirclesInstance;
  4481. end;
  4482. Function TPlusDomainsAPI.CreateCirclesResource : TCirclesResource;
  4483. begin
  4484. Result:=CreateCirclesResource(Self);
  4485. end;
  4486. Function TPlusDomainsAPI.CreateCirclesResource(AOwner : TComponent) : TCirclesResource;
  4487. begin
  4488. Result:=TCirclesResource.Create(AOwner);
  4489. Result.API:=Self.API;
  4490. end;
  4491. Function TPlusDomainsAPI.GetCommentsInstance : TCommentsResource;
  4492. begin
  4493. if (FCommentsInstance=Nil) then
  4494. FCommentsInstance:=CreateCommentsResource;
  4495. Result:=FCommentsInstance;
  4496. end;
  4497. Function TPlusDomainsAPI.CreateCommentsResource : TCommentsResource;
  4498. begin
  4499. Result:=CreateCommentsResource(Self);
  4500. end;
  4501. Function TPlusDomainsAPI.CreateCommentsResource(AOwner : TComponent) : TCommentsResource;
  4502. begin
  4503. Result:=TCommentsResource.Create(AOwner);
  4504. Result.API:=Self.API;
  4505. end;
  4506. Function TPlusDomainsAPI.GetMediaInstance : TMediaResource;
  4507. begin
  4508. if (FMediaInstance=Nil) then
  4509. FMediaInstance:=CreateMediaResource;
  4510. Result:=FMediaInstance;
  4511. end;
  4512. Function TPlusDomainsAPI.CreateMediaResource : TMediaResource;
  4513. begin
  4514. Result:=CreateMediaResource(Self);
  4515. end;
  4516. Function TPlusDomainsAPI.CreateMediaResource(AOwner : TComponent) : TMediaResource;
  4517. begin
  4518. Result:=TMediaResource.Create(AOwner);
  4519. Result.API:=Self.API;
  4520. end;
  4521. Function TPlusDomainsAPI.GetPeopleInstance : TPeopleResource;
  4522. begin
  4523. if (FPeopleInstance=Nil) then
  4524. FPeopleInstance:=CreatePeopleResource;
  4525. Result:=FPeopleInstance;
  4526. end;
  4527. Function TPlusDomainsAPI.CreatePeopleResource : TPeopleResource;
  4528. begin
  4529. Result:=CreatePeopleResource(Self);
  4530. end;
  4531. Function TPlusDomainsAPI.CreatePeopleResource(AOwner : TComponent) : TPeopleResource;
  4532. begin
  4533. Result:=TPeopleResource.Create(AOwner);
  4534. Result.API:=Self.API;
  4535. end;
  4536. initialization
  4537. TPlusDomainsAPI.RegisterAPI;
  4538. end.