| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506 |
- unit googleproximitybeacon;
- {$MODE objfpc}
- {$H+}
- interface
- uses sysutils, classes, googleservice, restbase, googlebase;
- type
-
- //Top-level schema types
- TBeacon = Class;
- TAdvertisedId = Class;
- TLatLng = Class;
- TIndoorLevel = Class;
- TEphemeralIdRegistration = Class;
- TEmpty = Class;
- TListBeaconsResponse = Class;
- TBeaconAttachment = Class;
- TListBeaconAttachmentsResponse = Class;
- TDeleteAttachmentsResponse = Class;
- TListNamespacesResponse = Class;
- TNamespace = Class;
- TEphemeralIdRegistrationParams = Class;
- TListDiagnosticsResponse = Class;
- TDiagnostics = Class;
- TDate = Class;
- TGetInfoForObservedBeaconsRequest = Class;
- TObservation = Class;
- TGetInfoForObservedBeaconsResponse = Class;
- TBeaconInfo = Class;
- TAttachmentInfo = Class;
- TBeaconArray = Array of TBeacon;
- TAdvertisedIdArray = Array of TAdvertisedId;
- TLatLngArray = Array of TLatLng;
- TIndoorLevelArray = Array of TIndoorLevel;
- TEphemeralIdRegistrationArray = Array of TEphemeralIdRegistration;
- TEmptyArray = Array of TEmpty;
- TListBeaconsResponseArray = Array of TListBeaconsResponse;
- TBeaconAttachmentArray = Array of TBeaconAttachment;
- TListBeaconAttachmentsResponseArray = Array of TListBeaconAttachmentsResponse;
- TDeleteAttachmentsResponseArray = Array of TDeleteAttachmentsResponse;
- TListNamespacesResponseArray = Array of TListNamespacesResponse;
- TNamespaceArray = Array of TNamespace;
- TEphemeralIdRegistrationParamsArray = Array of TEphemeralIdRegistrationParams;
- TListDiagnosticsResponseArray = Array of TListDiagnosticsResponse;
- TDiagnosticsArray = Array of TDiagnostics;
- TDateArray = Array of TDate;
- TGetInfoForObservedBeaconsRequestArray = Array of TGetInfoForObservedBeaconsRequest;
- TObservationArray = Array of TObservation;
- TGetInfoForObservedBeaconsResponseArray = Array of TGetInfoForObservedBeaconsResponse;
- TBeaconInfoArray = Array of TBeaconInfo;
- TAttachmentInfoArray = Array of TAttachmentInfo;
- //Anonymous types, using auto-generated names
- TBeaconTypeproperties = Class;
- TListBeaconsResponseTypebeaconsArray = Array of TBeacon;
- TListBeaconAttachmentsResponseTypeattachmentsArray = Array of TBeaconAttachment;
- TListNamespacesResponseTypenamespacesArray = Array of TNamespace;
- TListDiagnosticsResponseTypediagnosticsArray = Array of TDiagnostics;
- TGetInfoForObservedBeaconsRequestTypeobservationsArray = Array of TObservation;
- TGetInfoForObservedBeaconsResponseTypebeaconsArray = Array of TBeaconInfo;
- TBeaconInfoTypeattachmentsArray = Array of TAttachmentInfo;
-
- { --------------------------------------------------------------------
- TBeaconTypeproperties
- --------------------------------------------------------------------}
-
- TBeaconTypeproperties = Class(TGoogleBaseObject)
- Private
- Protected
- //Property setters
- Public
- Class Function AllowAdditionalProperties : Boolean; override;
- Published
- end;
- TBeaconTypepropertiesClass = Class of TBeaconTypeproperties;
-
- { --------------------------------------------------------------------
- TBeacon
- --------------------------------------------------------------------}
-
- TBeacon = Class(TGoogleBaseObject)
- Private
- FbeaconName : String;
- FadvertisedId : TAdvertisedId;
- Fstatus : String;
- FplaceId : String;
- FlatLng : TLatLng;
- FindoorLevel : TIndoorLevel;
- FexpectedStability : String;
- Fdescription : String;
- Fproperties : TBeaconTypeproperties;
- FephemeralIdRegistration : TEphemeralIdRegistration;
- FprovisioningKey : String;
- Protected
- //Property setters
- Procedure SetbeaconName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetadvertisedId(AIndex : Integer; const AValue : TAdvertisedId); virtual;
- Procedure Setstatus(AIndex : Integer; const AValue : String); virtual;
- Procedure SetplaceId(AIndex : Integer; const AValue : String); virtual;
- Procedure SetlatLng(AIndex : Integer; const AValue : TLatLng); virtual;
- Procedure SetindoorLevel(AIndex : Integer; const AValue : TIndoorLevel); virtual;
- Procedure SetexpectedStability(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdescription(AIndex : Integer; const AValue : String); virtual;
- Procedure Setproperties(AIndex : Integer; const AValue : TBeaconTypeproperties); virtual;
- Procedure SetephemeralIdRegistration(AIndex : Integer; const AValue : TEphemeralIdRegistration); virtual;
- Procedure SetprovisioningKey(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property beaconName : String Index 0 Read FbeaconName Write SetbeaconName;
- Property advertisedId : TAdvertisedId Index 8 Read FadvertisedId Write SetadvertisedId;
- Property status : String Index 16 Read Fstatus Write Setstatus;
- Property placeId : String Index 24 Read FplaceId Write SetplaceId;
- Property latLng : TLatLng Index 32 Read FlatLng Write SetlatLng;
- Property indoorLevel : TIndoorLevel Index 40 Read FindoorLevel Write SetindoorLevel;
- Property expectedStability : String Index 48 Read FexpectedStability Write SetexpectedStability;
- Property description : String Index 56 Read Fdescription Write Setdescription;
- Property properties : TBeaconTypeproperties Index 64 Read Fproperties Write Setproperties;
- Property ephemeralIdRegistration : TEphemeralIdRegistration Index 72 Read FephemeralIdRegistration Write SetephemeralIdRegistration;
- Property provisioningKey : String Index 80 Read FprovisioningKey Write SetprovisioningKey;
- end;
- TBeaconClass = Class of TBeacon;
-
- { --------------------------------------------------------------------
- TAdvertisedId
- --------------------------------------------------------------------}
-
- TAdvertisedId = Class(TGoogleBaseObject)
- Private
- F_type : String;
- Fid : String;
- Protected
- Class Function ExportPropertyName(Const AName : String) : string; override;
- //Property setters
- Procedure Set_type(AIndex : Integer; const AValue : String); virtual;
- Procedure Setid(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property _type : String Index 0 Read F_type Write Set_type;
- Property id : String Index 8 Read Fid Write Setid;
- end;
- TAdvertisedIdClass = Class of TAdvertisedId;
-
- { --------------------------------------------------------------------
- TLatLng
- --------------------------------------------------------------------}
-
- TLatLng = Class(TGoogleBaseObject)
- Private
- Flatitude : double;
- Flongitude : double;
- Protected
- //Property setters
- Procedure Setlatitude(AIndex : Integer; const AValue : double); virtual;
- Procedure Setlongitude(AIndex : Integer; const AValue : double); virtual;
- Public
- Published
- Property latitude : double Index 0 Read Flatitude Write Setlatitude;
- Property longitude : double Index 8 Read Flongitude Write Setlongitude;
- end;
- TLatLngClass = Class of TLatLng;
-
- { --------------------------------------------------------------------
- TIndoorLevel
- --------------------------------------------------------------------}
-
- TIndoorLevel = Class(TGoogleBaseObject)
- Private
- Fname : String;
- Protected
- //Property setters
- Procedure Setname(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property name : String Index 0 Read Fname Write Setname;
- end;
- TIndoorLevelClass = Class of TIndoorLevel;
-
- { --------------------------------------------------------------------
- TEphemeralIdRegistration
- --------------------------------------------------------------------}
-
- TEphemeralIdRegistration = Class(TGoogleBaseObject)
- Private
- FbeaconEcdhPublicKey : String;
- FserviceEcdhPublicKey : String;
- FbeaconIdentityKey : String;
- FrotationPeriodExponent : integer;
- FinitialClockValue : String;
- FinitialEid : String;
- Protected
- //Property setters
- Procedure SetbeaconEcdhPublicKey(AIndex : Integer; const AValue : String); virtual;
- Procedure SetserviceEcdhPublicKey(AIndex : Integer; const AValue : String); virtual;
- Procedure SetbeaconIdentityKey(AIndex : Integer; const AValue : String); virtual;
- Procedure SetrotationPeriodExponent(AIndex : Integer; const AValue : integer); virtual;
- Procedure SetinitialClockValue(AIndex : Integer; const AValue : String); virtual;
- Procedure SetinitialEid(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property beaconEcdhPublicKey : String Index 0 Read FbeaconEcdhPublicKey Write SetbeaconEcdhPublicKey;
- Property serviceEcdhPublicKey : String Index 8 Read FserviceEcdhPublicKey Write SetserviceEcdhPublicKey;
- Property beaconIdentityKey : String Index 16 Read FbeaconIdentityKey Write SetbeaconIdentityKey;
- Property rotationPeriodExponent : integer Index 24 Read FrotationPeriodExponent Write SetrotationPeriodExponent;
- Property initialClockValue : String Index 32 Read FinitialClockValue Write SetinitialClockValue;
- Property initialEid : String Index 40 Read FinitialEid Write SetinitialEid;
- end;
- TEphemeralIdRegistrationClass = Class of TEphemeralIdRegistration;
-
- { --------------------------------------------------------------------
- TEmpty
- --------------------------------------------------------------------}
-
- TEmpty = Class(TGoogleBaseObject)
- Private
- Protected
- //Property setters
- Public
- Published
- end;
- TEmptyClass = Class of TEmpty;
-
- { --------------------------------------------------------------------
- TListBeaconsResponse
- --------------------------------------------------------------------}
-
- TListBeaconsResponse = Class(TGoogleBaseObject)
- Private
- Fbeacons : TListBeaconsResponseTypebeaconsArray;
- FnextPageToken : String;
- FtotalCount : String;
- Protected
- //Property setters
- Procedure Setbeacons(AIndex : Integer; const AValue : TListBeaconsResponseTypebeaconsArray); virtual;
- Procedure SetnextPageToken(AIndex : Integer; const AValue : String); virtual;
- Procedure SettotalCount(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 beacons : TListBeaconsResponseTypebeaconsArray Index 0 Read Fbeacons Write Setbeacons;
- Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
- Property totalCount : String Index 16 Read FtotalCount Write SettotalCount;
- end;
- TListBeaconsResponseClass = Class of TListBeaconsResponse;
-
- { --------------------------------------------------------------------
- TBeaconAttachment
- --------------------------------------------------------------------}
-
- TBeaconAttachment = Class(TGoogleBaseObject)
- Private
- FattachmentName : String;
- FnamespacedType : String;
- Fdata : String;
- Protected
- //Property setters
- Procedure SetattachmentName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetnamespacedType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdata(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property attachmentName : String Index 0 Read FattachmentName Write SetattachmentName;
- Property namespacedType : String Index 8 Read FnamespacedType Write SetnamespacedType;
- Property data : String Index 16 Read Fdata Write Setdata;
- end;
- TBeaconAttachmentClass = Class of TBeaconAttachment;
-
- { --------------------------------------------------------------------
- TListBeaconAttachmentsResponse
- --------------------------------------------------------------------}
-
- TListBeaconAttachmentsResponse = Class(TGoogleBaseObject)
- Private
- Fattachments : TListBeaconAttachmentsResponseTypeattachmentsArray;
- Protected
- //Property setters
- Procedure Setattachments(AIndex : Integer; const AValue : TListBeaconAttachmentsResponseTypeattachmentsArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property attachments : TListBeaconAttachmentsResponseTypeattachmentsArray Index 0 Read Fattachments Write Setattachments;
- end;
- TListBeaconAttachmentsResponseClass = Class of TListBeaconAttachmentsResponse;
-
- { --------------------------------------------------------------------
- TDeleteAttachmentsResponse
- --------------------------------------------------------------------}
-
- TDeleteAttachmentsResponse = Class(TGoogleBaseObject)
- Private
- FnumDeleted : integer;
- Protected
- //Property setters
- Procedure SetnumDeleted(AIndex : Integer; const AValue : integer); virtual;
- Public
- Published
- Property numDeleted : integer Index 0 Read FnumDeleted Write SetnumDeleted;
- end;
- TDeleteAttachmentsResponseClass = Class of TDeleteAttachmentsResponse;
-
- { --------------------------------------------------------------------
- TListNamespacesResponse
- --------------------------------------------------------------------}
-
- TListNamespacesResponse = Class(TGoogleBaseObject)
- Private
- Fnamespaces : TListNamespacesResponseTypenamespacesArray;
- Protected
- //Property setters
- Procedure Setnamespaces(AIndex : Integer; const AValue : TListNamespacesResponseTypenamespacesArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property namespaces : TListNamespacesResponseTypenamespacesArray Index 0 Read Fnamespaces Write Setnamespaces;
- end;
- TListNamespacesResponseClass = Class of TListNamespacesResponse;
-
- { --------------------------------------------------------------------
- TNamespace
- --------------------------------------------------------------------}
-
- TNamespace = Class(TGoogleBaseObject)
- Private
- FnamespaceName : String;
- FservingVisibility : String;
- Protected
- //Property setters
- Procedure SetnamespaceName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetservingVisibility(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property namespaceName : String Index 0 Read FnamespaceName Write SetnamespaceName;
- Property servingVisibility : String Index 8 Read FservingVisibility Write SetservingVisibility;
- end;
- TNamespaceClass = Class of TNamespace;
-
- { --------------------------------------------------------------------
- TEphemeralIdRegistrationParams
- --------------------------------------------------------------------}
-
- TEphemeralIdRegistrationParams = Class(TGoogleBaseObject)
- Private
- FserviceEcdhPublicKey : String;
- FminRotationPeriodExponent : integer;
- FmaxRotationPeriodExponent : integer;
- Protected
- //Property setters
- Procedure SetserviceEcdhPublicKey(AIndex : Integer; const AValue : String); virtual;
- Procedure SetminRotationPeriodExponent(AIndex : Integer; const AValue : integer); virtual;
- Procedure SetmaxRotationPeriodExponent(AIndex : Integer; const AValue : integer); virtual;
- Public
- Published
- Property serviceEcdhPublicKey : String Index 0 Read FserviceEcdhPublicKey Write SetserviceEcdhPublicKey;
- Property minRotationPeriodExponent : integer Index 8 Read FminRotationPeriodExponent Write SetminRotationPeriodExponent;
- Property maxRotationPeriodExponent : integer Index 16 Read FmaxRotationPeriodExponent Write SetmaxRotationPeriodExponent;
- end;
- TEphemeralIdRegistrationParamsClass = Class of TEphemeralIdRegistrationParams;
-
- { --------------------------------------------------------------------
- TListDiagnosticsResponse
- --------------------------------------------------------------------}
-
- TListDiagnosticsResponse = Class(TGoogleBaseObject)
- Private
- Fdiagnostics : TListDiagnosticsResponseTypediagnosticsArray;
- FnextPageToken : String;
- Protected
- //Property setters
- Procedure Setdiagnostics(AIndex : Integer; const AValue : TListDiagnosticsResponseTypediagnosticsArray); 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 diagnostics : TListDiagnosticsResponseTypediagnosticsArray Index 0 Read Fdiagnostics Write Setdiagnostics;
- Property nextPageToken : String Index 8 Read FnextPageToken Write SetnextPageToken;
- end;
- TListDiagnosticsResponseClass = Class of TListDiagnosticsResponse;
-
- { --------------------------------------------------------------------
- TDiagnostics
- --------------------------------------------------------------------}
-
- TDiagnostics = Class(TGoogleBaseObject)
- Private
- FbeaconName : String;
- FestimatedLowBatteryDate : TDate;
- Falerts : TStringArray;
- Protected
- //Property setters
- Procedure SetbeaconName(AIndex : Integer; const AValue : String); virtual;
- Procedure SetestimatedLowBatteryDate(AIndex : Integer; const AValue : TDate); virtual;
- Procedure Setalerts(AIndex : Integer; const AValue : TStringArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property beaconName : String Index 0 Read FbeaconName Write SetbeaconName;
- Property estimatedLowBatteryDate : TDate Index 8 Read FestimatedLowBatteryDate Write SetestimatedLowBatteryDate;
- Property alerts : TStringArray Index 16 Read Falerts Write Setalerts;
- end;
- TDiagnosticsClass = Class of TDiagnostics;
-
- { --------------------------------------------------------------------
- TDate
- --------------------------------------------------------------------}
-
- TDate = Class(TGoogleBaseObject)
- Private
- Fyear : integer;
- Fmonth : integer;
- Fday : integer;
- Protected
- //Property setters
- Procedure Setyear(AIndex : Integer; const AValue : integer); virtual;
- Procedure Setmonth(AIndex : Integer; const AValue : integer); virtual;
- Procedure Setday(AIndex : Integer; const AValue : integer); virtual;
- Public
- Published
- Property year : integer Index 0 Read Fyear Write Setyear;
- Property month : integer Index 8 Read Fmonth Write Setmonth;
- Property day : integer Index 16 Read Fday Write Setday;
- end;
- TDateClass = Class of TDate;
-
- { --------------------------------------------------------------------
- TGetInfoForObservedBeaconsRequest
- --------------------------------------------------------------------}
-
- TGetInfoForObservedBeaconsRequest = Class(TGoogleBaseObject)
- Private
- Fobservations : TGetInfoForObservedBeaconsRequestTypeobservationsArray;
- FnamespacedTypes : TStringArray;
- Protected
- //Property setters
- Procedure Setobservations(AIndex : Integer; const AValue : TGetInfoForObservedBeaconsRequestTypeobservationsArray); virtual;
- Procedure SetnamespacedTypes(AIndex : Integer; const AValue : TStringArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property observations : TGetInfoForObservedBeaconsRequestTypeobservationsArray Index 0 Read Fobservations Write Setobservations;
- Property namespacedTypes : TStringArray Index 8 Read FnamespacedTypes Write SetnamespacedTypes;
- end;
- TGetInfoForObservedBeaconsRequestClass = Class of TGetInfoForObservedBeaconsRequest;
-
- { --------------------------------------------------------------------
- TObservation
- --------------------------------------------------------------------}
-
- TObservation = Class(TGoogleBaseObject)
- Private
- FadvertisedId : TAdvertisedId;
- Ftelemetry : String;
- FtimestampMs : String;
- Protected
- //Property setters
- Procedure SetadvertisedId(AIndex : Integer; const AValue : TAdvertisedId); virtual;
- Procedure Settelemetry(AIndex : Integer; const AValue : String); virtual;
- Procedure SettimestampMs(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property advertisedId : TAdvertisedId Index 0 Read FadvertisedId Write SetadvertisedId;
- Property telemetry : String Index 8 Read Ftelemetry Write Settelemetry;
- Property timestampMs : String Index 16 Read FtimestampMs Write SettimestampMs;
- end;
- TObservationClass = Class of TObservation;
-
- { --------------------------------------------------------------------
- TGetInfoForObservedBeaconsResponse
- --------------------------------------------------------------------}
-
- TGetInfoForObservedBeaconsResponse = Class(TGoogleBaseObject)
- Private
- Fbeacons : TGetInfoForObservedBeaconsResponseTypebeaconsArray;
- Protected
- //Property setters
- Procedure Setbeacons(AIndex : Integer; const AValue : TGetInfoForObservedBeaconsResponseTypebeaconsArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property beacons : TGetInfoForObservedBeaconsResponseTypebeaconsArray Index 0 Read Fbeacons Write Setbeacons;
- end;
- TGetInfoForObservedBeaconsResponseClass = Class of TGetInfoForObservedBeaconsResponse;
-
- { --------------------------------------------------------------------
- TBeaconInfo
- --------------------------------------------------------------------}
-
- TBeaconInfo = Class(TGoogleBaseObject)
- Private
- FadvertisedId : TAdvertisedId;
- FbeaconName : String;
- Fattachments : TBeaconInfoTypeattachmentsArray;
- Protected
- //Property setters
- Procedure SetadvertisedId(AIndex : Integer; const AValue : TAdvertisedId); virtual;
- Procedure SetbeaconName(AIndex : Integer; const AValue : String); virtual;
- Procedure Setattachments(AIndex : Integer; const AValue : TBeaconInfoTypeattachmentsArray); virtual;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure SetArrayLength(Const AName : String; ALength : Longint); override;
- {$ENDIF VER2_6}
- Public
- Published
- Property advertisedId : TAdvertisedId Index 0 Read FadvertisedId Write SetadvertisedId;
- Property beaconName : String Index 8 Read FbeaconName Write SetbeaconName;
- Property attachments : TBeaconInfoTypeattachmentsArray Index 16 Read Fattachments Write Setattachments;
- end;
- TBeaconInfoClass = Class of TBeaconInfo;
-
- { --------------------------------------------------------------------
- TAttachmentInfo
- --------------------------------------------------------------------}
-
- TAttachmentInfo = Class(TGoogleBaseObject)
- Private
- FnamespacedType : String;
- Fdata : String;
- Protected
- //Property setters
- Procedure SetnamespacedType(AIndex : Integer; const AValue : String); virtual;
- Procedure Setdata(AIndex : Integer; const AValue : String); virtual;
- Public
- Published
- Property namespacedType : String Index 0 Read FnamespacedType Write SetnamespacedType;
- Property data : String Index 8 Read Fdata Write Setdata;
- end;
- TAttachmentInfoClass = Class of TAttachmentInfo;
-
- { --------------------------------------------------------------------
- TBeaconsAttachmentsResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TBeaconsAttachmentsResource, method Create
-
- TBeaconsAttachmentsCreateOptions = Record
- projectId : String;
- end;
-
-
- //Optional query Options for TBeaconsAttachmentsResource, method List
-
- TBeaconsAttachmentsListOptions = Record
- namespacedType : String;
- projectId : String;
- end;
-
-
- //Optional query Options for TBeaconsAttachmentsResource, method Delete
-
- TBeaconsAttachmentsDeleteOptions = Record
- projectId : String;
- end;
-
-
- //Optional query Options for TBeaconsAttachmentsResource, method BatchDelete
-
- TBeaconsAttachmentsBatchDeleteOptions = Record
- namespacedType : String;
- projectId : String;
- end;
-
- TBeaconsAttachmentsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Create(beaconName: string; aBeaconAttachment : TBeaconAttachment; AQuery : string = '') : TBeaconAttachment;overload;
- Function Create(beaconName: string; aBeaconAttachment : TBeaconAttachment; AQuery : TBeaconsAttachmentscreateOptions) : TBeaconAttachment;overload;
- Function List(beaconName: string; AQuery : string = '') : TListBeaconAttachmentsResponse;
- Function List(beaconName: string; AQuery : TBeaconsAttachmentslistOptions) : TListBeaconAttachmentsResponse;
- Function Delete(attachmentName: string; AQuery : string = '') : TEmpty;
- Function Delete(attachmentName: string; AQuery : TBeaconsAttachmentsdeleteOptions) : TEmpty;
- Function BatchDelete(beaconName: string; AQuery : string = '') : TDeleteAttachmentsResponse;
- Function BatchDelete(beaconName: string; AQuery : TBeaconsAttachmentsbatchDeleteOptions) : TDeleteAttachmentsResponse;
- end;
-
-
- { --------------------------------------------------------------------
- TBeaconsDiagnosticsResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TBeaconsDiagnosticsResource, method List
-
- TBeaconsDiagnosticsListOptions = Record
- pageSize : integer;
- pageToken : String;
- alertFilter : String;
- projectId : String;
- end;
-
- TBeaconsDiagnosticsResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function List(beaconName: string; AQuery : string = '') : TListDiagnosticsResponse;
- Function List(beaconName: string; AQuery : TBeaconsDiagnosticslistOptions) : TListDiagnosticsResponse;
- end;
-
-
- { --------------------------------------------------------------------
- TBeaconsResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TBeaconsResource, method Register
-
- TBeaconsRegisterOptions = Record
- projectId : String;
- end;
-
-
- //Optional query Options for TBeaconsResource, method Decommission
-
- TBeaconsDecommissionOptions = Record
- projectId : String;
- end;
-
-
- //Optional query Options for TBeaconsResource, method Get
-
- TBeaconsGetOptions = Record
- projectId : String;
- end;
-
-
- //Optional query Options for TBeaconsResource, method List
-
- TBeaconsListOptions = Record
- q : String;
- pageToken : String;
- pageSize : integer;
- projectId : String;
- end;
-
-
- //Optional query Options for TBeaconsResource, method Update
-
- TBeaconsUpdateOptions = Record
- projectId : String;
- end;
-
-
- //Optional query Options for TBeaconsResource, method Activate
-
- TBeaconsActivateOptions = Record
- projectId : String;
- end;
-
-
- //Optional query Options for TBeaconsResource, method Deactivate
-
- TBeaconsDeactivateOptions = Record
- projectId : String;
- end;
-
- TBeaconsResource = Class(TGoogleResource)
- Private
- FAttachmentsInstance : TBeaconsAttachmentsResource;
- FDiagnosticsInstance : TBeaconsDiagnosticsResource;
- Function GetAttachmentsInstance : TBeaconsAttachmentsResource;virtual;
- Function GetDiagnosticsInstance : TBeaconsDiagnosticsResource;virtual;
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Register(aBeacon : TBeacon; AQuery : string = '') : TBeacon;
- Function Register(aBeacon : TBeacon; AQuery : TBeaconsregisterOptions) : TBeacon;
- Function Decommission(beaconName: string; AQuery : string = '') : TEmpty;
- Function Decommission(beaconName: string; AQuery : TBeaconsdecommissionOptions) : TEmpty;
- Function Get(beaconName: string; AQuery : string = '') : TBeacon;
- Function Get(beaconName: string; AQuery : TBeaconsgetOptions) : TBeacon;
- Function List(AQuery : string = '') : TListBeaconsResponse;
- Function List(AQuery : TBeaconslistOptions) : TListBeaconsResponse;
- Function Update(beaconName: string; aBeacon : TBeacon; AQuery : string = '') : TBeacon;
- Function Update(beaconName: string; aBeacon : TBeacon; AQuery : TBeaconsupdateOptions) : TBeacon;
- Function Activate(beaconName: string; AQuery : string = '') : TEmpty;
- Function Activate(beaconName: string; AQuery : TBeaconsactivateOptions) : TEmpty;
- Function Deactivate(beaconName: string; AQuery : string = '') : TEmpty;
- Function Deactivate(beaconName: string; AQuery : TBeaconsdeactivateOptions) : TEmpty;
- Function CreateAttachmentsResource(AOwner : TComponent) : TBeaconsAttachmentsResource;virtual;overload;
- Function CreateAttachmentsResource : TBeaconsAttachmentsResource;virtual;overload;
- Function CreateDiagnosticsResource(AOwner : TComponent) : TBeaconsDiagnosticsResource;virtual;overload;
- Function CreateDiagnosticsResource : TBeaconsDiagnosticsResource;virtual;overload;
- Property AttachmentsResource : TBeaconsAttachmentsResource Read GetAttachmentsInstance;
- Property DiagnosticsResource : TBeaconsDiagnosticsResource Read GetDiagnosticsInstance;
- end;
-
-
- { --------------------------------------------------------------------
- TNamespacesResource
- --------------------------------------------------------------------}
-
-
- //Optional query Options for TNamespacesResource, method List
-
- TNamespacesListOptions = Record
- projectId : String;
- end;
-
-
- //Optional query Options for TNamespacesResource, method Update
-
- TNamespacesUpdateOptions = Record
- projectId : String;
- end;
-
- TNamespacesResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function List(AQuery : string = '') : TListNamespacesResponse;
- Function List(AQuery : TNamespaceslistOptions) : TListNamespacesResponse;
- Function Update(namespaceName: string; aNamespace : TNamespace; AQuery : string = '') : TNamespace;
- Function Update(namespaceName: string; aNamespace : TNamespace; AQuery : TNamespacesupdateOptions) : TNamespace;
- end;
-
-
- { --------------------------------------------------------------------
- TV1beta1Resource
- --------------------------------------------------------------------}
-
- TV1beta1Resource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function GetEidparams : TEphemeralIdRegistrationParams;
- end;
-
-
- { --------------------------------------------------------------------
- TBeaconinfoResource
- --------------------------------------------------------------------}
-
- TBeaconinfoResource = Class(TGoogleResource)
- Public
- Class Function ResourceName : String; override;
- Class Function DefaultAPI : TGoogleAPIClass; override;
- Function Getforobserved(aGetInfoForObservedBeaconsRequest : TGetInfoForObservedBeaconsRequest) : TGetInfoForObservedBeaconsResponse;
- end;
-
-
- { --------------------------------------------------------------------
- TProximitybeaconAPI
- --------------------------------------------------------------------}
-
- TProximitybeaconAPI = Class(TGoogleAPI)
- Private
- FBeaconsAttachmentsInstance : TBeaconsAttachmentsResource;
- FBeaconsDiagnosticsInstance : TBeaconsDiagnosticsResource;
- FBeaconsInstance : TBeaconsResource;
- FNamespacesInstance : TNamespacesResource;
- FV1beta1Instance : TV1beta1Resource;
- FBeaconinfoInstance : TBeaconinfoResource;
- Function GetBeaconsAttachmentsInstance : TBeaconsAttachmentsResource;virtual;
- Function GetBeaconsDiagnosticsInstance : TBeaconsDiagnosticsResource;virtual;
- Function GetBeaconsInstance : TBeaconsResource;virtual;
- Function GetNamespacesInstance : TNamespacesResource;virtual;
- Function GetV1beta1Instance : TV1beta1Resource;virtual;
- Function GetBeaconinfoInstance : TBeaconinfoResource;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 CreateBeaconsAttachmentsResource(AOwner : TComponent) : TBeaconsAttachmentsResource;virtual;overload;
- Function CreateBeaconsAttachmentsResource : TBeaconsAttachmentsResource;virtual;overload;
- Function CreateBeaconsDiagnosticsResource(AOwner : TComponent) : TBeaconsDiagnosticsResource;virtual;overload;
- Function CreateBeaconsDiagnosticsResource : TBeaconsDiagnosticsResource;virtual;overload;
- Function CreateBeaconsResource(AOwner : TComponent) : TBeaconsResource;virtual;overload;
- Function CreateBeaconsResource : TBeaconsResource;virtual;overload;
- Function CreateNamespacesResource(AOwner : TComponent) : TNamespacesResource;virtual;overload;
- Function CreateNamespacesResource : TNamespacesResource;virtual;overload;
- Function CreateV1beta1Resource(AOwner : TComponent) : TV1beta1Resource;virtual;overload;
- Function CreateV1beta1Resource : TV1beta1Resource;virtual;overload;
- Function CreateBeaconinfoResource(AOwner : TComponent) : TBeaconinfoResource;virtual;overload;
- Function CreateBeaconinfoResource : TBeaconinfoResource;virtual;overload;
- //Add default on-demand instances for resources
- Property BeaconsAttachmentsResource : TBeaconsAttachmentsResource Read GetBeaconsAttachmentsInstance;
- Property BeaconsDiagnosticsResource : TBeaconsDiagnosticsResource Read GetBeaconsDiagnosticsInstance;
- Property BeaconsResource : TBeaconsResource Read GetBeaconsInstance;
- Property NamespacesResource : TNamespacesResource Read GetNamespacesInstance;
- Property V1beta1Resource : TV1beta1Resource Read GetV1beta1Instance;
- Property BeaconinfoResource : TBeaconinfoResource Read GetBeaconinfoInstance;
- end;
- implementation
- { --------------------------------------------------------------------
- TBeaconTypeproperties
- --------------------------------------------------------------------}
- Class Function TBeaconTypeproperties.AllowAdditionalProperties : Boolean;
- begin
- Result:=True;
- end;
- { --------------------------------------------------------------------
- TBeacon
- --------------------------------------------------------------------}
- Procedure TBeacon.SetbeaconName(AIndex : Integer; const AValue : String);
- begin
- If (FbeaconName=AValue) then exit;
- FbeaconName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TBeacon.SetadvertisedId(AIndex : Integer; const AValue : TAdvertisedId);
- begin
- If (FadvertisedId=AValue) then exit;
- FadvertisedId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TBeacon.Setstatus(AIndex : Integer; const AValue : String);
- begin
- If (Fstatus=AValue) then exit;
- Fstatus:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TBeacon.SetplaceId(AIndex : Integer; const AValue : String);
- begin
- If (FplaceId=AValue) then exit;
- FplaceId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TBeacon.SetlatLng(AIndex : Integer; const AValue : TLatLng);
- begin
- If (FlatLng=AValue) then exit;
- FlatLng:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TBeacon.SetindoorLevel(AIndex : Integer; const AValue : TIndoorLevel);
- begin
- If (FindoorLevel=AValue) then exit;
- FindoorLevel:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TBeacon.SetexpectedStability(AIndex : Integer; const AValue : String);
- begin
- If (FexpectedStability=AValue) then exit;
- FexpectedStability:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TBeacon.Setdescription(AIndex : Integer; const AValue : String);
- begin
- If (Fdescription=AValue) then exit;
- Fdescription:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TBeacon.Setproperties(AIndex : Integer; const AValue : TBeaconTypeproperties);
- begin
- If (Fproperties=AValue) then exit;
- Fproperties:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TBeacon.SetephemeralIdRegistration(AIndex : Integer; const AValue : TEphemeralIdRegistration);
- begin
- If (FephemeralIdRegistration=AValue) then exit;
- FephemeralIdRegistration:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TBeacon.SetprovisioningKey(AIndex : Integer; const AValue : String);
- begin
- If (FprovisioningKey=AValue) then exit;
- FprovisioningKey:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TAdvertisedId
- --------------------------------------------------------------------}
- Procedure TAdvertisedId.Set_type(AIndex : Integer; const AValue : String);
- begin
- If (F_type=AValue) then exit;
- F_type:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAdvertisedId.Setid(AIndex : Integer; const AValue : String);
- begin
- If (Fid=AValue) then exit;
- Fid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Class Function TAdvertisedId.ExportPropertyName(Const AName : String) :String;
- begin
- Case AName of
- '_type' : Result:='type';
- else
- Result:=Inherited ExportPropertyName(AName);
- end;
- end;
- { --------------------------------------------------------------------
- TLatLng
- --------------------------------------------------------------------}
- Procedure TLatLng.Setlatitude(AIndex : Integer; const AValue : double);
- begin
- If (Flatitude=AValue) then exit;
- Flatitude:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TLatLng.Setlongitude(AIndex : Integer; const AValue : double);
- begin
- If (Flongitude=AValue) then exit;
- Flongitude:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TIndoorLevel
- --------------------------------------------------------------------}
- Procedure TIndoorLevel.Setname(AIndex : Integer; const AValue : String);
- begin
- If (Fname=AValue) then exit;
- Fname:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TEphemeralIdRegistration
- --------------------------------------------------------------------}
- Procedure TEphemeralIdRegistration.SetbeaconEcdhPublicKey(AIndex : Integer; const AValue : String);
- begin
- If (FbeaconEcdhPublicKey=AValue) then exit;
- FbeaconEcdhPublicKey:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEphemeralIdRegistration.SetserviceEcdhPublicKey(AIndex : Integer; const AValue : String);
- begin
- If (FserviceEcdhPublicKey=AValue) then exit;
- FserviceEcdhPublicKey:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEphemeralIdRegistration.SetbeaconIdentityKey(AIndex : Integer; const AValue : String);
- begin
- If (FbeaconIdentityKey=AValue) then exit;
- FbeaconIdentityKey:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEphemeralIdRegistration.SetrotationPeriodExponent(AIndex : Integer; const AValue : integer);
- begin
- If (FrotationPeriodExponent=AValue) then exit;
- FrotationPeriodExponent:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEphemeralIdRegistration.SetinitialClockValue(AIndex : Integer; const AValue : String);
- begin
- If (FinitialClockValue=AValue) then exit;
- FinitialClockValue:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEphemeralIdRegistration.SetinitialEid(AIndex : Integer; const AValue : String);
- begin
- If (FinitialEid=AValue) then exit;
- FinitialEid:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TEmpty
- --------------------------------------------------------------------}
- { --------------------------------------------------------------------
- TListBeaconsResponse
- --------------------------------------------------------------------}
- Procedure TListBeaconsResponse.Setbeacons(AIndex : Integer; const AValue : TListBeaconsResponseTypebeaconsArray);
- begin
- If (Fbeacons=AValue) then exit;
- Fbeacons:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TListBeaconsResponse.SetnextPageToken(AIndex : Integer; const AValue : String);
- begin
- If (FnextPageToken=AValue) then exit;
- FnextPageToken:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TListBeaconsResponse.SettotalCount(AIndex : Integer; const AValue : String);
- begin
- If (FtotalCount=AValue) then exit;
- FtotalCount:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TListBeaconsResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'beacons' : SetLength(Fbeacons,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TBeaconAttachment
- --------------------------------------------------------------------}
- Procedure TBeaconAttachment.SetattachmentName(AIndex : Integer; const AValue : String);
- begin
- If (FattachmentName=AValue) then exit;
- FattachmentName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TBeaconAttachment.SetnamespacedType(AIndex : Integer; const AValue : String);
- begin
- If (FnamespacedType=AValue) then exit;
- FnamespacedType:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TBeaconAttachment.Setdata(AIndex : Integer; const AValue : String);
- begin
- If (Fdata=AValue) then exit;
- Fdata:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TListBeaconAttachmentsResponse
- --------------------------------------------------------------------}
- Procedure TListBeaconAttachmentsResponse.Setattachments(AIndex : Integer; const AValue : TListBeaconAttachmentsResponseTypeattachmentsArray);
- begin
- If (Fattachments=AValue) then exit;
- Fattachments:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TListBeaconAttachmentsResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'attachments' : SetLength(Fattachments,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TDeleteAttachmentsResponse
- --------------------------------------------------------------------}
- Procedure TDeleteAttachmentsResponse.SetnumDeleted(AIndex : Integer; const AValue : integer);
- begin
- If (FnumDeleted=AValue) then exit;
- FnumDeleted:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TListNamespacesResponse
- --------------------------------------------------------------------}
- Procedure TListNamespacesResponse.Setnamespaces(AIndex : Integer; const AValue : TListNamespacesResponseTypenamespacesArray);
- begin
- If (Fnamespaces=AValue) then exit;
- Fnamespaces:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TListNamespacesResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'namespaces' : SetLength(Fnamespaces,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TNamespace
- --------------------------------------------------------------------}
- Procedure TNamespace.SetnamespaceName(AIndex : Integer; const AValue : String);
- begin
- If (FnamespaceName=AValue) then exit;
- FnamespaceName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TNamespace.SetservingVisibility(AIndex : Integer; const AValue : String);
- begin
- If (FservingVisibility=AValue) then exit;
- FservingVisibility:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TEphemeralIdRegistrationParams
- --------------------------------------------------------------------}
- Procedure TEphemeralIdRegistrationParams.SetserviceEcdhPublicKey(AIndex : Integer; const AValue : String);
- begin
- If (FserviceEcdhPublicKey=AValue) then exit;
- FserviceEcdhPublicKey:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEphemeralIdRegistrationParams.SetminRotationPeriodExponent(AIndex : Integer; const AValue : integer);
- begin
- If (FminRotationPeriodExponent=AValue) then exit;
- FminRotationPeriodExponent:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TEphemeralIdRegistrationParams.SetmaxRotationPeriodExponent(AIndex : Integer; const AValue : integer);
- begin
- If (FmaxRotationPeriodExponent=AValue) then exit;
- FmaxRotationPeriodExponent:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TListDiagnosticsResponse
- --------------------------------------------------------------------}
- Procedure TListDiagnosticsResponse.Setdiagnostics(AIndex : Integer; const AValue : TListDiagnosticsResponseTypediagnosticsArray);
- begin
- If (Fdiagnostics=AValue) then exit;
- Fdiagnostics:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TListDiagnosticsResponse.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 TListDiagnosticsResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'diagnostics' : SetLength(Fdiagnostics,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TDiagnostics
- --------------------------------------------------------------------}
- Procedure TDiagnostics.SetbeaconName(AIndex : Integer; const AValue : String);
- begin
- If (FbeaconName=AValue) then exit;
- FbeaconName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TDiagnostics.SetestimatedLowBatteryDate(AIndex : Integer; const AValue : TDate);
- begin
- If (FestimatedLowBatteryDate=AValue) then exit;
- FestimatedLowBatteryDate:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TDiagnostics.Setalerts(AIndex : Integer; const AValue : TStringArray);
- begin
- If (Falerts=AValue) then exit;
- Falerts:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TDiagnostics.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'alerts' : SetLength(Falerts,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TDate
- --------------------------------------------------------------------}
- Procedure TDate.Setyear(AIndex : Integer; const AValue : integer);
- begin
- If (Fyear=AValue) then exit;
- Fyear:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TDate.Setmonth(AIndex : Integer; const AValue : integer);
- begin
- If (Fmonth=AValue) then exit;
- Fmonth:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TDate.Setday(AIndex : Integer; const AValue : integer);
- begin
- If (Fday=AValue) then exit;
- Fday:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TGetInfoForObservedBeaconsRequest
- --------------------------------------------------------------------}
- Procedure TGetInfoForObservedBeaconsRequest.Setobservations(AIndex : Integer; const AValue : TGetInfoForObservedBeaconsRequestTypeobservationsArray);
- begin
- If (Fobservations=AValue) then exit;
- Fobservations:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TGetInfoForObservedBeaconsRequest.SetnamespacedTypes(AIndex : Integer; const AValue : TStringArray);
- begin
- If (FnamespacedTypes=AValue) then exit;
- FnamespacedTypes:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TGetInfoForObservedBeaconsRequest.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'observations' : SetLength(Fobservations,ALength);
- 'namespacedtypes' : SetLength(FnamespacedTypes,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TObservation
- --------------------------------------------------------------------}
- Procedure TObservation.SetadvertisedId(AIndex : Integer; const AValue : TAdvertisedId);
- begin
- If (FadvertisedId=AValue) then exit;
- FadvertisedId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TObservation.Settelemetry(AIndex : Integer; const AValue : String);
- begin
- If (Ftelemetry=AValue) then exit;
- Ftelemetry:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TObservation.SettimestampMs(AIndex : Integer; const AValue : String);
- begin
- If (FtimestampMs=AValue) then exit;
- FtimestampMs:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TGetInfoForObservedBeaconsResponse
- --------------------------------------------------------------------}
- Procedure TGetInfoForObservedBeaconsResponse.Setbeacons(AIndex : Integer; const AValue : TGetInfoForObservedBeaconsResponseTypebeaconsArray);
- begin
- If (Fbeacons=AValue) then exit;
- Fbeacons:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TGetInfoForObservedBeaconsResponse.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'beacons' : SetLength(Fbeacons,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TBeaconInfo
- --------------------------------------------------------------------}
- Procedure TBeaconInfo.SetadvertisedId(AIndex : Integer; const AValue : TAdvertisedId);
- begin
- If (FadvertisedId=AValue) then exit;
- FadvertisedId:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TBeaconInfo.SetbeaconName(AIndex : Integer; const AValue : String);
- begin
- If (FbeaconName=AValue) then exit;
- FbeaconName:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TBeaconInfo.Setattachments(AIndex : Integer; const AValue : TBeaconInfoTypeattachmentsArray);
- begin
- If (Fattachments=AValue) then exit;
- Fattachments:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- //2.6.4. bug workaround
- {$IFDEF VER2_6}
- Procedure TBeaconInfo.SetArrayLength(Const AName : String; ALength : Longint);
- begin
- Case AName of
- 'attachments' : SetLength(Fattachments,ALength);
- else
- Inherited SetArrayLength(AName,ALength);
- end;
- end;
- {$ENDIF VER2_6}
- { --------------------------------------------------------------------
- TAttachmentInfo
- --------------------------------------------------------------------}
- Procedure TAttachmentInfo.SetnamespacedType(AIndex : Integer; const AValue : String);
- begin
- If (FnamespacedType=AValue) then exit;
- FnamespacedType:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- Procedure TAttachmentInfo.Setdata(AIndex : Integer; const AValue : String);
- begin
- If (Fdata=AValue) then exit;
- Fdata:=AValue;
- MarkPropertyChanged(AIndex);
- end;
- { --------------------------------------------------------------------
- TBeaconsAttachmentsResource
- --------------------------------------------------------------------}
- Class Function TBeaconsAttachmentsResource.ResourceName : String;
- begin
- Result:='attachments';
- end;
- Class Function TBeaconsAttachmentsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TproximitybeaconAPI;
- end;
- Function TBeaconsAttachmentsResource.Create(beaconName: string; aBeaconAttachment : TBeaconAttachment; AQuery : string = '') : TBeaconAttachment;
- Const
- _HTTPMethod = 'POST';
- _Path = 'v1beta1/{+beaconName}/attachments';
- _Methodid = 'proximitybeacon.beacons.attachments.create';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['beaconName',beaconName]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,aBeaconAttachment,TBeaconAttachment) as TBeaconAttachment;
- end;
- Function TBeaconsAttachmentsResource.Create(beaconName: string; aBeaconAttachment : TBeaconAttachment; AQuery : TBeaconsAttachmentscreateOptions) : TBeaconAttachment;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'projectId',AQuery.projectId);
- Result:=Create(beaconName,aBeaconAttachment,_Q);
- end;
- Function TBeaconsAttachmentsResource.List(beaconName: string; AQuery : string = '') : TListBeaconAttachmentsResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'v1beta1/{+beaconName}/attachments';
- _Methodid = 'proximitybeacon.beacons.attachments.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['beaconName',beaconName]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListBeaconAttachmentsResponse) as TListBeaconAttachmentsResponse;
- end;
- Function TBeaconsAttachmentsResource.List(beaconName: string; AQuery : TBeaconsAttachmentslistOptions) : TListBeaconAttachmentsResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'namespacedType',AQuery.namespacedType);
- AddToQuery(_Q,'projectId',AQuery.projectId);
- Result:=List(beaconName,_Q);
- end;
- Function TBeaconsAttachmentsResource.Delete(attachmentName: string; AQuery : string = '') : TEmpty;
- Const
- _HTTPMethod = 'DELETE';
- _Path = 'v1beta1/{+attachmentName}';
- _Methodid = 'proximitybeacon.beacons.attachments.delete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['attachmentName',attachmentName]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TEmpty) as TEmpty;
- end;
- Function TBeaconsAttachmentsResource.Delete(attachmentName: string; AQuery : TBeaconsAttachmentsdeleteOptions) : TEmpty;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'projectId',AQuery.projectId);
- Result:=Delete(attachmentName,_Q);
- end;
- Function TBeaconsAttachmentsResource.BatchDelete(beaconName: string; AQuery : string = '') : TDeleteAttachmentsResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'v1beta1/{+beaconName}/attachments:batchDelete';
- _Methodid = 'proximitybeacon.beacons.attachments.batchDelete';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['beaconName',beaconName]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TDeleteAttachmentsResponse) as TDeleteAttachmentsResponse;
- end;
- Function TBeaconsAttachmentsResource.BatchDelete(beaconName: string; AQuery : TBeaconsAttachmentsbatchDeleteOptions) : TDeleteAttachmentsResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'namespacedType',AQuery.namespacedType);
- AddToQuery(_Q,'projectId',AQuery.projectId);
- Result:=BatchDelete(beaconName,_Q);
- end;
- { --------------------------------------------------------------------
- TBeaconsDiagnosticsResource
- --------------------------------------------------------------------}
- Class Function TBeaconsDiagnosticsResource.ResourceName : String;
- begin
- Result:='diagnostics';
- end;
- Class Function TBeaconsDiagnosticsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TproximitybeaconAPI;
- end;
- Function TBeaconsDiagnosticsResource.List(beaconName: string; AQuery : string = '') : TListDiagnosticsResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'v1beta1/{+beaconName}/diagnostics';
- _Methodid = 'proximitybeacon.beacons.diagnostics.list';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['beaconName',beaconName]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TListDiagnosticsResponse) as TListDiagnosticsResponse;
- end;
- Function TBeaconsDiagnosticsResource.List(beaconName: string; AQuery : TBeaconsDiagnosticslistOptions) : TListDiagnosticsResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'pageSize',AQuery.pageSize);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'alertFilter',AQuery.alertFilter);
- AddToQuery(_Q,'projectId',AQuery.projectId);
- Result:=List(beaconName,_Q);
- end;
- { --------------------------------------------------------------------
- TBeaconsResource
- --------------------------------------------------------------------}
- Class Function TBeaconsResource.ResourceName : String;
- begin
- Result:='beacons';
- end;
- Class Function TBeaconsResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TproximitybeaconAPI;
- end;
- Function TBeaconsResource.Register(aBeacon : TBeacon; AQuery : string = '') : TBeacon;
- Const
- _HTTPMethod = 'POST';
- _Path = 'v1beta1/beacons:register';
- _Methodid = 'proximitybeacon.beacons.register';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,AQuery,aBeacon,TBeacon) as TBeacon;
- end;
- Function TBeaconsResource.Register(aBeacon : TBeacon; AQuery : TBeaconsregisterOptions) : TBeacon;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'projectId',AQuery.projectId);
- Result:=Register(aBeacon,_Q);
- end;
- Function TBeaconsResource.Decommission(beaconName: string; AQuery : string = '') : TEmpty;
- Const
- _HTTPMethod = 'POST';
- _Path = 'v1beta1/{+beaconName}:decommission';
- _Methodid = 'proximitybeacon.beacons.decommission';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['beaconName',beaconName]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TEmpty) as TEmpty;
- end;
- Function TBeaconsResource.Decommission(beaconName: string; AQuery : TBeaconsdecommissionOptions) : TEmpty;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'projectId',AQuery.projectId);
- Result:=Decommission(beaconName,_Q);
- end;
- Function TBeaconsResource.Get(beaconName: string; AQuery : string = '') : TBeacon;
- Const
- _HTTPMethod = 'GET';
- _Path = 'v1beta1/{+beaconName}';
- _Methodid = 'proximitybeacon.beacons.get';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['beaconName',beaconName]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TBeacon) as TBeacon;
- end;
- Function TBeaconsResource.Get(beaconName: string; AQuery : TBeaconsgetOptions) : TBeacon;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'projectId',AQuery.projectId);
- Result:=Get(beaconName,_Q);
- end;
- Function TBeaconsResource.List(AQuery : string = '') : TListBeaconsResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'v1beta1/beacons';
- _Methodid = 'proximitybeacon.beacons.list';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TListBeaconsResponse) as TListBeaconsResponse;
- end;
- Function TBeaconsResource.List(AQuery : TBeaconslistOptions) : TListBeaconsResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'q',AQuery.q);
- AddToQuery(_Q,'pageToken',AQuery.pageToken);
- AddToQuery(_Q,'pageSize',AQuery.pageSize);
- AddToQuery(_Q,'projectId',AQuery.projectId);
- Result:=List(_Q);
- end;
- Function TBeaconsResource.Update(beaconName: string; aBeacon : TBeacon; AQuery : string = '') : TBeacon;
- Const
- _HTTPMethod = 'PUT';
- _Path = 'v1beta1/{+beaconName}';
- _Methodid = 'proximitybeacon.beacons.update';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['beaconName',beaconName]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,aBeacon,TBeacon) as TBeacon;
- end;
- Function TBeaconsResource.Update(beaconName: string; aBeacon : TBeacon; AQuery : TBeaconsupdateOptions) : TBeacon;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'projectId',AQuery.projectId);
- Result:=Update(beaconName,aBeacon,_Q);
- end;
- Function TBeaconsResource.Activate(beaconName: string; AQuery : string = '') : TEmpty;
- Const
- _HTTPMethod = 'POST';
- _Path = 'v1beta1/{+beaconName}:activate';
- _Methodid = 'proximitybeacon.beacons.activate';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['beaconName',beaconName]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TEmpty) as TEmpty;
- end;
- Function TBeaconsResource.Activate(beaconName: string; AQuery : TBeaconsactivateOptions) : TEmpty;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'projectId',AQuery.projectId);
- Result:=Activate(beaconName,_Q);
- end;
- Function TBeaconsResource.Deactivate(beaconName: string; AQuery : string = '') : TEmpty;
- Const
- _HTTPMethod = 'POST';
- _Path = 'v1beta1/{+beaconName}:deactivate';
- _Methodid = 'proximitybeacon.beacons.deactivate';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['beaconName',beaconName]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,Nil,TEmpty) as TEmpty;
- end;
- Function TBeaconsResource.Deactivate(beaconName: string; AQuery : TBeaconsdeactivateOptions) : TEmpty;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'projectId',AQuery.projectId);
- Result:=Deactivate(beaconName,_Q);
- end;
- Function TBeaconsResource.GetAttachmentsInstance : TBeaconsAttachmentsResource;
- begin
- if (FAttachmentsInstance=Nil) then
- FAttachmentsInstance:=CreateAttachmentsResource;
- Result:=FAttachmentsInstance;
- end;
- Function TBeaconsResource.CreateAttachmentsResource : TBeaconsAttachmentsResource;
- begin
- Result:=CreateAttachmentsResource(Self);
- end;
- Function TBeaconsResource.CreateAttachmentsResource(AOwner : TComponent) : TBeaconsAttachmentsResource;
- begin
- Result:=TBeaconsAttachmentsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TBeaconsResource.GetDiagnosticsInstance : TBeaconsDiagnosticsResource;
- begin
- if (FDiagnosticsInstance=Nil) then
- FDiagnosticsInstance:=CreateDiagnosticsResource;
- Result:=FDiagnosticsInstance;
- end;
- Function TBeaconsResource.CreateDiagnosticsResource : TBeaconsDiagnosticsResource;
- begin
- Result:=CreateDiagnosticsResource(Self);
- end;
- Function TBeaconsResource.CreateDiagnosticsResource(AOwner : TComponent) : TBeaconsDiagnosticsResource;
- begin
- Result:=TBeaconsDiagnosticsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- { --------------------------------------------------------------------
- TNamespacesResource
- --------------------------------------------------------------------}
- Class Function TNamespacesResource.ResourceName : String;
- begin
- Result:='namespaces';
- end;
- Class Function TNamespacesResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TproximitybeaconAPI;
- end;
- Function TNamespacesResource.List(AQuery : string = '') : TListNamespacesResponse;
- Const
- _HTTPMethod = 'GET';
- _Path = 'v1beta1/namespaces';
- _Methodid = 'proximitybeacon.namespaces.list';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,AQuery,Nil,TListNamespacesResponse) as TListNamespacesResponse;
- end;
- Function TNamespacesResource.List(AQuery : TNamespaceslistOptions) : TListNamespacesResponse;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'projectId',AQuery.projectId);
- Result:=List(_Q);
- end;
- Function TNamespacesResource.Update(namespaceName: string; aNamespace : TNamespace; AQuery : string = '') : TNamespace;
- Const
- _HTTPMethod = 'PUT';
- _Path = 'v1beta1/{+namespaceName}';
- _Methodid = 'proximitybeacon.namespaces.update';
- Var
- _P : String;
- begin
- _P:=SubstitutePath(_Path,['namespaceName',namespaceName]);
- Result:=ServiceCall(_HTTPMethod,_P,AQuery,aNamespace,TNamespace) as TNamespace;
- end;
- Function TNamespacesResource.Update(namespaceName: string; aNamespace : TNamespace; AQuery : TNamespacesupdateOptions) : TNamespace;
- Var
- _Q : String;
- begin
- _Q:='';
- AddToQuery(_Q,'projectId',AQuery.projectId);
- Result:=Update(namespaceName,aNamespace,_Q);
- end;
- { --------------------------------------------------------------------
- TV1beta1Resource
- --------------------------------------------------------------------}
- Class Function TV1beta1Resource.ResourceName : String;
- begin
- Result:='v1beta1';
- end;
- Class Function TV1beta1Resource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TproximitybeaconAPI;
- end;
- Function TV1beta1Resource.GetEidparams : TEphemeralIdRegistrationParams;
- Const
- _HTTPMethod = 'GET';
- _Path = 'v1beta1/eidparams';
- _Methodid = 'proximitybeacon.getEidparams';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',Nil,TEphemeralIdRegistrationParams) as TEphemeralIdRegistrationParams;
- end;
- { --------------------------------------------------------------------
- TBeaconinfoResource
- --------------------------------------------------------------------}
- Class Function TBeaconinfoResource.ResourceName : String;
- begin
- Result:='beaconinfo';
- end;
- Class Function TBeaconinfoResource.DefaultAPI : TGoogleAPIClass;
- begin
- Result:=TproximitybeaconAPI;
- end;
- Function TBeaconinfoResource.Getforobserved(aGetInfoForObservedBeaconsRequest : TGetInfoForObservedBeaconsRequest) : TGetInfoForObservedBeaconsResponse;
- Const
- _HTTPMethod = 'POST';
- _Path = 'v1beta1/beaconinfo:getforobserved';
- _Methodid = 'proximitybeacon.beaconinfo.getforobserved';
- begin
- Result:=ServiceCall(_HTTPMethod,_Path,'',aGetInfoForObservedBeaconsRequest,TGetInfoForObservedBeaconsResponse) as TGetInfoForObservedBeaconsResponse;
- end;
- { --------------------------------------------------------------------
- TProximitybeaconAPI
- --------------------------------------------------------------------}
- Class Function TProximitybeaconAPI.APIName : String;
- begin
- Result:='proximitybeacon';
- end;
- Class Function TProximitybeaconAPI.APIVersion : String;
- begin
- Result:='v1beta1';
- end;
- Class Function TProximitybeaconAPI.APIRevision : String;
- begin
- Result:='20160429';
- end;
- Class Function TProximitybeaconAPI.APIID : String;
- begin
- Result:='proximitybeacon:v1beta1';
- end;
- Class Function TProximitybeaconAPI.APITitle : String;
- begin
- Result:='Google Proximity Beacon API';
- end;
- Class Function TProximitybeaconAPI.APIDescription : String;
- begin
- Result:='Registers, manages, indexes, and searches beacons.';
- end;
- Class Function TProximitybeaconAPI.APIOwnerDomain : String;
- begin
- Result:='google.com';
- end;
- Class Function TProximitybeaconAPI.APIOwnerName : String;
- begin
- Result:='Google';
- end;
- Class Function TProximitybeaconAPI.APIIcon16 : String;
- begin
- Result:='http://www.google.com/images/icons/product/search-16.gif';
- end;
- Class Function TProximitybeaconAPI.APIIcon32 : String;
- begin
- Result:='http://www.google.com/images/icons/product/search-32.gif';
- end;
- Class Function TProximitybeaconAPI.APIdocumentationLink : String;
- begin
- Result:='https://developers.google.com/beacons/proximity/';
- end;
- Class Function TProximitybeaconAPI.APIrootUrl : string;
- begin
- Result:='https://proximitybeacon.googleapis.com/';
- end;
- Class Function TProximitybeaconAPI.APIbasePath : string;
- begin
- Result:='';
- end;
- Class Function TProximitybeaconAPI.APIbaseURL : String;
- begin
- Result:='https://proximitybeacon.googleapis.com/';
- end;
- Class Function TProximitybeaconAPI.APIProtocol : string;
- begin
- Result:='rest';
- end;
- Class Function TProximitybeaconAPI.APIservicePath : string;
- begin
- Result:='';
- end;
- Class Function TProximitybeaconAPI.APIbatchPath : String;
- begin
- Result:='batch';
- end;
- Class Function TProximitybeaconAPI.APIAuthScopes : TScopeInfoArray;
- begin
- SetLength(Result,1);
- Result[0].Name:='https://www.googleapis.com/auth/userlocation.beacon.registry';
- Result[0].Description:='View and modify your beacons';
-
- end;
- Class Function TProximitybeaconAPI.APINeedsAuth : Boolean;
- begin
- Result:=True;
- end;
- Class Procedure TProximitybeaconAPI.RegisterAPIResources;
- begin
- TBeaconTypeproperties.RegisterObject;
- TBeacon.RegisterObject;
- TAdvertisedId.RegisterObject;
- TLatLng.RegisterObject;
- TIndoorLevel.RegisterObject;
- TEphemeralIdRegistration.RegisterObject;
- TEmpty.RegisterObject;
- TListBeaconsResponse.RegisterObject;
- TBeaconAttachment.RegisterObject;
- TListBeaconAttachmentsResponse.RegisterObject;
- TDeleteAttachmentsResponse.RegisterObject;
- TListNamespacesResponse.RegisterObject;
- TNamespace.RegisterObject;
- TEphemeralIdRegistrationParams.RegisterObject;
- TListDiagnosticsResponse.RegisterObject;
- TDiagnostics.RegisterObject;
- TDate.RegisterObject;
- TGetInfoForObservedBeaconsRequest.RegisterObject;
- TObservation.RegisterObject;
- TGetInfoForObservedBeaconsResponse.RegisterObject;
- TBeaconInfo.RegisterObject;
- TAttachmentInfo.RegisterObject;
- end;
- Function TProximitybeaconAPI.GetBeaconsAttachmentsInstance : TBeaconsAttachmentsResource;
- begin
- if (FBeaconsAttachmentsInstance=Nil) then
- FBeaconsAttachmentsInstance:=CreateBeaconsAttachmentsResource;
- Result:=FBeaconsAttachmentsInstance;
- end;
- Function TProximitybeaconAPI.CreateBeaconsAttachmentsResource : TBeaconsAttachmentsResource;
- begin
- Result:=CreateBeaconsAttachmentsResource(Self);
- end;
- Function TProximitybeaconAPI.CreateBeaconsAttachmentsResource(AOwner : TComponent) : TBeaconsAttachmentsResource;
- begin
- Result:=TBeaconsAttachmentsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TProximitybeaconAPI.GetBeaconsDiagnosticsInstance : TBeaconsDiagnosticsResource;
- begin
- if (FBeaconsDiagnosticsInstance=Nil) then
- FBeaconsDiagnosticsInstance:=CreateBeaconsDiagnosticsResource;
- Result:=FBeaconsDiagnosticsInstance;
- end;
- Function TProximitybeaconAPI.CreateBeaconsDiagnosticsResource : TBeaconsDiagnosticsResource;
- begin
- Result:=CreateBeaconsDiagnosticsResource(Self);
- end;
- Function TProximitybeaconAPI.CreateBeaconsDiagnosticsResource(AOwner : TComponent) : TBeaconsDiagnosticsResource;
- begin
- Result:=TBeaconsDiagnosticsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TProximitybeaconAPI.GetBeaconsInstance : TBeaconsResource;
- begin
- if (FBeaconsInstance=Nil) then
- FBeaconsInstance:=CreateBeaconsResource;
- Result:=FBeaconsInstance;
- end;
- Function TProximitybeaconAPI.CreateBeaconsResource : TBeaconsResource;
- begin
- Result:=CreateBeaconsResource(Self);
- end;
- Function TProximitybeaconAPI.CreateBeaconsResource(AOwner : TComponent) : TBeaconsResource;
- begin
- Result:=TBeaconsResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TProximitybeaconAPI.GetNamespacesInstance : TNamespacesResource;
- begin
- if (FNamespacesInstance=Nil) then
- FNamespacesInstance:=CreateNamespacesResource;
- Result:=FNamespacesInstance;
- end;
- Function TProximitybeaconAPI.CreateNamespacesResource : TNamespacesResource;
- begin
- Result:=CreateNamespacesResource(Self);
- end;
- Function TProximitybeaconAPI.CreateNamespacesResource(AOwner : TComponent) : TNamespacesResource;
- begin
- Result:=TNamespacesResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TProximitybeaconAPI.GetV1beta1Instance : TV1beta1Resource;
- begin
- if (FV1beta1Instance=Nil) then
- FV1beta1Instance:=CreateV1beta1Resource;
- Result:=FV1beta1Instance;
- end;
- Function TProximitybeaconAPI.CreateV1beta1Resource : TV1beta1Resource;
- begin
- Result:=CreateV1beta1Resource(Self);
- end;
- Function TProximitybeaconAPI.CreateV1beta1Resource(AOwner : TComponent) : TV1beta1Resource;
- begin
- Result:=TV1beta1Resource.Create(AOwner);
- Result.API:=Self.API;
- end;
- Function TProximitybeaconAPI.GetBeaconinfoInstance : TBeaconinfoResource;
- begin
- if (FBeaconinfoInstance=Nil) then
- FBeaconinfoInstance:=CreateBeaconinfoResource;
- Result:=FBeaconinfoInstance;
- end;
- Function TProximitybeaconAPI.CreateBeaconinfoResource : TBeaconinfoResource;
- begin
- Result:=CreateBeaconinfoResource(Self);
- end;
- Function TProximitybeaconAPI.CreateBeaconinfoResource(AOwner : TComponent) : TBeaconinfoResource;
- begin
- Result:=TBeaconinfoResource.Create(AOwner);
- Result.API:=Self.API;
- end;
- initialization
- TProximitybeaconAPI.RegisterAPI;
- end.
|