123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273327432753276327732783279328032813282328332843285328632873288328932903291329232933294329532963297329832993300330133023303330433053306330733083309331033113312331333143315331633173318331933203321332233233324332533263327332833293330333133323333333433353336333733383339334033413342334333443345334633473348334933503351335233533354335533563357335833593360336133623363336433653366336733683369337033713372337333743375337633773378337933803381338233833384338533863387338833893390339133923393339433953396339733983399340034013402340334043405340634073408340934103411341234133414341534163417341834193420342134223423342434253426342734283429343034313432343334343435343634373438343934403441344234433444344534463447344834493450345134523453345434553456345734583459346034613462346334643465346634673468346934703471347234733474347534763477347834793480348134823483348434853486348734883489349034913492349334943495349634973498349935003501350235033504350535063507350835093510351135123513351435153516351735183519352035213522352335243525352635273528352935303531353235333534353535363537353835393540354135423543354435453546354735483549355035513552355335543555355635573558355935603561356235633564356535663567356835693570357135723573357435753576357735783579358035813582358335843585358635873588358935903591359235933594359535963597359835993600360136023603360436053606360736083609361036113612361336143615361636173618361936203621362236233624362536263627362836293630363136323633363436353636 |
- unit googlefusiontables;
- {$MODE objfpc}
- {$H+}
- interface
- uses sysutils, classes, googleservice, restbase, googlebase;
- type
-
- //Top-level schema types
- TBucket = Class;
- TColumn = Class;
- TColumnList = Class;
- TGeometry = Class;
- TImport = Class;
- TLine = Class;
- TLineStyle = Class;
- TPoint = Class;
- TPointStyle = Class;
- TPolygon = Class;
- TPolygonStyle = Class;
- TSqlresponse = Class;
- TStyleFunction = Class;
- TStyleSetting = Class;
- TStyleSettingList = Class;
- TTable = Class;
- TTableList = Class;
- TTask = Class;
- TTaskList = Class;
- TTemplate = Class;
- TTemplateList = Class;
- TBucketArray = Array of TBucket;
- TColumnArray = Array of TColumn;
- TColumnListArray = Array of TColumnList;
- TGeometryArray = Array of TGeometry;
- TImportArray = Array of TImport;
- TLineArray = Array of TLine;
- TLineStyleArray = Array of TLineStyle;
- TPointArray = Array of TPoint;
- TPointStyleArray = Array of TPointStyle;
- TPolygonArray = Array of TPolygon;
- TPolygonStyleArray = Array of TPolygonStyle;
- TSqlresponseArray = Array of TSqlresponse;
- TStyleFunctionArray = Array of TStyleFunction;
- TStyleSettingArray = Array of TStyleSetting;
- TStyleSettingListArray = Array of TStyleSettingList;
- TTableArray = Array of TTable;
- TTableListArray = Array of TTableList;
- TTaskArray = Array of TTask;
- TTaskListArray = Array of TTaskList;
- TTemplateArray = Array of TTemplate;
- TTemplateListArray = Array of TTemplateList;
- //Anonymous types, using auto-generated names
- TColumnTypebaseColumn = Class;
- TStyleFunctionTypegradientTypecolorsItem = Class;
- TStyleFunctionTypegradient = Class;
- TColumnListTypeitemsArray = Array of TColumn;
- TLineTypecoordinatesArray = Array of TdoubleArray;
- TPolygonTypecoordinatesItemArray = Array of TdoubleArray;
- TPolygonTypecoordinatesArray = Array of TPolygonTypecoordinatesItemArray;
- TSqlresponseTyperowsArray = Array of TTJSONSchemaArray;
- TStyleFunctionTypebucketsArray = Array of TBucket;
- TStyleFunctionTypegradientTypecolorsArray = Array of TStyleFunctionTypegradientTypecolorsItem;
- TStyleSettingListTypeitemsArray = Array of TStyleSetting;
- TTableTypecolumnsArray = Array of TColumn;
- TTableListTypeitemsArray = Array of TTable;
- TTaskListTypeitemsArray = Array of TTask;
- TTemplateListTypeitemsArray = Array of TTemplate;
-
- { --------------------------------------------------------------------
- TBucket
- --------------------------------------------------------------------}
-
- TBucket = Class(TGoogleBaseObject)
- Private
- Fcolor : String;
- Ficon : String;
- Fmax : double;
- Fmin : double;
- Fopacity : double;
- Fweight : integer;
- Protected
- //Property setters
- Procedure Setcolor(AIndex : Integer; const AValue : String); virtual;
- Procedure Seticon(AIndex : Integer; const AValue : String); virtual;
- Procedure Setmax(AIndex : Integer; const AValue : double); virtual;
- Procedure Setmin(AIndex : Integer; const AValue : double); virtual;
- Procedure Setopacity(AIndex : Integer; const AValue : double); virtual;
- Procedure Setweight(AIndex : Integer; const AValue : integer); virtual;
- Public
- Published
- Property color : String Index 0 Read Fcolor Write Setcolor;
- Property icon : String Index 8 Read Ficon Write Seticon;
- Property max : double Index 16 Read Fmax Write Setmax;
- Property min : double Index 24 Read Fmin Write Setmin;
- Property opacity : double Index 32 Read Fopacity Write Setopacity;
- Property weight : integer Index 40 Read Fweight Write Setweight;
- end;
- TBucketClass = Class of TBucket;
-
- { --------------------------------------------------------------------
- TColumnTypebaseColumn
- --------------------------------------------------------------------}
-
- TColumnTypebaseColumn = Class(TGoogleBaseObject)
- Private
- FcolumnId : integer;
- FtableIndex : integer;
- Protected
- //Property setters
- Procedure SetcolumnId(AIndex : Integer; const AValue : integer); virtual;
- Procedure SettableIndex(AIndex : Integer; const AValue : integer); virtual;
- Public
- Published
- Property columnId : integer Index 0 Read FcolumnId Write SetcolumnId;
- Property tableIndex : integer Index 8 Read FtableIndex Write SettableIndex;
- end;
- TColumnTypebaseColumnClass = Class of TColumnTypebaseColumn;
-
- { --------------------------------------------------------------------
- TColumn
- --------------------------------------------------------------------}
-
- TColumn = Class(TGoogleBaseObject)
- Private
- FbaseColumn : TColumnTypebaseColumn;
- FcolumnId : integer;
- FcolumnJsonSchema : String;
- FcolumnPropertiesJson : String;
- Fdescription : String;
- FformatPattern : String;
- FgraphPredicate : String;
- Fkind : String;
- Fname : String;
- F_type : String;
- FvalidValues : TStringArray;
- FvalidateData : boolean;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure SetbaseColumn(AIndex : Integer; const AValue : TColumnTypebaseColumn); virtual;
- Procedure SetcolumnId(AIndex : Integer; const AValue : integer); virtual;
- Procedure SetcolumnJsonSchema(AIndex : Integer; const AValue : String); virtual;
- Procedure SetcolumnPropertiesJson(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetformatPattern(AIndex : Integer; const AValue : String); virtual;
- Procedure SetgraphPredicate(AIndex : Integer; const AValue : String); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure SetvalidValues(AIndex : Integer; const AValue : TStringArray); virtual;
- Procedure SetvalidateData(AIndex : Integer; const AValue : boolean); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property baseColumn : TColumnTypebaseColumn Index 0 Read FbaseColumn Write SetbaseColumn;
- Property columnId : integer Index 8 Read FcolumnId Write SetcolumnId;
- Property columnJsonSchema : String Index 16 Read FcolumnJsonSchema Write SetcolumnJsonSchema;
- Property columnPropertiesJson : String Index 24 Read FcolumnPropertiesJson Write SetcolumnPropertiesJson;
- Property description : String Index 32 Read Fdescription Write Setdescription;
- Property formatPattern : String Index 40 Read FformatPattern Write SetformatPattern;
- Property graphPredicate : String Index 48 Read FgraphPredicate Write SetgraphPredicate;
- Property kind : String Index 56 Read Fkind Write Setkind;
- Property name : String Index 64 Read Fname Write Setname;
- Property _type : String Index 72 Read F_type Write Set_type;
- Property validValues : TStringArray Index 80 Read FvalidValues Write SetvalidValues;
- Property validateData : boolean Index 88 Read FvalidateData Write SetvalidateData;
- end;
- TColumnClass = Class of TColumn;
-
- { --------------------------------------------------------------------
- TColumnList
- --------------------------------------------------------------------}
-
- TColumnList = Class(TGoogleBaseObject)
- Private
- Fitems : TColumnListTypeitemsArray;
- Fkind : String;
- FnextPageToken : String;
- FtotalItems : integer;
- Protected
- //Property setters
- Procedure Setitems(AIndex : Integer; const AValue : TColumnListTypeitemsArray); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property items : TColumnListTypeitemsArray Index 0 Read Fitems Write Setitems;
- Property kind : String Index 8 Read Fkind Write Setkind;
- Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
- Property totalItems : integer Index 24 Read FtotalItems Write SettotalItems;
- end;
- TColumnListClass = Class of TColumnList;
-
- { --------------------------------------------------------------------
- TGeometry
- --------------------------------------------------------------------}
-
- TGeometry = Class(TGoogleBaseObject)
- Private
- Fgeometries : TTJSONSchemaArray;
- Fgeometry : TJSONSchema;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setgeometries(AIndex : Integer; const AValue : TTJSONSchemaArray); virtual;
- Procedure Setgeometry(AIndex : Integer; const AValue : TJSONSchema); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property geometries : TTJSONSchemaArray Index 0 Read Fgeometries Write Setgeometries;
- Property geometry : TJSONSchema Index 8 Read Fgeometry Write Setgeometry;
- Property _type : String Index 16 Read F_type Write Set_type;
- end;
- TGeometryClass = Class of TGeometry;
-
- { --------------------------------------------------------------------
- TImport
- --------------------------------------------------------------------}
-
- TImport = Class(TGoogleBaseObject)
- Private
- Fkind : String;
- FnumRowsReceived : String;
- Protected
- //Property setters
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnumRowsReceived(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property kind : String Index 0 Read Fkind Write Setkind;
- Property numRowsReceived : String Index 8 Read FnumRowsReceived Write SetnumRowsReceived;
- end;
- TImportClass = Class of TImport;
-
- { --------------------------------------------------------------------
- TLine
- --------------------------------------------------------------------}
-
- TLine = Class(TGoogleBaseObject)
- Private
- Fcoordinates : TLineTypecoordinatesArray;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setcoordinates(AIndex : Integer; const AValue : TLineTypecoordinatesArray); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property coordinates : TLineTypecoordinatesArray Index 0 Read Fcoordinates Write Setcoordinates;
- Property _type : String Index 8 Read F_type Write Set_type;
- end;
- TLineClass = Class of TLine;
-
- { --------------------------------------------------------------------
- TLineStyle
- --------------------------------------------------------------------}
-
- TLineStyle = Class(TGoogleBaseObject)
- Private
- FstrokeColor : String;
- FstrokeColorStyler : TStyleFunction;
- FstrokeOpacity : double;
- FstrokeWeight : integer;
- FstrokeWeightStyler : TStyleFunction;
- Protected
- //Property setters
- Procedure SetstrokeColor(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstrokeColorStyler(AIndex : Integer; const AValue : TStyleFunction); virtual;
- Procedure SetstrokeOpacity(AIndex : Integer; const AValue : double); virtual;
- Procedure SetstrokeWeight(AIndex : Integer; const AValue : integer); virtual;
- Procedure SetstrokeWeightStyler(AIndex : Integer; const AValue : TStyleFunction); virtual;
- Public
- Published
- Property strokeColor : String Index 0 Read FstrokeColor Write SetstrokeColor;
- Property strokeColorStyler : TStyleFunction Index 8 Read FstrokeColorStyler Write SetstrokeColorStyler;
- Property strokeOpacity : double Index 16 Read FstrokeOpacity Write SetstrokeOpacity;
- Property strokeWeight : integer Index 24 Read FstrokeWeight Write SetstrokeWeight;
- Property strokeWeightStyler : TStyleFunction Index 32 Read FstrokeWeightStyler Write SetstrokeWeightStyler;
- end;
- TLineStyleClass = Class of TLineStyle;
-
- { --------------------------------------------------------------------
- TPoint
- --------------------------------------------------------------------}
-
- TPoint = Class(TGoogleBaseObject)
- Private
- Fcoordinates : TdoubleArray;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setcoordinates(AIndex : Integer; const AValue : TdoubleArray); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property coordinates : TdoubleArray Index 0 Read Fcoordinates Write Setcoordinates;
- Property _type : String Index 8 Read F_type Write Set_type;
- end;
- TPointClass = Class of TPoint;
-
- { --------------------------------------------------------------------
- TPointStyle
- --------------------------------------------------------------------}
-
- TPointStyle = Class(TGoogleBaseObject)
- Private
- FiconName : String;
- FiconStyler : TStyleFunction;
- Protected
- //Property setters
- Procedure SeticonName(AIndex : Integer; const AValue : String); virtual;
- Procedure SeticonStyler(AIndex : Integer; const AValue : TStyleFunction); virtual;
- Public
- Published
- Property iconName : String Index 0 Read FiconName Write SeticonName;
- Property iconStyler : TStyleFunction Index 8 Read FiconStyler Write SeticonStyler;
- end;
- TPointStyleClass = Class of TPointStyle;
-
- { --------------------------------------------------------------------
- TPolygon
- --------------------------------------------------------------------}
-
- TPolygon = Class(TGoogleBaseObject)
- Private
- Fcoordinates : TPolygonTypecoordinatesArray;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setcoordinates(AIndex : Integer; const AValue : TPolygonTypecoordinatesArray); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property coordinates : TPolygonTypecoordinatesArray Index 0 Read Fcoordinates Write Setcoordinates;
- Property _type : String Index 8 Read F_type Write Set_type;
- end;
- TPolygonClass = Class of TPolygon;
-
- { --------------------------------------------------------------------
- TPolygonStyle
- --------------------------------------------------------------------}
-
- TPolygonStyle = Class(TGoogleBaseObject)
- Private
- FfillColor : String;
- FfillColorStyler : TStyleFunction;
- FfillOpacity : double;
- FstrokeColor : String;
- FstrokeColorStyler : TStyleFunction;
- FstrokeOpacity : double;
- FstrokeWeight : integer;
- FstrokeWeightStyler : TStyleFunction;
- Protected
- //Property setters
- Procedure SetfillColor(AIndex : Integer; const AValue : String); virtual;
- Procedure SetfillColorStyler(AIndex : Integer; const AValue : TStyleFunction); virtual;
- Procedure SetfillOpacity(AIndex : Integer; const AValue : double); virtual;
- Procedure SetstrokeColor(AIndex : Integer; const AValue : String); virtual;
- Procedure SetstrokeColorStyler(AIndex : Integer; const AValue : TStyleFunction); virtual;
- Procedure SetstrokeOpacity(AIndex : Integer; const AValue : double); virtual;
- Procedure SetstrokeWeight(AIndex : Integer; const AValue : integer); virtual;
- Procedure SetstrokeWeightStyler(AIndex : Integer; const AValue : TStyleFunction); virtual;
- Public
- Published
- Property fillColor : String Index 0 Read FfillColor Write SetfillColor;
- Property fillColorStyler : TStyleFunction Index 8 Read FfillColorStyler Write SetfillColorStyler;
- Property fillOpacity : double Index 16 Read FfillOpacity Write SetfillOpacity;
- Property strokeColor : String Index 24 Read FstrokeColor Write SetstrokeColor;
- Property strokeColorStyler : TStyleFunction Index 32 Read FstrokeColorStyler Write SetstrokeColorStyler;
- Property strokeOpacity : double Index 40 Read FstrokeOpacity Write SetstrokeOpacity;
- Property strokeWeight : integer Index 48 Read FstrokeWeight Write SetstrokeWeight;
- Property strokeWeightStyler : TStyleFunction Index 56 Read FstrokeWeightStyler Write SetstrokeWeightStyler;
- end;
- TPolygonStyleClass = Class of TPolygonStyle;
-
- { --------------------------------------------------------------------
- TSqlresponse
- --------------------------------------------------------------------}
-
- TSqlresponse = Class(TGoogleBaseObject)
- Private
- Fcolumns : TStringArray;
- Fkind : String;
- Frows : TSqlresponseTyperowsArray;
- Protected
- //Property setters
- Procedure Setcolumns(AIndex : Integer; const AValue : TStringArray); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setrows(AIndex : Integer; const AValue : TSqlresponseTyperowsArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property columns : TStringArray Index 0 Read Fcolumns Write Setcolumns;
- Property kind : String Index 8 Read Fkind Write Setkind;
- Property rows : TSqlresponseTyperowsArray Index 16 Read Frows Write Setrows;
- end;
- TSqlresponseClass = Class of TSqlresponse;
-
- { --------------------------------------------------------------------
- TStyleFunctionTypegradientTypecolorsItem
- --------------------------------------------------------------------}
-
- TStyleFunctionTypegradientTypecolorsItem = Class(TGoogleBaseObject)
- Private
- Fcolor : String;
- Fopacity : double;
- Protected
- //Property setters
- Procedure Setcolor(AIndex : Integer; const AValue : String); virtual;
- Procedure Setopacity(AIndex : Integer; const AValue : double); virtual;
- Public
- Published
- Property color : String Index 0 Read Fcolor Write Setcolor;
- Property opacity : double Index 8 Read Fopacity Write Setopacity;
- end;
- TStyleFunctionTypegradientTypecolorsItemClass = Class of TStyleFunctionTypegradientTypecolorsItem;
-
- { --------------------------------------------------------------------
- TStyleFunctionTypegradient
- --------------------------------------------------------------------}
-
- TStyleFunctionTypegradient = Class(TGoogleBaseObject)
- Private
- Fcolors : TStyleFunctionTypegradientTypecolorsArray;
- Fmax : double;
- Fmin : double;
- Protected
- //Property setters
- Procedure Setcolors(AIndex : Integer; const AValue : TStyleFunctionTypegradientTypecolorsArray); virtual;
- Procedure Setmax(AIndex : Integer; const AValue : double); virtual;
- Procedure Setmin(AIndex : Integer; const AValue : double); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property colors : TStyleFunctionTypegradientTypecolorsArray Index 0 Read Fcolors Write Setcolors;
- Property max : double Index 8 Read Fmax Write Setmax;
- Property min : double Index 16 Read Fmin Write Setmin;
- end;
- TStyleFunctionTypegradientClass = Class of TStyleFunctionTypegradient;
-
- { --------------------------------------------------------------------
- TStyleFunction
- --------------------------------------------------------------------}
-
- TStyleFunction = Class(TGoogleBaseObject)
- Private
- Fbuckets : TStyleFunctionTypebucketsArray;
- FcolumnName : String;
- Fgradient : TStyleFunctionTypegradient;
- Fkind : String;
- Protected
- //Property setters
- Procedure Setbuckets(AIndex : Integer; const AValue : TStyleFunctionTypebucketsArray); virtual;
- Procedure SetcolumnName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setgradient(AIndex : Integer; const AValue : TStyleFunctionTypegradient); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property buckets : TStyleFunctionTypebucketsArray Index 0 Read Fbuckets Write Setbuckets;
- Property columnName : String Index 8 Read FcolumnName Write SetcolumnName;
- Property gradient : TStyleFunctionTypegradient Index 16 Read Fgradient Write Setgradient;
- Property kind : String Index 24 Read Fkind Write Setkind;
- end;
- TStyleFunctionClass = Class of TStyleFunction;
-
- { --------------------------------------------------------------------
- TStyleSetting
- --------------------------------------------------------------------}
-
- TStyleSetting = Class(TGoogleBaseObject)
- Private
- Fkind : String;
- FmarkerOptions : TPointStyle;
- Fname : String;
- FpolygonOptions : TPolygonStyle;
- FpolylineOptions : TLineStyle;
- FstyleId : integer;
- FtableId : String;
- Protected
- //Property setters
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetmarkerOptions(AIndex : Integer; const AValue : TPointStyle); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SetpolygonOptions(AIndex : Integer; const AValue : TPolygonStyle); virtual;
- Procedure SetpolylineOptions(AIndex : Integer; const AValue : TLineStyle); virtual;
- Procedure SetstyleId(AIndex : Integer; const AValue : integer); virtual;
- Procedure SettableId(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property kind : String Index 0 Read Fkind Write Setkind;
- Property markerOptions : TPointStyle Index 8 Read FmarkerOptions Write SetmarkerOptions;
- Property name : String Index 16 Read Fname Write Setname;
- Property polygonOptions : TPolygonStyle Index 24 Read FpolygonOptions Write SetpolygonOptions;
- Property polylineOptions : TLineStyle Index 32 Read FpolylineOptions Write SetpolylineOptions;
- Property styleId : integer Index 40 Read FstyleId Write SetstyleId;
- Property tableId : String Index 48 Read FtableId Write SettableId;
- end;
- TStyleSettingClass = Class of TStyleSetting;
-
- { --------------------------------------------------------------------
- TStyleSettingList
- --------------------------------------------------------------------}
-
- TStyleSettingList = Class(TGoogleBaseObject)
- Private
- Fitems : TStyleSettingListTypeitemsArray;
- Fkind : String;
- FnextPageToken : String;
- FtotalItems : integer;
- Protected
- //Property setters
- Procedure Setitems(AIndex : Integer; const AValue : TStyleSettingListTypeitemsArray); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property items : TStyleSettingListTypeitemsArray Index 0 Read Fitems Write Setitems;
- Property kind : String Index 8 Read Fkind Write Setkind;
- Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
- Property totalItems : integer Index 24 Read FtotalItems Write SettotalItems;
- end;
- TStyleSettingListClass = Class of TStyleSettingList;
-
- { --------------------------------------------------------------------
- TTable
- --------------------------------------------------------------------}
-
- TTable = Class(TGoogleBaseObject)
- Private
- Fattribution : String;
- FattributionLink : String;
- FbaseTableIds : TStringArray;
- FcolumnPropertiesJsonSchema : String;
- Fcolumns : TTableTypecolumnsArray;
- Fdescription : String;
- FisExportable : boolean;
- Fkind : String;
- Fname : String;
- Fsql : String;
- FtableId : String;
- FtablePropertiesJson : String;
- FtablePropertiesJsonSchema : String;
- Protected
- //Property setters
- Procedure Setattribution(AIndex : Integer; const AValue : String); virtual;
- Procedure SetattributionLink(AIndex : Integer; const AValue : String); virtual;
- Procedure SetbaseTableIds(AIndex : Integer; const AValue : TStringArray); virtual;
- Procedure SetcolumnPropertiesJsonSchema(AIndex : Integer; const AValue : String); virtual;
- Procedure Setcolumns(AIndex : Integer; const AValue : TTableTypecolumnsArray); virtual;
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure SetisExportable(AIndex : Integer; const AValue : boolean); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure Setsql(AIndex : Integer; const AValue : String); virtual;
- Procedure SettableId(AIndex : Integer; const AValue : String); virtual;
- Procedure SettablePropertiesJson(AIndex : Integer; const AValue : String); virtual;
- Procedure SettablePropertiesJsonSchema(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property attribution : String Index 0 Read Fattribution Write Setattribution;
- Property attributionLink : String Index 8 Read FattributionLink Write SetattributionLink;
- Property baseTableIds : TStringArray Index 16 Read FbaseTableIds Write SetbaseTableIds;
- Property columnPropertiesJsonSchema : String Index 24 Read FcolumnPropertiesJsonSchema Write SetcolumnPropertiesJsonSchema;
- Property columns : TTableTypecolumnsArray Index 32 Read Fcolumns Write Setcolumns;
- Property description : String Index 40 Read Fdescription Write Setdescription;
- Property isExportable : boolean Index 48 Read FisExportable Write SetisExportable;
- Property kind : String Index 56 Read Fkind Write Setkind;
- Property name : String Index 64 Read Fname Write Setname;
- Property sql : String Index 72 Read Fsql Write Setsql;
- Property tableId : String Index 80 Read FtableId Write SettableId;
- Property tablePropertiesJson : String Index 88 Read FtablePropertiesJson Write SettablePropertiesJson;
- Property tablePropertiesJsonSchema : String Index 96 Read FtablePropertiesJsonSchema Write SettablePropertiesJsonSchema;
- end;
- TTableClass = Class of TTable;
-
- { --------------------------------------------------------------------
- TTableList
- --------------------------------------------------------------------}
-
- TTableList = Class(TGoogleBaseObject)
- Private
- Fitems : TTableListTypeitemsArray;
- Fkind : String;
- FnextPageToken : String;
- Protected
- //Property setters
- Procedure Setitems(AIndex : Integer; const AValue : TTableListTypeitemsArray); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property items : TTableListTypeitemsArray Index 0 Read Fitems Write Setitems;
- Property kind : String Index 8 Read Fkind Write Setkind;
- Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
- end;
- TTableListClass = Class of TTableList;
-
- { --------------------------------------------------------------------
- TTask
- --------------------------------------------------------------------}
-
- TTask = Class(TGoogleBaseObject)
- Private
- Fkind : String;
- Fprogress : String;
- Fstarted : boolean;
- FtaskId : String;
- F_type : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setprogress(AIndex : Integer; const AValue : String); virtual;
- Procedure Setstarted(AIndex : Integer; const AValue : boolean); virtual;
- Procedure SettaskId(AIndex : Integer; const AValue : String); virtual;
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property kind : String Index 0 Read Fkind Write Setkind;
- Property progress : String Index 8 Read Fprogress Write Setprogress;
- Property started : boolean Index 16 Read Fstarted Write Setstarted;
- Property taskId : String Index 24 Read FtaskId Write SettaskId;
- Property _type : String Index 32 Read F_type Write Set_type;
- end;
- TTaskClass = Class of TTask;
-
- { --------------------------------------------------------------------
- TTaskList
- --------------------------------------------------------------------}
-
- TTaskList = Class(TGoogleBaseObject)
- Private
- Fitems : TTaskListTypeitemsArray;
- Fkind : String;
- FnextPageToken : String;
- FtotalItems : integer;
- Protected
- //Property setters
- Procedure Setitems(AIndex : Integer; const AValue : TTaskListTypeitemsArray); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property items : TTaskListTypeitemsArray Index 0 Read Fitems Write Setitems;
- Property kind : String Index 8 Read Fkind Write Setkind;
- Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
- Property totalItems : integer Index 24 Read FtotalItems Write SettotalItems;
- end;
- TTaskListClass = Class of TTaskList;
-
- { --------------------------------------------------------------------
- TTemplate
- --------------------------------------------------------------------}
-
- TTemplate = Class(TGoogleBaseObject)
- Private
- FautomaticColumnNames : TStringArray;
- Fbody : String;
- Fkind : String;
- Fname : String;
- FtableId : String;
- FtemplateId : integer;
- Protected
- //Property setters
- Procedure SetautomaticColumnNames(AIndex : Integer; const AValue : TStringArray); virtual;
- Procedure Setbody(AIndex : Integer; const AValue : String); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Procedure SettableId(AIndex : Integer; const AValue : String); virtual;
- Procedure SettemplateId(AIndex : Integer; const AValue : integer); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property automaticColumnNames : TStringArray Index 0 Read FautomaticColumnNames Write SetautomaticColumnNames;
- Property body : String Index 8 Read Fbody Write Setbody;
- Property kind : String Index 16 Read Fkind Write Setkind;
- Property name : String Index 24 Read Fname Write Setname;
- Property tableId : String Index 32 Read FtableId Write SettableId;
- Property templateId : integer Index 40 Read FtemplateId Write SettemplateId;
- end;
- TTemplateClass = Class of TTemplate;
-
- { --------------------------------------------------------------------
- TTemplateList
- --------------------------------------------------------------------}
-
- TTemplateList = Class(TGoogleBaseObject)
- Private
- Fitems : TTemplateListTypeitemsArray;
- Fkind : String;
- FnextPageToken : String;
- FtotalItems : integer;
- Protected
- //Property setters
- Procedure Setitems(AIndex : Integer; const AValue : TTemplateListTypeitemsArray); virtual;
- Procedure Setkind(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalItems(AIndex : Integer; const AValue : integer); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property items : TTemplateListTypeitemsArray Index 0 Read Fitems Write Setitems;
- Property kind : String Index 8 Read Fkind Write Setkind;
- Property nextPageToken : String Index 16 Read FnextPageToken Write SetnextPageToken;
- Property totalItems : integer Index 24 Read FtotalItems Write SettotalItems;
- end;
- TTemplateListClass = Class of TTemplateList;
-
- { --------------------------------------------------------------------
- TColumnResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TColumnResource, method List
-
- TColumnListOptions = Record
- maxResults : integer;
- pageToken : String;
- end;
-
- TColumnResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Procedure Delete(columnId: string; tableId: string);
- Function Get(columnId: string; tableId: string) : TColumn;
- Function Insert(tableId: string; aColumn : TColumn) : TColumn;
- Function List(tableId: string; AQuery : string = '') : TColumnList;
- Function List(tableId: string; AQuery : TColumnlistOptions) : TColumnList;
- Function Patch(columnId: string; tableId: string; aColumn : TColumn) : TColumn;
- Function Update(columnId: string; tableId: string; aColumn : TColumn) : TColumn;
- end;
-
-
- { --------------------------------------------------------------------
- TQueryResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TQueryResource, method Sql
-
- TQuerySqlOptions = Record
- hdrs : boolean;
- sql : String;
- typed : boolean;
- end;
-
-
- //Optional query Options for TQueryResource, method SqlGet
-
- TQuerySqlGetOptions = Record
- hdrs : boolean;
- sql : String;
- typed : boolean;
- end;
-
- TQueryResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Sql(AQuery : string = '') : TSqlresponse;
- Function Sql(AQuery : TQuerysqlOptions) : TSqlresponse;
- Function SqlGet(AQuery : string = '') : TSqlresponse;
- Function SqlGet(AQuery : TQuerysqlGetOptions) : TSqlresponse;
- end;
-
-
- { --------------------------------------------------------------------
- TStyleResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TStyleResource, method List
-
- TStyleListOptions = Record
- maxResults : integer;
- pageToken : String;
- end;
-
- TStyleResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Procedure Delete(styleId: integer; tableId: string);
- Function Get(styleId: integer; tableId: string) : TStyleSetting;
- Function Insert(tableId: string; aStyleSetting : TStyleSetting) : TStyleSetting;
- Function List(tableId: string; AQuery : string = '') : TStyleSettingList;
- Function List(tableId: string; AQuery : TStylelistOptions) : TStyleSettingList;
- Function Patch(styleId: integer; tableId: string; aStyleSetting : TStyleSetting) : TStyleSetting;
- Function Update(styleId: integer; tableId: string; aStyleSetting : TStyleSetting) : TStyleSetting;
- end;
-
-
- { --------------------------------------------------------------------
- TTableResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TTableResource, method Copy
-
- TTableCopyOptions = Record
- copyPresentation : boolean;
- end;
-
-
- //Optional query Options for TTableResource, method ImportRows
-
- TTableImportRowsOptions = Record
- delimiter : String;
- encoding : String;
- endLine : integer;
- isStrict : boolean;
- startLine : integer;
- end;
-
-
- //Optional query Options for TTableResource, method ImportTable
-
- TTableImportTableOptions = Record
- delimiter : String;
- encoding : String;
- _name : String;
- end;
-
-
- //Optional query Options for TTableResource, method List
-
- TTableListOptions = Record
- maxResults : integer;
- pageToken : String;
- end;
-
-
- //Optional query Options for TTableResource, method Patch
-
- TTablePatchOptions = Record
- replaceViewDefinition : boolean;
- end;
-
-
- //Optional query Options for TTableResource, method ReplaceRows
-
- TTableReplaceRowsOptions = Record
- delimiter : String;
- encoding : String;
- endLine : integer;
- isStrict : boolean;
- startLine : integer;
- end;
-
-
- //Optional query Options for TTableResource, method Update
-
- TTableUpdateOptions = Record
- replaceViewDefinition : boolean;
- end;
-
- TTableResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Copy(tableId: string; AQuery : string = '') : TTable;
- Function Copy(tableId: string; AQuery : TTablecopyOptions) : TTable;
- Procedure Delete(tableId: string);
- Function Get(tableId: string) : TTable;
- Function ImportRows(tableId: string; AQuery : string = '') : TImport;
- Function ImportRows(tableId: string; AQuery : TTableimportRowsOptions) : TImport;
- Function ImportTable(AQuery : string = '') : TTable;
- Function ImportTable(AQuery : TTableimportTableOptions) : TTable;
- Function Insert(aTable : TTable) : TTable;
- Function List(AQuery : string = '') : TTableList;
- Function List(AQuery : TTablelistOptions) : TTableList;
- Function Patch(tableId: string; aTable : TTable; AQuery : string = '') : TTable;
- Function Patch(tableId: string; aTable : TTable; AQuery : TTablepatchOptions) : TTable;
- Function ReplaceRows(tableId: string; AQuery : string = '') : TTask;
- Function ReplaceRows(tableId: string; AQuery : TTablereplaceRowsOptions) : TTask;
- Function Update(tableId: string; aTable : TTable; AQuery : string = '') : TTable;
- Function Update(tableId: string; aTable : TTable; AQuery : TTableupdateOptions) : TTable;
- end;
-
-
- { --------------------------------------------------------------------
- TTaskResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TTaskResource, method List
-
- TTaskListOptions = Record
- maxResults : integer;
- pageToken : String;
- startIndex : integer;
- end;
-
- TTaskResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Procedure Delete(tableId: string; taskId: string);
- Function Get(tableId: string; taskId: string) : TTask;
- Function List(tableId: string; AQuery : string = '') : TTaskList;
- Function List(tableId: string; AQuery : TTasklistOptions) : TTaskList;
- end;
-
-
- { --------------------------------------------------------------------
- TTemplateResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TTemplateResource, method List
-
- TTemplateListOptions = Record
- maxResults : integer;
- pageToken : String;
- end;
-
- TTemplateResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Procedure Delete(tableId: string; templateId: integer);
- Function Get(tableId: string; templateId: integer) : TTemplate;
- Function Insert(tableId: string; aTemplate : TTemplate) : TTemplate;
- Function List(tableId: string; AQuery : string = '') : TTemplateList;
- Function List(tableId: string; AQuery : TTemplatelistOptions) : TTemplateList;
- Function Patch(tableId: string; templateId: integer; aTemplate : TTemplate) : TTemplate;
- Function Update(tableId: string; templateId: integer; aTemplate : TTemplate) : TTemplate;
- end;
-
-
- { --------------------------------------------------------------------
- TFusiontablesAPI
- --------------------------------------------------------------------}
-
- TFusiontablesAPI = Class(TGoogleAPI)
- Private
- FColumnInstance : TColumnResource;
- FQueryInstance : TQueryResource;
- FStyleInstance : TStyleResource;
- FTableInstance : TTableResource;
- FTaskInstance : TTaskResource;
- FTemplateInstance : TTemplateResource;
- Function GetColumnInstance : TColumnResource;virtual;
- Function GetQueryInstance : TQueryResource;virtual;
- Function GetStyleInstance : TStyleResource;virtual;
- Function GetTableInstance : TTableResource;virtual;
- Function GetTaskInstance : TTaskResource;virtual;
- Function GetTemplateInstance : TTemplateResource;virtual;
- Public
- //Override class functions with API info
- Class Function APIName : String; override;
- Class Function APIVersion : String; override;
- Class Function APIRevision : String; override;
- Class Function APIID : String; override;
- Class Function APITitle : String; override;
- Class Function APIDescription : String; override;
- Class Function APIOwnerDomain : String; override;
- Class Function APIOwnerName : String; override;
- Class Function APIIcon16 : String; override;
- Class Function APIIcon32 : String; override;
- Class Function APIdocumentationLink : String; override;
- Class Function APIrootUrl : string; override;
- Class Function APIbasePath : string;override;
- Class Function APIbaseURL : String;override;
- Class Function APIProtocol : string;override;
- Class Function APIservicePath : string;override;
- Class Function APIbatchPath : String;override;
- Class Function APIAuthScopes : TScopeInfoArray;override;
- Class Function APINeedsAuth : Boolean;override;
- Class Procedure RegisterAPIResources; override;
- //Add create function for resources
- Function CreateColumnResource(AOwner : TComponent) : TColumnResource;virtual;overload;
- Function CreateColumnResource : TColumnResource;virtual;overload;
- Function CreateQueryResource(AOwner : TComponent) : TQueryResource;virtual;overload;
- Function CreateQueryResource : TQueryResource;virtual;overload;
- Function CreateStyleResource(AOwner : TComponent) : TStyleResource;virtual;overload;
- Function CreateStyleResource : TStyleResource;virtual;overload;
- Function CreateTableResource(AOwner : TComponent) : TTableResource;virtual;overload;
- Function CreateTableResource : TTableResource;virtual;overload;
- Function CreateTaskResource(AOwner : TComponent) : TTaskResource;virtual;overload;
- Function CreateTaskResource : TTaskResource;virtual;overload;
- Function CreateTemplateResource(AOwner : TComponent) : TTemplateResource;virtual;overload;
- Function CreateTemplateResource : TTemplateResource;virtual;overload;
- //Add default on-demand instances for resources
- Property ColumnResource : TColumnResource Read GetColumnInstance;
- Property QueryResource : TQueryResource Read GetQueryInstance;
- Property StyleResource : TStyleResource Read GetStyleInstance;
- Property TableResource : TTableResource Read GetTableInstance;
- Property TaskResource : TTaskResource Read GetTaskInstance;
- Property TemplateResource : TTemplateResource Read GetTemplateInstance;
- end;
- implementation
- { --------------------------------------------------------------------
- TBucket
- --------------------------------------------------------------------}
- Procedure TBucket.Setcolor(AIndex : Integer; const AValue : String);
- begin
- If (Fcolor=AValue) then exit;
- Fcolor:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TBucket.Seticon(AIndex : Integer; const AValue : String);
- begin
- If (Ficon=AValue) then exit;
- Ficon:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TBucket.Setmax(AIndex : Integer; const AValue : double);
- begin
- If (Fmax=AValue) then exit;
- Fmax:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TBucket.Setmin(AIndex : Integer; const AValue : double);
- begin
- If (Fmin=AValue) then exit;
- Fmin:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TBucket.Setopacity(AIndex : Integer; const AValue : double);
- begin
- If (Fopacity=AValue) then exit;
- Fopacity:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TBucket.Setweight(AIndex : Integer; const AValue : integer);
- begin
- If (Fweight=AValue) then exit;
- Fweight:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TColumnTypebaseColumn
- --------------------------------------------------------------------}
- Procedure TColumnTypebaseColumn.SetcolumnId(AIndex : Integer; const AValue : integer);
- begin
- If (FcolumnId=AValue) then exit;
- FcolumnId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TColumnTypebaseColumn.SettableIndex(AIndex : Integer; const AValue : integer);
- begin
- If (FtableIndex=AValue) then exit;
- FtableIndex:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TColumn
- --------------------------------------------------------------------}
- Procedure TColumn.SetbaseColumn(AIndex : Integer; const AValue : TColumnTypebaseColumn);
- begin
- If (FbaseColumn=AValue) then exit;
- FbaseColumn:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TColumn.SetcolumnId(AIndex : Integer; const AValue : integer);
- begin
- If (FcolumnId=AValue) then exit;
- FcolumnId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TColumn.SetcolumnJsonSchema(AIndex : Integer; const AValue : String);
- begin
- If (FcolumnJsonSchema=AValue) then exit;
- FcolumnJsonSchema:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TColumn.SetcolumnPropertiesJson(AIndex : Integer; const AValue : String);
- begin
- If (FcolumnPropertiesJson=AValue) then exit;
- FcolumnPropertiesJson:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TColumn.Setdescription(AIndex : Integer; const AValue : String);
- begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TColumn.SetformatPattern(AIndex : Integer; const AValue : String);
- begin
- If (FformatPattern=AValue) then exit;
- FformatPattern:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TColumn.SetgraphPredicate(AIndex : Integer; const AValue : String);
- begin
- If (FgraphPredicate=AValue) then exit;
- FgraphPredicate:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TColumn.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TColumn.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TColumn.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TColumn.SetvalidValues(AIndex : Integer; const AValue : TStringArray);
- begin
- If (FvalidValues=AValue) then exit;
- FvalidValues:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TColumn.SetvalidateData(AIndex : Integer; const AValue : boolean);
- begin
- If (FvalidateData=AValue) then exit;
- FvalidateData:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TColumn.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TColumn.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'validvalues' : SetLength(FvalidValues,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TColumnList
- --------------------------------------------------------------------}
- Procedure TColumnList.Setitems(AIndex : Integer; const AValue : TColumnListTypeitemsArray);
- begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TColumnList.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TColumnList.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TColumnList.SettotalItems(AIndex : Integer; const AValue : integer);
- begin
- If (FtotalItems=AValue) then exit;
- FtotalItems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TColumnList.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'items' : SetLength(Fitems,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TGeometry
- --------------------------------------------------------------------}
- Procedure TGeometry.Setgeometries(AIndex : Integer; const AValue : TTJSONSchemaArray);
- begin
- If (Fgeometries=AValue) then exit;
- Fgeometries:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TGeometry.Setgeometry(AIndex : Integer; const AValue : TJSONSchema);
- begin
- If (Fgeometry=AValue) then exit;
- Fgeometry:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TGeometry.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TGeometry.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TGeometry.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'geometries' : SetLength(Fgeometries,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TImport
- --------------------------------------------------------------------}
- Procedure TImport.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TImport.SetnumRowsReceived(AIndex : Integer; const AValue : String);
- begin
- If (FnumRowsReceived=AValue) then exit;
- FnumRowsReceived:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TLine
- --------------------------------------------------------------------}
- Procedure TLine.Setcoordinates(AIndex : Integer; const AValue : TLineTypecoordinatesArray);
- begin
- If (Fcoordinates=AValue) then exit;
- Fcoordinates:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLine.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TLine.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TLine.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'coordinates' : SetLength(Fcoordinates,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TLineStyle
- --------------------------------------------------------------------}
- Procedure TLineStyle.SetstrokeColor(AIndex : Integer; const AValue : String);
- begin
- If (FstrokeColor=AValue) then exit;
- FstrokeColor:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLineStyle.SetstrokeColorStyler(AIndex : Integer; const AValue : TStyleFunction);
- begin
- If (FstrokeColorStyler=AValue) then exit;
- FstrokeColorStyler:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLineStyle.SetstrokeOpacity(AIndex : Integer; const AValue : double);
- begin
- If (FstrokeOpacity=AValue) then exit;
- FstrokeOpacity:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLineStyle.SetstrokeWeight(AIndex : Integer; const AValue : integer);
- begin
- If (FstrokeWeight=AValue) then exit;
- FstrokeWeight:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLineStyle.SetstrokeWeightStyler(AIndex : Integer; const AValue : TStyleFunction);
- begin
- If (FstrokeWeightStyler=AValue) then exit;
- FstrokeWeightStyler:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TPoint
- --------------------------------------------------------------------}
- Procedure TPoint.Setcoordinates(AIndex : Integer; const AValue : TdoubleArray);
- begin
- If (Fcoordinates=AValue) then exit;
- Fcoordinates:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPoint.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TPoint.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TPoint.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'coordinates' : SetLength(Fcoordinates,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TPointStyle
- --------------------------------------------------------------------}
- Procedure TPointStyle.SeticonName(AIndex : Integer; const AValue : String);
- begin
- If (FiconName=AValue) then exit;
- FiconName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPointStyle.SeticonStyler(AIndex : Integer; const AValue : TStyleFunction);
- begin
- If (FiconStyler=AValue) then exit;
- FiconStyler:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TPolygon
- --------------------------------------------------------------------}
- Procedure TPolygon.Setcoordinates(AIndex : Integer; const AValue : TPolygonTypecoordinatesArray);
- begin
- If (Fcoordinates=AValue) then exit;
- Fcoordinates:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPolygon.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TPolygon.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TPolygon.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'coordinates' : SetLength(Fcoordinates,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TPolygonStyle
- --------------------------------------------------------------------}
- Procedure TPolygonStyle.SetfillColor(AIndex : Integer; const AValue : String);
- begin
- If (FfillColor=AValue) then exit;
- FfillColor:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPolygonStyle.SetfillColorStyler(AIndex : Integer; const AValue : TStyleFunction);
- begin
- If (FfillColorStyler=AValue) then exit;
- FfillColorStyler:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPolygonStyle.SetfillOpacity(AIndex : Integer; const AValue : double);
- begin
- If (FfillOpacity=AValue) then exit;
- FfillOpacity:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPolygonStyle.SetstrokeColor(AIndex : Integer; const AValue : String);
- begin
- If (FstrokeColor=AValue) then exit;
- FstrokeColor:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPolygonStyle.SetstrokeColorStyler(AIndex : Integer; const AValue : TStyleFunction);
- begin
- If (FstrokeColorStyler=AValue) then exit;
- FstrokeColorStyler:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPolygonStyle.SetstrokeOpacity(AIndex : Integer; const AValue : double);
- begin
- If (FstrokeOpacity=AValue) then exit;
- FstrokeOpacity:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPolygonStyle.SetstrokeWeight(AIndex : Integer; const AValue : integer);
- begin
- If (FstrokeWeight=AValue) then exit;
- FstrokeWeight:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TPolygonStyle.SetstrokeWeightStyler(AIndex : Integer; const AValue : TStyleFunction);
- begin
- If (FstrokeWeightStyler=AValue) then exit;
- FstrokeWeightStyler:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TSqlresponse
- --------------------------------------------------------------------}
- Procedure TSqlresponse.Setcolumns(AIndex : Integer; const AValue : TStringArray);
- begin
- If (Fcolumns=AValue) then exit;
- Fcolumns:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TSqlresponse.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TSqlresponse.Setrows(AIndex : Integer; const AValue : TSqlresponseTyperowsArray);
- begin
- If (Frows=AValue) then exit;
- Frows:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TSqlresponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'columns' : SetLength(Fcolumns,ALength);
- 'rows' : SetLength(Frows,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TStyleFunctionTypegradientTypecolorsItem
- --------------------------------------------------------------------}
- Procedure TStyleFunctionTypegradientTypecolorsItem.Setcolor(AIndex : Integer; const AValue : String);
- begin
- If (Fcolor=AValue) then exit;
- Fcolor:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TStyleFunctionTypegradientTypecolorsItem.Setopacity(AIndex : Integer; const AValue : double);
- begin
- If (Fopacity=AValue) then exit;
- Fopacity:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TStyleFunctionTypegradient
- --------------------------------------------------------------------}
- Procedure TStyleFunctionTypegradient.Setcolors(AIndex : Integer; const AValue : TStyleFunctionTypegradientTypecolorsArray);
- begin
- If (Fcolors=AValue) then exit;
- Fcolors:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TStyleFunctionTypegradient.Setmax(AIndex : Integer; const AValue : double);
- begin
- If (Fmax=AValue) then exit;
- Fmax:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TStyleFunctionTypegradient.Setmin(AIndex : Integer; const AValue : double);
- begin
- If (Fmin=AValue) then exit;
- Fmin:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TStyleFunctionTypegradient.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'colors' : SetLength(Fcolors,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TStyleFunction
- --------------------------------------------------------------------}
- Procedure TStyleFunction.Setbuckets(AIndex : Integer; const AValue : TStyleFunctionTypebucketsArray);
- begin
- If (Fbuckets=AValue) then exit;
- Fbuckets:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TStyleFunction.SetcolumnName(AIndex : Integer; const AValue : String);
- begin
- If (FcolumnName=AValue) then exit;
- FcolumnName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TStyleFunction.Setgradient(AIndex : Integer; const AValue : TStyleFunctionTypegradient);
- begin
- If (Fgradient=AValue) then exit;
- Fgradient:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TStyleFunction.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TStyleFunction.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'buckets' : SetLength(Fbuckets,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TStyleSetting
- --------------------------------------------------------------------}
- Procedure TStyleSetting.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TStyleSetting.SetmarkerOptions(AIndex : Integer; const AValue : TPointStyle);
- begin
- If (FmarkerOptions=AValue) then exit;
- FmarkerOptions:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TStyleSetting.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TStyleSetting.SetpolygonOptions(AIndex : Integer; const AValue : TPolygonStyle);
- begin
- If (FpolygonOptions=AValue) then exit;
- FpolygonOptions:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TStyleSetting.SetpolylineOptions(AIndex : Integer; const AValue : TLineStyle);
- begin
- If (FpolylineOptions=AValue) then exit;
- FpolylineOptions:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TStyleSetting.SetstyleId(AIndex : Integer; const AValue : integer);
- begin
- If (FstyleId=AValue) then exit;
- FstyleId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TStyleSetting.SettableId(AIndex : Integer; const AValue : String);
- begin
- If (FtableId=AValue) then exit;
- FtableId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TStyleSettingList
- --------------------------------------------------------------------}
- Procedure TStyleSettingList.Setitems(AIndex : Integer; const AValue : TStyleSettingListTypeitemsArray);
- begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TStyleSettingList.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TStyleSettingList.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TStyleSettingList.SettotalItems(AIndex : Integer; const AValue : integer);
- begin
- If (FtotalItems=AValue) then exit;
- FtotalItems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TStyleSettingList.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'items' : SetLength(Fitems,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TTable
- --------------------------------------------------------------------}
- Procedure TTable.Setattribution(AIndex : Integer; const AValue : String);
- begin
- If (Fattribution=AValue) then exit;
- Fattribution:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.SetattributionLink(AIndex : Integer; const AValue : String);
- begin
- If (FattributionLink=AValue) then exit;
- FattributionLink:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.SetbaseTableIds(AIndex : Integer; const AValue : TStringArray);
- begin
- If (FbaseTableIds=AValue) then exit;
- FbaseTableIds:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.SetcolumnPropertiesJsonSchema(AIndex : Integer; const AValue : String);
- begin
- If (FcolumnPropertiesJsonSchema=AValue) then exit;
- FcolumnPropertiesJsonSchema:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.Setcolumns(AIndex : Integer; const AValue : TTableTypecolumnsArray);
- begin
- If (Fcolumns=AValue) then exit;
- Fcolumns:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.Setdescription(AIndex : Integer; const AValue : String);
- begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.SetisExportable(AIndex : Integer; const AValue : boolean);
- begin
- If (FisExportable=AValue) then exit;
- FisExportable:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.Setsql(AIndex : Integer; const AValue : String);
- begin
- If (Fsql=AValue) then exit;
- Fsql:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.SettableId(AIndex : Integer; const AValue : String);
- begin
- If (FtableId=AValue) then exit;
- FtableId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.SettablePropertiesJson(AIndex : Integer; const AValue : String);
- begin
- If (FtablePropertiesJson=AValue) then exit;
- FtablePropertiesJson:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTable.SettablePropertiesJsonSchema(AIndex : Integer; const AValue : String);
- begin
- If (FtablePropertiesJsonSchema=AValue) then exit;
- FtablePropertiesJsonSchema:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TTable.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'basetableids' : SetLength(FbaseTableIds,ALength);
- 'columns' : SetLength(Fcolumns,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TTableList
- --------------------------------------------------------------------}
- Procedure TTableList.Setitems(AIndex : Integer; const AValue : TTableListTypeitemsArray);
- begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTableList.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTableList.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TTableList.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'items' : SetLength(Fitems,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TTask
- --------------------------------------------------------------------}
- Procedure TTask.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTask.Setprogress(AIndex : Integer; const AValue : String);
- begin
- If (Fprogress=AValue) then exit;
- Fprogress:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTask.Setstarted(AIndex : Integer; const AValue : boolean);
- begin
- If (Fstarted=AValue) then exit;
- Fstarted:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTask.SettaskId(AIndex : Integer; const AValue : String);
- begin
- If (FtaskId=AValue) then exit;
- FtaskId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTask.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TTask.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- { --------------------------------------------------------------------
- TTaskList
- --------------------------------------------------------------------}
- Procedure TTaskList.Setitems(AIndex : Integer; const AValue : TTaskListTypeitemsArray);
- begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTaskList.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTaskList.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTaskList.SettotalItems(AIndex : Integer; const AValue : integer);
- begin
- If (FtotalItems=AValue) then exit;
- FtotalItems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TTaskList.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'items' : SetLength(Fitems,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TTemplate
- --------------------------------------------------------------------}
- Procedure TTemplate.SetautomaticColumnNames(AIndex : Integer; const AValue : TStringArray);
- begin
- If (FautomaticColumnNames=AValue) then exit;
- FautomaticColumnNames:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTemplate.Setbody(AIndex : Integer; const AValue : String);
- begin
- If (Fbody=AValue) then exit;
- Fbody:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTemplate.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTemplate.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTemplate.SettableId(AIndex : Integer; const AValue : String);
- begin
- If (FtableId=AValue) then exit;
- FtableId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTemplate.SettemplateId(AIndex : Integer; const AValue : integer);
- begin
- If (FtemplateId=AValue) then exit;
- FtemplateId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TTemplate.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'automaticcolumnnames' : SetLength(FautomaticColumnNames,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TTemplateList
- --------------------------------------------------------------------}
- Procedure TTemplateList.Setitems(AIndex : Integer; const AValue : TTemplateListTypeitemsArray);
- begin
- If (Fitems=AValue) then exit;
- Fitems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTemplateList.Setkind(AIndex : Integer; const AValue : String);
- begin
- If (Fkind=AValue) then exit;
- Fkind:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTemplateList.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TTemplateList.SettotalItems(AIndex : Integer; const AValue : integer);
- begin
- If (FtotalItems=AValue) then exit;
- FtotalItems:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TTemplateList.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'items' : SetLength(Fitems,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TColumnResource
- --------------------------------------------------------------------}
- Class Function TColumnResource.ResourceName : String;
- begin
- Result:='column';
- end;
- Class Function TColumnResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TfusiontablesAPI;
- end;
- Procedure TColumnResource.Delete(columnId: string; tableId: string);
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'tables/{tableId}/columns/{columnId}';
- _Methodid = 'fusiontables.column.delete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['columnId',columnId,'tableId',tableId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
- end;
- Function TColumnResource.Get(columnId: string; tableId: string) : TColumn;
- Const
- _HTTPMethod = 'GET';
- _Path = 'tables/{tableId}/columns/{columnId}';
- _Methodid = 'fusiontables.column.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['columnId',columnId,'tableId',tableId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TColumn) as TColumn;
- end;
- Function TColumnResource.Insert(tableId: string; aColumn : TColumn) : TColumn;
- Const
- _HTTPMethod = 'POST';
- _Path = 'tables/{tableId}/columns';
- _Methodid = 'fusiontables.column.insert';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['tableId',tableId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aColumn,TColumn) as TColumn;
- end;
- Function TColumnResource.List(tableId: string; AQuery : string = '') : TColumnList;
- Const
- _HTTPMethod = 'GET';
- _Path = 'tables/{tableId}/columns';
- _Methodid = 'fusiontables.column.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['tableId',tableId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TColumnList) as TColumnList;
- end;
- Function TColumnResource.List(tableId: string; AQuery : TColumnlistOptions) : TColumnList;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- Result:=List(tableId,_Q);
- end;
- Function TColumnResource.Patch(columnId: string; tableId: string; aColumn : TColumn) : TColumn;
- Const
- _HTTPMethod = 'PATCH';
- _Path = 'tables/{tableId}/columns/{columnId}';
- _Methodid = 'fusiontables.column.patch';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['columnId',columnId,'tableId',tableId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aColumn,TColumn) as TColumn;
- end;
- Function TColumnResource.Update(columnId: string; tableId: string; aColumn : TColumn) : TColumn;
- Const
- _HTTPMethod = 'PUT';
- _Path = 'tables/{tableId}/columns/{columnId}';
- _Methodid = 'fusiontables.column.update';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['columnId',columnId,'tableId',tableId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aColumn,TColumn) as TColumn;
- end;
- { --------------------------------------------------------------------
- TQueryResource
- --------------------------------------------------------------------}
- Class Function TQueryResource.ResourceName : String;
- begin
- Result:='query';
- end;
- Class Function TQueryResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TfusiontablesAPI;
- end;
- Function TQueryResource.Sql(AQuery : string = '') : TSqlresponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'query';
- _Methodid = 'fusiontables.query.sql';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TSqlresponse) as TSqlresponse;
- end;
- Function TQueryResource.Sql(AQuery : TQuerysqlOptions) : TSqlresponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'hdrs',AQuery.hdrs);
- AddToQuery(_Q,'sql',AQuery.sql);
- AddToQuery(_Q,'typed',AQuery.typed);
- Result:=Sql(_Q);
- end;
- Function TQueryResource.SqlGet(AQuery : string = '') : TSqlresponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'query';
- _Methodid = 'fusiontables.query.sqlGet';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TSqlresponse) as TSqlresponse;
- end;
- Function TQueryResource.SqlGet(AQuery : TQuerysqlGetOptions) : TSqlresponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'hdrs',AQuery.hdrs);
- AddToQuery(_Q,'sql',AQuery.sql);
- AddToQuery(_Q,'typed',AQuery.typed);
- Result:=SqlGet(_Q);
- end;
- { --------------------------------------------------------------------
- TStyleResource
- --------------------------------------------------------------------}
- Class Function TStyleResource.ResourceName : String;
- begin
- Result:='style';
- end;
- Class Function TStyleResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TfusiontablesAPI;
- end;
- Procedure TStyleResource.Delete(styleId: integer; tableId: string);
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'tables/{tableId}/styles/{styleId}';
- _Methodid = 'fusiontables.style.delete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['styleId',styleId,'tableId',tableId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
- end;
- Function TStyleResource.Get(styleId: integer; tableId: string) : TStyleSetting;
- Const
- _HTTPMethod = 'GET';
- _Path = 'tables/{tableId}/styles/{styleId}';
- _Methodid = 'fusiontables.style.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['styleId',styleId,'tableId',tableId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TStyleSetting) as TStyleSetting;
- end;
- Function TStyleResource.Insert(tableId: string; aStyleSetting : TStyleSetting) : TStyleSetting;
- Const
- _HTTPMethod = 'POST';
- _Path = 'tables/{tableId}/styles';
- _Methodid = 'fusiontables.style.insert';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['tableId',tableId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aStyleSetting,TStyleSetting) as TStyleSetting;
- end;
- Function TStyleResource.List(tableId: string; AQuery : string = '') : TStyleSettingList;
- Const
- _HTTPMethod = 'GET';
- _Path = 'tables/{tableId}/styles';
- _Methodid = 'fusiontables.style.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['tableId',tableId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TStyleSettingList) as TStyleSettingList;
- end;
- Function TStyleResource.List(tableId: string; AQuery : TStylelistOptions) : TStyleSettingList;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- Result:=List(tableId,_Q);
- end;
- Function TStyleResource.Patch(styleId: integer; tableId: string; aStyleSetting : TStyleSetting) : TStyleSetting;
- Const
- _HTTPMethod = 'PATCH';
- _Path = 'tables/{tableId}/styles/{styleId}';
- _Methodid = 'fusiontables.style.patch';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['styleId',styleId,'tableId',tableId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aStyleSetting,TStyleSetting) as TStyleSetting;
- end;
- Function TStyleResource.Update(styleId: integer; tableId: string; aStyleSetting : TStyleSetting) : TStyleSetting;
- Const
- _HTTPMethod = 'PUT';
- _Path = 'tables/{tableId}/styles/{styleId}';
- _Methodid = 'fusiontables.style.update';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['styleId',styleId,'tableId',tableId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aStyleSetting,TStyleSetting) as TStyleSetting;
- end;
- { --------------------------------------------------------------------
- TTableResource
- --------------------------------------------------------------------}
- Class Function TTableResource.ResourceName : String;
- begin
- Result:='table';
- end;
- Class Function TTableResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TfusiontablesAPI;
- end;
- Function TTableResource.Copy(tableId: string; AQuery : string = '') : TTable;
- Const
- _HTTPMethod = 'POST';
- _Path = 'tables/{tableId}/copy';
- _Methodid = 'fusiontables.table.copy';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['tableId',tableId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTable) as TTable;
- end;
- Function TTableResource.Copy(tableId: string; AQuery : TTablecopyOptions) : TTable;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'copyPresentation',AQuery.copyPresentation);
- Result:=Copy(tableId,_Q);
- end;
- Procedure TTableResource.Delete(tableId: string);
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'tables/{tableId}';
- _Methodid = 'fusiontables.table.delete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['tableId',tableId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
- end;
- Function TTableResource.Get(tableId: string) : TTable;
- Const
- _HTTPMethod = 'GET';
- _Path = 'tables/{tableId}';
- _Methodid = 'fusiontables.table.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['tableId',tableId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TTable) as TTable;
- end;
- Function TTableResource.ImportRows(tableId: string; AQuery : string = '') : TImport;
- Const
- _HTTPMethod = 'POST';
- _Path = 'tables/{tableId}/import';
- _Methodid = 'fusiontables.table.importRows';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['tableId',tableId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TImport) as TImport;
- end;
- Function TTableResource.ImportRows(tableId: string; AQuery : TTableimportRowsOptions) : TImport;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'delimiter',AQuery.delimiter);
- AddToQuery(_Q,'encoding',AQuery.encoding);
- AddToQuery(_Q,'endLine',AQuery.endLine);
- AddToQuery(_Q,'isStrict',AQuery.isStrict);
- AddToQuery(_Q,'startLine',AQuery.startLine);
- Result:=ImportRows(tableId,_Q);
- end;
- Function TTableResource.ImportTable(AQuery : string = '') : TTable;
- Const
- _HTTPMethod = 'POST';
- _Path = 'tables/import';
- _Methodid = 'fusiontables.table.importTable';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TTable) as TTable;
- end;
- Function TTableResource.ImportTable(AQuery : TTableimportTableOptions) : TTable;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'delimiter',AQuery.delimiter);
- AddToQuery(_Q,'encoding',AQuery.encoding);
- AddToQuery(_Q,'name',AQuery._name);
- Result:=ImportTable(_Q);
- end;
- Function TTableResource.Insert(aTable : TTable) : TTable;
- Const
- _HTTPMethod = 'POST';
- _Path = 'tables';
- _Methodid = 'fusiontables.table.insert';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aTable,TTable) as TTable;
- end;
- Function TTableResource.List(AQuery : string = '') : TTableList;
- Const
- _HTTPMethod = 'GET';
- _Path = 'tables';
- _Methodid = 'fusiontables.table.list';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TTableList) as TTableList;
- end;
- Function TTableResource.List(AQuery : TTablelistOptions) : TTableList;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- Result:=List(_Q);
- end;
- Function TTableResource.Patch(tableId: string; aTable : TTable; AQuery : string = '') : TTable;
- Const
- _HTTPMethod = 'PATCH';
- _Path = 'tables/{tableId}';
- _Methodid = 'fusiontables.table.patch';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['tableId',tableId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,aTable,TTable) as TTable;
- end;
- Function TTableResource.Patch(tableId: string; aTable : TTable; AQuery : TTablepatchOptions) : TTable;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'replaceViewDefinition',AQuery.replaceViewDefinition);
- Result:=Patch(tableId,aTable,_Q);
- end;
- Function TTableResource.ReplaceRows(tableId: string; AQuery : string = '') : TTask;
- Const
- _HTTPMethod = 'POST';
- _Path = 'tables/{tableId}/replace';
- _Methodid = 'fusiontables.table.replaceRows';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['tableId',tableId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTask) as TTask;
- end;
- Function TTableResource.ReplaceRows(tableId: string; AQuery : TTablereplaceRowsOptions) : TTask;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'delimiter',AQuery.delimiter);
- AddToQuery(_Q,'encoding',AQuery.encoding);
- AddToQuery(_Q,'endLine',AQuery.endLine);
- AddToQuery(_Q,'isStrict',AQuery.isStrict);
- AddToQuery(_Q,'startLine',AQuery.startLine);
- Result:=ReplaceRows(tableId,_Q);
- end;
- Function TTableResource.Update(tableId: string; aTable : TTable; AQuery : string = '') : TTable;
- Const
- _HTTPMethod = 'PUT';
- _Path = 'tables/{tableId}';
- _Methodid = 'fusiontables.table.update';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['tableId',tableId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,aTable,TTable) as TTable;
- end;
- Function TTableResource.Update(tableId: string; aTable : TTable; AQuery : TTableupdateOptions) : TTable;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'replaceViewDefinition',AQuery.replaceViewDefinition);
- Result:=Update(tableId,aTable,_Q);
- end;
- { --------------------------------------------------------------------
- TTaskResource
- --------------------------------------------------------------------}
- Class Function TTaskResource.ResourceName : String;
- begin
- Result:='task';
- end;
- Class Function TTaskResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TfusiontablesAPI;
- end;
- Procedure TTaskResource.Delete(tableId: string; taskId: string);
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'tables/{tableId}/tasks/{taskId}';
- _Methodid = 'fusiontables.task.delete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['tableId',tableId,'taskId',taskId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
- end;
- Function TTaskResource.Get(tableId: string; taskId: string) : TTask;
- Const
- _HTTPMethod = 'GET';
- _Path = 'tables/{tableId}/tasks/{taskId}';
- _Methodid = 'fusiontables.task.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['tableId',tableId,'taskId',taskId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TTask) as TTask;
- end;
- Function TTaskResource.List(tableId: string; AQuery : string = '') : TTaskList;
- Const
- _HTTPMethod = 'GET';
- _Path = 'tables/{tableId}/tasks';
- _Methodid = 'fusiontables.task.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['tableId',tableId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTaskList) as TTaskList;
- end;
- Function TTaskResource.List(tableId: string; AQuery : TTasklistOptions) : TTaskList;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'startIndex',AQuery.startIndex);
- Result:=List(tableId,_Q);
- end;
- { --------------------------------------------------------------------
- TTemplateResource
- --------------------------------------------------------------------}
- Class Function TTemplateResource.ResourceName : String;
- begin
- Result:='template';
- end;
- Class Function TTemplateResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TfusiontablesAPI;
- end;
- Procedure TTemplateResource.Delete(tableId: string; templateId: integer);
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'tables/{tableId}/templates/{templateId}';
- _Methodid = 'fusiontables.template.delete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['tableId',tableId,'templateId',templateId]);
- ServiceCall(_HTTPMethod,_P,'',Nil,Nil);
- end;
- Function TTemplateResource.Get(tableId: string; templateId: integer) : TTemplate;
- Const
- _HTTPMethod = 'GET';
- _Path = 'tables/{tableId}/templates/{templateId}';
- _Methodid = 'fusiontables.template.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['tableId',tableId,'templateId',templateId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',Nil,TTemplate) as TTemplate;
- end;
- Function TTemplateResource.Insert(tableId: string; aTemplate : TTemplate) : TTemplate;
- Const
- _HTTPMethod = 'POST';
- _Path = 'tables/{tableId}/templates';
- _Methodid = 'fusiontables.template.insert';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['tableId',tableId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aTemplate,TTemplate) as TTemplate;
- end;
- Function TTemplateResource.List(tableId: string; AQuery : string = '') : TTemplateList;
- Const
- _HTTPMethod = 'GET';
- _Path = 'tables/{tableId}/templates';
- _Methodid = 'fusiontables.template.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['tableId',tableId]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TTemplateList) as TTemplateList;
- end;
- Function TTemplateResource.List(tableId: string; AQuery : TTemplatelistOptions) : TTemplateList;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'maxResults',AQuery.maxResults);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- Result:=List(tableId,_Q);
- end;
- Function TTemplateResource.Patch(tableId: string; templateId: integer; aTemplate : TTemplate) : TTemplate;
- Const
- _HTTPMethod = 'PATCH';
- _Path = 'tables/{tableId}/templates/{templateId}';
- _Methodid = 'fusiontables.template.patch';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['tableId',tableId,'templateId',templateId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aTemplate,TTemplate) as TTemplate;
- end;
- Function TTemplateResource.Update(tableId: string; templateId: integer; aTemplate : TTemplate) : TTemplate;
- Const
- _HTTPMethod = 'PUT';
- _Path = 'tables/{tableId}/templates/{templateId}';
- _Methodid = 'fusiontables.template.update';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['tableId',tableId,'templateId',templateId]);
- Result:=ServiceCall(_HTTPMethod,_P,'',aTemplate,TTemplate) as TTemplate;
- end;
- { --------------------------------------------------------------------
- TFusiontablesAPI
- --------------------------------------------------------------------}
- Class Function TFusiontablesAPI.APIName : String;
- begin
- Result:='fusiontables';
- end;
- Class Function TFusiontablesAPI.APIVersion : String;
- begin
- Result:='v2';
- end;
- Class Function TFusiontablesAPI.APIRevision : String;
- begin
- Result:='20160317';
- end;
- Class Function TFusiontablesAPI.APIID : String;
- begin
- Result:='fusiontables:v2';
- end;
- Class Function TFusiontablesAPI.APITitle : String;
- begin
- Result:='Fusion Tables API';
- end;
- Class Function TFusiontablesAPI.APIDescription : String;
- begin
- Result:='API for working with Fusion Tables data.';
- end;
- Class Function TFusiontablesAPI.APIOwnerDomain : String;
- begin
- Result:='google.com';
- end;
- Class Function TFusiontablesAPI.APIOwnerName : String;
- begin
- Result:='Google';
- end;
- Class Function TFusiontablesAPI.APIIcon16 : String;
- begin
- Result:='http://www.google.com/images/icons/product/search-16.gif';
- end;
- Class Function TFusiontablesAPI.APIIcon32 : String;
- begin
- Result:='http://www.google.com/images/icons/product/search-32.gif';
- end;
- Class Function TFusiontablesAPI.APIdocumentationLink : String;
- begin
- Result:='https://developers.google.com/fusiontables';
- end;
- Class Function TFusiontablesAPI.APIrootUrl : string;
- begin
- Result:='https://www.googleapis.com/';
- end;
- Class Function TFusiontablesAPI.APIbasePath : string;
- begin
- Result:='/fusiontables/v2/';
- end;
- Class Function TFusiontablesAPI.APIbaseURL : String;
- begin
- Result:='https://www.googleapis.com/fusiontables/v2/';
- end;
- Class Function TFusiontablesAPI.APIProtocol : string;
- begin
- Result:='rest';
- end;
- Class Function TFusiontablesAPI.APIservicePath : string;
- begin
- Result:='fusiontables/v2/';
- end;
- Class Function TFusiontablesAPI.APIbatchPath : String;
- begin
- Result:='batch';
- end;
- Class Function TFusiontablesAPI.APIAuthScopes : TScopeInfoArray;
- begin
- SetLength(Result,2);
- Result[0].Name:='https://www.googleapis.com/auth/fusiontables';
- Result[0].Description:='Manage your Fusion Tables';
- Result[1].Name:='https://www.googleapis.com/auth/fusiontables.readonly';
- Result[1].Description:='View your Fusion Tables';
-
- end;
- Class Function TFusiontablesAPI.APINeedsAuth : Boolean;
- begin
- Result:=True;
- end;
- Class Procedure TFusiontablesAPI.RegisterAPIResources;
- begin
- TBucket.RegisterObject;
- TColumnTypebaseColumn.RegisterObject;
- TColumn.RegisterObject;
- TColumnList.RegisterObject;
- TGeometry.RegisterObject;
- TImport.RegisterObject;
- TLine.RegisterObject;
- TLineStyle.RegisterObject;
- TPoint.RegisterObject;
- TPointStyle.RegisterObject;
- TPolygon.RegisterObject;
- TPolygonStyle.RegisterObject;
- TSqlresponse.RegisterObject;
- TStyleFunctionTypegradientTypecolorsItem.RegisterObject;
- TStyleFunctionTypegradient.RegisterObject;
- TStyleFunction.RegisterObject;
- TStyleSetting.RegisterObject;
- TStyleSettingList.RegisterObject;
- TTable.RegisterObject;
- TTableList.RegisterObject;
- TTask.RegisterObject;
- TTaskList.RegisterObject;
- TTemplate.RegisterObject;
- TTemplateList.RegisterObject;
- end;
- Function TFusiontablesAPI.GetColumnInstance : TColumnResource;
- begin
- if (FColumnInstance=Nil) then
- FColumnInstance:=CreateColumnResource;
- Result:=FColumnInstance;
- end;
- Function TFusiontablesAPI.CreateColumnResource : TColumnResource;
- begin
- Result:=CreateColumnResource(Self);
- end;
- Function TFusiontablesAPI.CreateColumnResource(AOwner : TComponent) : TColumnResource;
- begin
- Result:=TColumnResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TFusiontablesAPI.GetQueryInstance : TQueryResource;
- begin
- if (FQueryInstance=Nil) then
- FQueryInstance:=CreateQueryResource;
- Result:=FQueryInstance;
- end;
- Function TFusiontablesAPI.CreateQueryResource : TQueryResource;
- begin
- Result:=CreateQueryResource(Self);
- end;
- Function TFusiontablesAPI.CreateQueryResource(AOwner : TComponent) : TQueryResource;
- begin
- Result:=TQueryResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TFusiontablesAPI.GetStyleInstance : TStyleResource;
- begin
- if (FStyleInstance=Nil) then
- FStyleInstance:=CreateStyleResource;
- Result:=FStyleInstance;
- end;
- Function TFusiontablesAPI.CreateStyleResource : TStyleResource;
- begin
- Result:=CreateStyleResource(Self);
- end;
- Function TFusiontablesAPI.CreateStyleResource(AOwner : TComponent) : TStyleResource;
- begin
- Result:=TStyleResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TFusiontablesAPI.GetTableInstance : TTableResource;
- begin
- if (FTableInstance=Nil) then
- FTableInstance:=CreateTableResource;
- Result:=FTableInstance;
- end;
- Function TFusiontablesAPI.CreateTableResource : TTableResource;
- begin
- Result:=CreateTableResource(Self);
- end;
- Function TFusiontablesAPI.CreateTableResource(AOwner : TComponent) : TTableResource;
- begin
- Result:=TTableResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TFusiontablesAPI.GetTaskInstance : TTaskResource;
- begin
- if (FTaskInstance=Nil) then
- FTaskInstance:=CreateTaskResource;
- Result:=FTaskInstance;
- end;
- Function TFusiontablesAPI.CreateTaskResource : TTaskResource;
- begin
- Result:=CreateTaskResource(Self);
- end;
- Function TFusiontablesAPI.CreateTaskResource(AOwner : TComponent) : TTaskResource;
- begin
- Result:=TTaskResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TFusiontablesAPI.GetTemplateInstance : TTemplateResource;
- begin
- if (FTemplateInstance=Nil) then
- FTemplateInstance:=CreateTemplateResource;
- Result:=FTemplateInstance;
- end;
- Function TFusiontablesAPI.CreateTemplateResource : TTemplateResource;
- begin
- Result:=CreateTemplateResource(Self);
- end;
- Function TFusiontablesAPI.CreateTemplateResource(AOwner : TComponent) : TTemplateResource;
- begin
- Result:=TTemplateResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- initialization
- TFusiontablesAPI.RegisterAPI;
- end.
|